summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/circuit-macros/examples/snake.m4
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/latex/circuit-macros/examples/snake.m4')
-rw-r--r--Master/texmf-dist/doc/latex/circuit-macros/examples/snake.m421
1 files changed, 21 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/circuit-macros/examples/snake.m4 b/Master/texmf-dist/doc/latex/circuit-macros/examples/snake.m4
new file mode 100644
index 00000000000..39f2b7d1d1f
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/circuit-macros/examples/snake.m4
@@ -0,0 +1,21 @@
+.PS
+# snake.m4
+gen_init
+scale = 2
+rmax = 0.8
+rmin = 0.2
+fact = 0.75
+wd = 0.15
+[
+shade(0.8,
+ for r = rmax to rmin by *fact do {
+ arc cw rad r to Here+(r+r,0)
+ arc ccw rad r-wd to Here+(2*(r-wd),0) }
+ line right wd
+ for r = r to rmax by *1/fact do {
+ arc cw rad r to Here-(r+r,0)
+ arc ccw rad r-wd to Here-(2*(r-wd),0) }
+ line to (0,0)
+ )
+] with .sw at 2,2
+.PE