Import Geant4 0.0.0 source tree

2016-06-01 15:25:35 +02:00
parent 54d6b71f95
commit b97f8d0df7
3237 changed files with 807095 additions and 0 deletions
@@ -0,0 +1,129 @@
+// 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: ExN03DetectorMessenger.cc,v 2.3 1998/10/09 15:53:49 japost Exp $
+// GEANT4 tag $Name: geant4-00 $
+//
+// 
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+#include "ExN03DetectorMessenger.hh"
+
+#include "ExN03DetectorConstruction.hh"
+#include "G4UIdirectory.hh"
+#include "G4UIcmdWithAString.hh"
+#include "G4UIcmdWithAnInteger.hh"
+#include "G4UIcmdWithADoubleAndUnit.hh"
+#include "G4UIcmdWithoutParameter.hh"
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+ExN03DetectorMessenger::ExN03DetectorMessenger(ExN03DetectorConstruction * ExN03Det)
+:ExN03Detector(ExN03Det)
+{ 
+  ExN03detDir = new G4UIdirectory("/calor/");
+  ExN03detDir->SetGuidance("ExN03 detector control.");
+      
+  AbsMaterCmd = new G4UIcmdWithAString("/calor/setAbsMat",this);
+  AbsMaterCmd->SetGuidance("Select Material of the Absorber.");
+  AbsMaterCmd->SetParameterName("choice",true);
+  AbsMaterCmd->SetCandidates("Water Aluminium Copper Lead ");  
+  AbsMaterCmd->SetDefaultValue("Lead");
+  AbsMaterCmd->AvailableForStates(Idle);
+  
+  GapMaterCmd = new G4UIcmdWithAString("/calor/setGapMat",this);
+  GapMaterCmd->SetGuidance("Select Material of the Gap.");
+  GapMaterCmd->SetParameterName("choice",true);
+  GapMaterCmd->SetCandidates("Galactic Air CarbonicGas Aerogel Scintillator liquidArgon");  
+  GapMaterCmd->SetDefaultValue("liquidArgon");
+  GapMaterCmd->AvailableForStates(Idle);
+    
+  AbsThickCmd = new G4UIcmdWithADoubleAndUnit("/calor/setAbsThick",this);
+  AbsThickCmd->SetGuidance("Set Thickness of the Absorber");
+  AbsThickCmd->SetParameterName("Size",false,false);
+  AbsThickCmd->SetDefaultUnit("mm");
+  AbsThickCmd->SetRange("Size>=0.");
+  AbsThickCmd->AvailableForStates(Idle);
+  
+  GapThickCmd = new G4UIcmdWithADoubleAndUnit("/calor/setGapThick",this);
+  GapThickCmd->SetGuidance("Set Thickness of the Gap");
+  GapThickCmd->SetParameterName("Size",false,false);
+  GapThickCmd->SetDefaultUnit("mm");
+  GapThickCmd->SetRange("Size>=0.");
+  GapThickCmd->AvailableForStates(Idle);
+  
+  SizeYZCmd = new G4UIcmdWithADoubleAndUnit("/calor/setSizeYZ",this);
+  SizeYZCmd->SetGuidance("Set tranverse size of the calorimeter");
+  SizeYZCmd->SetParameterName("Size",false,false);
+  SizeYZCmd->SetDefaultUnit("mm");
+  SizeYZCmd->SetRange("Size>0.");
+  SizeYZCmd->AvailableForStates(Idle);
+  
+  NbLayersCmd = new G4UIcmdWithAnInteger("/calor/setNbOfLayers",this);
+  NbLayersCmd->SetGuidance("Set number of layers.");
+  NbLayersCmd->SetParameterName("NbLayers",false);
+  NbLayersCmd->SetRange("NbLayers>0 && NbLayers<500");
+  NbLayersCmd->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....
+
+ExN03DetectorMessenger::~ExN03DetectorMessenger()
+{
+  delete NbLayersCmd;
+  delete AbsMaterCmd; delete GapMaterCmd;
+  delete AbsThickCmd; delete GapThickCmd;
+  delete SizeYZCmd;   delete UpdateCmd;
+  delete MagFieldCmd;
+  delete ExN03detDir;
+}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+void ExN03DetectorMessenger::SetNewValue(G4UIcommand* command,G4String newValue)
+{ 
+  if( command == AbsMaterCmd )
+   { ExN03Detector->SetAbsorberMaterial(newValue);}
+   
+  if( command == GapMaterCmd )
+   { ExN03Detector->SetGapMaterial(newValue);}
+  
+  if( command == AbsThickCmd )
+   { ExN03Detector->SetAbsorberThickness(AbsThickCmd->GetNewDoubleValue(newValue));}
+   
+  if( command == GapThickCmd )
+   { ExN03Detector->SetGapThickness(GapThickCmd->GetNewDoubleValue(newValue));}
+   
+  if( command == SizeYZCmd )
+   { ExN03Detector->SetCalorSizeYZ(SizeYZCmd->GetNewDoubleValue(newValue));}
+   
+  if( command == NbLayersCmd )
+   { ExN03Detector->SetNbOfLayers(NbLayersCmd->GetNewIntValue(newValue));}
+  
+  if( command == UpdateCmd )
+   { ExN03Detector->UpdateGeometry(); }
+
+  if( command == MagFieldCmd )
+   { ExN03Detector->SetMagField(MagFieldCmd->GetNewDoubleValue(newValue));}
+}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....