%!PS Barn Window II %%BoundingBox: -40 -40 40 40 %%Creator: cgl %%CreationDate: May 29 1996 %%Pages: 1 %%EndProlog %%Page: 1 1 %300 500 translate % /l 36 def /r {l 22.5 sin mul} def /m {l 22.5 cos mul} def 8{r .5 mul 0 moveto l 0 lineto currentpoint %begin circular arc 22.5 rotate m 0%center r %radius -90 90 arc 22.5 rotate }repeat %inner circle /rin {r .5 mul} def rin 0 moveto 0 0 rin 0 360 arc %outer circle /rout {r m add} def rout 0 moveto 0 0 rout 0 360 arc %extra circles /rin {r .25 mul} def 22.5 rotate 8{m rin add 0 moveto m 0 rin 0 360 arc 45 rotate }repeat stroke showpage %end