%! /Box { moveto 50 0 rlineto 0 50 rlineto -50 0 rlineto 0 -50 rlineto closepath stroke } def 10 10 Box gsave %translate only affect path between gsave and grestore 0 60 translate 3 setlinewidth 10 10 Box grestore 70 10 Box showpage