%! /x 0 def /dx 0.01 def /s 1 def { gsave 72 dup scale 1 72 div setlinewidth 1 1 translate x x translate newpath 0 0 moveto s 0 rlineto 0 s rlineto 0 s lineto closepath gsave 0.5 0.5 0.5 setrgbcolor fill grestore stroke showpage grestore /x x dx add def } loop