summaryrefslogtreecommitdiff
path: root/graphics/circuit_macros/examples/Arrester.m4
diff options
context:
space:
mode:
Diffstat (limited to 'graphics/circuit_macros/examples/Arrester.m4')
-rw-r--r--graphics/circuit_macros/examples/Arrester.m428
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