blob: a5fe8a57d98631f51da9688dce7699e38cd9b04b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
%!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
|
