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
|
.PS
# `Emarrows.m4'
cct_init
hskip = 0.6
[
{ em_arrows(N)
box dotted wid last [].wid ht last [].ht at last [].c
thinlines_
arrow <- left 0.15 from last [].Head; "\sl Head" wid 0.31 rjust
arrow <- down 0.12 from last [].Tail; "\sl Tail" below
"\sl A1" rjust below at last [].A1.c
"\sl A2" ljust above at last [].A2.c
thicklines_
move down 0.25 from last [].s
move up 0.2 from last [].n
"\tt em\_arrows(N)" at last [].s+(0,-0.20) below }
{ em_arrows(ND,45) with .sw at last [].se+(hskip*1.5,0)
"\tt em\_arrows(ND,45)" at last [].s below }
{ em_arrows(I) with .sw at last [].se+(hskip,0)
"\tt $\ldots$(I)" at last [].s below }
{ em_arrows(ID) with .sw at last [].se+(hskip,0)
"\tt $\ldots$(ID)" at last [].s below }
{ em_arrows(E) with .sw at last [].se+(hskip,0)
"\tt $\ldots$(E)" at last [].s below }
{ em_arrows(ED) with .sw at last [].se+(hskip,0)
"\tt $\ldots$(ED)" at last [].s below }
]
#showbox_
.PE
|
