summaryrefslogtreecommitdiff
path: root/graphics/circuit_macros/examples/svg/EmarrowsSVG.m4
blob: 33372ae290fc2e37e59726647bc744f1daaf7b9d (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
.PS
# `Emarrows.m4'
cct_init(svg_font(sans-serif,11bp__))
  hskip = 0.6
[
  { em_arrows(N)
    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(N)"' 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(ED) with .sw at last [].se+(hskip,0)
  `"...(ED)"' wid .75 at last [].s+(0,-2bp__) below }
  ]
# box wid last [].wid ht last [].ht at last []

 command "</g>" # end font
.PE