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 /// \file electromagnetic/TestEm8/src/PhysicsListMessenger.cc 27 /// \brief Implementation of the PhysicsListMessenger class 28 // 29 // 30 //--------------------------------------------------------------------------- 31 // 32 // ClassName: PhysicsListMessenger 33 // 34 // Description: EM physics with a possibility to add PAI model 35 // 36 // Author: V.Ivanchenko 01.09.2010 37 // 38 //---------------------------------------------------------------------------- 39 // 40 41 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo...... 42 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo...... 43 44 #include "PhysicsListMessenger.hh" 45 46 #include "PhysicsList.hh" 47 #include "TestParameters.hh" 48 49 #include "G4UIcmdWithADouble.hh" 50 #include "G4UIcmdWithADoubleAndUnit.hh" 51 #include "G4UIcmdWithAString.hh" 52 #include "G4UIcmdWithAnInteger.hh" 53 #include "G4UIdirectory.hh" 54 55 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo...... 56 57 PhysicsListMessenger::PhysicsListMessenger(PhysicsList* pPhys) : fPhysicsList(pPhys) 58 { 59 fPhysDir = new G4UIdirectory("/testem/phys/"); 60 fPhysDir->SetGuidance("physics list commands"); 61 62 fECmd = new G4UIcmdWithADoubleAndUnit("/testem/phys/setMaxE", this); 63 fECmd->SetGuidance("Set max energy deposit"); 64 fECmd->SetParameterName("Emax", false); 65 fECmd->SetUnitCategory("Energy"); 66 fECmd->SetRange("Emax>0.0"); 67 fECmd->AvailableForStates(G4State_PreInit, G4State_Idle); 68 69 fEBCmd = new G4UIcmdWithAnInteger("/testem/phys/setNbinsE", this); 70 fEBCmd->SetGuidance("Set number of bins in energy."); 71 fEBCmd->SetParameterName("Ebins", false); 72 fEBCmd->SetRange("Ebins>0"); 73 fEBCmd->AvailableForStates(G4State_PreInit, G4State_Idle); 74 75 fCBCmd = new G4UIcmdWithAnInteger("/testem/phys/setNbinsCl", this); 76 fCBCmd->SetGuidance("Set number of bins of clusters."); 77 fCBCmd->SetParameterName("Cbins", false); 78 fCBCmd->SetRange("Cbins>0"); 79 fCBCmd->AvailableForStates(G4State_PreInit, G4State_Idle); 80 81 fCMCmd = new G4UIcmdWithAnInteger("/testem/phys/setMaxCl", this); 82 fCMCmd->SetGuidance("Set max number of clusters."); 83 fCMCmd->SetParameterName("Cmax", false); 84 fCMCmd->SetRange("Cmax>0"); 85 fCMCmd->AvailableForStates(G4State_PreInit, G4State_Idle); 86 87 fListCmd = new G4UIcmdWithAString("/testem/phys/addPhysics", this); 88 fListCmd->SetGuidance("Add modula physics list."); 89 fListCmd->SetParameterName("PList", false); 90 fListCmd->AvailableForStates(G4State_PreInit); 91 92 fADCCmd = new G4UIcmdWithADoubleAndUnit("/testem/phys/setEnergyPerChannel", this); 93 fADCCmd->SetGuidance("Set energy per ADC channel"); 94 fADCCmd->SetParameterName("enadc", false, false); 95 fADCCmd->SetUnitCategory("Energy"); 96 fADCCmd->SetDefaultUnit("keV"); 97 fADCCmd->SetRange("enadc>0."); 98 fADCCmd->AvailableForStates(G4State_PreInit, G4State_Idle); 99 100 fNorCmd = new G4UIcmdWithADouble("/testem/phys/setNormFactor", this); 101 fNorCmd->SetGuidance("Set factor for histogram normalisation"); 102 fNorCmd->SetParameterName("nfac", false, false); 103 fNorCmd->SetRange("nfac>0."); 104 fNorCmd->AvailableForStates(G4State_PreInit, G4State_Idle); 105 106 fSmCmd = new G4UIcmdWithADoubleAndUnit("/testem/phys/setEnergySmear", this); 107 fSmCmd->SetGuidance("Set intrinsic width of detector response"); 108 fSmCmd->SetParameterName("sm", false, false); 109 fSmCmd->SetDefaultUnit("keV"); 110 fSmCmd->SetRange("sm>0."); 111 fSmCmd->AvailableForStates(G4State_PreInit, G4State_Idle); 112 } 113 114 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo...... 115 116 PhysicsListMessenger::~PhysicsListMessenger() 117 { 118 delete fECmd; 119 delete fEBCmd; 120 delete fCBCmd; 121 delete fCMCmd; 122 delete fListCmd; 123 delete fADCCmd; 124 delete fNorCmd; 125 delete fSmCmd; 126 delete fPhysDir; 127 } 128 129 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo...... 130 131 void PhysicsListMessenger::SetNewValue(G4UIcommand* command, G4String newValue) 132 { 133 TestParameters* man = TestParameters::GetPointer(); 134 135 if (command == fECmd) { 136 man->SetMaxEnergy(fECmd->GetNewDoubleValue(newValue)); 137 } 138 if (command == fEBCmd) { 139 man->SetNumberBins(fEBCmd->GetNewIntValue(newValue)); 140 } 141 if (command == fCBCmd) { 142 man->SetNumberBinsCluster(fCBCmd->GetNewIntValue(newValue)); 143 } 144 if (command == fCMCmd) { 145 man->SetMaxCluster(fCMCmd->GetNewIntValue(newValue)); 146 } 147 if (command == fListCmd) { 148 fPhysicsList->AddPhysicsList(newValue); 149 } 150 if (command == fADCCmd) { 151 man->SetEnergyPerChannel(fADCCmd->GetNewDoubleValue(newValue)); 152 } 153 if (command == fNorCmd) { 154 man->SetNormFactor(fNorCmd->GetNewDoubleValue(newValue)); 155 } 156 if (command == fSmCmd) { 157 man->SetEnergySmear(fSmCmd->GetNewDoubleValue(newValue)); 158 } 159 } 160 161 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo...... 162