| 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 //
28 // Author: Alfonso Mantero (Alfonso.Mantero@ge
29 //
30 // History:
31 // -----------
32 //
33 // 29 Aug 2003 Alfonso Mantero created
34 //
35 // -------------------------------------------
36
37
38 #include "XrayFluoPlaneDetectorMessenger.hh"
39 #include "XrayFluoPlaneDetectorConstruction.hh
40 #include "G4RunManager.hh"
41 #include "G4UIdirectory.hh"
42 #include "G4UIcmdWithAString.hh"
43 #include "G4UIcmdWithADoubleAndUnit.hh"
44 #include "G4UIcmdWithoutParameter.hh"
45 #include "G4UIcmdWithABool.hh"
46
47 //....oooOO0OOooo........oooOO0OOooo........oo
48
49 XrayFluoPlaneDetectorMessenger::XrayFluoPlaneD
50 :Detector(Det)
51 {
52 detDir = new G4UIdirectory("/apparate/");
53 detDir->SetGuidance("detector control.");
54
55 UpdateCmd = new G4UIcmdWithoutParameter("/ap
56 UpdateCmd->SetGuidance("Update apparate geom
57 UpdateCmd->SetGuidance("This command MUST be
58 UpdateCmd->SetGuidance("if you changed geome
59
60 UpdateCmd->AvailableForStates(G4State_Idle);
61
62 sampleCmd = new G4UIcmdWithAString("/apparat
63 sampleCmd->SetGuidance("select a diferent ma
64 sampleCmd->SetParameterName("material",true)
65 sampleCmd->SetDefaultValue("mars1");
66 sampleCmd->SetCandidates("Dolorite Anorthosi
67 sampleCmd->AvailableForStates(G4State_Idle);
68
69 detectorCmd = new G4UIcmdWithAString("/appar
70 detectorCmd->SetGuidance("select a diferent
71 detectorCmd->SetParameterName("detector",tru
72 detectorCmd->SetDefaultValue("sili");
73 detectorCmd->SetCandidates("sili hpge");
74 detectorCmd->AvailableForStates(G4State_Idle
75
76 grainDiaCmd = new G4UIcmdWithADoubleAndUnit(
77 grainDiaCmd->SetGuidance( "Set diameter of g
78 grainDiaCmd->SetGuidance( "After this, /appa
79 grainDiaCmd->SetGuidance( "Default: 0.5 mm "
80 grainDiaCmd->SetParameterName( "Grain Diamet
81 grainDiaCmd->SetDefaultUnit( "mm" );
82 grainDiaCmd->SetUnitCategory( "Length" );
83 grainDiaCmd->AvailableForStates(G4State_Idle
84
85 granularityFlagCmd= new G4UIcmdWithABool("/a
86 granularityFlagCmd->SetGuidance("Set if samp
87 granularityFlagCmd->SetGuidance( "After this
88 granularityFlagCmd->SetParameterName("Granul
89 granularityFlagCmd->SetDefaultValue(false);
90 granularityFlagCmd->AvailableForStates(G4Sta
91
92 }
93
94 //....oooOO0OOooo........oooOO0OOooo........oo
95
96 XrayFluoPlaneDetectorMessenger::~XrayFluoPlan
97 {
98 delete UpdateCmd;
99 delete detDir;
100 }
101
102 //....oooOO0OOooo........oooOO0OOooo........oo
103
104 void XrayFluoPlaneDetectorMessenger::SetNewVal
105 {
106 if( command == UpdateCmd )
107 {
108 //This triggers a full re-build of the ge
109 //geometry will take care of that.
110 Detector->UpdateGeometry();
111 return;
112 }
113 else if ( command == sampleCmd )
114 {
115 Detector->SetPlaneMaterial(newValue);
116 }
117 else if ( command == detectorCmd )
118 {
119 Detector->SetDetectorType(newValue);
120 }
121 else if ( command == grainDiaCmd )
122 {
123 G4double newSize = grainDiaCmd->GetNewDou
124 Detector->SetGrainDia(newSize);
125 }
126 else if ( command == granularityFlagCmd )
127 {
128 Detector->DeleteGrainObjects();
129 G4bool newGranFlag = granularityFlagCmd->
130 Detector->SetPlaneGranularity(newGranFlag
131 }
132 //Notify the run manager that the geometry ha
133 G4RunManager::GetRunManager()->GeometryHasBee
134
135 }
136
137
138 //....oooOO0OOooo........oooOO0OOooo........oo
139
140
141
142
143
144
145
146
147
148