Geant4 Cross Reference |
1 // 1 2 // ******************************************* 3 // * License and Disclaimer 4 // * 5 // * The Geant4 software is copyright of th 6 // * the Geant4 Collaboration. It is provided 7 // * conditions of the Geant4 Software License 8 // * LICENSE and available at http://cern.ch/ 9 // * include a list of copyright holders. 10 // * 11 // * Neither the authors of this software syst 12 // * institutes,nor the agencies providing fin 13 // * work make any representation or warran 14 // * regarding this software system or assum 15 // * use. Please see the license in the file 16 // * for the full disclaimer and the limitatio 17 // * 18 // * This code implementation is the result 19 // * technical work of the GEANT4 collaboratio 20 // * By using, copying, modifying or distri 21 // * any work based on the software) you ag 22 // * use in resulting scientific publicati 23 // * acceptance of all terms of the Geant4 Sof 24 // ******************************************* 25 // 26 // Authors: Susanna Guatelli, susanna@uow.edu. 27 // Authors: Jeremy Davis, jad028@uowmail.edu.a 28 // 29 // Code based on the hadrontherapy && radiopro 30 31 #include "GammaRayTelPhysicsListMessenger.hh" 32 #include "GammaRayTelPhysicsList.hh" 33 34 #include "G4UIdirectory.hh" 35 #include "G4UIcmdWithADoubleAndUnit.hh" 36 #include "G4UIcmdWithAString.hh" 37 38 //....oooOO0OOooo........oooOO0OOooo........oo 39 40 GammaRayTelPhysicsListMessenger::GammaRayTelPh 41 physDir = new G4UIdirectory("/physics/"); 42 physDir->SetGuidance("Commands to activate p 43 44 gammaCutCmd = new G4UIcmdWithADoubleAndUnit( 45 gammaCutCmd->SetGuidance("Set gamma cut."); 46 gammaCutCmd->SetParameterName("Gcut", false) 47 gammaCutCmd->SetUnitCategory("Length"); 48 gammaCutCmd->SetRange("Gcut>0.0"); 49 gammaCutCmd->AvailableForStates(G4State_PreI 50 51 electronCutCmd = new G4UIcmdWithADoubleAndUn 52 electronCutCmd->SetGuidance("Set electron cu 53 electronCutCmd->SetParameterName("Ecut", fal 54 electronCutCmd->SetUnitCategory("Length"); 55 electronCutCmd->SetRange("Ecut>0.0"); 56 electronCutCmd->AvailableForStates(G4State_P 57 58 protonCutCmd = new G4UIcmdWithADoubleAndUnit 59 protonCutCmd->SetGuidance("Set positron cut. 60 protonCutCmd->SetParameterName("Pcut", false 61 protonCutCmd->SetUnitCategory("Length"); 62 protonCutCmd->SetRange("Pcut>0.0"); 63 protonCutCmd->AvailableForStates(G4State_Pre 64 65 allCutCmd = new G4UIcmdWithADoubleAndUnit("/ 66 allCutCmd->SetGuidance("Set cut for all."); 67 allCutCmd->SetParameterName("cut", false); 68 allCutCmd->SetUnitCategory("Length"); 69 allCutCmd->SetRange("cut>0.0"); 70 allCutCmd->AvailableForStates(G4State_PreIni 71 72 pListCmd = new G4UIcmdWithAString("/physics/ 73 pListCmd->SetGuidance("Add physics list."); 74 pListCmd->SetParameterName("PList", false); 75 pListCmd->AvailableForStates(G4State_PreInit 76 77 packageListCmd = new G4UIcmdWithAString("/ph 78 packageListCmd->SetGuidance("Add physics pac 79 packageListCmd->SetParameterName("package", 80 packageListCmd->AvailableForStates(G4State_P 81 } 82 83 //....oooOO0OOooo........oooOO0OOooo........oo 84 85 GammaRayTelPhysicsListMessenger::~GammaRayTelP 86 delete gammaCutCmd; 87 delete electronCutCmd; 88 delete protonCutCmd; 89 delete allCutCmd; 90 delete pListCmd; 91 delete physDir; 92 delete packageListCmd; 93 } 94 95 //....oooOO0OOooo........oooOO0OOooo........oo 96 97 void GammaRayTelPhysicsListMessenger::SetNewVa 98 if (command == gammaCutCmd) { 99 pPhysicsList->SetCutForGamma(gammaCutCmd-> 100 } else if (command == electronCutCmd) { 101 pPhysicsList->SetCutForElectron(electronCu 102 } else if (command == protonCutCmd) { 103 pPhysicsList->SetCutForPositron(protonCutC 104 } else if (command == allCutCmd) { 105 G4double cut = allCutCmd->GetNewDoubleValu 106 pPhysicsList->SetCutForGamma(cut); 107 pPhysicsList->SetCutForElectron(cut); 108 pPhysicsList->SetCutForPositron(cut); 109 } else if (command == pListCmd) { 110 pPhysicsList->AddPhysicsList(newValue); 111 } else if (command == packageListCmd) { 112 pPhysicsList->AddPackage(newValue); 113 } 114 } 115