summaryrefslogtreecommitdiff
path: root/info/examples/PSTricks_7_de/35-00-88.ltx
blob: f6f0ebb9c7fa123e6dc137b71cef0fde1c20cae2 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
%% 
%%  Ein Beispiel der DANTE-Edition
%%  
%%  7. Auflage
%% 
%%  Beispiel 35-00-88 auf Seite 853.
%% 
%%  Copyright (C) 2016 Herbert Voss
%% 
%%  It may be distributed and/or modified under the conditions
%%  of the LaTeX Project Public License, either version 1.3
%%  of this license or (at your option) any later version.
%% 
%%  See http://www.latex-project.org/lppl.txt for details.
%% 
%% 
%% ==== 
% Show page(s) 1
%% 
%% 
\documentclass[]{exaarticle}
\pagestyle{empty}
\setlength\textwidth{352.81416pt}
\setlength\parindent{0pt}
%StartShownPreambleCommands
\usepackage{pst-tree,pstricks-add}
%StopShownPreambleCommands
\begin{document}
\newpsstyle{dg}{fillstyle=solid,fillcolor=blue!50}
\newpsstyle{lg}{fillstyle=solid,fillcolor=red!50}
\newpsstyle{dh}{linestyle=dashed}
\def\dashedbox{\psframebox[linestyle=dashed]{%
    \vphantom{1}
    \vrule width1.5mm height0pt depth0pt\relax}}% to tune
\def\pslgframebox#1{\psframebox[style=lg]{#1}}
\def\psdgframebox#1{\psframebox[style=dg]{#1}}
\def\dedge{\ncline[linestyle=dashed]}
\def\pssp{\hspace{2mm}}% to tune

\pstree[treesep=2mm,levelsep=2cm]% to tune
{\Tr{\psframebox{4}}}{%
  \pstree{\Tr{\psframebox{4}}}{%
    \Tr[name=T1]{\psframebox{4}}%
    \Tr[name=T2]{\psframebox[style=lg]{>20}}%
    \Tr[name=T3]{\psframebox[style=lg]{>13}}%
  }%
  \pstree{\Tr{\pslgframebox{<-1}}}{%
    \Tr[name=T4]{\psdgframebox{-1}}%
    \Tr[edge=\dedge]{\dashedbox}%
    \Tr[edge=\dedge]{\dashedbox}%
  }%
  \pstree{\Tr{\pslgframebox{<-2}}}{%
    \Tr[name=T5]{\psdgframebox{-2}}%
    \Tr[edge=\dedge]{\dashedbox}%
    \Tr[edge=\dedge]{\dashedbox}%
  }%
  \pstree{\Tr{\pslgframebox{<-11}}}{%
    \Tr[name=T6]{\psdgframebox{-11}}%
    \Tr[edge=\dedge]{\dashedbox}%
    \Tr[edge=\dedge]{\dashedbox}%
    \Tr[edge=\dedge]{\dashedbox}%
  }%
}
\par\vspace{1.5cm}% to tune
\Rnode{U1}{\psframebox{4}}\pssp
\Rnode{U2}{\pslgframebox{5}}\pssp
\Rnode{U3}{\psdgframebox{20}}\pssp
\Rnode{U4}{\dashedbox}\pssp
\Rnode{U5}{\psdgframebox{13}}\pssp
\Rnode{U6}{\dashedbox}\pssp
\Rnode{U7}{\pslgframebox{-1}}\pssp
\Rnode{U8}{\pslgframebox{-12}}\pssp
\Rnode{U9}{\pslgframebox{-2}}\pssp
\Rnode{U10}{\pslgframebox{-8}}\pssp
\Rnode{U11}{\pslgframebox{-11}}\pssp
\Rnode{U12}{\pslgframebox{-40}}\pssp
\Rnode{U13}{\pslgframebox{-19}}
\ncline{T1}{U1}
\ncline{T1}{U2}
\ncline{T2}{U3}
\dedge{T2}{U4}
\ncline{T3}{U5}
\dedge{T3}{U6}
\ncline{T4}{U7}
\ncline{T4}{U8}
\ncline{T5}{U9}
\ncline{T5}{U10}
\ncline{T6}{U11}
\ncline{T6}{U12}
\ncline{T6}{U13}
\end{document}