Translate

%!
% Draw a box at 72, 72 using translate

% operator box: xcoord ycoord box -
% Creates one inch box at xcoord, ycoord
/box {
   newpath
   moveto
   72 0 rlineto
   0 72 rlineto
   -72 0 rlineto
   closepath
} def

gsave                           % Preserve the old coordinates
  72 72 translate               % Set origin to (72, 72)
  0 0 box stroke                % Draw the box at the new origin
grestore                        % Restore the old coordinates

showpage

pjw 12/21/96