// 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