%!

    25 25 scale
    8 8 translate
    0.1 setlinewidth

    newpath
    -5 0 moveto
    -5 -3 lineto
    5 -3 lineto
    5 0 lineto
    -5 0 lineto
    closepath
    0.5 0.5 1 setrgbcolor
    fill
    
   newpath
   0 10 10 240 300 arc
   0.5 0.5 1 setrgbcolor
   fill
        
  stroke

newpath
-4 4 moveto
-4 1.8 lineto
1 0 0 setrgbcolor
closepath
stroke

newpath
-3 4 moveto
-3 1.8 lineto
1 0 0 setrgbcolor
closepath
stroke

newpath
-2 4 moveto
-2 1.8 lineto
1 0 0 setrgbcolor
closepath
stroke

newpath
-1 4 moveto
-1 1.8 lineto
1 0 0 setrgbcolor
closepath
stroke

newpath
0 4 moveto
0 1.8 lineto
1 0 0 setrgbcolor
closepath
stroke

newpath
1 4 moveto
1 1.8 lineto
1 0 0 setrgbcolor
closepath
stroke

newpath
2 4 moveto
2 1.8 lineto
1 0 0 setrgbcolor
closepath
stroke

newpath
3 4 moveto
3 1.8 lineto
1 0 0 setrgbcolor
closepath
stroke

newpath
4 4 moveto
4 1.8 lineto
1 0 0 setrgbcolor
closepath
stroke

    showpage