blob: fcf91bb97d1b5934f6679a025421f92b67be66c6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
%!PS-Adobe-3.0 EPSF-3.0
% Shrinking squares, cgl Feb 97
% Adapted from http://www.ntg.nl/maps/pdf/19_12.pdf
% this version...
%%Creator: norman@astro.gla.ac.uk
%%BoundingBox: 0 0 200 125
/b 0.6180339887 def % (\sqrt5-1)/2
/x 200 def
/y x b mul def
/square {
0 y lineto y y lineto y 0 lineto
y 0 y 180 90 arcn y y translate
} def
0.35 setlinewidth
16 {
0 0 moveto square -90 rotate
/x y def /y x b mul def
} repeat
stroke
%showpage
|
