%!

 
    30 30 scale
    8 8 translate
    0.01 setlinewidth

    newpath
    0 0 moveto
    0 -3 lineto
    8 -3 lineto
    8 0 lineto
    0 0 lineto
    closepath
    0.5 0.5 1 setrgbcolor
    fill
    
   newpath
   0 0 moveto
   0 2.89 lineto
   7.1 2.89 lineto
   0 0 lineto
   closepath
   0.5 0.5 1 setcolor
   fill
    
   newpath
   0 10 10 270 314.5 arc
   0.5 0.5 1 setrgbcolor
   fill
        
    stroke

newpath
5 5 moveto
5 0 lineto
closepath
stroke

    showpage