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