| 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 //
30
31 //....oooOO0OOooo........oooOO0OOooo........oo
32 //....oooOO0OOooo........oooOO0OOooo........oo
33
34 #include "DetectorMessenger.hh"
35
36 #include "DetectorConstruction.hh"
37
38 #include "G4UIcmdWithADoubleAndUnit.hh"
39 #include "G4UIcmdWithAString.hh"
40 #include "G4UIcmdWithoutParameter.hh"
41 #include "G4UIdirectory.hh"
42 #include "globals.hh"
43
44 //....oooOO0OOooo........oooOO0OOooo........oo
45
46 DetectorMessenger::DetectorMessenger(DetectorC
47 : G4UImessenger(), fDetector(myDet)
48 {
49 fDetectorDir = new G4UIdirectory("/mydet/");
50 fDetectorDir->SetGuidance("Detector control.
51
52 fFieldCommand = new G4UIcmdWithADoubleAndUni
53 fFieldCommand->SetGuidance("Define uniform m
54 fFieldCommand->SetGuidance(" -> in unit of
55 fFieldCommand->SetParameterName("By", false)
56 fFieldCommand->SetDefaultValue(0.0);
57 fFieldCommand->SetUnitCategory("Magnetic flu
58 fFieldCommand->AvailableForStates(G4State_Pr
59
60 fTargetMaterial = new G4UIcmdWithAString("/m
61 fTargetMaterial->SetGuidance("Choice of the
62 fTargetMaterial->SetGuidance(" a Geant4 NI
63 fTargetMaterial->SetParameterName("choiceTar
64 fTargetMaterial->SetDefaultValue("G4_Be");
65 fTargetMaterial->AvailableForStates(G4State_
66
67 fTargetInnerRadius = new G4UIcmdWithADoubleA
68 fTargetInnerRadius->SetParameterName("choice
69 fTargetInnerRadius->SetGuidance("Target inne
70 fTargetInnerRadius->SetDefaultValue(9.0);
71 fTargetInnerRadius->AvailableForStates(G4Sta
72
73 fTargetOuterRadius = new G4UIcmdWithADoubleA
74 fTargetOuterRadius->SetParameterName("choice
75 fTargetOuterRadius->SetGuidance("Target oute
76 fTargetOuterRadius->SetDefaultValue(11.0);
77 fTargetOuterRadius->AvailableForStates(G4Sta
78
79 fUpdateCommand = new G4UIcmdWithoutParameter
80 fUpdateCommand->SetGuidance("Update calorime
81 fUpdateCommand->SetGuidance("This command MU
82 fUpdateCommand->SetGuidance("if you changed
83 fUpdateCommand->AvailableForStates(G4State_P
84 }
85
86 //....oooOO0OOooo........oooOO0OOooo........oo
87
88 DetectorMessenger::~DetectorMessenger()
89 {
90 delete fDetectorDir;
91 delete fFieldCommand;
92 delete fTargetMaterial;
93 delete fTargetInnerRadius;
94 delete fTargetOuterRadius;
95 delete fUpdateCommand;
96 }
97
98 //....oooOO0OOooo........oooOO0OOooo........oo
99
100 void DetectorMessenger::SetNewValue(G4UIcomman
101 {
102 if (command == fFieldCommand) {
103 fDetector->SetMagField(fFieldCommand->GetN
104 }
105 if (command == fTargetMaterial) {
106 fDetector->SetTargetMaterial(newValue);
107 }
108 if (command == fTargetInnerRadius) {
109 fDetector->SetTargetInnerRadius(fTargetInn
110 }
111 if (command == fTargetOuterRadius) {
112 fDetector->SetTargetOuterRadius(fTargetOut
113 }
114 if (command == fUpdateCommand) {
115 fDetector->UpdateGeometry();
116 }
117 }
118
119 //....oooOO0OOooo........oooOO0OOooo........oo
120