#  type  matter  c    de maxpath / x0   y0   z0   a  b  c

-------------------------------------------------------------------
#eq  a  2.3
#eq  b  2.3
#eq  c  29.8
#eq  m  0.1
#eq  m2 0.2 
!             2.5*4
#eq  wx  10.
#eq  wy  30.
#eq  wz  2.5
#eq  wy2 60.            wy*2

#subd bgox
1 box bgo  0  2  0 /  m    m    m   a  c  b
2 box bgo  0  2  0 /  +m2   =    =    = = =
3 box bgo  0  2  0 /  +m2   =    =    = = =
4 box bgo  0  2  0 /  +m2   =    =    = = =
5 box_w Al 0 0 0 / 0 0 0  wx wy wz
#end bgox

#subd bgocalx
1 bgox sp  0 0 0/  0    0   0
2 bgox sp  0 0 0/  +    =     =
3 bgox sp  0 0 0/  +   =     =
4 bgox sp  0 0 0/  +   =     =
5 bgox sp  0 0 0/  +   =     =
6 bgox sp  0 0 0/  +   =     =
7 box_w sp 0 0 0/ 0 0 0 
#end bgocalx

#subd  planex
1  bgocalx  sp 0 0 0 / 0    0      0
2  bgocalx  sp 0 0 0 / 0    +      0
3  box_w  sp  0 0 0 / 0 0 0
#end planex
!         rotate planex by 90 deg. to make y comp. 
#subd planey
1 planex  sp 0 0 0 / wy2 0 0  0 1 0  -1 0 0
#end planey

#    detector
1 planex  sp  0 0 0 / 0 0 0
2 planey  sp  0 0 0 / 0 0 +
3 planex  sp  0 0 0 / 0 0 +
4 planey  sp  0 0 0 / 0 0 +
5 planex  sp  0 0 0 / 0 0 +
6 planey  sp  0 0 0 / 0 0 +
------------------------------------------------------------
