* Draw the detector outline on top of the current 2d plot */

MACRO grid
   null -60 60 -60 60
   opt nbox

   R=54.0
   
*  Draw outer detectors
   DO i=0,13
         x=(4.0*[i])-[R]
         dline [x] [x] -[R] [R]
         dline -[R] [R] [x] [x]
   ENDDO
   DO i=14,27
         x=(4.0*[i])-[R]
         dline [x] [x] -[R] [R]
         dline -[R] [R] [x] [x]
   ENDDO
   dline 2.0 2.0 -[R] -2.0
   dline 2.0 2.0 4.0 [R]
   dline -[R] -2.0 2.0 2.0
   dline 4.0 [R] 2.0 2.0

*  Draw insertion
   DO i=0,9
         x=(2.0*[i])-22.0
         dline [x] [x] -22.0 22.0
         dline -22.0 22.0 [x] [x]
   ENDDO
   DO i=12,22
         x=(2.0*[i])-22.0
         dline [x] [x] -22.0 22.0
         dline -22.0 22.0 [x] [x]
   ENDDO
   dline 0.0 0.0 -22.0 -2.0
   dline 4.0 4.0 -22.0 -2.0
   dline 0.0 0.0 2.0 22.0
   dline 4.0 4.0 4.0 22.0
   dline -22.0 -2.0 0.0 0.0
   dline -22.0 -2.0 4.0 4.0
   dline 2.0 22.0 0.0 0.0
   dline 4.0 22.0 4.0 4.0

RETURN