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 /// \file DetectorMessenger.cc 27 /// \brief Implementation of the DetectorMesse 28 29 //....oooOO0OOooo........oooOO0OOooo........oo 30 //....oooOO0OOooo........oooOO0OOooo........oo 31 32 #include "DetectorMessenger.hh" 33 34 #include "DetectorConstruction.hh" 35 36 #include "G4UIcmdWithADoubleAndUnit.hh" 37 #include "G4UIcmdWithAString.hh" 38 #include "G4UIcmdWithAnInteger.hh" 39 #include "G4UIcmdWithoutParameter.hh" 40 #include "G4UIdirectory.hh" 41 42 //....oooOO0OOooo........oooOO0OOooo........oo 43 44 DetectorMessenger::DetectorMessenger(DetectorC 45 { 46 G4bool broadcast = false; 47 fDetDir = new G4UIdirectory("/det/", broadca 48 fDetDir->SetGuidance("Detector control"); 49 50 fAbsMaterCmd = new G4UIcmdWithAString("/det/ 51 fAbsMaterCmd->SetGuidance("Select Material o 52 fAbsMaterCmd->SetParameterName("AbsMat", fal 53 fAbsMaterCmd->AvailableForStates(G4State_Pre 54 55 fGapMaterCmd = new G4UIcmdWithAString("/det/ 56 fGapMaterCmd->SetGuidance("Select Material o 57 fGapMaterCmd->SetParameterName("GapMat", fal 58 fGapMaterCmd->AvailableForStates(G4State_Pre 59 60 fAbsThickCmd = new G4UIcmdWithADoubleAndUnit 61 fAbsThickCmd->SetGuidance("Set Thickness of 62 fAbsThickCmd->SetParameterName("AbsThick", f 63 fAbsThickCmd->SetRange("AbsThick>=0."); 64 fAbsThickCmd->SetUnitCategory("Length"); 65 fAbsThickCmd->AvailableForStates(G4State_Pre 66 67 fGapThickCmd = new G4UIcmdWithADoubleAndUnit 68 fGapThickCmd->SetGuidance("Set Thickness of 69 fGapThickCmd->SetParameterName("GapThick", f 70 fGapThickCmd->SetRange("GapThick>=0."); 71 fGapThickCmd->SetUnitCategory("Length"); 72 fGapThickCmd->AvailableForStates(G4State_Pre 73 74 fSizeYZCmd = new G4UIcmdWithADoubleAndUnit(" 75 fSizeYZCmd->SetGuidance("Set tranverse size 76 fSizeYZCmd->SetParameterName("SizeYZ", false 77 fSizeYZCmd->SetRange("SizeYZ>0."); 78 fSizeYZCmd->SetUnitCategory("Length"); 79 fSizeYZCmd->AvailableForStates(G4State_PreIn 80 81 fNbLayersCmd = new G4UIcmdWithAnInteger("/de 82 fNbLayersCmd->SetGuidance("Set number of lay 83 fNbLayersCmd->SetParameterName("NbLayers", f 84 fNbLayersCmd->SetRange("NbLayers>0 && NbLaye 85 fNbLayersCmd->AvailableForStates(G4State_Pre 86 } 87 88 //....oooOO0OOooo........oooOO0OOooo........oo 89 90 DetectorMessenger::~DetectorMessenger() 91 { 92 delete fNbLayersCmd; 93 delete fAbsMaterCmd; 94 delete fGapMaterCmd; 95 delete fAbsThickCmd; 96 delete fGapThickCmd; 97 delete fSizeYZCmd; 98 delete fDetDir; 99 } 100 101 //....oooOO0OOooo........oooOO0OOooo........oo 102 103 void DetectorMessenger::SetNewValue(G4UIcomman 104 { 105 if (command == fAbsMaterCmd) { 106 fDetector->SetAbsorberMaterial(newValue); 107 return; 108 } 109 110 if (command == fGapMaterCmd) { 111 fDetector->SetGapMaterial(newValue); 112 return; 113 } 114 115 if (command == fAbsThickCmd) { 116 fDetector->SetAbsorberThickness(fAbsThickC 117 return; 118 } 119 120 if (command == fGapThickCmd) { 121 fDetector->SetGapThickness(fGapThickCmd->G 122 return; 123 } 124 125 if (command == fSizeYZCmd) { 126 fDetector->SetCalorSizeYZ(fSizeYZCmd->GetN 127 return; 128 } 129 130 if (command == fNbLayersCmd) { 131 fDetector->SetNbOfLayers(fNbLayersCmd->Get 132 return; 133 } 134 } 135 136 //....oooOO0OOooo........oooOO0OOooo........oo 137