%! /S 72 def S dup scale 1 S div setlinewidth 4 5 translate /PI 3.14159265358979 def newpath -1 1 moveto -1 3 div -1 3 div 1 3 div -1 3 div 1 1 curveto stroke