| 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 optical/OpNovice2/src/DetectorConstr
27 /// \brief Implementation of the DetectorConst
28 //
29 //
30 //
31 //....oooOO0OOooo........oooOO0OOooo........oo
32 //....oooOO0OOooo........oooOO0OOooo........oo
33
34 #include "DetectorConstruction.hh"
35
36 #include "DetectorMessenger.hh"
37
38 #include "G4Box.hh"
39 #include "G4Element.hh"
40 #include "G4LogicalBorderSurface.hh"
41 #include "G4LogicalSkinSurface.hh"
42 #include "G4LogicalVolume.hh"
43 #include "G4Material.hh"
44 #include "G4NistManager.hh"
45 #include "G4OpticalSurface.hh"
46 #include "G4PVPlacement.hh"
47 #include "G4SystemOfUnits.hh"
48 #include "G4ThreeVector.hh"
49
50 //....oooOO0OOooo........oooOO0OOooo........oo
51
52 DetectorConstruction::DetectorConstruction()
53 : G4VUserDetectorConstruction(), fDetectorMe
54 {
55 fTankMPT = new G4MaterialPropertiesTable();
56 fWorldMPT = new G4MaterialPropertiesTable();
57 fSurfaceMPT = new G4MaterialPropertiesTable(
58
59 fSurface = new G4OpticalSurface("Surface");
60 fSurface->SetType(dielectric_dielectric);
61 fSurface->SetFinish(ground);
62 fSurface->SetModel(unified);
63 fSurface->SetMaterialPropertiesTable(fSurfac
64
65 fTankMaterial = G4NistManager::Instance()->F
66 fWorldMaterial = G4NistManager::Instance()->
67
68 fDetectorMessenger = new DetectorMessenger(t
69 }
70
71 //....oooOO0OOooo........oooOO0OOooo........oo
72
73 DetectorConstruction::~DetectorConstruction()
74 {
75 delete fTankMPT;
76 delete fWorldMPT;
77 delete fSurfaceMPT;
78 delete fSurface;
79 delete fDetectorMessenger;
80 }
81
82 //....oooOO0OOooo........oooOO0OOooo........oo
83
84 G4VPhysicalVolume* DetectorConstruction::Const
85 {
86 fTankMaterial->SetMaterialPropertiesTable(fT
87 fTankMaterial->GetIonisation()->SetBirksCons
88
89 fWorldMaterial->SetMaterialPropertiesTable(f
90
91 // ------------- Volumes --------------
92 // The experimental Hall
93 auto world_box = new G4Box("World", fExpHall
94
95 fWorld_LV = new G4LogicalVolume(world_box, f
96
97 G4VPhysicalVolume* world_PV =
98 new G4PVPlacement(nullptr, G4ThreeVector()
99
100 // The tank
101 auto tank_box = new G4Box("Tank", fTank_x, f
102
103 fTank_LV = new G4LogicalVolume(tank_box, fTa
104
105 fTank = new G4PVPlacement(nullptr, G4ThreeVe
106
107 // ------------- Surface --------------
108
109 auto surface = new G4LogicalBorderSurface("S
110
111 auto opticalSurface =
112 dynamic_cast<G4OpticalSurface*>(surface->G
113 G4cout << "****** opticalSurface->DumpInfo:
114 if (opticalSurface) {
115 opticalSurface->DumpInfo();
116 }
117 G4cout << "****** end of opticalSurface->Du
118
119 return world_PV;
120 }
121
122 //....oooOO0OOooo........oooOO0OOooo........oo
123 void DetectorConstruction::SetSurfaceSigmaAlph
124 {
125 fSurface->SetSigmaAlpha(v);
126 G4RunManager::GetRunManager()->GeometryHasBe
127
128 G4cout << "Surface sigma alpha set to: " <<
129 }
130
131 //....oooOO0OOooo........oooOO0OOooo........oo
132 void DetectorConstruction::SetSurfacePolish(G4
133 {
134 fSurface->SetPolish(v);
135 G4RunManager::GetRunManager()->GeometryHasBe
136
137 G4cout << "Surface polish set to: " << fSurf
138 }
139
140 //....oooOO0OOooo........oooOO0OOooo........oo
141 void DetectorConstruction::AddTankMPV(const G4
142 {
143 fTankMPT->AddProperty(prop, mpv);
144 G4cout << "The MPT for the box is now: " <<
145 fTankMPT->DumpTable();
146 G4cout << "............." << G4endl;
147 }
148
149 //....oooOO0OOooo........oooOO0OOooo........oo
150 void DetectorConstruction::AddWorldMPV(const G
151 {
152 fWorldMPT->AddProperty(prop, mpv);
153 G4cout << "The MPT for the world is now: " <
154 fWorldMPT->DumpTable();
155 G4cout << "............." << G4endl;
156 }
157
158 //....oooOO0OOooo........oooOO0OOooo........oo
159 void DetectorConstruction::AddSurfaceMPV(const
160 {
161 fSurfaceMPT->AddProperty(prop, mpv);
162 G4cout << "The MPT for the surface is now: "
163 fSurfaceMPT->DumpTable();
164 G4cout << "............." << G4endl;
165 }
166
167 //....oooOO0OOooo........oooOO0OOooo........oo
168 void DetectorConstruction::AddTankMPC(const G4
169 {
170 fTankMPT->AddConstProperty(prop, v);
171 G4cout << "The MPT for the box is now: " <<
172 fTankMPT->DumpTable();
173 G4cout << "............." << G4endl;
174 }
175
176 //....oooOO0OOooo........oooOO0OOooo........oo
177 void DetectorConstruction::AddWorldMPC(const G
178 {
179 fWorldMPT->AddConstProperty(prop, v);
180 G4cout << "The MPT for the world is now: " <
181 fWorldMPT->DumpTable();
182 G4cout << "............." << G4endl;
183 }
184 //....oooOO0OOooo........oooOO0OOooo........oo
185 void DetectorConstruction::AddSurfaceMPC(const
186 {
187 fSurfaceMPT->AddConstProperty(prop, v);
188 G4cout << "The MPT for the surface is now: "
189 fSurfaceMPT->DumpTable();
190 G4cout << "............." << G4endl;
191 }
192
193 //....oooOO0OOooo........oooOO0OOooo........oo
194 void DetectorConstruction::SetWorldMaterial(co
195 {
196 G4Material* pmat = G4NistManager::Instance()
197 if (pmat && fWorldMaterial != pmat) {
198 fWorldMaterial = pmat;
199 if (fWorld_LV) {
200 fWorld_LV->SetMaterial(fWorldMaterial);
201 fWorldMaterial->SetMaterialPropertiesTab
202 }
203 G4RunManager::GetRunManager()->PhysicsHasB
204 G4cout << "World material set to " << fWor
205 }
206 }
207
208 //....oooOO0OOooo........oooOO0OOooo........oo
209 void DetectorConstruction::SetTankMaterial(con
210 {
211 G4Material* pmat = G4NistManager::Instance()
212 if (pmat && fTankMaterial != pmat) {
213 fTankMaterial = pmat;
214 if (fTank_LV) {
215 fTank_LV->SetMaterial(fTankMaterial);
216 fTankMaterial->SetMaterialPropertiesTabl
217 fTankMaterial->GetIonisation()->SetBirks
218 }
219 G4RunManager::GetRunManager()->PhysicsHasB
220 G4cout << "Tank material set to " << fTank
221 }
222 }
223