%! (zoom.inc) run /draw { gsave 1 0 0 setrgbcolor newpath x y moveto -100 0 rlineto 200 0 rlineto x y moveto 0 -100 rlineto 0 200 rlineto stroke grestore x y moveto (Euclid) show } def /Helvetica-Bold findfont 25 scalefont setfont /s 1 def /x 100 def /y 100 def { gsave [x y] [x y] s zoom draw grestore /s s 1.1 mul def showpage } loop