%!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