source: trunk/source/geometry/magneticfield/test/field02/src/F02DetectorMessenger.cc @ 1347

Last change on this file since 1347 was 1347, checked in by garnier, 13 years ago

geant4 tag 9.4
File size: 6.5 KB
Line 
1//
2// ********************************************************************
3// * License and Disclaimer                                           *
4// *                                                                  *
5// * The  Geant4 software  is  copyright of the Copyright Holders  of *
6// * the Geant4 Collaboration.  It is provided  under  the terms  and *
7// * conditions of the Geant4 Software License,  included in the file *
8// * LICENSE and available at  http://cern.ch/geant4/license .  These *
9// * include a list of copyright holders.                             *
10// *                                                                  *
11// * Neither the authors of this software system, nor their employing *
12// * institutes,nor the agencies providing financial support for this *
13// * work  make  any representation or  warranty, express or implied, *
14// * regarding  this  software system or assume any liability for its *
15// * use.  Please see the license in the file  LICENSE  and URL above *
16// * for the full disclaimer and the limitation of liability.         *
17// *                                                                  *
18// * This  code  implementation is the result of  the  scientific and *
19// * technical work of the GEANT4 collaboration.                      *
20// * By using,  copying,  modifying or  distributing the software (or *
21// * any work based  on the software)  you  agree  to acknowledge its *
22// * use  in  resulting  scientific  publications,  and indicate your *
23// * acceptance of all terms of the Geant4 Software license.          *
24// ********************************************************************
25//
26//
27// $Id: F02DetectorMessenger.cc,v 1.3 2006/06/29 18:27:51 gunter Exp $
28// GEANT4 tag $Name: geant4-09-04-ref-00 $
29//
30//
31
32//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
33//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
34
35#include "F02DetectorMessenger.hh"
36
37#include "F02DetectorConstruction.hh"
38#include "G4UIdirectory.hh"
39#include "G4UIcmdWithAString.hh"
40#include "G4UIcmdWithAnInteger.hh"
41#include "G4UIcmdWithADoubleAndUnit.hh"
42#include "G4UIcmdWithoutParameter.hh"
43
44//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
45
46F02DetectorMessenger::F02DetectorMessenger(F02DetectorConstruction * F02Det)
47:F02Detector(F02Det)
48{ 
49  F02detDir = new G4UIdirectory("/calor/");
50  F02detDir->SetGuidance("F02 detector control.");
51     
52  AbsMaterCmd = new G4UIcmdWithAString("/calor/setAbsMat",this);
53  AbsMaterCmd->SetGuidance("Select Material of the Absorber.");
54  AbsMaterCmd->SetParameterName("choice",true);
55  AbsMaterCmd->SetDefaultValue("Lead");
56  AbsMaterCmd->AvailableForStates(G4State_Idle);
57 
58  WorldMaterCmd = new G4UIcmdWithAString("/calor/setWorldMat",this);
59  WorldMaterCmd->SetGuidance("Select Material of the World.");
60  WorldMaterCmd->SetParameterName("wchoice",true);
61  WorldMaterCmd->SetDefaultValue("Air");
62  WorldMaterCmd->AvailableForStates(G4State_Idle);
63 
64  AbsThickCmd = new G4UIcmdWithADoubleAndUnit("/calor/setAbsThick",this);
65  AbsThickCmd->SetGuidance("Set Thickness of the Absorber");
66  AbsThickCmd->SetParameterName("SizeZ",false,false);
67  AbsThickCmd->SetDefaultUnit("mm");
68  AbsThickCmd->SetRange("SizeZ>0.");
69  AbsThickCmd->AvailableForStates(G4State_Idle);
70 
71  AbsRadCmd = new G4UIcmdWithADoubleAndUnit("/calor/setAbsRad",this);
72  AbsRadCmd->SetGuidance("Set radius of the Absorber");
73  AbsRadCmd->SetParameterName("SizeR",false,false);
74  AbsRadCmd->SetDefaultUnit("mm");
75  AbsRadCmd->SetRange("SizeR>0.");
76  AbsRadCmd->AvailableForStates(G4State_Idle);
77 
78  AbsZposCmd = new G4UIcmdWithADoubleAndUnit("/calor/setAbsZpos",this);
79  AbsZposCmd->SetGuidance("Set Z pos. of the Absorber");
80  AbsZposCmd->SetParameterName("Zpos",false,false);
81  AbsZposCmd->SetDefaultUnit("mm");
82  AbsZposCmd->AvailableForStates(G4State_Idle);
83 
84  WorldZCmd = new G4UIcmdWithADoubleAndUnit("/calor/setWorldZ",this);
85  WorldZCmd->SetGuidance("Set Z size of the World");
86  WorldZCmd->SetParameterName("WSizeZ",false,false);
87  WorldZCmd->SetDefaultUnit("mm");
88  WorldZCmd->SetRange("WSizeZ>0.");
89  WorldZCmd->AvailableForStates(G4State_Idle);
90 
91  WorldRCmd = new G4UIcmdWithADoubleAndUnit("/calor/setWorldR",this);
92  WorldRCmd->SetGuidance("Set R size of the World");
93  WorldRCmd->SetParameterName("WSizeR",false,false);
94  WorldRCmd->SetDefaultUnit("mm");
95  WorldRCmd->SetRange("WSizeR>0.");
96  WorldRCmd->AvailableForStates(G4State_Idle);
97 
98  UpdateCmd = new G4UIcmdWithoutParameter("/calor/update",this);
99  UpdateCmd->SetGuidance("Update calorimeter geometry.");
100  UpdateCmd->SetGuidance("This command MUST be applied before \"beamOn\" ");
101  UpdateCmd->SetGuidance("if you changed geometrical value(s).");
102  UpdateCmd->AvailableForStates(G4State_Idle);
103     
104  MagFieldCmd = new G4UIcmdWithADoubleAndUnit("/calor/setField",this); 
105  MagFieldCmd->SetGuidance("Define magnetic field.");
106  MagFieldCmd->SetGuidance("Magnetic field will be in Z direction.");
107  MagFieldCmd->SetParameterName("Bz",false,false);
108  MagFieldCmd->SetDefaultUnit("tesla");
109  MagFieldCmd->AvailableForStates(G4State_Idle); 
110
111}
112
113//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
114
115F02DetectorMessenger::~F02DetectorMessenger()
116{
117  delete AbsMaterCmd; 
118  delete AbsThickCmd; 
119  delete AbsRadCmd; 
120  delete AbsZposCmd; 
121  delete WorldMaterCmd;
122  delete WorldZCmd;
123  delete WorldRCmd;
124  delete UpdateCmd;
125  delete MagFieldCmd;
126  delete F02detDir;
127}
128
129//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
130
131void F02DetectorMessenger::SetNewValue(G4UIcommand* command,G4String newValue)
132{ 
133  if( command == AbsMaterCmd )
134   { F02Detector->SetAbsorberMaterial(newValue);}
135   
136  if( command == WorldMaterCmd )
137   { F02Detector->SetWorldMaterial(newValue);}
138   
139  if( command == AbsThickCmd )
140   { F02Detector->SetAbsorberThickness(AbsThickCmd->GetNewDoubleValue(newValue));}
141   
142  if( command == AbsRadCmd )
143   { F02Detector->SetAbsorberRadius(AbsRadCmd->GetNewDoubleValue(newValue));}
144   
145  if( command == AbsZposCmd )
146   { F02Detector->SetAbsorberZpos(AbsZposCmd->GetNewDoubleValue(newValue));}
147   
148  if( command == WorldZCmd )
149   { F02Detector->SetWorldSizeZ(WorldZCmd->GetNewDoubleValue(newValue));}
150   
151  if( command == WorldRCmd )
152   { F02Detector->SetWorldSizeR(WorldRCmd->GetNewDoubleValue(newValue));}
153   
154  if( command == UpdateCmd )
155   { F02Detector->UpdateGeometry(); }
156
157  if( command == MagFieldCmd )
158   { F02Detector->SetMagField(MagFieldCmd->GetNewDoubleValue(newValue));}
159
160}
161
162//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
Note: See TracBrowser for help on using the repository browser.