200 200 translate

0.2 0.4 0.9 setrgbcolor
10 setlinewidth
100 100 moveto
200 100 lineto
200 200 lineto
100 300 lineto
closepath
fill

1 0 0 setrgbcolor
0 0 moveto
60 -40 20 160 110 100 curveto
stroke