diff options
author | Karl Berry <karl@freefriends.org> | 2023-03-11 21:11:43 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2023-03-11 21:11:43 +0000 |
commit | 6bc45f3087df0ce19bdf3c57a0aec55944ec40ed (patch) | |
tree | 3faac3b12b92fc4ba09b62c0472a9b3654dada6a /Master/texmf-dist/doc/latex/circuit-macros/examples/extras/squiggle.m4 | |
parent | 86d58778de06c53c2e0b20f25556b96619a2dc42 (diff) |
circuit-macros (11mar23)%
git-svn-id: svn://tug.org/texlive/trunk@66549 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/doc/latex/circuit-macros/examples/extras/squiggle.m4')
-rw-r--r-- | Master/texmf-dist/doc/latex/circuit-macros/examples/extras/squiggle.m4 | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/circuit-macros/examples/extras/squiggle.m4 b/Master/texmf-dist/doc/latex/circuit-macros/examples/extras/squiggle.m4 new file mode 100644 index 00000000000..671ae2addd0 --- /dev/null +++ b/Master/texmf-dist/doc/latex/circuit-macros/examples/extras/squiggle.m4 @@ -0,0 +1,26 @@ +.PS +# squiggle.m4 +gen_init + +divert(-1) +dnl Should this macro be in libgen.m4 or would that be just adding clutter? + + `squiggle(linespec, + amplitude,wavelength,attributes)' + `squiggly line (sinusoid), e.g. + squiggle(up_ 1 right_ 2,,,outlined "red")' +define(`squiggle',`rpoint_(ifelse(`$1',,linewid,`$1')) + m4dist = lin_leng(last line) + m4cycles = int(m4dist/(ifelse(`$3',,0.25*scale,`$3'))+0.5) + define(`squiggleampl',`ifelse(`$2',,0.04*scale,`$2')')dnl + define(`squigglefreq',`(twopi_*m4cycles/m4dist)')dnl + sinusoid(squiggleampl,squigglefreq,-twopi_/4,0,m4dist,`$4') \ + with .Origin at last line.start + move to last line.end') +divert(0)dnl + +squiggle(up_ 1 right_ 2,,,outlined "red") +squiggle(up 2 right_ 2,0.1,0.15,outlined "red" <-> wid 0.06 ht 0.05) +squiggle(right_ 1,,,thick 2 dotted outlined "blue" ) + +.PE |