%! /R 25 def newpath 100 100 moveto 100 150 lineto % go upper 200 150 lineto % go right 200 100 lineto %go down 100 100 lineto % go left closepath stroke newpath 100 100 moveto 100 150 200 150 200 100 curveto 1 0.5 0.5 setrgbcolor 2 setlinewidth stroke showpage