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,155 @@
+// 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: G4ParticleGunMessenger.cc,v 2.4 1998/10/01 16:58:31 asaim Exp $
+// GEANT4 tag $Name: geant4-00 $
+//
+
+#include "G4ParticleGunMessenger.hh"
+#include "G4ParticleGun.hh"
+#include "G4Geantino.hh"
+#include "G4ThreeVector.hh"
+#include "G4ParticleTable.hh"
+#include "G4UIdirectory.hh"
+#include "G4UIcmdWithoutParameter.hh"
+#include "G4UIcmdWithAString.hh"
+#include "G4UIcmdWithADoubleAndUnit.hh"
+#include "G4UIcmdWith3Vector.hh"
+#include "G4UIcmdWith3VectorAndUnit.hh"
+#include "G4UIcmdWithAnInteger.hh"
+#include "G4ios.hh"
+
+G4ParticleGunMessenger::G4ParticleGunMessenger(G4ParticleGun * fPtclGun)
+:fParticleGun(fPtclGun)
+{
+  particleTable = G4ParticleTable::GetParticleTable();
+
+  gunDirectory = new G4UIdirectory("/gun/");
+  gunDirectory->SetGuidance("Particle Gun control commands.");
+
+  listCmd = new G4UIcmdWithoutParameter("/gun/List",this);
+  listCmd->SetGuidance("List available particles.");
+  listCmd->SetGuidance(" Invoke G4ParticleTable.");
+
+  particleCmd = new G4UIcmdWithAString("/gun/particle",this);
+  particleCmd->SetGuidance("Set particle to be generated.");
+  particleCmd->SetGuidance(" (geantino is default)");
+  particleCmd->SetParameterName("particleName",true);
+  particleCmd->SetDefaultValue("geantino");
+  G4String candidateList; 
+  G4int nPtcl = particleTable->entries();
+  for(G4int i=0;i<nPtcl;i++)
+  {
+    candidateList += particleTable->GetParticleName(i);
+    candidateList += " ";
+  }
+  particleCmd->SetCandidates(candidateList);
+
+  directionCmd = new G4UIcmdWith3Vector("/gun/direction",this);
+  directionCmd->SetGuidance("Set momentum direction.");
+  directionCmd->SetGuidance("Direction needs not to be a unit vector.");
+  directionCmd->SetParameterName("Px","Py","Pz",true,true); 
+  directionCmd->SetRange("Px != 0 || Py != 0 || Pz != 0");
+  
+  energyCmd = new G4UIcmdWithADoubleAndUnit("/gun/energy",this);
+  energyCmd->SetGuidance("Set kinetic energy.");
+  energyCmd->SetParameterName("Energy",true,true);
+  energyCmd->SetDefaultUnit("GeV");
+  //energyCmd->SetUnitCategory("Energy");
+  //energyCmd->SetUnitCandidates("eV keV MeV GeV TeV");
+
+  positionCmd = new G4UIcmdWith3VectorAndUnit("/gun/position",this);
+  positionCmd->SetGuidance("Set starting position of the particle.");
+  positionCmd->SetParameterName("X","Y","Z",true,true);
+  positionCmd->SetDefaultUnit("cm");
+  //positionCmd->SetUnitCategory("Length");
+  //positionCmd->SetUnitCandidates("microm mm cm m km");
+
+  timeCmd = new G4UIcmdWithADoubleAndUnit("/gun/time",this);
+  timeCmd->SetGuidance("Set initial time of the particle.");
+  timeCmd->SetParameterName("t0",true,true);
+  timeCmd->SetDefaultUnit("ns");
+  //timeCmd->SetUnitCategory("Time");
+  //timeCmd->SetUnitCandidates("ns ms s");
+  
+  polCmd = new G4UIcmdWith3Vector("/gun/polarization",this);
+  polCmd->SetGuidance("Set polarization.");
+  polCmd->SetParameterName("Px","Py","Pz",true,true); 
+  polCmd->SetRange("Px>=-1.&&Px<=1.&&Py>=-1.&&Py<=1.&&Pz>=-1.&&Pz<=1.");
+
+  numberCmd = new G4UIcmdWithAnInteger("/gun/number",this);
+  numberCmd->SetGuidance("Set number of particles to be generated.");
+  numberCmd->SetParameterName("N",true,true);
+  numberCmd->SetRange("N>0");
+  
+  // set initial value to G4ParticleGun
+  fParticleGun->SetParticleDefinition( G4Geantino::Geantino() );
+  fParticleGun->SetParticleMomentumDirection( G4ThreeVector(1.0,0.0,0.0) );
+  fParticleGun->SetParticleEnergy( 1.0*GeV );
+  fParticleGun->SetParticlePosition(G4ThreeVector(0.0*cm, 0.0*cm, 0.0*cm));
+  fParticleGun->SetParticleTime( 0.0*ns );
+}
+
+G4ParticleGunMessenger::~G4ParticleGunMessenger()
+{
+  delete listCmd;
+  delete particleCmd;
+  delete directionCmd;
+  delete energyCmd;
+  delete positionCmd;
+  delete timeCmd;
+  delete polCmd;
+  delete numberCmd;
+  delete gunDirectory;
+}
+
+void G4ParticleGunMessenger::SetNewValue(G4UIcommand * command,G4String newValues)
+{
+  if( command==listCmd )
+  { particleTable->DumpTable(); }
+  else if( command==particleCmd )
+  {
+    G4ParticleDefinition* pd = particleTable->FindParticle(newValues);
+    if(pd != NULL)
+    { fParticleGun->SetParticleDefinition( pd ); }
+  }
+  else if( command==directionCmd )
+  { fParticleGun->SetParticleMomentumDirection(directionCmd->GetNew3VectorValue(newValues)); }
+  else if( command==energyCmd )
+  { fParticleGun->SetParticleEnergy(energyCmd->GetNewDoubleValue(newValues)); }
+  else if( command==positionCmd )
+  { fParticleGun->SetParticlePosition(positionCmd->GetNew3VectorValue(newValues)); }
+  else if( command==timeCmd )
+  { fParticleGun->SetParticleTime(timeCmd->GetNewDoubleValue(newValues)); }
+  else if( command==polCmd )
+  { fParticleGun->SetParticlePolarization(polCmd->GetNew3VectorValue(newValues)); }
+  else if( command==numberCmd )
+  { fParticleGun->SetNumberOfParticles(numberCmd->GetNewIntValue(newValues)); }
+}
+
+G4String G4ParticleGunMessenger::GetCurrentValue(G4UIcommand * command)
+{
+  G4String cv;
+  
+  if( command==directionCmd )
+  { cv = directionCmd->ConvertToString(fParticleGun->GetParticleMomentumDirection()); }
+  else if( command==particleCmd )
+  { cv = fParticleGun->GetParticleDefinition()->GetParticleName(); }
+  else if( command==energyCmd )
+  { cv = energyCmd->ConvertToString(fParticleGun->GetParticleEnergy(),"GeV"); }
+  else if( command==positionCmd )
+  { cv = positionCmd->ConvertToString(fParticleGun->GetParticlePosition(),"cm"); }
+  else if( command==timeCmd )
+  { cv = timeCmd->ConvertToString(fParticleGun->GetParticleTime(),"ns"); }
+  else if( command==polCmd )
+  { cv = polCmd->ConvertToString(fParticleGun->GetParticlePolarization()); }
+  else if( command==numberCmd )
+  { cv = numberCmd->ConvertToString(fParticleGun->GetNumberOfParticles()); }
+  
+  return cv;
+}
+