PS
# `EmarrowsDPV.m4'
cct_init(svg_font(sans-serif,11bp__))
hskip = 0.6
[
{ em_arrows()
box dotted wid last [].wid ht last [].ht at last [].c
thinlines_
arrow <- up 0.12 from last [].Head;`"Head"' above
arrow <- down 0.12 from last [].Tail;`"Tail"' below
`"A1"' rjust below at last [].A1.c
`"A2"' ljust above at last [].A2.c
thicklines_
move down 0.25 from last [].s
move up 0.2 from last [].n
`"em_arrows()"' wid 1.0 at last [].s+(0,-0.20) below }
{ em_arrows(ND,45) with .sw at last [].se+(hskip*1.5,0)
`"em_arrows(ND,45)"' at last [].s below }
{ em_arrows(I) with .sw at last [].se+(hskip,0)
`"...(I)"' at last [].s+(0,-9bp__) below }
{ em_arrows(ID) with .sw at last [].se+(hskip,0)
`"...(ID)"' at last [].s+(0,-2bp__) below }
{ em_arrows(E) with .sw at last [].se+(hskip,0)
`"...(E)"' at last [].s+(0,-2bp__) below }
{ em_arrows(NT) with .sw at last [].se+(hskip,0)
`"...(NT)"' wid .75 at last [].s+(0,-2bp__) below }
]
# box wid last [].wid ht last [].ht at last []
