arc.ps
%! 2 setlinewidth 300 300 100 0 360 arc stroke 300 600 moveto 300 600 100 0 270 arc closepath fill showpage