| 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: Elena Guardincerri (Elena.Guardince
29 //
30 // History:
31 // -----------
32 // 28 Nov 2001 Elena Guardincerri Created
33 //
34 // -------------------------------------------
35
36 #include "XrayFluoPrimaryGeneratorMessenger.hh
37 #include "XrayFluoPrimaryGeneratorAction.hh"
38 #include "G4UIcmdWithAString.hh"
39 #include "G4UIcmdWithABool.hh"
40
41 //....oooOO0OOooo........oooOO0OOooo........oo
42
43 XrayFluoPrimaryGeneratorMessenger::XrayFluoPri
44 :XrayFluoAction(XrayFluoGun)
45 {
46 RndmCmd = new G4UIcmdWithAString("/gun/rando
47 RndmCmd->SetGuidance("Shoot randomly the inc
48 RndmCmd->SetGuidance(" Choice : on(default)
49 RndmCmd->SetParameterName("choice",true);
50 RndmCmd->SetDefaultValue("on");
51 RndmCmd->SetCandidates("on off");
52 RndmCmd->AvailableForStates(G4State_PreInit,
53
54 RndmVert = new G4UIcmdWithAString("/gun/rand
55 RndmVert->SetGuidance("Shoot randomly the in
56 RndmVert->SetGuidance(" Choice : on(default
57 RndmVert->SetParameterName("choice",true);
58 RndmVert->SetDefaultValue("on");
59 RndmVert->SetCandidates("on off");
60 RndmVert->AvailableForStates(G4State_PreInit
61
62 spectrum = new G4UIcmdWithAString("/gun/spec
63 spectrum->SetGuidance("Shoot the incident pa
64 spectrum->SetGuidance(" Choice : on(default
65 spectrum->SetParameterName("choice",true);
66 spectrum->SetDefaultValue("on");
67 spectrum->SetCandidates("on off");
68 spectrum->AvailableForStates(G4State_PreInit
69
70 isoVert = new G4UIcmdWithAString("/gun/isoVe
71 isoVert->SetGuidance("Shoot the incident par
72 isoVert->SetGuidance(" Choice : on(default)
73 isoVert->SetParameterName("choice",true);
74 isoVert->SetDefaultValue("on");
75 isoVert->SetCandidates("on off");
76 isoVert->AvailableForStates(G4State_PreInit,
77
78 loadPahseSpace=new G4UIcmdWithAString("/gun/
79 loadPahseSpace->SetGuidance("Load emission f
80 loadPahseSpace->SetGuidance("Please enter th
81 loadPahseSpace->SetParameterName("choice",tr
82 loadPahseSpace->AvailableForStates(G4State_I
83
84 loadRayleighData=new G4UIcmdWithABool("/gun/
85 loadRayleighData->SetGuidance("Select if dat
86 loadRayleighData->SetGuidance("To be used be
87 loadRayleighData->SetParameterName("Rayleigh
88 loadRayleighData->SetDefaultValue(true);
89 loadRayleighData->AvailableForStates(G4State
90
91 G4cout << "XrayFluoPrimaryGeneratorMessenger
92
93 }
94
95 //....oooOO0OOooo........oooOO0OOooo........oo
96
97 XrayFluoPrimaryGeneratorMessenger::~XrayFluoPr
98 {
99 delete RndmCmd;
100 delete RndmVert;
101 delete spectrum;
102 delete isoVert;
103 delete loadPahseSpace;
104 delete loadRayleighData;
105 G4cout << "XrayFluoPrimaryGeneratorMessenger
106
107 }
108
109 //....oooOO0OOooo........oooOO0OOooo........oo
110
111 void XrayFluoPrimaryGeneratorMessenger::SetNew
112 {
113 if( command == RndmCmd )
114 { XrayFluoAction->SetRndmFlag(newValue);}
115 if( command == RndmVert )
116 { XrayFluoAction->SetRndmVert(newValue);}
117 if( command == spectrum )
118 { XrayFluoAction->SetSpectrum(newValue);}
119 if( command == isoVert )
120 { XrayFluoAction->SetIsoVert(newValue);}
121 if( command == loadPahseSpace )
122 { XrayFluoAction->ActivatePhaseSpace(newVal
123 if( command == loadRayleighData )
124 {
125 G4cout << "newValue: " << newValue << G4e
126
127 G4bool newRayFlag = loadRayleighData->Get
128 XrayFluoAction->SetRayleighFlag(newRayFla
129 }
130 }
131
132 //....oooOO0OOooo........oooOO0OOooo........oo
133
134