[categories] [index] [all (553)] [latest]
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 500 400
100 200 translate
0 0 1 setrgbcolor
/N 10 def
/STEP 15 def
1 1 N {
STEP mul /r exch def
r 0 r 0 180 arc stroke
N 2 mul STEP mul r sub 0 r 180 0 arc stroke
} for
or use:
<< /PageSize [800 600] >> setpagedevice