# Macro file for the initialization phase of example B4
# when running in interactive mode without visualization
#
# Set some default verbose
#
/control/verbose 2
#/control/saveHistory
/run/verbose 2

# initialize the beamline model and set default parameters
## The iThemba Model
#/control/execute  macro/init_iThembaBeamline.mac 
### Modify the range of the protons
#/Beamline/iThemba/SetRange 118.0 mm                     
#/Beamline/iThemba/TreatmentCollimator/Diameter 8.5 cm

## The bhamBeamline Model
#/control/execute  macro/init_bhamBeamline.mac

# Setup the Phantom
## setup the spherical phantom with inserts
#/control/execute macro/init_SphericalPhantomWithCompensator.mac
#/Phantom/Sphere/Insert1/SetMaterial  Perspex
#/Phantom/Sphere/Insert2/SetMaterial  Perspex

# setup the Strip Tracker Parameters
#/control/execute macro/init_StripTracker.mac

# setup the Range Telescope
/control/execute macro/init_RangeTelescope.mac
#/RangeTelescope/setAbs2Thickness 0.5 mm

# Initialize Geometry
/Beamline/Update
/run/initialize

# Set the initial beam parameters
#/control/execute macro/init_iThembaBeamParameters.mac
/control/execute macro/gps_iThemba_125MeV.mac

# Turn on visualization
#/control/execute macro/init_vis.mac

#/histo/setFileName pss_macro_test_118mmRange

/run/initialize
/run/beamOn 10000