50 SetPhotonDetGeometryCmd =
52 SetPhotonDetGeometryCmd->
53 SetGuidance(
"Select the geometry of the PhotonDet detector");
54 SetPhotonDetGeometryCmd->
SetGuidance(
"Only Accepts 'Circle' and 'Square'");
60 SetNumOfCladLayersCmd->
SetGuidance(
"Select the number of cladding layers");
61 SetNumOfCladLayersCmd->
SetGuidance(
"Maximum number is 2");
63 SetNumOfCladLayersCmd->
SetRange(
"numberOfLayers>=0 && numberOfLayers<=2");
67 SetSurfaceRoughnessCmd =
69 SetSurfaceRoughnessCmd->
70 SetGuidance(
"Set the roughness between Clad1 and WLS Fiber");
72 SetSurfaceRoughnessCmd->
SetRange(
"roughness>0 && roughness<=1");
77 SetXYRatioCmd->
SetGuidance(
"Set the ratio between x and y axis (x/y)");
79 SetXYRatioCmd->
SetRange(
"ratio>0 && ratio<=1");
84 SetMirrorPolishCmd->
SetGuidance(
"Set the polish of the mirror");
86 SetMirrorPolishCmd->
SetRange(
"polish>0 && polish<=1");
90 SetMirrorReflectivityCmd =
92 SetMirrorReflectivityCmd->
SetGuidance(
"Set the reflectivity of the mirror");
94 SetMirrorReflectivityCmd->
SetRange(
"reflectivity>=0 && reflectivity<=1");
98 SetPhotonDetPolishCmd =
100 SetPhotonDetPolishCmd->
SetGuidance(
"Set the polish of the mirror");
102 SetPhotonDetPolishCmd->
SetRange(
"polish>0 && polish<=1");
106 SetPhotonDetReflectivityCmd =
108 SetPhotonDetReflectivityCmd->
109 SetGuidance(
"Set the reflectivity of the mirror");
111 SetPhotonDetReflectivityCmd->
SetRange(
"reflectivity>=0 && reflectivity<=1");
116 SetWLSLengthCmd->
SetGuidance(
"Set the half length of the WLS fiber");
118 SetWLSLengthCmd->
SetRange(
"length>0.");
125 SetWLSRadiusCmd->
SetGuidance(
"Set the radius of the WLS fiber");
127 SetWLSRadiusCmd->
SetRange(
"radius>0.");
134 SetClad1RadiusCmd->
SetGuidance(
"Set the radius of Cladding 1");
136 SetClad1RadiusCmd->
SetRange(
"radius>0.");
143 SetClad2RadiusCmd->
SetGuidance(
"Set the radius of Cladding 2");
145 SetClad2RadiusCmd->
SetRange(
"radius>0.");
151 SetPhotonDetHalfLengthCmd =
153 SetPhotonDetHalfLengthCmd->
154 SetGuidance(
"Set the half length of PhotonDet detector");
156 SetPhotonDetHalfLengthCmd->
SetRange(
"halfL>0.");
163 SetGapCmd->
SetGuidance(
"Set the distance between PhotonDet and fiber end");
171 SetPhotonDetAlignmentCmd =
173 SetPhotonDetAlignmentCmd->
174 SetGuidance(
"Set the deviation of PhotonDet from z axis");
178 SetPhotonDetAlignmentCmd->
SetRange(
"theta>-90. && theta<90.");
183 SetMirrorCmd->
SetGuidance(
"Place a mirror at the end of the fiber");
188 SetBarLengthCmd->
SetGuidance(
"Set the length of the scintillator bar");
190 SetBarLengthCmd->
SetRange(
"length>0.");
197 SetBarBaseCmd->
SetGuidance(
"Set the side length of the scintillator bar");
199 SetBarBaseCmd->
SetRange(
"length>0.");
206 SetHoleRadiusCmd->
SetGuidance(
"Set the radius of the fiber hole");
208 SetHoleRadiusCmd->
SetRange(
"radius>0.");
214 SetCoatingThicknessCmd =
216 SetCoatingThicknessCmd->
217 SetGuidance(
"Set thickness of the coating on the bars");
221 SetCoatingThicknessCmd->
SetRange(
"thick>=0.");
225 SetCoatingRadiusCmd =
227 SetCoatingRadiusCmd->
228 SetGuidance(
"Set inner radius of the corner bar coating");
232 SetCoatingRadiusCmd->
SetRange(
"cradius>=0.");
243 delete SetPhotonDetGeometryCmd;
244 delete SetNumOfCladLayersCmd;
245 delete SetWLSLengthCmd;
246 delete SetWLSRadiusCmd;
247 delete SetClad1RadiusCmd;
248 delete SetClad2RadiusCmd;
249 delete SetPhotonDetHalfLengthCmd;
251 delete SetPhotonDetAlignmentCmd;
252 delete SetSurfaceRoughnessCmd;
253 delete SetMirrorPolishCmd;
254 delete SetMirrorReflectivityCmd;
255 delete SetXYRatioCmd;
257 delete SetBarLengthCmd;
258 delete SetBarBaseCmd;
259 delete SetHoleRadiusCmd;
260 delete SetCoatingThicknessCmd;
261 delete SetCoatingRadiusCmd;
268 if( command == SetPhotonDetGeometryCmd ) {
272 else if( command == SetNumOfCladLayersCmd ) {
276 else if( command == SetSurfaceRoughnessCmd ) {
280 else if( command == SetXYRatioCmd ) {
284 else if( command == SetMirrorPolishCmd ) {
288 else if( command == SetMirrorReflectivityCmd ) {
293 else if( command == SetPhotonDetPolishCmd ) {
297 else if( command == SetPhotonDetReflectivityCmd ) {
302 else if( command == SetWLSLengthCmd ) {
306 else if( command == SetWLSRadiusCmd ) {
310 else if( command == SetClad1RadiusCmd ) {
315 else if( command == SetClad2RadiusCmd ) {
320 else if( command == SetPhotonDetHalfLengthCmd ) {
325 else if( command == SetGapCmd ) {
329 else if( command == SetPhotonDetAlignmentCmd ) {
334 else if( command == SetMirrorCmd ) {
338 else if( command == SetBarLengthCmd ) {
342 else if( command == SetBarBaseCmd ) {
346 else if( command == SetHoleRadiusCmd ) {
350 else if( command == SetCoatingThicknessCmd ) {
354 else if( command == SetCoatingRadiusCmd ) {
void SetPhotonDetPolish(G4double)
void SetNumberOfCladding(G4int)
void SetBarLength(G4double)
virtual void SetNewValue(G4UIcommand *, G4String)
void SetParameterName(const char *theName, G4bool omittable, G4bool currentAsDefault=false)
static G4int GetNewIntValue(const char *paramString)
void SetXYRatio(G4double)
WLSDetectorMessenger(WLSDetectorConstruction *)
void SetToBeBroadcasted(G4bool val)
void SetWLSLength(G4double)
void SetMirrorPolish(G4double)
void SetUnitCategory(const char *unitCategory)
static G4double GetNewDoubleValue(const char *paramString)
static G4bool GetNewBoolValue(const char *paramString)
virtual ~WLSDetectorMessenger()
void SetCoatingRadius(G4double)
void SetCoatingThickness(G4double)
static G4double GetNewDoubleValue(const char *paramString)
void SetRange(const char *rs)
void SetGuidance(const char *aGuidance)
void SetBarBase(G4double)
void AvailableForStates(G4ApplicationState s1)
void SetHoleRadius(G4double)
void SetParameterName(const char *theName, G4bool omittable, G4bool currentAsDefault=false)
void SetDefaultUnit(const char *defUnit)
void SetPhotonDetGeometry(G4String)
void SetCandidates(const char *candidateList)
void SetWLSRadius(G4double)
Definition of the WLSDetectorMessenger class.
void SetParameterName(const char *theName, G4bool omittable, G4bool currentAsDefault=false)
void SetSurfaceRoughness(G4double)