| 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 // Hadrontherapy advanced example for Geant4
27 // See more at: https://twiki.cern.ch/twiki/bi
28
29
30 #include "HadrontherapyTIFPAPassiveProtonBeamL
31 #include "HadrontherapyTIFPAPassiveProtonBeamL
32 #include "G4UIdirectory.hh"
33 #include "G4UIcmdWithADoubleAndUnit.hh"
34 #include "G4UIcmdWithAString.hh"
35 #include "G4SystemOfUnits.hh"
36
37 TrentoPassiveProtonBeamLineMessenger::Trent
38 :TrentoPassiveProton(TrentoLine)
39
40 {
41 changeTheBeamLineDir = new G4UIdirectory("
42 changeTheBeamLineDir -> SetGuidance("Comma
43
44 changeTheBeamLineNameCmd = new G4UIcmdWith
45 changeTheBeamLineNameCmd -> SetGuidance("I
46 changeTheBeamLineNameCmd -> SetParameterNa
47 changeTheBeamLineNameCmd -> AvailableForSt
48
49 modulatorDir = new G4UIdirectory("/modulat
50 modulatorDir -> SetGuidance("Command to ro
51
52 beamLineDir = new G4UIdirectory("/beamLine
53 beamLineDir -> SetGuidance("set specificat
54
55 ScatteringFoilXSizeCmd = new G4UIcmdWithAD
56 ScatteringFoilXSizeCmd -> SetGuidance("Set
57 ScatteringFoilXSizeCmd -> SetParameterName
58 ScatteringFoilXSizeCmd -> SetDefaultUnit("
59 ScatteringFoilXSizeCmd -> SetUnitCandidate
60 ScatteringFoilXSizeCmd -> AvailableForStat
61
62 scatteringFoilMatCmd = new G4UIcmdWithAStr
63 scatteringFoilMatCmd -> SetGuidance("Set m
64 scatteringFoilMatCmd -> SetParameterName("
65 scatteringFoilMatCmd -> AvailableForStates
66
67 preCollimatorXSizeCmd = new G4UIcmdWithADo
68 preCollimatorXSizeCmd -> SetGuidance("Set
69 preCollimatorXSizeCmd -> SetParameterName(
70 preCollimatorXSizeCmd -> SetDefaultUnit("m
71 preCollimatorXSizeCmd -> SetUnitCandidates
72 preCollimatorXSizeCmd -> AvailableForState
73
74 preCollimatorXPositionCmd = new G4UIcmdWit
75 preCollimatorXPositionCmd -> SetGuidance("
76 preCollimatorXPositionCmd -> SetParameterN
77 preCollimatorXPositionCmd -> SetDefaultUni
78 preCollimatorXPositionCmd -> SetUnitCandid
79 preCollimatorXPositionCmd -> AvailableForS
80
81 AirTubeYSizeCmd = new G4UIcmdWithADoubleAn
82 AirTubeYSizeCmd -> SetGuidance("Set of pre
83 AirTubeYSizeCmd -> SetParameterName("Radiu
84 AirTubeYSizeCmd -> SetDefaultUnit("mm");
85 AirTubeYSizeCmd -> SetUnitCandidates("mm c
86 AirTubeYSizeCmd -> AvailableForStates(G4St
87
88
89 AirTubeZSizeCmd = new G4UIcmdWithADoubleAn
90 AirTubeZSizeCmd -> SetGuidance("Set the in
91 AirTubeZSizeCmd -> SetParameterName("Radiu
92 AirTubeZSizeCmd -> SetDefaultUnit("mm");
93 AirTubeZSizeCmd -> SetUnitCandidates("mm c
94 AirTubeZSizeCmd -> AvailableForStates(G4St
95
96 }
97
98 TrentoPassiveProtonBeamLineMessenger::~TrentoP
99 {
100 delete AirTubeZSizeCmd;
101 delete AirTubeYSizeCmd;
102 delete ScatteringFoilXSizeCmd;
103 delete scatteringFoilMatCmd;
104 delete preCollimatorXSizeCmd;
105 delete beamLineDir;
106 delete modulatorDir;
107 }
108
109
110
111
112 void TrentoPassiveProtonBeamLineMessenger::Set
113 {
114 if( command == ScatteringFoilXSizeCmd )
115 {TrentoPassiveProton -> SetScatteringFoilX
116 (ScatteringFoilXSizeCmd -> GetNewDoubleValue
117
118 else if( command == scatteringFoilMatCmd
119 { TrentoPassiveProton -> SetScattererMater
120
121 else if( command == preCollimatorXSizeCmd
122 { TrentoPassiveProton -> SetPreCollimatorX
123 (preCollimatorXSizeCmd -> GetNewDoubleValue(
124
125 else if( command == preCollimatorXPosition
126 { TrentoPassiveProton -> SetPreCollimatorX
127 (preCollimatorXPositionCmd -> GetNewDoubleVa
128
129 else if( command == AirTubeYSizeCmd )
130 { TrentoPassiveProton -> SetAirTubeYSize
131 (AirTubeYSizeCmd -> GetNewDoubleValue(newVal
132
133 else if( command == AirTubeZSizeCmd )
134 { TrentoPassiveProton -> SetAirTubeZSize
135 (AirTubeZSizeCmd -> GetNewDoubleValue(newVal
136
137 }
138
139