| 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 // 18 Sep 2003 Alfonso Mantero created
34 //
35 // -------------------------------------------
36
37
38 #include "XrayFluoMercuryDetectorMessenger.hh"
39 #include "XrayFluoMercuryDetectorConstruction.
40 #include "G4UIdirectory.hh"
41 #include "G4UIcmdWithAString.hh"
42 #include "G4UIcmdWithADoubleAndUnit.hh"
43 #include "G4UIcmdWithoutParameter.hh"
44 #include "G4UIcmdWithABool.hh"
45 #include "G4RunManager.hh"
46
47 //....oooOO0OOooo........oooOO0OOooo........oo
48
49 XrayFluoMercuryDetectorMessenger::XrayFluoMerc
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 latitudeAngleCmd = new G4UIcmdWithADoubleAnd
77 latitudeAngleCmd->SetGuidance( "Set latitude
78 latitudeAngleCmd->SetGuidance( "After this,
79 latitudeAngleCmd->SetGuidance( "Default: 45
80 latitudeAngleCmd->SetParameterName( "Latitud
81 latitudeAngleCmd->SetDefaultUnit( "deg" );
82 latitudeAngleCmd->SetUnitCategory( "Angle" )
83 latitudeAngleCmd->AvailableForStates(G4State
84
85 orbitHeightCmd = new G4UIcmdWithADoubleAndUn
86 orbitHeightCmd->SetGuidance( "Set height of
87 orbitHeightCmd->SetGuidance( "After this, /a
88 orbitHeightCmd->SetGuidance( "Default: 400 k
89 orbitHeightCmd->SetParameterName( "Spacecraf
90 orbitHeightCmd->SetDefaultUnit( "km" );
91 orbitHeightCmd->SetUnitCategory( "Length" );
92 orbitHeightCmd->AvailableForStates(G4State_I
93 }
94
95 //....oooOO0OOooo........oooOO0OOooo........oo
96
97 XrayFluoMercuryDetectorMessenger::~XrayFluoMe
98 {
99 delete UpdateCmd;
100 delete detDir;
101 }
102
103 //....oooOO0OOooo........oooOO0OOooo........oo
104
105 void XrayFluoMercuryDetectorMessenger::SetNewV
106 {
107 if( command == UpdateCmd )
108 {
109 //This triggers a full re-build of the ge
110 //geometry will take care of that.
111 Detector->UpdateGeometry();
112 return;
113 }
114 else if ( command == sampleCmd )
115 { Detector->SetMercuryMaterial(newValue);}
116
117 else if ( command == detectorCmd )
118 { Detector->SetDetectorType(newValue);}
119
120 else if ( command == latitudeAngleCmd )
121 {
122 G4double newAngle = latitudeAngleCmd->Get
123 Detector->SetLatitude(newAngle);
124 }
125
126 else if ( command == orbitHeightCmd )
127 {
128 G4double newAngle = orbitHeightCmd->GetNe
129 Detector->SetOribitHeight(newAngle);
130 }
131 //Notify the run manager that the geometry ha
132 G4RunManager::GetRunManager()->GeometryHasBee
133
134 }
135
136
137 //....oooOO0OOooo........oooOO0OOooo........oo
138
139
140
141
142
143
144
145
146
147