summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/generic/pst-moire/pst-sin.pro
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2018-11-15 22:21:11 +0000
committerKarl Berry <karl@freefriends.org>2018-11-15 22:21:11 +0000
commite63759bc8ac77f2a41375c1f4b0ad538d4da86b0 (patch)
treeae016be60fa150364202593212f6a21828587a55 /Master/texmf-dist/doc/generic/pst-moire/pst-sin.pro
parent2f440ca3dc3a3aa309df9143dfe3ce0c8cc29e7a (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.pro26
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