Geant4 Cross Reference |
1 // 2 // ******************************************************************** 3 // * License and Disclaimer * 4 // * * 5 // * The Geant4 software is copyright of the Copyright Holders of * 6 // * the Geant4 Collaboration. It is provided under the terms and * 7 // * conditions of the Geant4 Software License, included in the file * 8 // * LICENSE and available at http://cern.ch/geant4/license . These * 9 // * include a list of copyright holders. * 10 // * * 11 // * Neither the authors of this software system, nor their employing * 12 // * institutes,nor the agencies providing financial support for this * 13 // * work make any representation or warranty, express or implied, * 14 // * regarding this software system or assume any liability for its * 15 // * use. Please see the license in the file LICENSE and URL above * 16 // * for the full disclaimer and the limitation of liability. * 17 // * * 18 // * This code implementation is the result of the scientific and * 19 // * technical work of the GEANT4 collaboration. * 20 // * By using, copying, modifying or distributing the software (or * 21 // * any work based on the software) you agree to acknowledge its * 22 // * use in resulting scientific publications, and indicate your * 23 // * acceptance of all terms of the Geant4 Software license. * 24 // ******************************************************************** 25 // 26 // Hadrontherapy advanced example for Geant4 27 // See more at: https://twiki.cern.ch/twiki/bin/view/Geant4/AdvancedExamplesHadrontherapy 28 29 30 #include "HadrontherapyTIFPAPassiveProtonBeamLine.hh" 31 #include "HadrontherapyTIFPAPassiveProtonBeamLineMessenger.hh" 32 #include "G4UIdirectory.hh" 33 #include "G4UIcmdWithADoubleAndUnit.hh" 34 #include "G4UIcmdWithAString.hh" 35 #include "G4SystemOfUnits.hh" 36 37 TrentoPassiveProtonBeamLineMessenger::TrentoPassiveProtonBeamLineMessenger(TrentoPassiveProtonBeamLine* TrentoLine) 38 :TrentoPassiveProton(TrentoLine) 39 40 { 41 changeTheBeamLineDir = new G4UIdirectory("/ChangeBeamLine/"); 42 changeTheBeamLineDir -> SetGuidance("Command to change the transport beam line"); 43 44 changeTheBeamLineNameCmd = new G4UIcmdWithAString("/ChangeBeamLine/beamLineName",this); 45 changeTheBeamLineNameCmd -> SetGuidance("Insert the name of the beam line you want simulate"); 46 changeTheBeamLineNameCmd -> SetParameterName("List",false); 47 changeTheBeamLineNameCmd -> AvailableForStates(G4State_PreInit); 48 49 modulatorDir = new G4UIdirectory("/modulator/"); 50 modulatorDir -> SetGuidance("Command to rotate the modulator wheel"); 51 52 beamLineDir = new G4UIdirectory("/beamLine/"); 53 beamLineDir -> SetGuidance("set specification of range shifter"); 54 55 ScatteringFoilXSizeCmd = new G4UIcmdWithADoubleAndUnit("/beamLine/ScatteringFoil/thickness",this); 56 ScatteringFoilXSizeCmd -> SetGuidance("Set half thickness of scattering foil"); 57 ScatteringFoilXSizeCmd -> SetParameterName("Size",false); 58 ScatteringFoilXSizeCmd -> SetDefaultUnit("mm"); 59 ScatteringFoilXSizeCmd -> SetUnitCandidates("mm cm m"); 60 ScatteringFoilXSizeCmd -> AvailableForStates(G4State_Idle); 61 62 scatteringFoilMatCmd = new G4UIcmdWithAString("/beamLine/ScatteringFoil/material",this); 63 scatteringFoilMatCmd -> SetGuidance("Set material of scatterer"); 64 scatteringFoilMatCmd -> SetParameterName("choice",false); 65 scatteringFoilMatCmd -> AvailableForStates(G4State_Idle); 66 67 preCollimatorXSizeCmd = new G4UIcmdWithADoubleAndUnit("/beamLine/preCollimator/XSize",this); 68 preCollimatorXSizeCmd -> SetGuidance("Set half x side of pre collimator"); 69 preCollimatorXSizeCmd -> SetParameterName("Size",false); 70 preCollimatorXSizeCmd -> SetDefaultUnit("mm"); 71 preCollimatorXSizeCmd -> SetUnitCandidates("mm cm m"); 72 preCollimatorXSizeCmd -> AvailableForStates(G4State_Idle); 73 74 preCollimatorXPositionCmd = new G4UIcmdWithADoubleAndUnit("/beamLine/preCollimator/XPosition",this); 75 preCollimatorXPositionCmd -> SetGuidance("Set the position along x "); 76 preCollimatorXPositionCmd -> SetParameterName("Position",false); 77 preCollimatorXPositionCmd -> SetDefaultUnit("mm"); 78 preCollimatorXPositionCmd -> SetUnitCandidates("mm cm m"); 79 preCollimatorXPositionCmd -> AvailableForStates(G4State_Idle); 80 81 AirTubeYSizeCmd = new G4UIcmdWithADoubleAndUnit("/beamLine/airTube/YSide",this); 82 AirTubeYSizeCmd -> SetGuidance("Set of pre collimator the outer radius of the hole in the collimator "); 83 AirTubeYSizeCmd -> SetParameterName("Radius",false); 84 AirTubeYSizeCmd -> SetDefaultUnit("mm"); 85 AirTubeYSizeCmd -> SetUnitCandidates("mm cm m"); 86 AirTubeYSizeCmd -> AvailableForStates(G4State_Idle); 87 88 89 AirTubeZSizeCmd = new G4UIcmdWithADoubleAndUnit("/beamLine/FirstCollimator/innerRadius",this); 90 AirTubeZSizeCmd -> SetGuidance("Set the inner radius of the collimator "); 91 AirTubeZSizeCmd -> SetParameterName("Radius",false); 92 AirTubeZSizeCmd -> SetDefaultUnit("mm"); 93 AirTubeZSizeCmd -> SetUnitCandidates("mm cm m"); 94 AirTubeZSizeCmd -> AvailableForStates(G4State_Idle); 95 96 } 97 98 TrentoPassiveProtonBeamLineMessenger::~TrentoPassiveProtonBeamLineMessenger() 99 { 100 delete AirTubeZSizeCmd; 101 delete AirTubeYSizeCmd; 102 delete ScatteringFoilXSizeCmd; 103 delete scatteringFoilMatCmd; 104 delete preCollimatorXSizeCmd; 105 delete beamLineDir; 106 delete modulatorDir; 107 } 108 109 110 111 112 void TrentoPassiveProtonBeamLineMessenger::SetNewValue(G4UIcommand* command,G4String newValue) 113 { 114 if( command == ScatteringFoilXSizeCmd ) 115 {TrentoPassiveProton -> SetScatteringFoilXSize 116 (ScatteringFoilXSizeCmd -> GetNewDoubleValue(newValue));} 117 118 else if( command == scatteringFoilMatCmd ) 119 { TrentoPassiveProton -> SetScattererMaterial(newValue);} 120 121 else if( command == preCollimatorXSizeCmd ) 122 { TrentoPassiveProton -> SetPreCollimatorXSize 123 (preCollimatorXSizeCmd -> GetNewDoubleValue(newValue));} 124 125 else if( command == preCollimatorXPositionCmd ) 126 { TrentoPassiveProton -> SetPreCollimatorXPosition 127 (preCollimatorXPositionCmd -> GetNewDoubleValue(newValue));} 128 129 else if( command == AirTubeYSizeCmd ) 130 { TrentoPassiveProton -> SetAirTubeYSize 131 (AirTubeYSizeCmd -> GetNewDoubleValue(newValue));} 132 133 else if( command == AirTubeZSizeCmd ) 134 { TrentoPassiveProton -> SetAirTubeZSize 135 (AirTubeZSizeCmd -> GetNewDoubleValue(newValue));} 136 137 } 138 139