| 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 //
27 /// \file ExGflashMessenger.cc
28 /// \brief Implementation of the ExGflashMesse
29 //
30 //....oooOO0OOooo........oooOO0OOooo........oo
31 //....oooOO0OOooo........oooOO0OOooo........oo
32
33 #include "ExGflashMessenger.hh"
34
35 #include "ExGflashDetectorConstruction.hh"
36
37 #include "G4UIcmdWith3Vector.hh"
38 #include "G4UIcmdWithADoubleAndUnit.hh"
39 #include "G4UIcmdWithAString.hh"
40 #include "G4UIcmdWithAnInteger.hh"
41 #include "G4UIcmdWithoutParameter.hh"
42 #include "G4UIdirectory.hh"
43
44 //....oooOO0OOooo........oooOO0OOooo........oo
45
46 ExGflashMessenger::ExGflashMessenger(ExGflashD
47 {
48 fExGflashDir = new G4UIdirectory("/exgflash/
49 fExGflashDir->SetGuidance(" Gflash example c
50
51 fVerbose = new G4UIcmdWithAnInteger("/exgfla
52 fVerbose->SetGuidance("set exglash verbosity
53 fVerbose->SetGuidance("0- silent, 1 - init,
54 fVerbose->SetParameterName("ver", false);
55 fVerbose->SetRange("ver >= 0");
56 fVerbose->AvailableForStates(G4State_PreInit
57 fVerbose->SetToBeBroadcasted(false);
58
59 fDetDir = new G4UIdirectory("/exgflash/det/"
60 fDetDir->SetGuidance("detector construction
61
62 fLBinCmd = new G4UIcmdWith3Vector("/exgflash
63 fLBinCmd->SetGuidance("set longitudinal bini
64 fLBinCmd->SetGuidance("nLtot - nb of bins;
65 fLBinCmd->SetGuidance("dLradl - bin thicknes
66 fLBinCmd->SetGuidance("LStart - dummy");
67 fLBinCmd->SetParameterName("nLtot", "dLradl"
68 fLBinCmd->SetDefaultValue(G4ThreeVector{100.
69 fLBinCmd->SetRange("nLtot>=1 && dLradl>0");
70 fLBinCmd->AvailableForStates(G4State_PreInit
71 fLBinCmd->SetToBeBroadcasted(false);
72
73 fRBinCmd = new G4UIcmdWith3Vector("/exgflash
74 fRBinCmd->SetGuidance("set radial bining");
75 fRBinCmd->SetGuidance("nRtot - nb of bins;
76 fRBinCmd->SetGuidance("dRradl - bin thicknes
77 fRBinCmd->SetGuidance("RStart - dummy");
78 fRBinCmd->SetParameterName("nRtot", "dRradl"
79 fRBinCmd->SetDefaultValue(G4ThreeVector{80.0
80 fRBinCmd->SetRange("nRtot>=1 && dRradl>0");
81 fRBinCmd->AvailableForStates(G4State_PreInit
82 fRBinCmd->SetToBeBroadcasted(false);
83
84 fMaterCmd = new G4UIcmdWithAString("/exgflas
85 fMaterCmd->SetGuidance("Select Material.");
86 fMaterCmd->SetParameterName("material", fals
87 fMaterCmd->AvailableForStates(G4State_PreIni
88 fMaterCmd->SetToBeBroadcasted(false);
89
90 fNbCrysCmd = new G4UIcmdWithAnInteger("/exgf
91 fNbCrysCmd->SetGuidance("set numbber of crys
92 fNbCrysCmd->SetGuidance("ncrys - number of
93 fNbCrysCmd->SetParameterName("ncrys", false)
94 fNbCrysCmd->SetRange("ncrys > 0");
95 fNbCrysCmd->AvailableForStates(G4State_PreIn
96 fNbCrysCmd->SetToBeBroadcasted(false);
97
98 fWCrysCmd = new G4UIcmdWithADoubleAndUnit("/
99 fWCrysCmd->SetGuidance("set crystal width (c
100 fWCrysCmd->SetGuidance("wcrys - width of cr
101 fWCrysCmd->SetParameterName("wcrys", false);
102 fWCrysCmd->SetRange("wcrys > 0");
103 fWCrysCmd->SetUnitCategory("Length");
104 fWCrysCmd->SetDefaultUnit("cm");
105 fWCrysCmd->AvailableForStates(G4State_PreIni
106 fWCrysCmd->SetToBeBroadcasted(false);
107
108 fLCrysCmd = new G4UIcmdWithADoubleAndUnit("/
109 fLCrysCmd->SetGuidance("set crystal length (
110 fLCrysCmd->SetGuidance("lcrys - crystal len
111 fLCrysCmd->SetParameterName("lcrys", false);
112 fLCrysCmd->SetRange("lcrys > 0");
113 fLCrysCmd->SetUnitCategory("Length");
114 fLCrysCmd->SetDefaultUnit("cm");
115 fLCrysCmd->AvailableForStates(G4State_PreIni
116 fLCrysCmd->SetToBeBroadcasted(false);
117 }
118
119 //....oooOO0OOooo........oooOO0OOooo........oo
120
121 ExGflashMessenger::~ExGflashMessenger()
122 {
123 delete fLCrysCmd;
124 delete fWCrysCmd;
125 delete fNbCrysCmd;
126 delete fMaterCmd;
127 delete fRBinCmd;
128 delete fLBinCmd;
129 delete fDetDir;
130 delete fVerbose;
131 delete fExGflashDir;
132 }
133
134 //....oooOO0OOooo........oooOO0OOooo........oo
135
136 void ExGflashMessenger::SetNewValue(G4UIcomman
137 {
138 if (command == fMaterCmd) {
139 fDetector->SetMaterial(newValue);
140 }
141
142 if (command == fNbCrysCmd) {
143 fDetector->SetNbOfCrystals(fNbCrysCmd->Get
144 }
145
146 if (command == fWCrysCmd) {
147 fDetector->SetCrystalWidth(fWCrysCmd->GetN
148 }
149
150 if (command == fLCrysCmd) {
151 fDetector->SetCrystalLength(fLCrysCmd->Get
152 }
153
154 if (command == fVerbose) {
155 fDetector->SetVerbose(fVerbose->GetNewIntV
156 }
157
158 if (command == fLBinCmd) {
159 fDetector->SetLBining(fLBinCmd->GetNew3Vec
160 }
161
162 if (command == fRBinCmd) {
163 fDetector->SetRBining(fRBinCmd->GetNew3Vec
164 }
165 }
166
167 //....oooOO0OOooo........oooOO0OOooo........oo
168