| 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 // This is the *BASIC* version of Hadrontherap
27 // See more at: http://g4advancedexamples.lngs
28 //
29 // Visit the Hadrontherapy web site (http://ww
30 // the *COMPLETE* version of this program, tog
31 // Hadrontherapy (both basic and full version)
32 // Institute in the framework of the MC-INFN G
33 //
34
35
36 #include "HadrontherapyModulatorMessenger.hh"
37 #include "HadrontherapyModulator.hh"
38 #include "G4UIdirectory.hh"
39 #include "G4UIcmdWithADoubleAndUnit.hh"
40 #include "G4UIcmdWithAString.hh"
41 #include "G4UIcmdWith3VectorAndUnit.hh"
42
43
44 HadrontherapyModulatorMessenger::Hadronthe
45 :Modulator(Mod)
46
47 {
48 modulatorDir = new G4UIdirectory("/modulat
49 modulatorDir -> SetGuidance("Command to ch
50
51 modulatorMatCmd = new G4UIcmdWithAString("
52 modulatorMatCmd -> SetGuidance("Set materi
53 modulatorMatCmd -> SetParameterName("Mater
54 modulatorMatCmd -> AvailableForStates(G4St
55
56 modulatorExternalFile=new G4UIcmdWithAStri
57 modulatorExternalFile -> SetGuidance("set
58 modulatorExternalFile -> SetParameterName(
59 modulatorExternalFile -> SetDefaultValue (
60 modulatorExternalFile -> AvailableForState
61
62 modulatorPositionCmd = new G4UIcmdWith3Vec
63 modulatorPositionCmd -> SetGuidance("Set p
64 modulatorPositionCmd -> SetParameterName("
65 "PositionAlongY",
66 "PositionAlongZ",false);
67 modulatorPositionCmd -> SetDefaultUnit("mm
68 modulatorPositionCmd -> SetUnitCandidates(
69 modulatorPositionCmd -> AvailableForStates
70
71
72 modulatorOuterRadiusCmd = new G4UIcmdWithA
73 modulatorOuterRadiusCmd -> SetGuidance("Se
74 modulatorOuterRadiusCmd-> SetParameterName
75 modulatorOuterRadiusCmd -> SetDefaultUnit(
76 modulatorOuterRadiusCmd-> SetUnitCandidate
77 modulatorOuterRadiusCmd-> AvailableForStat
78
79 modulatorInnerRadiusCmd = new G4UIcmdWithA
80 modulatorInnerRadiusCmd -> SetGuidance("Se
81 modulatorInnerRadiusCmd-> SetParameterName
82 modulatorInnerRadiusCmd -> SetDefaultUnit(
83 modulatorInnerRadiusCmd-> SetUnitCandidate
84 modulatorInnerRadiusCmd-> AvailableForStat
85
86 modulatorAngleCmd = new G4UIcmdWithADouble
87 modulatorAngleCmd -> SetGuidance("Set Modu
88 modulatorAngleCmd -> SetParameterName("Siz
89 modulatorAngleCmd -> SetRange("Size>=0.");
90 modulatorAngleCmd -> SetUnitCategory("Angl
91 modulatorAngleCmd -> AvailableForStates(G4
92 }
93
94 HadrontherapyModulatorMessenger::~ Hadronther
95 {
96 delete modulatorAngleCmd;
97 delete modulatorMatCmd;
98 delete modulatorPositionCmd;
99 delete modulatorInnerRadiusCmd;
100 delete modulatorOuterRadiusCmd;
101 delete modulatorDir;
102 }
103
104
105
106
107 void HadrontherapyModulatorMessenger::SetNewV
108 {
109 if( command == modulatorAngleCmd )
110 {Modulator -> SetModulatorAngle
111 (modulatorAngleCmd -> GetNewDoubleValue(new
112
113 else if( command == modulatorMatCmd )
114 {Modulator -> SetModulatorMaterial(newValue
115
116 else if (command== modulatorExternalFile)
117 {Modulator->GetDataFromFile(newValue);}
118
119 else if( command == modulatorPositionCmd )
120 { G4ThreeVector size = modulatorPositionCm
121 Modulator -> SetModulatorPosition(size);}
122
123 else if( command == modulatorOuterRadiusCmd
124 { Modulator -> SetModulatorOuterRadius(
125 modulatorOuterRadiusCmd -> GetNewDoubleValue
126
127 else if( command == modulatorInnerRadiusCm
128 { Modulator -> SetModulatorInnerRadius(
129 modulatorInnerRadiusCmd -> GetNewDoubleValu
130 }
131
132