Download raw (720 bytes)
%!PS-Adobe-3.0 EPSF-3.0 %%BoundingBox: 0 0 300 300 % circle1: % period linewidth radius circle1 - /circle5 { /rot exch def /radius exch def /thick exch def /period exch def /quarter { radius 4 div cvi } def gsave 2 2 scale 0 0 translate thick setlinewidth rot rotate newpath %radius neg radius neg radius 0 360 arc 0 0 radius 0 360 arc closepath stroke %clip newpath radius radius 2 div cvi add { radius neg radius 2 mul neg moveto 0 period translate 5 { quarter quarter rlineto quarter quarter neg rlineto } repeat stroke } repeat grestore } def /debugorig { newpath 0 0 2 0 360 arc closepath stroke } def 200 200 translate 3 0.7 30 60 circle5 showpage