summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/exam-n/sample/fig/spiral.eps
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