diff options
Diffstat (limited to 'graphics/circuit_macros/examples/Arrester.m4')
| -rw-r--r-- | graphics/circuit_macros/examples/Arrester.m4 | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/graphics/circuit_macros/examples/Arrester.m4 b/graphics/circuit_macros/examples/Arrester.m4 new file mode 100644 index 0000000000..791a2f2162 --- /dev/null +++ b/graphics/circuit_macros/examples/Arrester.m4 @@ -0,0 +1,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 |