summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/generic/pst-moire/pst-cosine.pro
diff options
context:
space:
mode:
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.pro31
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