summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/generic/pst-moire/pst-sin.pro
blob: f3f9e82302babccc56c338d09aa5548b68e9d125 (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
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