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 /// \file ExGflashMessenger.cc 28 /// \brief Implementation of the ExGflashMesse 29 // 30 //....oooOO0OOooo........oooOO0OOooo........oo 31 //....oooOO0OOooo........oooOO0OOooo........oo 32 33 #include "ExGflashMessenger.hh" 34 35 #include "ExGflashDetectorConstruction.hh" 36 37 #include "G4UIcmdWith3Vector.hh" 38 #include "G4UIcmdWithADoubleAndUnit.hh" 39 #include "G4UIcmdWithAString.hh" 40 #include "G4UIcmdWithAnInteger.hh" 41 #include "G4UIcmdWithoutParameter.hh" 42 #include "G4UIdirectory.hh" 43 44 //....oooOO0OOooo........oooOO0OOooo........oo 45 46 ExGflashMessenger::ExGflashMessenger(ExGflashD 47 { 48 fExGflashDir = new G4UIdirectory("/exgflash/ 49 fExGflashDir->SetGuidance(" Gflash example c 50 51 fVerbose = new G4UIcmdWithAnInteger("/exgfla 52 fVerbose->SetGuidance("set exglash verbosity 53 fVerbose->SetGuidance("0- silent, 1 - init, 54 fVerbose->SetParameterName("ver", false); 55 fVerbose->SetRange("ver >= 0"); 56 fVerbose->AvailableForStates(G4State_PreInit 57 fVerbose->SetToBeBroadcasted(false); 58 59 fDetDir = new G4UIdirectory("/exgflash/det/" 60 fDetDir->SetGuidance("detector construction 61 62 fLBinCmd = new G4UIcmdWith3Vector("/exgflash 63 fLBinCmd->SetGuidance("set longitudinal bini 64 fLBinCmd->SetGuidance("nLtot - nb of bins; 65 fLBinCmd->SetGuidance("dLradl - bin thicknes 66 fLBinCmd->SetGuidance("LStart - dummy"); 67 fLBinCmd->SetParameterName("nLtot", "dLradl" 68 fLBinCmd->SetDefaultValue(G4ThreeVector{100. 69 fLBinCmd->SetRange("nLtot>=1 && dLradl>0"); 70 fLBinCmd->AvailableForStates(G4State_PreInit 71 fLBinCmd->SetToBeBroadcasted(false); 72 73 fRBinCmd = new G4UIcmdWith3Vector("/exgflash 74 fRBinCmd->SetGuidance("set radial bining"); 75 fRBinCmd->SetGuidance("nRtot - nb of bins; 76 fRBinCmd->SetGuidance("dRradl - bin thicknes 77 fRBinCmd->SetGuidance("RStart - dummy"); 78 fRBinCmd->SetParameterName("nRtot", "dRradl" 79 fRBinCmd->SetDefaultValue(G4ThreeVector{80.0 80 fRBinCmd->SetRange("nRtot>=1 && dRradl>0"); 81 fRBinCmd->AvailableForStates(G4State_PreInit 82 fRBinCmd->SetToBeBroadcasted(false); 83 84 fMaterCmd = new G4UIcmdWithAString("/exgflas 85 fMaterCmd->SetGuidance("Select Material."); 86 fMaterCmd->SetParameterName("material", fals 87 fMaterCmd->AvailableForStates(G4State_PreIni 88 fMaterCmd->SetToBeBroadcasted(false); 89 90 fNbCrysCmd = new G4UIcmdWithAnInteger("/exgf 91 fNbCrysCmd->SetGuidance("set numbber of crys 92 fNbCrysCmd->SetGuidance("ncrys - number of 93 fNbCrysCmd->SetParameterName("ncrys", false) 94 fNbCrysCmd->SetRange("ncrys > 0"); 95 fNbCrysCmd->AvailableForStates(G4State_PreIn 96 fNbCrysCmd->SetToBeBroadcasted(false); 97 98 fWCrysCmd = new G4UIcmdWithADoubleAndUnit("/ 99 fWCrysCmd->SetGuidance("set crystal width (c 100 fWCrysCmd->SetGuidance("wcrys - width of cr 101 fWCrysCmd->SetParameterName("wcrys", false); 102 fWCrysCmd->SetRange("wcrys > 0"); 103 fWCrysCmd->SetUnitCategory("Length"); 104 fWCrysCmd->SetDefaultUnit("cm"); 105 fWCrysCmd->AvailableForStates(G4State_PreIni 106 fWCrysCmd->SetToBeBroadcasted(false); 107 108 fLCrysCmd = new G4UIcmdWithADoubleAndUnit("/ 109 fLCrysCmd->SetGuidance("set crystal length ( 110 fLCrysCmd->SetGuidance("lcrys - crystal len 111 fLCrysCmd->SetParameterName("lcrys", false); 112 fLCrysCmd->SetRange("lcrys > 0"); 113 fLCrysCmd->SetUnitCategory("Length"); 114 fLCrysCmd->SetDefaultUnit("cm"); 115 fLCrysCmd->AvailableForStates(G4State_PreIni 116 fLCrysCmd->SetToBeBroadcasted(false); 117 } 118 119 //....oooOO0OOooo........oooOO0OOooo........oo 120 121 ExGflashMessenger::~ExGflashMessenger() 122 { 123 delete fLCrysCmd; 124 delete fWCrysCmd; 125 delete fNbCrysCmd; 126 delete fMaterCmd; 127 delete fRBinCmd; 128 delete fLBinCmd; 129 delete fDetDir; 130 delete fVerbose; 131 delete fExGflashDir; 132 } 133 134 //....oooOO0OOooo........oooOO0OOooo........oo 135 136 void ExGflashMessenger::SetNewValue(G4UIcomman 137 { 138 if (command == fMaterCmd) { 139 fDetector->SetMaterial(newValue); 140 } 141 142 if (command == fNbCrysCmd) { 143 fDetector->SetNbOfCrystals(fNbCrysCmd->Get 144 } 145 146 if (command == fWCrysCmd) { 147 fDetector->SetCrystalWidth(fWCrysCmd->GetN 148 } 149 150 if (command == fLCrysCmd) { 151 fDetector->SetCrystalLength(fLCrysCmd->Get 152 } 153 154 if (command == fVerbose) { 155 fDetector->SetVerbose(fVerbose->GetNewIntV 156 } 157 158 if (command == fLBinCmd) { 159 fDetector->SetLBining(fLBinCmd->GetNew3Vec 160 } 161 162 if (command == fRBinCmd) { 163 fDetector->SetRBining(fRBinCmd->GetNew3Vec 164 } 165 } 166 167 //....oooOO0OOooo........oooOO0OOooo........oo 168