diff options
Diffstat (limited to 'Master/texmf-dist/doc/generic/pst-moire/pst-cosine.pro')
-rw-r--r-- | Master/texmf-dist/doc/generic/pst-moire/pst-cosine.pro | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/generic/pst-moire/pst-cosine.pro b/Master/texmf-dist/doc/generic/pst-moire/pst-cosine.pro new file mode 100644 index 00000000000..aff0c34dd2b --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-moire/pst-cosine.pro @@ -0,0 +1,31 @@ +moireDict begin +/pst-cosine { +/amplitud 2.5 def +/period 2 def +/cos1 [ +-8 0.05 8 {/x exch def % 320 pts + x unit + 360 x mul period div cos amplitud mul + } for +] def +% +/drawcos { +newpath +cos1 0 get cos1 1 get moveto +0 2 cos1 length 2 sub {/i exch def + cos1 i get cos1 i 1 add get lineto + } for + stroke +} def +gsave +Runit neg dup +Runit 2 mul dup +rectclip +0 -8 unit translate +nr { + 0 E1 translate + drawcos +} repeat +grestore +} def +end |