%! /b 3 def /h 1 def /s 0 def 100 { gsave 100 100 translate 64 64 scale 1 5 div setlinewidth newpath 0 0 moveto b 0 lineto b h lineto 0 h lineto 0 0 lineto gsave 1 0 0 setrgbcolor fill grestore stroke 0 2 translate newpath 0 0 moveto b 0 lineto b s add h lineto s h lineto closepath gsave 1 0 0 setrgbcolor fill grestore stroke grestore showpage /s s 0.1 add def } repeat