%% Expanded and constant width lines
%%                PostScript Language Tutorial and Cookbook

/inch { 72 mul } bind def
/centersquare {
  newpath .5  .5 moveto -.5  .5 lineto
         -.5 -.5 lineto  .5 -.5 lineto closepath } bind def

gsave
  2.5 inch 6 inch translate
  1 16 div setlinewidth
  1 1 5 {
   gsave
     .5 mul inch dup scale
     centersquare stroke
     grestore
   } for
  grestore

gsave
  6 inch 6 inch translate
  1 setlinewidth
  /ctmx matrix currentmatrix def
  1 1 5 {
   gsave
     .5 mul inch dup scale
     centersquare ctmx setmatrix stroke
     grestore
   } for
  grestore

showpage
