# File: scaling_optics.mac
# Brief: Macro for scaling scintillator optics in RAT
#
# Date: 2014-09-07
# Contact: I Coulter, <icoulter@hep.upenn.edu>
# Revisions:
#
# This macro shows added to scale the absorption and scattering of the
# scintillator.
# Detailed description of use of the scaling optics is found on DocDB 2215


# Scale the absorption such that the first component (LAB) is unchanged but
# the absorption due to the second component (PPO) has doubled,
# i.e. the absorption length has halved
/rat/db/set OPTICS[labppo_scintillator] ABSLENGTH_SCALING [1.0,2.0,],

# Scale the Rayleigh scattering to half the amount of Rayleigh scattering
# in the detector,
# i.e. to double the Rayleigh scattering length
/rat/db/set OPTICS[labppo_scintillator] RSLENGTH_SCALING [0.5,],

# This command would change the Mie Scattering length, if it existing in this
# material
#/rat/db/set OPTICS[labppo_scintillator] MIE_SCALING [1.0,],

/run/initialize

# BEGIN EVENT LOOP
/rat/proc frontend
/rat/proc trigger
/rat/proc eventbuilder
/rat/proc calibratePMT
/rat/proc count
/rat/procset update 10
/rat/proclast outroot
/rat/procset file "scaling_optics.root"
# END EVENTLOOP

/generator/add combo gun:fill:poisson
/generator/vtx/set e- 0 0 0 1.0
/generator/pos/set 0.0 0.0 0.0
/generator/rate/set 1

/rat/run/start 10
exit