49 :collimator50(beamLine)
54 beamLineDir -> SetGuidance(
"set specification of range shifter");
56 FinalCollimatorIORTDir =
new G4UIdirectory(
"/beamLine/FinalCollimatorIORT/");
57 FinalCollimatorIORTDir -> SetGuidance(
"set specification of final collimator");
61 innerRadiusFinalCollimatorIORTCmd -> SetGuidance(
"Set size of inner radius ( max 21.5 mm)");
62 innerRadiusFinalCollimatorIORTCmd -> SetParameterName(
"Size",
false);
63 innerRadiusFinalCollimatorIORTCmd -> SetDefaultUnit(
"mm");
64 innerRadiusFinalCollimatorIORTCmd -> SetUnitCandidates(
"mm cm m");
65 innerRadiusFinalCollimatorIORTCmd -> AvailableForStates(
G4State_Idle);
68 OuterRadiusFinalCollimatorIORTCmd -> SetGuidance(
"Set size of outer radius ( max 21.5 mm)");
69 OuterRadiusFinalCollimatorIORTCmd -> SetParameterName(
"Size",
false);
70 OuterRadiusFinalCollimatorIORTCmd -> SetDefaultUnit(
"mm");
71 OuterRadiusFinalCollimatorIORTCmd -> SetUnitCandidates(
"mm cm m");
72 OuterRadiusFinalCollimatorIORTCmd -> AvailableForStates(
G4State_Idle);
79 delete OuterRadiusFinalCollimatorIORTCmd;
80 delete innerRadiusFinalCollimatorIORTCmd;
81 delete FinalCollimatorIORTDir;
94 if( command == innerRadiusFinalCollimatorIORTCmd )
95 { collimator50 -> SetInnerRadiusFinalCollimatorIORT
96 (innerRadiusFinalCollimatorIORTCmd -> GetNewDoubleValue(newValue));}
98 else if( command == OuterRadiusFinalCollimatorIORTCmd )
99 { collimator50 -> SetOuterRadiusFinalCollimatorIORT
100 (OuterRadiusFinalCollimatorIORTCmd -> GetNewDoubleValue(newValue));}