Files
Estia-MCNP/geometry/estia_shutter.i

41 lines
2.2 KiB
OpenEdge ABL
Executable File

c instrument shutter and surrounding elements
c outer boundary of shutter: X: 208103 -208101 Y: 220002 -220003 Z: 220004 -220005
c air around shutter
220001 4 -1.2E-3 208103 -208101 220002 -220003 220004 -220005
#220011 #220013
#(220000 -220001 220207 -220208 220204 -220205)
c Aluminum vacuum housing
220011 5 0.0582256 220000 -220001 220002 -220003 220004 -220204
220012 5 0.0582256 220000 -220001 220207 -220208 220204 -220205
#(220200 -220201 220202 -220203)
#(-220100)
220013 5 0.0582256 220000 -220001 220002 -220003 220205 -220206
c Copper inserts
220021 14 -8.92 220200 -220304 220202 -220203 220204 -220205
#(220300 -220301 220302 -220303)
220022 14 -8.92 220304 -220305 220202 -220306 220204 -220205
220023 14 -8.92 220304 -220305 220307 -220203 220204 -220205
220024 14 -8.92 220305 -220201 220202 -220203 220204 -220205
#(220300 -220301 220302 -220303)
c Shutter block B4C and Lead in Al casing
c closed shutter
220031 5 0.0582256 220400 -220401 220402 -220403 220404 -220405
#(220406 -220408 220410 -220411 220412 -220413)
220032 20 -2.3 220406 -220407 220410 -220411 220412 -220413
220033 13 -11.34 220407 -220408 220410 -220411 220412 -220413
c open shutter
c 220031 5 0.0582256 220400 -220401 220402 -220403 220420 -220423
c #(220406 -220408 220410 -220411 220421 -220422)
c 220032 20 -2.3 220406 -220407 220410 -220411 220421 -220422
c 220033 13 -11.34 220407 -220408 220410 -220411 220421 -220422
c Vacuum elements
220051 0 220000 -220200 -220100
220052 0 220200 -220304 220300 -220301 220302 -220303
220053 0 220304 -220305 220306 -220307 220204 -220205
#(220400 -220401 220402 -220403 220404 -220405) $ closed
c #(220400 -220401 220402 -220403 220420 -220423) $ opened
220054 0 220305 -220201 220300 -220301 220302 -220303
220055 0 220201 -220001 -220100
c McStas shutter source location
c 220060 0 -290001