summaryrefslogtreecommitdiff
path: root/info/laan/paradigm/barnwindowii.eps
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