diff options
author | Karl Berry <karl@freefriends.org> | 2018-11-15 22:21:11 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2018-11-15 22:21:11 +0000 |
commit | e63759bc8ac77f2a41375c1f4b0ad538d4da86b0 (patch) | |
tree | ae016be60fa150364202593212f6a21828587a55 /Master/texmf-dist/doc/generic/pst-moire/pst-sin.pro | |
parent | 2f440ca3dc3a3aa309df9143dfe3ce0c8cc29e7a (diff) |
pst-moire (15nov18)
git-svn-id: svn://tug.org/texlive/trunk@49167 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/doc/generic/pst-moire/pst-sin.pro')
-rw-r--r-- | Master/texmf-dist/doc/generic/pst-moire/pst-sin.pro | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/generic/pst-moire/pst-sin.pro b/Master/texmf-dist/doc/generic/pst-moire/pst-sin.pro new file mode 100644 index 00000000000..f3f9e82302b --- /dev/null +++ b/Master/texmf-dist/doc/generic/pst-moire/pst-sin.pro @@ -0,0 +1,26 @@ +moireDict begin +/pst-sin { +0 0 translate +2 dict begin +/A1 0.5 def % amplitude +/TRAME { +-50 E1 2 mul 50 {/n exch def +gsave + n E1 mul unit % x + A1 unit 360 Tr div n E1 mul mul sin mul % y + translate + linecolor + linewidth + -6 unit -6 m mul unit moveto + 6 unit 6 m mul unit lineto + stroke +grestore + } for +} def +Runit neg dup +Runit 2 mul dup +rectclip + TRAME +end +} def +end |