\documentclass[12pt]{article}
% \newcommand{\lastedit}{2002-09-12 00:01:05 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(175,045){\makebox(0,0){\vrule height 6mm width 6mm}}
  \put(175,055){\makebox(0,0){\vrule height 6mm width 6mm}}
                                                          
  % TR monolith                                           
  \put(175,175){\makebox(0,0){\vrule height 6mm width 6mm}}
  \put(175,185){\makebox(0,0){\vrule height 6mm width 6mm}}
  
  \linethickness{0.50mm}

  % L swabs
  \put(120,220){\circle{6}}
  \put(135,220){\circle{6}}
  \put(150,220){\circle{6}}
  
  % R swabs
  \put(120,010){\circle{6}}
  \put(135,010){\circle{6}}
  \put(150,010){\circle{6}}

  % B swabs
  \put(010,100){\circle{6}}
  \put(010,115){\circle{6}}
  \put(010,130){\circle{6}}
  
  % Cutout profile
  \linethickness{0.5mm}
  \put(020,115){\line(0,-1){25}}
  \put(020,090){\line(-1,0){15}}
  \put(005,090){\line(0,-1){85}}
  \put(005,005){\line(1,0){105}}
  \put(110,005){\line(0,1){15}}
  \put(110,020){\line(1,0){65}}
  \put(175,020){\line(0,1){105}}

  \put(020,115){\line(0,1){25}}
  \put(020,140){\line(-1,0){15}}
  \put(005,140){\line(0,1){85}}
  \put(005,225){\line(1,0){105}}
  \put(110,225){\line(0,-1){15}}
  \put(110,210){\line(1,0){65}}
  \put(175,210){\line(0,-1){105}}
  
\end{picture}
\end{center}
\end{document}
