%! newpath 100 100 moveto 0 100 rlineto % go upper 100 0 rlineto % go right 0 -100 rlineto %go down -100 0 rlineto % go left closepath gsave 1 0.5 0.5 setrgbcolor fill grestore 0.5 1 0.5 setrgbcolor 5 setlinewidth stroke showpage