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

You are viewing proxied material from ftp.icm.edu.pl. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.