scale
%!
/Box {
moveto
50 0 rlineto
0 50 rlineto
-50 0 rlineto
0 -50 rlineto
closepath
stroke
} def
100 100 Box
0.5 0.5 scale
100 100 Box %scale around the origin (0,0)
showpage