#  type  matter  c    de maxpath  / x y z  a  b c 
-------------------------------------------------------------------
/*
   probeη
                  __________________
	         | ||||||||||||||||| |
                  \                 /
                   \               /
                    \             /
                     \           /
                      \         /
                       \  | |B /
                      C --| |--
                          | | A
                          | | 
*/
#news   new-1   horse
#news   new-2   sqpipe

#         Probe  PMT 
#eq   pmtir  2.5
#         Pbobe  PMTγ 
#eq   pmtor  2.7  

#         Probe PMTǡܥåγ˽ФƤʬĹ A
#eq   pmtol  10
#         Pbobe PMTǡܥåäƤʬĹ B
#eq   pmtil  5

#  probe ȢŴĤθ. ƱȤޤФʬ
#    ΥΥǼưŪ˷ޤޤ
#eq   feth   0.1

#       ********* ܥåʬγΥ
#         Probeܥåβ(PMTȤ³)Ĺ(ΰ)
#eq   scin_ll  10
#	  Probeܥåξ(Τ)Ĺ(ΰ)
#eq   scin_ul  20
#         Probe ܥåʬι⤵
#eq   scin_h  20
#          -scin_ll/2  and   -(scin_ul-scin_ll)/2
#eq   hscin_ll -5  
#eq   lo      -5 
#           -scin_ul/2 
#eq   hscin_ul -10

#    *********ܥåʬΥ
#         Probeܥåβ(PMTȤ³)Ĺ(ΰ)
#eq   iscin_ll  9.8d0
#	  Probeܥåξ()Ĺ(ΰ)
#eq   iscin_ul  19.8d0
#         Probe ܥåι⤵( sicn_h-feth )
#eq   iscin_h   19.9d0
#          -iscin_ll/2 and  -(iscin_ul -isin_ll)/2
#eq   ihscin_ll -4.9d0
#eq   uo        -5.0

#         Probe θ
#eq   scinth  3.5d0
#         probe ΰդĹ()
#eq   scinw   19.5d0
#     -scinw/2
#eq   hscin   -9.75d0

#  prob 1Ĺ: pmtol +  scin_h + scinth + feth 
#eq   probelen    33.6d0
/*        
     pbobe  PMT֤κǾΥ (PMTΤδ֤εΥ)
*/
#eq       dist    10

#   ꡥ֤ϤʤǺѤǤ礦

#  lower part of PMT (outside the box)
#subd    lowerpmt
1   pipe  Fe  0 0 0 / 0 0  0  pmtir pmtor  pmtol
#end   lowerpmt

# upper part of PMT (inside the box)³
#  ŴĤǤϤʤƶʤΤǡcyl롥
#subd  upperpmt
1 cyl  sp  0 0 0 / 0 0 0  pmtir  pmtil
2 pipe Fe  0 0 0 / 0  0 0 pmtir  pmtor  pmtil / 1
#end  upperpmt


#  probe 
#subd  probe
1 lowerpmt  sp 0 0 0 / 0 0 0
2 horse  Fe 0 0 0 / hscin_ll hscin_ll + scin_ll scin_ll scin_h lo  lo scin_ul scin_ul /  3 5
3 cyl       hollow 0 0 0 / 0 0  =       pmtir  feth
4 upperpmt  sp 0 0 0 / 0 0  +       
5 horse     Air 0 0 0 / ihscin_ll ihscin_ll =feth iscin_ll iscin_ll iscin_h  uo uo  iscin_ul iscin_ul /  4  
6 box scin     0 2 0 / hscin hscin  + scinw scinw scinth
7 sqpipe Fe    0 0 0 / hscin_ul hscin_ul = scin_ul scin_ul scinth feth feth   iscin_ul iscin_ul 
8 box  Fe      0 0 0 / hscin_ul hscin_ul + scin_ul scin_ul feth
9 box_w sp  0 0 0  / 0 0 0
#end  probe


#     졼θд1
#subd   unit
1 box Bakelite 0 0 / -36.5d0 -36.5d0 0. 73d0 73d0 0.9d0
2 box Pb 0 0 /        =     =        +  =     =  0.5d0
3 box Fe 0 0 /        =     =        +  =     =  0.1d0
4 box Air 0 0 /   -36.4d0 -36.4d0    +  72.8d0 72.8d0 1.5d0
5 box scin 0 2 /  -35.35d0 -35.35d0  +  70.7d0 70.7d0 3.0d0
6 sqpipe Fe 0 0 /  -36.5d0 -36.5d0   =-1.6d0  73d0  73d0 0.6d0 0.1d0 0.1d0 72.8d0 72.8d0
7 sqpipe Fe 0 0 /  -36.5d0 -36.5d0   +  =    =       2.5d0 0.22d0 0.22d0 72.56d0 72.56d0
8 sqpipe Fe 0 0 /    =   =   +  =  =      = 0.12d0 0.12d0 72.76d0 72.76d0
9 box_w  sp  0 0 / 0 0 0
#end  unit

#      probe  system

1  probe  sp  0 0 0 / 0 0 probelen  1 0 0 0 -1 0 
2  probe  sp  0 0 0 / 0 0 =dist
3  unit   sp  0 0 0 / 0 0 + 
4  box_w  Air 0 0 0 / 0 0 0 
-------------------------------------------------


