Line Segments and Circles in the eepic Package

\setlength{\unitlength}{1mm}
\begin{picture}(60, 44)
  \multiput(0, 0)(60, 0){2}{\line(0, 1){44}}
  \multiput(0, 0)(0, 44){2}{\line(1, 0){60}}
  % requires eepic
  \put(30, 22){\circle{40}}        
  \put(30, 22){\circle{36}}
  .........................          
  .........................          
  \put(30, 22){\circle{8}}         
  \put(30, 22){\circle{4}}         
  % direction vectors must consist of 
  % integers
  \put(30, 22){\line(30, 0){30}}   
  \put(30, 22){\line(30, 1){30}}  
  \put(30, 22){\line(30, 2){30}}
  ..............................  
  ..............................  
  \put(30, 22){\line(30, 20){30}}
  \put(30, 22){\line(30, 21){30}}
  \put(30, 22){\line(30, 22){30}}
  % direction vectors must consist of 
  % integers  
  \put(30, 22){\line(-30, -0){30}}  
  \put(30, 22){\line(-30, -1){30}}  
  \put(30, 22){\line(-30, -2){30}}
  ................................  
  .................................  
  \put(30, 22){\line(-30, -20){30}}
  \put(30, 22){\line(-30, -21){30}}
  \put(30, 22){\line(-30, -22){30}}
\end{picture}