%!PS-Adobe-2.0
%%BoundingBox: 0 0 300 300

/A 0 def

36 {

gsave
150 150 translate

/S 60 def
S dup scale
1 S div setlinewidth

newpath
0 0 moveto
1 0 lineto
0 0 moveto
0 1 lineto
stroke

newpath
1 1 0.036 0 360 arc 
closepath
fill

gsave
1 1 translate
A rotate
-1 -1 translate

1 0 0 setrgbcolor
newpath
0 0 moveto
1 0 lineto
0 0 moveto
0 1 lineto
stroke
0.6 setgray
newpath
0 0 moveto
1 1 lineto
stroke

0 setgray
newpath
0 0 0.036 0 360 arc 
closepath
fill

grestore

grestore
showpage

/A A 10 add def
} repeat