thinking-forth/fig1-1.tex at ans_tf · forthy42/thinking-forth · GitHub

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
\centerline{\tt\noindent
\begin{tabular}{l@{\hspace{2.5cm}}}
INSTRUCTION\\[-1pt]
INSTRUCTION\\[-1pt]
INSTRUCTION\\[-1pt]
\rnode{A}{INSTRUCTION\,}\\[-1pt]
INSTRUCTION\\[-1pt]
INSTRUCTION\\[-1pt]
TEST\\[-1pt]
\rnode{B}{JUMP\,}\\[-1pt]
INSTRUCTION\\[-1pt]
INSTRUCTION\\[-1pt]
INSTRUCTION\\[-1pt]
INSTRUCTION\\[-1pt]
INSTRUCTION\\[-1pt]
\rnode{C}{INSTRUCTION\,}\\[-1pt]
INSTRUCTION\\[-1pt]
INSTRUCTION\\[-1pt]
INSTRUCTION\\[-1pt]
INSTRUCTION\\[-1pt]
INSTRUCTION\\[-1pt]
INSTRUCTION\\[-1pt]
\rnode{D}{JUMP\,}\\[-1pt]
\rnode{E}{INSTRUCTION\,}\\[-1pt]
INSTRUCTION\\[-1pt]
INSTRUCTION\\[-1pt]
INSTRUCTION\\[-1pt]
\rnode{F}{INSTRUCTION\,}\\[-1pt]
INSTRUCTION\\[-1pt]
TEST\\[-1pt]
\rnode{G}{JUMP\,}\\[-1pt]
TEST\\[-1pt]
\rnode{H}{JUMP\,}\\[-1pt]
\end{tabular}
\psset{arrows=->,arrowinset=0,arrowsize=10pt,arrowlength=.7,linearc=.4,angleA=0,angleB=0}
\psset{arm=.5cm}
\ncangle{B}{E}
\psset{arm=1cm}
\ncangle{D}{F}
\psset{arm=1.5cm}
\ncangle{G}{A}
\psset{arm=2.5cm}
\ncangle{H}{C}
}