%!

% --- sample usage ---------------------------------------

/S 72 def
S dup scale
1 S div setlinewidth

4.25 5.5 translate

newpath
-1 -1 moveto
1 -1 lineto
1 1 lineto
-1 1 lineto
closepath
stroke