Geant4 Cross Reference |
1 // 1 // 2 // ******************************************* 2 // ******************************************************************** 3 // * License and Disclaimer 3 // * License and Disclaimer * 4 // * 4 // * * 5 // * The Geant4 software is copyright of th 5 // * The Geant4 software is copyright of the Copyright Holders of * 6 // * the Geant4 Collaboration. It is provided 6 // * the Geant4 Collaboration. It is provided under the terms and * 7 // * conditions of the Geant4 Software License 7 // * conditions of the Geant4 Software License, included in the file * 8 // * LICENSE and available at http://cern.ch/ 8 // * LICENSE and available at http://cern.ch/geant4/license . These * 9 // * include a list of copyright holders. 9 // * include a list of copyright holders. * 10 // * 10 // * * 11 // * Neither the authors of this software syst 11 // * Neither the authors of this software system, nor their employing * 12 // * institutes,nor the agencies providing fin 12 // * institutes,nor the agencies providing financial support for this * 13 // * work make any representation or warran 13 // * work make any representation or warranty, express or implied, * 14 // * regarding this software system or assum 14 // * regarding this software system or assume any liability for its * 15 // * use. Please see the license in the file 15 // * use. Please see the license in the file LICENSE and URL above * 16 // * for the full disclaimer and the limitatio 16 // * for the full disclaimer and the limitation of liability. * 17 // * 17 // * * 18 // * This code implementation is the result 18 // * This code implementation is the result of the scientific and * 19 // * technical work of the GEANT4 collaboratio 19 // * technical work of the GEANT4 collaboration. * 20 // * By using, copying, modifying or distri 20 // * By using, copying, modifying or distributing the software (or * 21 // * any work based on the software) you ag 21 // * any work based on the software) you agree to acknowledge its * 22 // * use in resulting scientific publicati 22 // * use in resulting scientific publications, and indicate your * 23 // * acceptance of all terms of the Geant4 Sof 23 // * acceptance of all terms of the Geant4 Software license. * 24 // ******************************************* 24 // ******************************************************************** 25 // 25 // 26 /// \file field/field01/src/F01DetectorMesseng << 27 /// \brief Implementation of the F01DetectorMe << 28 // 26 // >> 27 // $Id: F01DetectorMessenger.cc,v 1.5 2006/06/29 17:16:27 gunter Exp $ >> 28 // GEANT4 tag $Name: geant4-09-01-patch-03 $ 29 // 29 // 30 // << 30 // 31 // << 31 32 //....oooOO0OOooo........oooOO0OOooo........oo << 32 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo.... 33 //....oooOO0OOooo........oooOO0OOooo........oo << 33 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo.... 34 34 35 #include "F01DetectorMessenger.hh" 35 #include "F01DetectorMessenger.hh" 36 36 37 #include "F01DetectorConstruction.hh" 37 #include "F01DetectorConstruction.hh" 38 << 38 #include "G4UIdirectory.hh" 39 #include "G4UIcmdWithADoubleAndUnit.hh" << 40 #include "G4UIcmdWithAString.hh" 39 #include "G4UIcmdWithAString.hh" 41 #include "G4UIcmdWith3VectorAndUnit.hh" << 40 #include "G4UIcmdWithAnInteger.hh" >> 41 #include "G4UIcmdWithADoubleAndUnit.hh" 42 #include "G4UIcmdWithoutParameter.hh" 42 #include "G4UIcmdWithoutParameter.hh" 43 43 44 //....oooOO0OOooo........oooOO0OOooo........oo << 44 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo.... 45 << 46 F01DetectorMessenger::F01DetectorMessenger(F01 << 47 { << 48 fDetDir = new G4UIdirectory("/calor/"); << 49 fDetDir->SetGuidance("F01 detector control." << 50 45 51 fAbsMaterCmd = new G4UIcmdWithAString("/calo << 46 F01DetectorMessenger::F01DetectorMessenger(F01DetectorConstruction * F01Det) 52 fAbsMaterCmd->SetGuidance("Select Material o << 47 :F01Detector(F01Det) 53 fAbsMaterCmd->SetParameterName("choice", tru << 48 { 54 fAbsMaterCmd->SetDefaultValue("Lead"); << 49 F01detDir = new G4UIdirectory("/calor/"); 55 fAbsMaterCmd->AvailableForStates(G4State_Idl << 50 F01detDir->SetGuidance("F01 detector control."); 56 fAbsMaterCmd->SetToBeBroadcasted(false); << 51 57 << 52 AbsMaterCmd = new G4UIcmdWithAString("/calor/setAbsMat",this); 58 fWorldMaterCmd = new G4UIcmdWithAString("/ca << 53 AbsMaterCmd->SetGuidance("Select Material of the Absorber."); 59 fWorldMaterCmd->SetGuidance("Select Material << 54 AbsMaterCmd->SetParameterName("choice",true); 60 fWorldMaterCmd->SetParameterName("wchoice", << 55 AbsMaterCmd->SetDefaultValue("Lead"); 61 fWorldMaterCmd->SetDefaultValue("Air"); << 56 AbsMaterCmd->AvailableForStates(G4State_Idle); 62 fWorldMaterCmd->AvailableForStates(G4State_I << 57 63 fWorldMaterCmd->SetToBeBroadcasted(false); << 58 WorldMaterCmd = new G4UIcmdWithAString("/calor/setWorldMat",this); 64 << 59 WorldMaterCmd->SetGuidance("Select Material of the World."); 65 fAbsThickCmd = new G4UIcmdWithADoubleAndUnit << 60 WorldMaterCmd->SetParameterName("wchoice",true); 66 fAbsThickCmd->SetGuidance("Set Thickness of << 61 WorldMaterCmd->SetDefaultValue("Air"); 67 fAbsThickCmd->SetParameterName("SizeZ", fals << 62 WorldMaterCmd->AvailableForStates(G4State_Idle); 68 fAbsThickCmd->SetDefaultUnit("mm"); << 63 69 fAbsThickCmd->SetRange("SizeZ>0."); << 64 AbsThickCmd = new G4UIcmdWithADoubleAndUnit("/calor/setAbsThick",this); 70 fAbsThickCmd->AvailableForStates(G4State_Idl << 65 AbsThickCmd->SetGuidance("Set Thickness of the Absorber"); 71 fAbsThickCmd->SetToBeBroadcasted(false); << 66 AbsThickCmd->SetParameterName("SizeZ",false,false); 72 << 67 AbsThickCmd->SetDefaultUnit("mm"); 73 fAbsRadCmd = new G4UIcmdWithADoubleAndUnit(" << 68 AbsThickCmd->SetRange("SizeZ>0."); 74 fAbsRadCmd->SetGuidance("Set radius of the A << 69 AbsThickCmd->AvailableForStates(G4State_Idle); 75 fAbsRadCmd->SetParameterName("SizeR", false, << 70 76 fAbsRadCmd->SetDefaultUnit("mm"); << 71 AbsRadCmd = new G4UIcmdWithADoubleAndUnit("/calor/setAbsRad",this); 77 fAbsRadCmd->SetRange("SizeR>0."); << 72 AbsRadCmd->SetGuidance("Set radius of the Absorber"); 78 fAbsRadCmd->AvailableForStates(G4State_Idle) << 73 AbsRadCmd->SetParameterName("SizeR",false,false); 79 fAbsRadCmd->SetToBeBroadcasted(false); << 74 AbsRadCmd->SetDefaultUnit("mm"); 80 << 75 AbsRadCmd->SetRange("SizeR>0."); 81 fAbsZposCmd = new G4UIcmdWithADoubleAndUnit( << 76 AbsRadCmd->AvailableForStates(G4State_Idle); 82 fAbsZposCmd->SetGuidance("Set Z pos. of the << 77 83 fAbsZposCmd->SetParameterName("Zpos", false, << 78 AbsZposCmd = new G4UIcmdWithADoubleAndUnit("/calor/setAbsZpos",this); 84 fAbsZposCmd->SetDefaultUnit("mm"); << 79 AbsZposCmd->SetGuidance("Set Z pos. of the Absorber"); 85 fAbsZposCmd->AvailableForStates(G4State_Idle << 80 AbsZposCmd->SetParameterName("Zpos",false,false); 86 fAbsZposCmd->SetToBeBroadcasted(false); << 81 AbsZposCmd->SetDefaultUnit("mm"); 87 << 82 AbsZposCmd->AvailableForStates(G4State_Idle); 88 fWorldZCmd = new G4UIcmdWithADoubleAndUnit(" << 83 89 fWorldZCmd->SetGuidance("Set Z size of the W << 84 WorldZCmd = new G4UIcmdWithADoubleAndUnit("/calor/setWorldZ",this); 90 fWorldZCmd->SetParameterName("WSizeZ", false << 85 WorldZCmd->SetGuidance("Set Z size of the World"); 91 fWorldZCmd->SetDefaultUnit("mm"); << 86 WorldZCmd->SetParameterName("WSizeZ",false,false); 92 fWorldZCmd->SetRange("WSizeZ>0."); << 87 WorldZCmd->SetDefaultUnit("mm"); 93 fWorldZCmd->AvailableForStates(G4State_Idle) << 88 WorldZCmd->SetRange("WSizeZ>0."); 94 fWorldZCmd->SetToBeBroadcasted(false); << 89 WorldZCmd->AvailableForStates(G4State_Idle); 95 << 90 96 fWorldRCmd = new G4UIcmdWithADoubleAndUnit(" << 91 WorldRCmd = new G4UIcmdWithADoubleAndUnit("/calor/setWorldR",this); 97 fWorldRCmd->SetGuidance("Set R size of the W << 92 WorldRCmd->SetGuidance("Set R size of the World"); 98 fWorldRCmd->SetParameterName("WSizeR", false << 93 WorldRCmd->SetParameterName("WSizeR",false,false); 99 fWorldRCmd->SetDefaultUnit("mm"); << 94 WorldRCmd->SetDefaultUnit("mm"); 100 fWorldRCmd->SetRange("WSizeR>0."); << 95 WorldRCmd->SetRange("WSizeR>0."); 101 fWorldRCmd->AvailableForStates(G4State_Idle) << 96 WorldRCmd->AvailableForStates(G4State_Idle); 102 fWorldRCmd->SetToBeBroadcasted(false); << 97 103 << 98 UpdateCmd = new G4UIcmdWithoutParameter("/calor/update",this); 104 // moved from FieldSetup (depends on the use << 99 UpdateCmd->SetGuidance("Update calorimeter geometry."); 105 fFieldDir = new G4UIdirectory("/field01/"); << 100 UpdateCmd->SetGuidance("This command MUST be applied before \"beamOn\" "); 106 fFieldDir->SetGuidance("F01 field control.") << 101 UpdateCmd->SetGuidance("if you changed geometrical value(s)."); 107 << 102 UpdateCmd->AvailableForStates(G4State_Idle); 108 fMagFieldCmd = new G4UIcmdWith3VectorAndUnit << 109 fMagFieldCmd->SetGuidance("Define magnetic f << 110 fMagFieldCmd->SetParameterName("Bx", "By", " << 111 fMagFieldCmd->SetDefaultUnit("tesla"); << 112 fMagFieldCmd->AvailableForStates(G4State_Idl << 113 103 114 } 104 } 115 105 116 //....oooOO0OOooo........oooOO0OOooo........oo << 106 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo.... 117 107 118 F01DetectorMessenger::~F01DetectorMessenger() 108 F01DetectorMessenger::~F01DetectorMessenger() 119 { 109 { 120 delete fAbsMaterCmd; << 110 delete AbsMaterCmd; 121 delete fAbsThickCmd; << 111 delete AbsThickCmd; 122 delete fAbsRadCmd; << 112 delete AbsRadCmd; 123 delete fAbsZposCmd; << 113 delete AbsZposCmd; 124 delete fWorldMaterCmd; << 114 delete WorldMaterCmd; 125 delete fWorldZCmd; << 115 delete WorldZCmd; 126 delete fWorldRCmd; << 116 delete WorldRCmd; 127 delete fDetDir; << 117 delete UpdateCmd; 128 delete fMagFieldCmd; << 118 delete F01detDir; 129 delete fFieldDir; << 130 } 119 } 131 120 132 //....oooOO0OOooo........oooOO0OOooo........oo << 121 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo.... >> 122 >> 123 void F01DetectorMessenger::SetNewValue(G4UIcommand* command,G4String newValue) >> 124 { >> 125 if( command == AbsMaterCmd ) >> 126 { F01Detector->SetAbsorberMaterial(newValue);} >> 127 >> 128 if( command == WorldMaterCmd ) >> 129 { F01Detector->SetWorldMaterial(newValue);} >> 130 >> 131 if( command == AbsThickCmd ) >> 132 { F01Detector->SetAbsorberThickness(AbsThickCmd->GetNewDoubleValue(newValue));} >> 133 >> 134 if( command == AbsRadCmd ) >> 135 { F01Detector->SetAbsorberRadius(AbsRadCmd->GetNewDoubleValue(newValue));} >> 136 >> 137 if( command == AbsZposCmd ) >> 138 { F01Detector->SetAbsorberZpos(AbsZposCmd->GetNewDoubleValue(newValue));} >> 139 >> 140 if( command == WorldZCmd ) >> 141 { F01Detector->SetWorldSizeZ(WorldZCmd->GetNewDoubleValue(newValue));} >> 142 >> 143 if( command == WorldRCmd ) >> 144 { F01Detector->SetWorldSizeR(WorldRCmd->GetNewDoubleValue(newValue));} >> 145 >> 146 if( command == UpdateCmd ) >> 147 { F01Detector->UpdateGeometry(); } 133 148 134 void F01DetectorMessenger::SetNewValue(G4UIcom << 135 { << 136 if (command == fAbsMaterCmd) { << 137 fDetector->SetAbsorberMaterial(newValue); << 138 } << 139 << 140 if (command == fWorldMaterCmd) { << 141 fDetector->SetWorldMaterial(newValue); << 142 } << 143 << 144 if (command == fAbsThickCmd) { << 145 fDetector->SetAbsorberThickness(fAbsThickC << 146 } << 147 << 148 if (command == fAbsRadCmd) { << 149 fDetector->SetAbsorberRadius(fAbsRadCmd->G << 150 } << 151 << 152 if (command == fAbsZposCmd) { << 153 fDetector->SetAbsorberZpos(fAbsZposCmd->Ge << 154 } << 155 << 156 if (command == fWorldZCmd) { << 157 fDetector->SetWorldSizeZ(fWorldZCmd->GetNe << 158 } << 159 << 160 if (command == fWorldRCmd) { << 161 fDetector->SetWorldSizeR(fWorldRCmd->GetNe << 162 } << 163 << 164 if( command == fMagFieldCmd ) { << 165 fDetector->SetFieldValue(fMagFieldCmd->Get << 166 } << 167 } 149 } 168 150 169 //....oooOO0OOooo........oooOO0OOooo........oo << 151 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo.... 170 152