Gabriele Cosmo
31 lines
821 B
Plaintext
31 lines
821 B
Plaintext
// Define a parameter for later use
|
|
:P POSZ 50.
|
|
|
|
// Define rotation matrix
|
|
:ROTM R00 1. 0. 0. 0. 1. 0. 0. 0. 1. // unit matrix
|
|
|
|
// Define volumes and place them
|
|
:VOLU world BOX 50. 50. 3*$POSZ G4_AIR
|
|
:VIS world OFF
|
|
|
|
// some defined as solids, some as volumes
|
|
:SOLID box1 BOX 5. 5. 10.
|
|
:SOLID box2 BOX 10. 10. 20.
|
|
:SOLID box3 BOX 15. 15. 30.
|
|
:SOLID BOX_UNION UNION box1 box2 R00 0. 0. 30.
|
|
:VOLU BOX_SUBT SUBTRACTION box3 box2 R00 0. 0. 15. G4_Cu
|
|
:SOLID BOX_INTERS INTERSECTION BOX_UNION box3 R00 0. 10. 0.
|
|
|
|
:VOLU BOX_UNION BOX_UNION G4_AIR
|
|
:COLOUR BOX_UNION 1. 0. 0. // red
|
|
:PLACE BOX_UNION 1 world R00 0. 0. -2.*$POSZ
|
|
|
|
:PLACE BOX_SUBT 1 world R00 0. 0. $POSZ
|
|
:COLOUR BOX_SUBT 0. 1. 0. // green
|
|
|
|
:VOLU BOX_INTERS BOX_INTERS G4_Fe
|
|
:PLACE BOX_INTERS 1 world R00 0. 0. 3*$POSZ
|
|
:COLOUR BOX_INTERS 0. 0. 1. // blue
|
|
|
|
|