diff options
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.m4 | 21 |
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 |