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 // 27 // ------------------------------------------- 28 // GEANT 4 class implementation file 29 // CERN Geneva Switzerland 30 // 31 // 32 // ------------ GammaRayTelPrimaryGenerat 33 // by G.Santin, F.Longo & R.Giannitr 34 // 35 // ******************************************* 36 37 #include "GammaRayTelPrimaryGeneratorMessenger 38 #include "GammaRayTelPrimaryGeneratorAction.hh 39 40 #include "G4SystemOfUnits.hh" 41 #include "G4UIcmdWithAnInteger.hh" 42 #include "G4UIcmdWithAString.hh" 43 #include "G4UIcmdWithADoubleAndUnit.hh" 44 #include "G4UIcmdWithABool.hh" 45 46 //....oooOO0OOooo........oooOO0OOooo........oo 47 48 GammaRayTelPrimaryGeneratorMessenger::GammaRay 49 rndmCmd = new G4UIcmdWithAString("/gun/rando 50 rndmCmd->SetGuidance("Shoot randomly the inc 51 rndmCmd->SetGuidance("Choice : on(default), 52 rndmCmd->SetParameterName("choice", true); 53 rndmCmd->SetDefaultValue("on"); 54 rndmCmd->SetCandidates("on off"); 55 rndmCmd->AvailableForStates(G4State_PreInit, 56 57 sourceTypeCmd = new G4UIcmdWithAnInteger("/g 58 sourceTypeCmd->SetGuidance("Select the type 59 sourceTypeCmd->SetGuidance("Choice : 0(defau 60 sourceTypeCmd->SetParameterName("choice", tr 61 sourceTypeCmd->SetDefaultValue((G4int) 0); 62 sourceTypeCmd->AvailableForStates(G4State_Pr 63 64 vertexRadiusCmd = new G4UIcmdWithADoubleAndU 65 vertexRadiusCmd->SetGuidance("Radius (and un 66 vertexRadiusCmd->SetParameterName("choice", 67 vertexRadiusCmd->SetDefaultValue((G4double) 68 vertexRadiusCmd->AvailableForStates(G4State_ 69 70 spectrumTypeCmd = new G4UIcmdWithAnInteger(" 71 spectrumTypeCmd->SetGuidance("Select the typ 72 spectrumTypeCmd->SetGuidance("Choice : 0(def 73 spectrumTypeCmd->SetParameterName("choice", 74 spectrumTypeCmd->SetDefaultValue((G4int) 0); 75 spectrumTypeCmd->AvailableForStates(G4State_ 76 77 sourceGenCmd = new G4UIcmdWithABool("/gun/so 78 sourceGenCmd->SetGuidance("Select the native 79 sourceGenCmd->SetGuidance(" Choice : true(n 80 sourceGenCmd->SetParameterName("choice", tru 81 sourceGenCmd->SetDefaultValue((G4bool) true) 82 sourceGenCmd->AvailableForStates(G4State_Pre 83 } 84 85 //....oooOO0OOooo........oooOO0OOooo........oo 86 87 GammaRayTelPrimaryGeneratorMessenger::~GammaRa 88 delete rndmCmd; 89 delete sourceTypeCmd; 90 delete vertexRadiusCmd; 91 delete spectrumTypeCmd; 92 delete sourceGenCmd; 93 } 94 95 //....oooOO0OOooo........oooOO0OOooo........oo 96 97 void GammaRayTelPrimaryGeneratorMessenger::Set 98 if (command == rndmCmd) { 99 GammaRayTelAction->SetRndmFlag(newValue); 100 } else if (command == sourceTypeCmd) { 101 GammaRayTelAction->SetSourceType(sourceTyp 102 } else if (command == vertexRadiusCmd) { 103 GammaRayTelAction->SetVertexRadius(vertexR 104 } else if (command == spectrumTypeCmd) { 105 GammaRayTelAction->SetSpectrumType(spectru 106 } else if (command == sourceGenCmd) { 107 GammaRayTelAction->SetSourceGen(sourceGenC 108 } 109 } 110