\documentclass[12pt]{article}
% \newcommand{\lastedit}{2002-09-19 14:45:49 by stolfi}

\advance\topmargin by -13.5mm
\advance\leftmargin by 3.5mm

\begin{document}
\thispagestyle{empty}

\begin{center}
\newsavebox{\xoss}

\setlength{\unitlength}{1mm}
\begin{picture}(230,180)(20,40)
  \linethickness{0.25mm}
  \scriptsize
  \multiput(0,0)(10,0){19}{\line(0,1){230}}
  \multiput(0,0)(0,10){24}{\line(1,0){180}}

  % TL monolith
  \put(045,225){\makebox(0,0){\vrule height 6mm width 6mm}}
  \put(055,225){\makebox(0,0){\vrule height 6mm width 6mm}}
                                                          
  % TR monolith                                           
  \put(135,225){\makebox(0,0){\vrule height 6mm width 6mm}}
  \put(125,225){\makebox(0,0){\vrule height 6mm width 6mm}}
  
  \linethickness{0.50mm}

  % L swabs
  \put(010,170){\circle{6}}
  \put(010,185){\circle{6}}
  \put(010,200){\circle{6}}
  
  % R swabs
  \put(170,170){\circle{6}}
  \put(170,185){\circle{6}}
  \put(170,200){\circle{6}}

  % B swabs
  \put(075,010){\circle{6}}
  \put(090,010){\circle{6}}
  \put(105,010){\circle{6}}
  
  % Cutout profile
  \linethickness{0.5mm}
  \put(090,020){\line(-1,0){25}}
  \put(065,020){\line(0,-1){15}}
  \put(065,005){\line(-1,0){60}}
  \put(005,005){\line(0,1){155}}
  \put(005,160){\line(1,0){15}}
  \put(020,160){\line(0,1){65}}
  \put(020,225){\line(1,0){070}}
             
  \put(090,020){\line(1,0){25}}
  \put(115,020){\line(0,-1){15}}
  \put(115,005){\line(1,0){60}}
  \put(175,005){\line(0,1){155}}
  \put(175,160){\line(-1,0){15}}
  \put(160,160){\line(0,1){65}}
  \put(160,225){\line(-1,0){070}}
  
\end{picture}
\end{center}
\end{document}
