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