summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/generic/pst-moire/pst-cosine.pro
blob: aff0c34dd2ba1e28f893beea5e46eb04bcacbf4d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
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