summaryrefslogtreecommitdiff
path: root/graphics/circuit_macros/examples/Arrester.m4
blob: 791a2f21623623937ef50da2cc9ec50c7dc0c016 (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
.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