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/field01/src/F01DetectorMesseng << 27 /// \brief Implementation of the F01DetectorMe << 28 // 23 // >> 24 // $Id: F01DetectorMessenger.cc,v 1.4 2002/12/05 01:06:56 asaim Exp $ >> 25 // GEANT4 tag $Name: geant4-08-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 "F01DetectorMessenger.hh" 32 #include "F01DetectorMessenger.hh" 36 33 37 #include "F01DetectorConstruction.hh" 34 #include "F01DetectorConstruction.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 << 46 F01DetectorMessenger::F01DetectorMessenger(F01 << 47 { << 48 fDetDir = new G4UIdirectory("/calor/"); << 49 fDetDir->SetGuidance("F01 detector control." << 50 42 51 fAbsMaterCmd = new G4UIcmdWithAString("/calo << 43 F01DetectorMessenger::F01DetectorMessenger(F01DetectorConstruction * F01Det) 52 fAbsMaterCmd->SetGuidance("Select Material o << 44 :F01Detector(F01Det) 53 fAbsMaterCmd->SetParameterName("choice", tru << 45 { 54 fAbsMaterCmd->SetDefaultValue("Lead"); << 46 F01detDir = new G4UIdirectory("/calor/"); 55 fAbsMaterCmd->AvailableForStates(G4State_Idl << 47 F01detDir->SetGuidance("F01 detector control."); 56 fAbsMaterCmd->SetToBeBroadcasted(false); << 48 57 << 49 AbsMaterCmd = new G4UIcmdWithAString("/calor/setAbsMat",this); 58 fWorldMaterCmd = new G4UIcmdWithAString("/ca << 50 AbsMaterCmd->SetGuidance("Select Material of the Absorber."); 59 fWorldMaterCmd->SetGuidance("Select Material << 51 AbsMaterCmd->SetParameterName("choice",true); 60 fWorldMaterCmd->SetParameterName("wchoice", << 52 AbsMaterCmd->SetDefaultValue("Lead"); 61 fWorldMaterCmd->SetDefaultValue("Air"); << 53 AbsMaterCmd->AvailableForStates(G4State_Idle); 62 fWorldMaterCmd->AvailableForStates(G4State_I << 54 63 fWorldMaterCmd->SetToBeBroadcasted(false); << 55 WorldMaterCmd = new G4UIcmdWithAString("/calor/setWorldMat",this); 64 << 56 WorldMaterCmd->SetGuidance("Select Material of the World."); 65 fAbsThickCmd = new G4UIcmdWithADoubleAndUnit << 57 WorldMaterCmd->SetParameterName("wchoice",true); 66 fAbsThickCmd->SetGuidance("Set Thickness of << 58 WorldMaterCmd->SetDefaultValue("Air"); 67 fAbsThickCmd->SetParameterName("SizeZ", fals << 59 WorldMaterCmd->AvailableForStates(G4State_Idle); 68 fAbsThickCmd->SetDefaultUnit("mm"); << 60 69 fAbsThickCmd->SetRange("SizeZ>0."); << 61 AbsThickCmd = new G4UIcmdWithADoubleAndUnit("/calor/setAbsThick",this); 70 fAbsThickCmd->AvailableForStates(G4State_Idl << 62 AbsThickCmd->SetGuidance("Set Thickness of the Absorber"); 71 fAbsThickCmd->SetToBeBroadcasted(false); << 63 AbsThickCmd->SetParameterName("SizeZ",false,false); 72 << 64 AbsThickCmd->SetDefaultUnit("mm"); 73 fAbsRadCmd = new G4UIcmdWithADoubleAndUnit(" << 65 AbsThickCmd->SetRange("SizeZ>0."); 74 fAbsRadCmd->SetGuidance("Set radius of the A << 66 AbsThickCmd->AvailableForStates(G4State_Idle); 75 fAbsRadCmd->SetParameterName("SizeR", false, << 67 76 fAbsRadCmd->SetDefaultUnit("mm"); << 68 AbsRadCmd = new G4UIcmdWithADoubleAndUnit("/calor/setAbsRad",this); 77 fAbsRadCmd->SetRange("SizeR>0."); << 69 AbsRadCmd->SetGuidance("Set radius of the Absorber"); 78 fAbsRadCmd->AvailableForStates(G4State_Idle) << 70 AbsRadCmd->SetParameterName("SizeR",false,false); 79 fAbsRadCmd->SetToBeBroadcasted(false); << 71 AbsRadCmd->SetDefaultUnit("mm"); 80 << 72 AbsRadCmd->SetRange("SizeR>0."); 81 fAbsZposCmd = new G4UIcmdWithADoubleAndUnit( << 73 AbsRadCmd->AvailableForStates(G4State_Idle); 82 fAbsZposCmd->SetGuidance("Set Z pos. of the << 74 83 fAbsZposCmd->SetParameterName("Zpos", false, << 75 AbsZposCmd = new G4UIcmdWithADoubleAndUnit("/calor/setAbsZpos",this); 84 fAbsZposCmd->SetDefaultUnit("mm"); << 76 AbsZposCmd->SetGuidance("Set Z pos. of the Absorber"); 85 fAbsZposCmd->AvailableForStates(G4State_Idle << 77 AbsZposCmd->SetParameterName("Zpos",false,false); 86 fAbsZposCmd->SetToBeBroadcasted(false); << 78 AbsZposCmd->SetDefaultUnit("mm"); 87 << 79 AbsZposCmd->AvailableForStates(G4State_Idle); 88 fWorldZCmd = new G4UIcmdWithADoubleAndUnit(" << 80 89 fWorldZCmd->SetGuidance("Set Z size of the W << 81 WorldZCmd = new G4UIcmdWithADoubleAndUnit("/calor/setWorldZ",this); 90 fWorldZCmd->SetParameterName("WSizeZ", false << 82 WorldZCmd->SetGuidance("Set Z size of the World"); 91 fWorldZCmd->SetDefaultUnit("mm"); << 83 WorldZCmd->SetParameterName("WSizeZ",false,false); 92 fWorldZCmd->SetRange("WSizeZ>0."); << 84 WorldZCmd->SetDefaultUnit("mm"); 93 fWorldZCmd->AvailableForStates(G4State_Idle) << 85 WorldZCmd->SetRange("WSizeZ>0."); 94 fWorldZCmd->SetToBeBroadcasted(false); << 86 WorldZCmd->AvailableForStates(G4State_Idle); 95 << 87 96 fWorldRCmd = new G4UIcmdWithADoubleAndUnit(" << 88 WorldRCmd = new G4UIcmdWithADoubleAndUnit("/calor/setWorldR",this); 97 fWorldRCmd->SetGuidance("Set R size of the W << 89 WorldRCmd->SetGuidance("Set R size of the World"); 98 fWorldRCmd->SetParameterName("WSizeR", false << 90 WorldRCmd->SetParameterName("WSizeR",false,false); 99 fWorldRCmd->SetDefaultUnit("mm"); << 91 WorldRCmd->SetDefaultUnit("mm"); 100 fWorldRCmd->SetRange("WSizeR>0."); << 92 WorldRCmd->SetRange("WSizeR>0."); 101 fWorldRCmd->AvailableForStates(G4State_Idle) << 93 WorldRCmd->AvailableForStates(G4State_Idle); 102 fWorldRCmd->SetToBeBroadcasted(false); << 94 103 << 95 UpdateCmd = new G4UIcmdWithoutParameter("/calor/update",this); 104 // moved from FieldSetup (depends on the use << 96 UpdateCmd->SetGuidance("Update calorimeter geometry."); 105 fFieldDir = new G4UIdirectory("/field01/"); << 97 UpdateCmd->SetGuidance("This command MUST be applied before \"beamOn\" "); 106 fFieldDir->SetGuidance("F01 field control.") << 98 UpdateCmd->SetGuidance("if you changed geometrical value(s)."); 107 << 99 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 100 114 } 101 } 115 102 116 //....oooOO0OOooo........oooOO0OOooo........oo << 103 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo.... 117 104 118 F01DetectorMessenger::~F01DetectorMessenger() 105 F01DetectorMessenger::~F01DetectorMessenger() 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 fMagFieldCmd; << 115 delete F01detDir; 129 delete fFieldDir; << 130 } 116 } 131 117 132 //....oooOO0OOooo........oooOO0OOooo........oo << 118 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo.... >> 119 >> 120 void F01DetectorMessenger::SetNewValue(G4UIcommand* command,G4String newValue) >> 121 { >> 122 if( command == AbsMaterCmd ) >> 123 { F01Detector->SetAbsorberMaterial(newValue);} >> 124 >> 125 if( command == WorldMaterCmd ) >> 126 { F01Detector->SetWorldMaterial(newValue);} >> 127 >> 128 if( command == AbsThickCmd ) >> 129 { F01Detector->SetAbsorberThickness(AbsThickCmd->GetNewDoubleValue(newValue));} >> 130 >> 131 if( command == AbsRadCmd ) >> 132 { F01Detector->SetAbsorberRadius(AbsRadCmd->GetNewDoubleValue(newValue));} >> 133 >> 134 if( command == AbsZposCmd ) >> 135 { F01Detector->SetAbsorberZpos(AbsZposCmd->GetNewDoubleValue(newValue));} >> 136 >> 137 if( command == WorldZCmd ) >> 138 { F01Detector->SetWorldSizeZ(WorldZCmd->GetNewDoubleValue(newValue));} >> 139 >> 140 if( command == WorldRCmd ) >> 141 { F01Detector->SetWorldSizeR(WorldRCmd->GetNewDoubleValue(newValue));} >> 142 >> 143 if( command == UpdateCmd ) >> 144 { F01Detector->UpdateGeometry(); } 133 145 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 } 146 } 168 147 169 //....oooOO0OOooo........oooOO0OOooo........oo << 148 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo.... 170 149