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
