%! /R 25 def newpath 100 100 moveto 100 150 200 150 R arct %100 150 lineto % go upper 200 150 lineto % go right 200 100 100 100 R arct %200 100 lineto %go down 100 100 lineto % go left closepath gsave 1 0.5 0.5 setrgbcolor fill grestore 0.5 1 0.5 setrgbcolor 5 setlinewidth stroke showpage