summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/circuit-macros/examples/extras/Pipe.m4
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/latex/circuit-macros/examples/extras/Pipe.m4')
-rw-r--r--Master/texmf-dist/doc/latex/circuit-macros/examples/extras/Pipe.m440
1 files changed, 40 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/circuit-macros/examples/extras/Pipe.m4 b/Master/texmf-dist/doc/latex/circuit-macros/examples/extras/Pipe.m4
new file mode 100644
index 00000000000..0d6512478c1
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/circuit-macros/examples/extras/Pipe.m4
@@ -0,0 +1,40 @@
+.PS
+# How about ladder diagrams?
+gen_init
+NeedDpicTools
+
+ { for x=0 to 5 do { line up 5 from (x,0) } }
+ { for y=0 to 5 do { line right 5 from (0,y) } }
+ posarray(A,
+ (1,0.5),
+ (4,0.5),
+ (4.5,1),
+ (4.5,3),
+ (4,3.5),
+ (3.5,3),
+ (3,2.5),
+ (1,2.5),
+ (0.5,3),
+ (0.5,4),
+ (1,4.5),
+ (4,4.5))
+ P[0]: 1,0.5
+ P[1]: 4.5,0.5
+ P[2]: 4.5,3.5
+ P[3]: 3.5,3.5
+ P[4]: 3.5,2.5
+ P[5]: 0.5,2.5
+ P[6]: 0.5,4.5
+ P[7]: 4,4.5
+
+ r = 0.4
+ define(`curve',
+ ` move to P[0]
+ for i_c=1 to 6 do { arcto(P[i_c],P[i_c+1],r,`$1') }
+ line to P[7] `$1'')
+
+ lw = 0.3/(1bp__)
+ lt = 1.8
+ for i=0 to 6 do {
+ curve(thick lw-lt*i outlined rgbstring(0.1+i/10,0.1+i/10,0.1+i/10))}
+.PE