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
|
