scale relative to the center of the shape

scale3.ps

%!

/Box {
 		moveto
				50 0 rlineto
				0 50 rlineto
				-50 0 rlineto
				0 -50 rlineto
				closepath
				stroke
} def	

100 100 Box

125 125 translate %scale around the new origin, at the center of square
0.75 0.75 scale 
-25 -25 Box


showpage