scale corner
scale2.ps
%!
/Box {
moveto
50 0 rlineto
0 50 rlineto
-50 0 rlineto
0 -50 rlineto
closepath
stroke
} def
100 100 Box
100 100 translate %scale around the new origin, at the left bottom corner
0.5 0.5 scale
0 0 Box
showpage