%!PS EPSF %%Title: polygon.eps II %%Creator: cgl %%CreationDate: June 17 1996 %%BoundingBox: -100 -100 100 100 %%Pages: 1 %%EndProlog %%Page: 1 1 %250 500 translate /r 100 def /r1 {r .25 mul} def /r3 {r .75 mul} def 25{r 0 moveto 4{r3 r3 r1 r1 0 r curveto 90 rotate }repeat .9 .9 scale }repeat stroke showpage %%eof