| 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 // 02 Sep 2003 Alfonso Mantero created
33 //
34 // -------------------------------------------
35
36 #include "XrayFluoPlanePrimaryGeneratorMesseng
37 #include "XrayFluoPlanePrimaryGeneratorAction.
38 #include "G4UIcmdWithAString.hh"
39
40 //....oooOO0OOooo........oooOO0OOooo........oo
41
42 XrayFluoPlanePrimaryGeneratorMessenger::XrayFl
43 :XrayFluoAction(XrayFluoGun)
44 {
45 RndmCmd = new G4UIcmdWithAString("/gun/rando
46 RndmCmd->SetGuidance("Shoot particles from a
47 RndmCmd->SetGuidance(" Choice : on(default)
48 RndmCmd->SetParameterName("choice",true);
49 RndmCmd->SetDefaultValue("on");
50 RndmCmd->SetCandidates("on off");
51 RndmCmd->AvailableForStates(G4State_PreInit,
52
53 RndmVert = new G4UIcmdWithAString("/gun/beam
54 RndmVert->SetGuidance("Creates a round beam
55 RndmVert->SetGuidance(" Choice : on(default
56 RndmVert->SetParameterName("choice",true);
57 RndmVert->SetDefaultValue("on");
58 RndmVert->SetCandidates("on off");
59 RndmVert->AvailableForStates(G4State_PreInit
60
61 spectrum = new G4UIcmdWithAString("/gun/spec
62 spectrum->SetGuidance("Shoot the incident pa
63 spectrum->SetGuidance(" Choice : on(default
64 spectrum->SetParameterName("choice",true);
65 spectrum->SetDefaultValue("on");
66 spectrum->SetCandidates("on off");
67 spectrum->AvailableForStates(G4State_PreInit
68
69 isoVert = new G4UIcmdWithAString("/gun/isoVe
70 isoVert->SetGuidance("Shoot the incident par
71 isoVert->SetGuidance(" Choice : on(default)
72 isoVert->SetParameterName("choice",true);
73 isoVert->SetDefaultValue("on");
74 isoVert->SetCandidates("on off");
75 isoVert->AvailableForStates(G4State_PreInit,
76
77 G4cout << "XrayFluoPlanePrimaryGeneratorMess
78
79 }
80
81 //....oooOO0OOooo........oooOO0OOooo........oo
82
83 XrayFluoPlanePrimaryGeneratorMessenger::~XrayF
84 {
85 delete RndmCmd;
86 delete RndmVert;
87 delete spectrum;
88 delete isoVert;
89
90 G4cout << "XrayFluoPlanePrimaryGeneratorMess
91
92 }
93
94 //....oooOO0OOooo........oooOO0OOooo........oo
95
96 void XrayFluoPlanePrimaryGeneratorMessenger::S
97 {
98 if( command == RndmCmd )
99 {
100 XrayFluoAction->SetRndmFlag(newValue);
101 XrayFluoAction->SetRndmVert("off");
102 XrayFluoAction->SetIsoVert("off");
103 }
104
105 if( command == RndmVert )
106 {
107 XrayFluoAction->SetRndmVert(newValue);
108 XrayFluoAction->SetIsoVert("off");
109 XrayFluoAction->SetRndmFlag("off");
110 }
111 if( command == spectrum )
112 { XrayFluoAction->SetSpectrum(newValue);}
113
114 if( command == isoVert )
115 {
116 XrayFluoAction->SetIsoVert(newValue);
117 XrayFluoAction->SetRndmFlag("off");
118 XrayFluoAction->SetRndmVert("off");
119 }
120 }
121
122 //....oooOO0OOooo........oooOO0OOooo........oo
123
124