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
|
.PS
# Arrester.m4
cct_init
divert(-1)
divert(0)dnl
movewid = movewid/2
M: arrester
{"\tt arr{}ester()" at last [].s below}
N: arrester(,D) with .A at M.end+(movewid,0)
{"\strut\tt $\cdots$(,D)" at last [].s below}
P: arrester(,LD) with .A at N.B+(movewid,0)
{"\tt (,LD)" at last [].s below}
move; H: arrester(,S)
{"\tt (,S)" at last [].s below}
move; Q: arrester(,E)
{"\tt (,E)" at last [].s below}
R: arrester(,ED) with .A at Q.end+(movewid,0)
{"\tt $\cdots$(,ED)" at last [].s below}
thinlines_
Loopover_(`X',
`spline <- from X.A up 8bp__ then up 6bp__ right 4bp__; "\sl A" ljust
spline <- from X.B up 8bp__ then up 6bp__ left 4bp__; "\sl B" rjust
arrow <- from X.G right 12bp__ up 2bp__; "\sl G" ljust',N,R)
.PE
|