blob: 7c0fe5c55049fbf86b6ce5be5b2fb6fb7b5da17b (
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
|
% This file is part of TeX by Topic
% Copyright 2007 Victor
% see file TeXbyTopic.tex for copying conditions
\dh=\fbh
\message{check fontdimen22 in figs1}
{\setbox0\hbox{$\downarrow$}
% \global\lh\ht0 \global\advance\lh by -\fontdimen22\MathSYx
\global\lh\ht0 \global\advance\lh by -5pt
\setbox0\hbox{\quad0+11,11, \dots}
\global\dw\wd0 \global\advance\dw by 10pt }
\def\doosje#1{\hbox
{\vrule width\lw
\vbox to \dh{\hsize\dh
\hrule height\lw \
\vfil \hbox to \hsize{\hfil#1\hfil} \vfil
\hrule height\lw}%
\vrule width\lw
}}
\def\mr{\moveright.5\dh}
\def\hdoosje#1#2#3{\vtop
{\vbox{\hbox to \dh{\hfil$\swarrow$ \raise5pt\hbox{#1} $\nwarrow$\hfil}
\doosje{#2}\kern0pt}
\hbox to \dh{\hfil
\vtop{\kern0pt
\downvector{12pt}
\kern3pt
\setbox0\hbox to 0pt{\hss14\setbox2\hbox{5}\hskip-.2\wd0}
\dp0=0pt \box0
\kern3pt
\downvector{12pt}}
\kern5pt
\vtop{\kern0pt
\downvector{12pt}
\kern3pt
\setbox0\hbox to 0pt{#3\hss}
\dp0=0pt \box0
\kern3pt
\downvector{12pt}}
\hfil}
\kern7pt
\hbox to \dh{\hfil stop\hfil}}\ignorespaces
}
\font\linefnt=line10
\newdimen\lfw \lfw=\fontdimen8\linefnt
\def\downvector#1{\hbox{\hbox to 0pt
{\vrule width\lfw height0pt depth #1\hss}%
\lower#1\hbox to 0pt{\linefnt\char'77\hss}}}
\def\tbox#1{\setbox0\hbox{\quad#1\quad}\dimen0=\wd0 \box0\relax}
\def\abox{\hbox to \hsize{\rightarrowfill}}
\def\tarrow#1{\raise.5\dh\vbox{\tbox{#1}\hsize\dimen0\relax
\abox}\ignorespaces}
\def\threearrow{%
\vbox{\hsize\dw
\vbox{\tbox{10}\abox
\kern2pt
\tbox{0+11,11, \dots}\abox}
\kern2pt
\tbox{0+10}
\abox
\kern2pt
\vtop{\kern0pt
\hbox to \dw
{$\nwarrow$\hfil\lower 5pt\hbox{other}%
\hfil$\swarrow$}}
}}
\def\figmouth{\hbox{\leftskip=0pt \parindent=0pt \offinterlineskip
\SansSerif \PointSize:8 \Style:roman
\tarrow{start}%
\hdoosje{10}N{5: insert \cs{par}}
\tarrow{other}
\hdoosje{other}M{5: insert space}
\threearrow
\hdoosje{10}S{5}
}}
\endinput
|
