Import Geant4 1.1.0 source tree

2016-06-08 15:34:16 +02:00
parent ca1c8cb059
commit 103bda00c8
2654 changed files with 29719 additions and 20203 deletions
@@ -0,0 +1,143 @@
+// This code implementation is the intellectual property of
+// the RD44 GEANT4 collaboration.
+//
+// By copying, distributing or modifying the Program (or any work
+// based on the Program) you indicate your acceptance of this statement,
+// and all its terms.
+//
+// $Id: Em8DetectorMessenger.cc,v 1.1 2000/01/07 14:50:44 grichine Exp $
+// GEANT4 tag $Name: geant4-01-01 $
+//
+// 
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+#include "Em8DetectorMessenger.hh"
+
+#include "Em8DetectorConstruction.hh"
+#include "G4UIdirectory.hh"
+#include "G4UIcmdWithAString.hh"
+#include "G4UIcmdWithAnInteger.hh"
+#include "G4UIcmdWithADoubleAndUnit.hh"
+#include "G4UIcmdWithoutParameter.hh"
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+Em8DetectorMessenger::Em8DetectorMessenger(Em8DetectorConstruction * Em8Det)
+:Em8Detector(Em8Det)
+{ 
+  Em8detDir = new G4UIdirectory("/calor/");
+  Em8detDir->SetGuidance("Em8 detector control.");
+      
+  AbsMaterCmd = new G4UIcmdWithAString("/calor/setAbsMat",this);
+  AbsMaterCmd->SetGuidance("Select Material of the Absorber.");
+  AbsMaterCmd->SetParameterName("choice",true);
+  AbsMaterCmd->SetDefaultValue("Lead");
+  AbsMaterCmd->AvailableForStates(Idle);
+  
+  WorldMaterCmd = new G4UIcmdWithAString("/calor/setWorldMat",this);
+  WorldMaterCmd->SetGuidance("Select Material of the World.");
+  WorldMaterCmd->SetParameterName("wchoice",true);
+  WorldMaterCmd->SetDefaultValue("Air");
+  WorldMaterCmd->AvailableForStates(Idle);
+  
+  AbsThickCmd = new G4UIcmdWithADoubleAndUnit("/calor/setAbsThick",this);
+  AbsThickCmd->SetGuidance("Set Thickness of the Absorber");
+  AbsThickCmd->SetParameterName("SizeZ",false,false);
+  AbsThickCmd->SetDefaultUnit("mm");
+  AbsThickCmd->SetRange("SizeZ>0.");
+  AbsThickCmd->AvailableForStates(Idle);
+  
+  AbsRadCmd = new G4UIcmdWithADoubleAndUnit("/calor/setAbsRad",this);
+  AbsRadCmd->SetGuidance("Set radius of the Absorber");
+  AbsRadCmd->SetParameterName("SizeR",false,false);
+  AbsRadCmd->SetDefaultUnit("mm");
+  AbsRadCmd->SetRange("SizeR>0.");
+  AbsRadCmd->AvailableForStates(Idle);
+  
+  AbsZposCmd = new G4UIcmdWithADoubleAndUnit("/calor/setAbsZpos",this);
+  AbsZposCmd->SetGuidance("Set Z pos. of the Absorber");
+  AbsZposCmd->SetParameterName("Zpos",false,false);
+  AbsZposCmd->SetDefaultUnit("mm");
+  AbsZposCmd->AvailableForStates(Idle);
+  
+  WorldZCmd = new G4UIcmdWithADoubleAndUnit("/calor/setWorldZ",this);
+  WorldZCmd->SetGuidance("Set Z size of the World");
+  WorldZCmd->SetParameterName("WSizeZ",false,false);
+  WorldZCmd->SetDefaultUnit("mm");
+  WorldZCmd->SetRange("WSizeZ>0.");
+  WorldZCmd->AvailableForStates(Idle);
+  
+  WorldRCmd = new G4UIcmdWithADoubleAndUnit("/calor/setWorldR",this);
+  WorldRCmd->SetGuidance("Set R size of the World");
+  WorldRCmd->SetParameterName("WSizeR",false,false);
+  WorldRCmd->SetDefaultUnit("mm");
+  WorldRCmd->SetRange("WSizeR>0.");
+  WorldRCmd->AvailableForStates(Idle);
+  
+  UpdateCmd = new G4UIcmdWithoutParameter("/calor/update",this);
+  UpdateCmd->SetGuidance("Update calorimeter geometry.");
+  UpdateCmd->SetGuidance("This command MUST be applied before \"beamOn\" ");
+  UpdateCmd->SetGuidance("if you changed geometrical value(s).");
+  UpdateCmd->AvailableForStates(Idle);
+      
+  MagFieldCmd = new G4UIcmdWithADoubleAndUnit("/calor/setField",this);  
+  MagFieldCmd->SetGuidance("Define magnetic field.");
+  MagFieldCmd->SetGuidance("Magnetic field will be in Z direction.");
+  MagFieldCmd->SetParameterName("Bz",false,false);
+  MagFieldCmd->SetDefaultUnit("tesla");
+  MagFieldCmd->AvailableForStates(Idle);  
+
+}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+Em8DetectorMessenger::~Em8DetectorMessenger()
+{
+  delete AbsMaterCmd; 
+  delete AbsThickCmd; 
+  delete AbsRadCmd;  
+  delete AbsZposCmd; 
+  delete WorldMaterCmd;
+  delete WorldZCmd;
+  delete WorldRCmd;
+  delete UpdateCmd;
+  delete MagFieldCmd;
+  delete Em8detDir;
+}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+void Em8DetectorMessenger::SetNewValue(G4UIcommand* command,G4String newValue)
+{ 
+  if( command == AbsMaterCmd )
+   { Em8Detector->SetAbsorberMaterial(newValue);}
+   
+  if( command == WorldMaterCmd )
+   { Em8Detector->SetWorldMaterial(newValue);}
+   
+  if( command == AbsThickCmd )
+   { Em8Detector->SetAbsorberThickness(AbsThickCmd->GetNewDoubleValue(newValue));}
+   
+  if( command == AbsRadCmd )
+   { Em8Detector->SetAbsorberRadius(AbsRadCmd->GetNewDoubleValue(newValue));}
+   
+  if( command == AbsZposCmd )
+   { Em8Detector->SetAbsorberZpos(AbsZposCmd->GetNewDoubleValue(newValue));}
+   
+  if( command == WorldZCmd )
+   { Em8Detector->SetWorldSizeZ(WorldZCmd->GetNewDoubleValue(newValue));}
+   
+  if( command == WorldRCmd )
+   { Em8Detector->SetWorldSizeR(WorldRCmd->GetNewDoubleValue(newValue));}
+   
+  if( command == UpdateCmd )
+   { Em8Detector->UpdateGeometry(); }
+
+  if( command == MagFieldCmd )
+   { Em8Detector->SetMagField(MagFieldCmd->GetNewDoubleValue(newValue));}
+
+}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....