%!

 
    15 15 scale
    8 8 translate
    0.01 setlinewidth

    newpath
    -7 0 moveto
    -7 -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 220 320 arc
   0.5 0.5 1 setrgbcolor
   fill
   stroke
   newpath
   0 10 10 220 320 arc
   0.05 setlinewidth
   0.2 setgray
   stroke

newpath
6 5 moveto
6 0 lineto
closepath
1 0.5 0.5 setrgbcolor
stroke

newpath
0 10 moveto
0 0 lineto
closepath
0.05 setlinewidth
0.2 setgray
stroke

newpath
0 10 moveto
6 2 lineto
closepath
0.05 setlinewidth
0.2 setgray
stroke

newpath
6 2 moveto
0 2 lineto
closepath
stroke

    showpage