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 // 27 /// \file ExGflashMessenger.cc 28 /// \brief Implementation of the ExGflashMessenger class 29 // 30 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo...... 31 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo...... 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........oooOO0OOooo........oooOO0OOooo...... 45 46 ExGflashMessenger::ExGflashMessenger(ExGflashDetectorConstruction* Det) : fDetector(Det) 47 { 48 fExGflashDir = new G4UIdirectory("/exgflash/"); 49 fExGflashDir->SetGuidance(" Gflash example commands."); 50 51 fVerbose = new G4UIcmdWithAnInteger("/exgflash/verbose", this); 52 fVerbose->SetGuidance("set exglash verbosity"); 53 fVerbose->SetGuidance("0- silent, 1 - init, 2 - run, 3 - event"); 54 fVerbose->SetParameterName("ver", false); 55 fVerbose->SetRange("ver >= 0"); 56 fVerbose->AvailableForStates(G4State_PreInit, G4State_Idle); 57 fVerbose->SetToBeBroadcasted(false); 58 59 fDetDir = new G4UIdirectory("/exgflash/det/"); 60 fDetDir->SetGuidance("detector construction commands"); 61 62 fLBinCmd = new G4UIcmdWith3Vector("/exgflash/det/setLbin", this); 63 fLBinCmd->SetGuidance("set longitudinal bining"); 64 fLBinCmd->SetGuidance("nLtot - nb of bins; bin thickness (in Radl)"); 65 fLBinCmd->SetGuidance("dLradl - bin thickness (in fraction of Radl)"); 66 fLBinCmd->SetGuidance("LStart - dummy"); 67 fLBinCmd->SetParameterName("nLtot", "dLradl", "LStart", true); 68 fLBinCmd->SetDefaultValue(G4ThreeVector{100.0, 0.25, 0.0}); 69 fLBinCmd->SetRange("nLtot>=1 && dLradl>0"); 70 fLBinCmd->AvailableForStates(G4State_PreInit, G4State_Idle); 71 fLBinCmd->SetToBeBroadcasted(false); 72 73 fRBinCmd = new G4UIcmdWith3Vector("/exgflash/det/setRbin", this); 74 fRBinCmd->SetGuidance("set radial bining"); 75 fRBinCmd->SetGuidance("nRtot - nb of bins; bin thickness (in Rm)"); 76 fRBinCmd->SetGuidance("dRradl - bin thickness (in fraction of Rm)"); 77 fRBinCmd->SetGuidance("RStart - dummy"); 78 fRBinCmd->SetParameterName("nRtot", "dRradl", "RStart", true); 79 fRBinCmd->SetDefaultValue(G4ThreeVector{80.0, 0.05, 0.0}); 80 fRBinCmd->SetRange("nRtot>=1 && dRradl>0"); 81 fRBinCmd->AvailableForStates(G4State_PreInit, G4State_Idle); 82 fRBinCmd->SetToBeBroadcasted(false); 83 84 fMaterCmd = new G4UIcmdWithAString("/exgflash/det/setMat", this); 85 fMaterCmd->SetGuidance("Select Material."); 86 fMaterCmd->SetParameterName("material", false); 87 fMaterCmd->AvailableForStates(G4State_PreInit); 88 fMaterCmd->SetToBeBroadcasted(false); 89 90 fNbCrysCmd = new G4UIcmdWithAnInteger("/exgflash/det/setNbCrys", this); 91 fNbCrysCmd->SetGuidance("set numbber of crystals in row/col"); 92 fNbCrysCmd->SetGuidance("ncrys - number of crystals "); 93 fNbCrysCmd->SetParameterName("ncrys", false); 94 fNbCrysCmd->SetRange("ncrys > 0"); 95 fNbCrysCmd->AvailableForStates(G4State_PreInit); 96 fNbCrysCmd->SetToBeBroadcasted(false); 97 98 fWCrysCmd = new G4UIcmdWithADoubleAndUnit("/exgflash/det/setCrysWidth", this); 99 fWCrysCmd->SetGuidance("set crystal width (cm)"); 100 fWCrysCmd->SetGuidance("wcrys - width of crystal "); 101 fWCrysCmd->SetParameterName("wcrys", false); 102 fWCrysCmd->SetRange("wcrys > 0"); 103 fWCrysCmd->SetUnitCategory("Length"); 104 fWCrysCmd->SetDefaultUnit("cm"); 105 fWCrysCmd->AvailableForStates(G4State_PreInit); 106 fWCrysCmd->SetToBeBroadcasted(false); 107 108 fLCrysCmd = new G4UIcmdWithADoubleAndUnit("/exgflash/det/setCrysLength", this); 109 fLCrysCmd->SetGuidance("set crystal length (cm)"); 110 fLCrysCmd->SetGuidance("lcrys - crystal length "); 111 fLCrysCmd->SetParameterName("lcrys", false); 112 fLCrysCmd->SetRange("lcrys > 0"); 113 fLCrysCmd->SetUnitCategory("Length"); 114 fLCrysCmd->SetDefaultUnit("cm"); 115 fLCrysCmd->AvailableForStates(G4State_PreInit); 116 fLCrysCmd->SetToBeBroadcasted(false); 117 } 118 119 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo...... 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........oooOO0OOooo........oooOO0OOooo...... 135 136 void ExGflashMessenger::SetNewValue(G4UIcommand* command, G4String newValue) 137 { 138 if (command == fMaterCmd) { 139 fDetector->SetMaterial(newValue); 140 } 141 142 if (command == fNbCrysCmd) { 143 fDetector->SetNbOfCrystals(fNbCrysCmd->GetNewIntValue(newValue)); 144 } 145 146 if (command == fWCrysCmd) { 147 fDetector->SetCrystalWidth(fWCrysCmd->GetNewDoubleValue(newValue)); 148 } 149 150 if (command == fLCrysCmd) { 151 fDetector->SetCrystalLength(fLCrysCmd->GetNewDoubleValue(newValue)); 152 } 153 154 if (command == fVerbose) { 155 fDetector->SetVerbose(fVerbose->GetNewIntValue(newValue)); 156 } 157 158 if (command == fLBinCmd) { 159 fDetector->SetLBining(fLBinCmd->GetNew3VectorValue(newValue)); 160 } 161 162 if (command == fRBinCmd) { 163 fDetector->SetRBining(fRBinCmd->GetNew3VectorValue(newValue)); 164 } 165 } 166 167 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo...... 168