Import Geant4 3.0.0 source tree

examples/extended/analysis/AnaEx01/src/AnaEx01AnalysisManager.cc

@@ -0,0 +1,107 @@
+// This code implementation is the intellectual property of
+// the 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: AnaEx01AnalysisManager.cc,v 1.9 2000/12/06 13:08:03 barrand Exp $
+// GEANT4 tag $Name: geant4-03-00 $
+//
+// 
+// Guy Barrand 14th Septembre 2000.
+
+#ifdef G4ANALYSIS_USE
+
+#include "G4ios.hh"
+#include "G4SDManager.hh"
+#include "G4Run.hh"
+#include "G4Event.hh"
+#include "G4HCofThisEvent.hh"
+
+#include <IHistogramFactory.h>
+
+#ifdef G4ANALYSIS_USE_JAS
+#include "G4JasSystem.hh"
+#endif
+#ifdef G4ANALYSIS_USE_LAB
+#include "G4LabSystem.hh"
+#endif
+#ifdef G4ANALYSIS_USE_LIZARD
+#include "G4LizardSystem.hh"
+#endif
+
+#include "AnaEx01CalorHit.hh"
+#include "AnaEx01AnalysisManager.hh"
+
+AnaEx01AnalysisManager::AnaEx01AnalysisManager(
+  const G4String& aSystem
+)
+:fCalorimeterCollID(-1)
+,fEAbs(0)
+,fLAbs(0)
+,fEGap(0)
+,fLGap(0)
+{
+#ifdef G4ANALYSIS_USE_JAS
+  RegisterAnalysisSystem(new G4JasSystem);
+#endif
+#ifdef G4ANALYSIS_USE_LAB
+  RegisterAnalysisSystem(new G4LabSystem);
+#endif
+#ifdef G4ANALYSIS_USE_LIZARD
+  RegisterAnalysisSystem(new G4LizardSystem);
+#endif
+  // The factory and histograms will be deleted by the analysis manager.
+  IHistogramFactory* hfactory = GetHistogramFactory(aSystem);
+  if(!hfactory) return;
+  fEAbs = hfactory->create1D("EAbs",100,0,100);
+  fLAbs = hfactory->create1D("LAbs",100,0,100);
+  fEGap = hfactory->create1D("EGap",100,0,10);
+  fLGap = hfactory->create1D("LGap",100,0,100);
+}
+void AnaEx01AnalysisManager::BeginOfRun(const G4Run* aRun){
+  G4cout << "### Run " << aRun->GetRunID() << " start." << G4endl;
+}
+
+void AnaEx01AnalysisManager::EndOfRun(const G4Run*){
+  Store();
+  //if(fEAbs) Plot(fEAbs);
+}
+
+void AnaEx01AnalysisManager::BeginOfEvent(const G4Event*){
+  if(fCalorimeterCollID==-1) {
+    G4SDManager* SDman = G4SDManager::GetSDMpointer();
+    fCalorimeterCollID = SDman->GetCollectionID("CalCollection");
+  } 
+}
+
+void AnaEx01AnalysisManager::EndOfEvent(const G4Event* aEvent){
+  if(!fEAbs) return; // No histo booked !
+  //if(!fTuple) return; // No tuple booked !
+
+  G4int evtNb = aEvent->GetEventID();
+
+  G4HCofThisEvent* HCE = aEvent->GetHCofThisEvent();
+  AnaEx01CalorHitsCollection* CHC = 
+    HCE ? (AnaEx01CalorHitsCollection*)(HCE->GetHC(fCalorimeterCollID)) : 0;
+
+  if(CHC) {
+    G4int n_hit = CHC->entries();
+    //G4double totEAbs=0, totLAbs=0, totEGap=0, totLGap=0;
+    for (G4int i=0;i<n_hit;i++) {
+      //totEAbs += (*CHC)[i]->GetEdepAbs(); 
+      //totLAbs += (*CHC)[i]->GetTrakAbs();
+      //totEGap += (*CHC)[i]->GetEdepGap(); 
+      //totLGap += (*CHC)[i]->GetTrakGap();
+      fEAbs->fill((*CHC)[i]->GetEdepAbs());
+      fLAbs->fill((*CHC)[i]->GetTrakAbs());
+      fEGap->fill((*CHC)[i]->GetEdepGap());
+      fLGap->fill((*CHC)[i]->GetTrakGap());
+    }
+  }	
+  
+}
+void AnaEx01AnalysisManager::Step(const G4Step*){}
+
+#endif

examples/extended/analysis/AnaEx01/src/AnaEx01CalorHit.cc

@@ -0,0 +1,68 @@
+// This code implementation is the intellectual property of
+// the 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: AnaEx01CalorHit.cc,v 1.1.1.1 2000/09/14 11:37:21 barrand Exp $
+// GEANT4 tag $Name: geant4-03-00 $
+//
+// 
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+#include "AnaEx01CalorHit.hh"
+
+G4Allocator<AnaEx01CalorHit> AnaEx01CalorHitAllocator;
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+AnaEx01CalorHit::AnaEx01CalorHit()
+{
+   EdepAbs = 0.; TrackLengthAbs = 0.;
+   EdepGap = 0.; TrackLengthGap = 0.;
+}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+AnaEx01CalorHit::~AnaEx01CalorHit()
+{;}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+AnaEx01CalorHit::AnaEx01CalorHit(const AnaEx01CalorHit& right)
+{
+  EdepAbs = right.EdepAbs; TrackLengthAbs = right.TrackLengthAbs;
+  EdepGap = right.EdepGap; TrackLengthGap = right.TrackLengthGap;
+}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+const AnaEx01CalorHit& AnaEx01CalorHit::operator=(const AnaEx01CalorHit& right)
+{
+  EdepAbs = right.EdepAbs; TrackLengthAbs = right.TrackLengthAbs;
+  EdepGap = right.EdepGap; TrackLengthGap = right.TrackLengthGap;
+  return *this;
+}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+int AnaEx01CalorHit::operator==(const AnaEx01CalorHit& right) const
+{
+  return 0;
+}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+void AnaEx01CalorHit::Draw()
+{;}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+void AnaEx01CalorHit::Print()
+{;}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+

examples/extended/analysis/AnaEx01/src/AnaEx01CalorimeterSD.cc

@@ -0,0 +1,123 @@
+// This code implementation is the intellectual property of
+// the 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: AnaEx01CalorimeterSD.cc,v 1.1.1.1 2000/09/14 11:37:21 barrand Exp $
+// GEANT4 tag $Name: geant4-03-00 $
+//
+// 
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+#include "AnaEx01CalorimeterSD.hh"
+
+#include "AnaEx01CalorHit.hh"
+#include "AnaEx01DetectorConstruction.hh"
+
+#include "G4VPhysicalVolume.hh"
+#include "G4Step.hh"
+#include "G4VTouchable.hh"
+#include "G4TouchableHistory.hh"
+#include "G4SDManager.hh"
+
+#include "G4ios.hh"
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+AnaEx01CalorimeterSD::AnaEx01CalorimeterSD(G4String name,
+                                   AnaEx01DetectorConstruction* det)
+:G4VSensitiveDetector(name),Detector(det)
+{
+  collectionName.insert("CalCollection");
+  HitID = new G4int[500];
+}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+AnaEx01CalorimeterSD::~AnaEx01CalorimeterSD()
+{
+  delete [] HitID;
+}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+void AnaEx01CalorimeterSD::Initialize(G4HCofThisEvent*HCE)
+{
+  CalCollection = new AnaEx01CalorHitsCollection
+                      (SensitiveDetectorName,collectionName[0]); 
+  for (G4int j=0;j<Detector->GetNbOfLayers();j++) {HitID[j] = -1;};
+}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+G4bool AnaEx01CalorimeterSD::ProcessHits(G4Step* aStep,G4TouchableHistory* ROhist)
+{
+  G4double edep = aStep->GetTotalEnergyDeposit();
+  
+  G4double stepl = 0.;
+  if (aStep->GetTrack()->GetDefinition()->GetPDGCharge() != 0.)
+      stepl = aStep->GetStepLength();
+      
+  if ((edep==0.)&&(stepl==0.)) return false;      
+
+  G4TouchableHistory* theTouchable
+    = (G4TouchableHistory*)(aStep->GetPreStepPoint()->GetTouchable());
+    
+  G4VPhysicalVolume* physVol = theTouchable->GetVolume(); 
+  //theTouchable->MoveUpHistory();
+  G4int LayerNumber = 0;
+  if (Detector->GetNbOfLayers()>1) LayerNumber=theTouchable->GetReplicaNumber(1);
+
+  if (HitID[LayerNumber]==-1)
+    { 
+      AnaEx01CalorHit* calHit = new AnaEx01CalorHit();
+      if (physVol == Detector->GetAbsorber()) calHit->AddAbs(edep,stepl);
+      if (physVol == Detector->GetGap     ()) calHit->AddGap(edep,stepl);
+      HitID[LayerNumber] = CalCollection->insert(calHit) - 1;
+      if (verboseLevel>0)
+        G4cout << " New Calorimeter Hit on layer: " << LayerNumber << G4endl;
+    }
+  else
+    { 
+      if (physVol == Detector->GetAbsorber())
+         (*CalCollection)[HitID[LayerNumber]]->AddAbs(edep,stepl);
+      if (physVol == Detector->GetGap())
+         (*CalCollection)[HitID[LayerNumber]]->AddGap(edep,stepl);
+      if (verboseLevel>0)
+        G4cout << " Energy added to Layer: " << LayerNumber << G4endl; 
+    }
+    
+  return true;
+}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+void AnaEx01CalorimeterSD::EndOfEvent(G4HCofThisEvent* HCE)
+{
+  static G4int HCID = -1;
+  if(HCID<0)
+  { HCID = G4SDManager::GetSDMpointer()->GetCollectionID(collectionName[0]); }
+  HCE->AddHitsCollection(HCID,CalCollection);
+}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+void AnaEx01CalorimeterSD::clear()
+{} 
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+void AnaEx01CalorimeterSD::DrawAll()
+{} 
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+void AnaEx01CalorimeterSD::PrintAll()
+{} 
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+

examples/extended/analysis/AnaEx01/src/AnaEx01DetectorConstruction.cc

@@ -0,0 +1,466 @@
+// This code implementation is the intellectual property of
+// the 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: AnaEx01DetectorConstruction.cc,v 1.1.1.1 2000/09/14 11:37:21 barrand Exp $
+// GEANT4 tag $Name: geant4-03-00 $
+//
+// 
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+#include "AnaEx01DetectorConstruction.hh"
+#include "AnaEx01DetectorMessenger.hh"
+
+#include "AnaEx01CalorimeterSD.hh"
+
+#include "G4Material.hh"
+#include "G4Box.hh"
+#include "G4LogicalVolume.hh"
+#include "G4PVPlacement.hh"
+#include "G4PVReplica.hh"
+#include "G4UniformMagField.hh"
+#include "G4FieldManager.hh"
+#include "G4TransportationManager.hh"
+#include "G4SDManager.hh"
+#include "G4RunManager.hh"
+
+#include "G4VisAttributes.hh"
+#include "G4Colour.hh"
+
+#include "G4ios.hh"
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+AnaEx01DetectorConstruction::AnaEx01DetectorConstruction()
+:solidWorld(NULL),logicWorld(NULL),physiWorld(NULL),
+ solidCalor(NULL),logicCalor(NULL),physiCalor(NULL),
+ solidLayer(NULL),logicLayer(NULL),physiLayer(NULL),
+ solidAbsorber(NULL),logicAbsorber(NULL),physiAbsorber(NULL),
+ solidGap (NULL),logicGap (NULL),physiGap (NULL),
+ AbsorberMaterial(NULL),GapMaterial(NULL),defaultMaterial(NULL),
+ magField(NULL),calorimeterSD(NULL)
+{
+  // default parameter values of the calorimeter
+  AbsorberThickness = 10.*mm;
+  GapThickness      =  5.*mm;
+  NbOfLayers        = 10;
+  CalorSizeYZ       = 10.*cm;
+  ComputeCalorParameters();
+
+  // create commands for interactive definition of the calorimeter  
+  detectorMessenger = new AnaEx01DetectorMessenger(this);
+}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+AnaEx01DetectorConstruction::~AnaEx01DetectorConstruction()
+{ delete detectorMessenger;}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+G4VPhysicalVolume* AnaEx01DetectorConstruction::Construct()
+{
+  DefineMaterials();
+  return ConstructCalorimeter();
+}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+void AnaEx01DetectorConstruction::DefineMaterials()
+{ 
+ //This function illustrates the possible ways to define materials
+ 
+G4String name, symbol;             //a=mass of a mole;
+G4double a, z, density;            //z=mean number of protons;  
+G4int iz, n;                       //iz=number of protons  in an isotope; 
+                                   // n=number of nucleons in an isotope;
+
+G4int ncomponents, natoms;
+G4double abundance, fractionmass;
+G4double temperature, pressure;
+
+//
+// define Elements
+//
+
+a = 1.01*g/mole;
+G4Element* H  = new G4Element(name="Hydrogen",symbol="H" , z= 1., a);
+
+a = 12.01*g/mole;
+G4Element* C  = new G4Element(name="Carbon"  ,symbol="C" , z= 6., a);
+
+a = 14.01*g/mole;
+G4Element* N  = new G4Element(name="Nitrogen",symbol="N" , z= 7., a);
+
+a = 16.00*g/mole;
+G4Element* O  = new G4Element(name="Oxygen"  ,symbol="O" , z= 8., a);
+
+a = 28.09*g/mole;
+G4Element* Si = new G4Element(name="Silicon",symbol="Si" , z= 14., a);
+
+a = 55.85*g/mole;
+G4Element* Fe = new G4Element(name="Iron"    ,symbol="Fe", z=26., a);
+
+//
+// define an Element from isotopes, by relative abundance 
+//
+
+G4Isotope* U5 = new G4Isotope(name="U235", iz=92, n=235, a=235.01*g/mole);
+G4Isotope* U8 = new G4Isotope(name="U238", iz=92, n=238, a=238.03*g/mole);
+
+G4Element* U  = new G4Element(name="enriched Uranium", symbol="U", ncomponents=2);
+U->AddIsotope(U5, abundance= 90.*perCent);
+U->AddIsotope(U8, abundance= 10.*perCent);
+
+//
+// define simple materials
+//
+
+density = 2.700*g/cm3;
+a = 26.98*g/mole;
+G4Material* Al = new G4Material(name="Aluminium", z=13., a, density);
+
+density = 1.390*g/cm3;
+a = 39.95*g/mole;
+G4Material* lAr = new G4Material(name="liquidArgon", z=18., a, density);
+
+density = 8.960*g/cm3;
+a = 63.55*g/mole;
+G4Material* Cu = new G4Material(name="Copper"   , z=29., a, density);
+
+density = 11.35*g/cm3;
+a = 207.19*g/mole;
+G4Material* Pb = new G4Material(name="Lead"     , z=82., a, density);
+
+//
+// define a material from elements.   case 1: chemical molecule
+//
+ 
+density = 1.000*g/cm3;
+G4Material* H2O = new G4Material(name="Water", density, ncomponents=2);
+H2O->AddElement(H, natoms=2);
+H2O->AddElement(O, natoms=1);
+
+density = 1.032*g/cm3;
+G4Material* Sci = new G4Material(name="Scintillator", density, ncomponents=2);
+Sci->AddElement(C, natoms=9);
+Sci->AddElement(H, natoms=10);
+
+density = 2.200*g/cm3;
+G4Material* SiO2 = new G4Material(name="quartz", density, ncomponents=2);
+SiO2->AddElement(Si, natoms=1);
+SiO2->AddElement(O , natoms=2);
+
+//
+// define a material from elements.   case 2: mixture by fractional mass
+//
+
+density = 1.290*mg/cm3;
+G4Material* Air = new G4Material(name="Air"  , density, ncomponents=2);
+Air->AddElement(N, fractionmass=0.7);
+Air->AddElement(O, fractionmass=0.3);
+
+//
+// define a material from elements and/or others materials (mixture of mixtures)
+//
+
+density = 0.200*g/cm3;
+G4Material* Aerog = new G4Material(name="Aerogel", density, ncomponents=3);
+Aerog->AddMaterial(SiO2, fractionmass=62.5*perCent);
+Aerog->AddMaterial(H2O , fractionmass=37.4*perCent);
+Aerog->AddElement (C   , fractionmass= 0.1*perCent);
+
+//
+// examples of gas in non STP conditions
+//
+
+density     = 27.*mg/cm3;
+pressure    = 50.*atmosphere;
+temperature = 325.*kelvin;
+G4Material* CO2 = new G4Material(name="CarbonicGas", density, ncomponents=2,
+                                     kStateGas,temperature,pressure);
+CO2->AddElement(C, natoms=1);
+CO2->AddElement(O, natoms=2);
+ 
+density     = 0.3*mg/cm3;
+pressure    = 2.*atmosphere;
+temperature = 500.*kelvin;
+G4Material* steam = new G4Material(name="WaterSteam", density, ncomponents=1,
+                                      kStateGas,temperature,pressure);
+steam->AddMaterial(H2O, fractionmass=1.);
+
+//
+// examples of vacuum
+//
+
+density     = universe_mean_density;    //from PhysicalConstants.h
+pressure    = 3.e-18*pascal;
+temperature = 2.73*kelvin;
+new G4Material(name="Galactic", z=1., a=1.01*g/mole, density,
+                   kStateGas,temperature,pressure);
+
+density     = 1.e-5*g/cm3;
+pressure    = 2.e-2*bar;
+temperature = STP_Temperature;         //from PhysicalConstants.h
+G4Material* beam = new G4Material(name="Beam", density, ncomponents=1,
+                                      kStateGas,temperature,pressure);
+beam->AddMaterial(Air, fractionmass=1.);
+
+G4cout << *(G4Material::GetMaterialTable()) << G4endl;
+
+  //default materials of the calorimeter
+  AbsorberMaterial = Pb;
+  GapMaterial      = lAr;
+  defaultMaterial  = Air;
+}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+  
+G4VPhysicalVolume* AnaEx01DetectorConstruction::ConstructCalorimeter()
+{
+  // complete the Calor parameters definition 
+  ComputeCalorParameters();
+   
+  //     
+  // World
+  //
+  solidWorld = new G4Box("World",				//its name
+                   WorldSizeX/2,WorldSizeYZ/2,WorldSizeYZ/2);	//its size
+                         
+  logicWorld = new G4LogicalVolume(solidWorld,		//its solid
+                                   defaultMaterial,	//its material
+                                   "World");		//its name
+                                   
+  physiWorld = new G4PVPlacement(0,			//no rotation
+  				 G4ThreeVector(),	//at (0,0,0)
+                                 "World",		//its name
+                                 logicWorld,		//its logical volume
+                                 NULL,			//its mother  volume
+                                 false,			//no boolean operation
+                                 0);			//copy number
+  
+  //                               
+  // Calorimeter
+  //  
+  solidCalor=NULL; logicCalor=NULL; physiCalor=NULL;
+  solidLayer=NULL; logicLayer=NULL; physiLayer=NULL;
+  
+  if (CalorThickness > 0.)  
+    { solidCalor = new G4Box("Calorimeter",		//its name
+    		       CalorThickness/2,CalorSizeYZ/2,CalorSizeYZ/2);//size
+    			     
+      logicCalor = new G4LogicalVolume(solidCalor,	//its solid
+      				       defaultMaterial,	//its material
+      				       "Calorimeter");	//its name
+    				       
+      physiCalor = new G4PVPlacement(0,			//no rotation
+                                     G4ThreeVector(),	//at (0,0,0)
+                                     "Calorimeter",	//its name
+                                     logicCalor,	//its logical volume
+                                     physiWorld,	//its mother  volume
+                                     false,		//no boolean operation
+                                     0);		//copy number
+  
+  //                                 
+  // Layer
+  //
+      solidLayer = new G4Box("Layer",			//its name
+                       LayerThickness/2,CalorSizeYZ/2,CalorSizeYZ/2); //size
+                       
+      logicLayer = new G4LogicalVolume(solidLayer,	//its solid
+                                       defaultMaterial,	//its material
+                                       "Layer");	//its name
+      if (NbOfLayers > 1)                                      
+        physiLayer = new G4PVReplica("Layer",		//its name
+      				     logicLayer,	//its logical volume
+      				     physiCalor,	//its mother
+                                     kXAxis,		//axis of replication
+                                     NbOfLayers,	//number of replica
+                                     LayerThickness);	//witdth of replica
+      else
+        physiLayer = new G4PVPlacement(0,		//no rotation
+                                     G4ThreeVector(),	//at (0,0,0)
+                                     "Layer",		//its name
+                                     logicLayer,	//its logical volume
+                                     physiCalor,	//its mother  volume
+                                     false,		//no boolean operation
+                                     0);		//copy number     
+    }                                   
+  
+  //                               
+  // Absorber
+  //
+  solidAbsorber=NULL; logicAbsorber=NULL; physiAbsorber=NULL;  
+  
+  if (AbsorberThickness > 0.) 
+    { solidAbsorber = new G4Box("Absorber",		//its name
+                          AbsorberThickness/2,CalorSizeYZ/2,CalorSizeYZ/2); 
+                          
+      logicAbsorber = new G4LogicalVolume(solidAbsorber,    //its solid
+      			                  AbsorberMaterial, //its material
+      			                  "Absorber");      //its name
+      			                  
+      physiAbsorber = new G4PVPlacement(0,		   //no rotation
+      		    G4ThreeVector(-GapThickness/2,0.,0.),  //its position
+                                        "Absorber",        //its name
+                                        logicAbsorber,     //its logical volume
+                                        physiLayer,        //its mother
+                                        false,             //no boulean operat
+                                        0);                //copy number
+                                        
+    }
+  
+  //                                 
+  // Gap
+  //
+  solidGap=NULL; logicGap=NULL; physiGap=NULL; 
+  
+  if (GapThickness > 0.)
+    { solidGap = new G4Box("Gap",
+    			   GapThickness/2,CalorSizeYZ/2,CalorSizeYZ/2);
+    			   
+      logicGap = new G4LogicalVolume(solidGap,
+      				     GapMaterial,
+      				     "Gap");
+      				     
+      physiGap = new G4PVPlacement(0,                      //no rotation
+               G4ThreeVector(AbsorberThickness/2,0.,0.),   //its position
+                                   "Gap",                  //its name
+                                   logicGap,               //its logical volume
+                                   physiLayer,             //its mother
+                                   false,                  //no boulean operat
+                                   0);                     //copy number
+    } 
+   
+  //                               
+  // Sensitive Detectors: Absorber and Gap
+  //
+  G4SDManager* SDman = G4SDManager::GetSDMpointer();
+
+  if(!calorimeterSD)
+  {
+    calorimeterSD = new AnaEx01CalorimeterSD("CalorSD",this);
+    SDman->AddNewDetector( calorimeterSD );
+  }
+  if (logicAbsorber)
+      logicAbsorber->SetSensitiveDetector(calorimeterSD);
+  if (logicGap)
+      logicGap     ->SetSensitiveDetector(calorimeterSD);
+  
+  //                                        
+  // Visualization attributes
+  //
+  logicWorld->SetVisAttributes (G4VisAttributes::Invisible);
+  G4VisAttributes* simpleBoxVisAtt= new G4VisAttributes(G4Colour(1.0,1.0,1.0));
+  simpleBoxVisAtt->SetVisibility(true);
+  logicCalor->SetVisAttributes(simpleBoxVisAtt);
+  
+  //
+  //always return the physical World
+  //
+  PrintCalorParameters();
+  return physiWorld;
+}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+void AnaEx01DetectorConstruction::PrintCalorParameters()
+{
+  G4cout << "\n------------------------------------------------------------"
+         << "\n---> The calorimeter is " << NbOfLayers << " layers of: [ "
+         << AbsorberThickness/mm << "mm of " << AbsorberMaterial->GetName() 
+         << " + "
+         << GapThickness/mm << "mm of " << GapMaterial->GetName() << " ] " 
+         << "\n------------------------------------------------------------\n";
+}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+void AnaEx01DetectorConstruction::SetAbsorberMaterial(G4String materialChoice)
+{
+  // search the material by its name   
+  G4Material* pttoMaterial = G4Material::GetMaterial(materialChoice);     
+  if (pttoMaterial)
+     {AbsorberMaterial = pttoMaterial;
+      logicAbsorber->SetMaterial(pttoMaterial); 
+      PrintCalorParameters();
+     }             
+}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+void AnaEx01DetectorConstruction::SetGapMaterial(G4String materialChoice)
+{
+  // search the material by its name 
+  G4Material* pttoMaterial = G4Material::GetMaterial(materialChoice);  
+  if (pttoMaterial)
+     {GapMaterial = pttoMaterial;
+      logicGap->SetMaterial(pttoMaterial); 
+      PrintCalorParameters();
+     }             
+}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+void AnaEx01DetectorConstruction::SetAbsorberThickness(G4double val)
+{
+  // change Absorber thickness and recompute the calorimeter parameters
+  AbsorberThickness = val;
+}  
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+void AnaEx01DetectorConstruction::SetGapThickness(G4double val)
+{
+  // change Gap thickness and recompute the calorimeter parameters
+  GapThickness = val;
+}  
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+void AnaEx01DetectorConstruction::SetCalorSizeYZ(G4double val)
+{
+  // change the transverse size and recompute the calorimeter parameters
+  CalorSizeYZ = val;
+}  
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+void AnaEx01DetectorConstruction::SetNbOfLayers(G4int val)
+{
+  NbOfLayers = val;
+}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+void AnaEx01DetectorConstruction::SetMagField(G4double fieldValue)
+{
+  //apply a global uniform magnetic field along Z axis
+  G4FieldManager* fieldMgr 
+   = G4TransportationManager::GetTransportationManager()->GetFieldManager();
+    
+  if(magField) delete magField;		//delete the existing magn field
+  
+  if(fieldValue!=0.)			// create a new one if non nul
+  { magField = new G4UniformMagField(G4ThreeVector(0.,0.,fieldValue));        
+    fieldMgr->SetDetectorField(magField);
+    fieldMgr->CreateChordFinder(magField);
+  } else {
+    magField = NULL;
+    fieldMgr->SetDetectorField(magField);
+  }
+}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+  
+void AnaEx01DetectorConstruction::UpdateGeometry()
+{
+  G4RunManager::GetRunManager()->DefineWorldVolume(ConstructCalorimeter());
+}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....

examples/extended/analysis/AnaEx01/src/AnaEx01DetectorMessenger.cc

@@ -0,0 +1,125 @@
+// This code implementation is the intellectual property of
+// the 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: AnaEx01DetectorMessenger.cc,v 1.1.1.1 2000/09/14 11:37:21 barrand Exp $
+// GEANT4 tag $Name: geant4-03-00 $
+//
+// 
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+#include "AnaEx01DetectorMessenger.hh"
+
+#include "AnaEx01DetectorConstruction.hh"
+#include "G4UIdirectory.hh"
+#include "G4UIcmdWithAString.hh"
+#include "G4UIcmdWithAnInteger.hh"
+#include "G4UIcmdWithADoubleAndUnit.hh"
+#include "G4UIcmdWithoutParameter.hh"
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+AnaEx01DetectorMessenger::AnaEx01DetectorMessenger(AnaEx01DetectorConstruction * AnaEx01Det)
+:AnaEx01Detector(AnaEx01Det)
+{ 
+  AnaEx01detDir = new G4UIdirectory("/calor/");
+  AnaEx01detDir->SetGuidance("AnaEx01 detector control.");
+      
+  AbsMaterCmd = new G4UIcmdWithAString("/calor/setAbsMat",this);
+  AbsMaterCmd->SetGuidance("Select Material of the Absorber.");
+  AbsMaterCmd->SetParameterName("choice",false);
+  AbsMaterCmd->AvailableForStates(Idle);
+  
+  GapMaterCmd = new G4UIcmdWithAString("/calor/setGapMat",this);
+  GapMaterCmd->SetGuidance("Select Material of the Gap.");
+  GapMaterCmd->SetParameterName("choice",false);
+  GapMaterCmd->AvailableForStates(Idle);
+    
+  AbsThickCmd = new G4UIcmdWithADoubleAndUnit("/calor/setAbsThick",this);
+  AbsThickCmd->SetGuidance("Set Thickness of the Absorber");
+  AbsThickCmd->SetParameterName("Size",false);
+  AbsThickCmd->SetRange("Size>=0.");
+  AbsThickCmd->SetUnitCategory("Length");
+  AbsThickCmd->AvailableForStates(Idle);
+  
+  GapThickCmd = new G4UIcmdWithADoubleAndUnit("/calor/setGapThick",this);
+  GapThickCmd->SetGuidance("Set Thickness of the Gap");
+  GapThickCmd->SetParameterName("Size",false);
+  GapThickCmd->SetRange("Size>=0.");
+  GapThickCmd->SetUnitCategory("Length");  
+  GapThickCmd->AvailableForStates(Idle);
+  
+  SizeYZCmd = new G4UIcmdWithADoubleAndUnit("/calor/setSizeYZ",this);
+  SizeYZCmd->SetGuidance("Set tranverse size of the calorimeter");
+  SizeYZCmd->SetParameterName("Size",false);
+  SizeYZCmd->SetRange("Size>0.");
+  SizeYZCmd->SetUnitCategory("Length");    
+  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);
+  MagFieldCmd->SetUnitCategory("Magnetic flux density");
+  MagFieldCmd->AvailableForStates(Idle);  
+}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+AnaEx01DetectorMessenger::~AnaEx01DetectorMessenger()
+{
+  delete NbLayersCmd;
+  delete AbsMaterCmd; delete GapMaterCmd;
+  delete AbsThickCmd; delete GapThickCmd;
+  delete SizeYZCmd;   delete UpdateCmd;
+  delete MagFieldCmd;
+  delete AnaEx01detDir;
+}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+void AnaEx01DetectorMessenger::SetNewValue(G4UIcommand* command,G4String newValue)
+{ 
+  if( command == AbsMaterCmd )
+   { AnaEx01Detector->SetAbsorberMaterial(newValue);}
+   
+  if( command == GapMaterCmd )
+   { AnaEx01Detector->SetGapMaterial(newValue);}
+  
+  if( command == AbsThickCmd )
+   { AnaEx01Detector->SetAbsorberThickness(AbsThickCmd->GetNewDoubleValue(newValue));}
+   
+  if( command == GapThickCmd )
+   { AnaEx01Detector->SetGapThickness(GapThickCmd->GetNewDoubleValue(newValue));}
+   
+  if( command == SizeYZCmd )
+   { AnaEx01Detector->SetCalorSizeYZ(SizeYZCmd->GetNewDoubleValue(newValue));}
+   
+  if( command == NbLayersCmd )
+   { AnaEx01Detector->SetNbOfLayers(NbLayersCmd->GetNewIntValue(newValue));}
+  
+  if( command == UpdateCmd )
+   { AnaEx01Detector->UpdateGeometry(); }
+
+  if( command == MagFieldCmd )
+   { AnaEx01Detector->SetMagField(MagFieldCmd->GetNewDoubleValue(newValue));}
+}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....

examples/extended/analysis/AnaEx01/src/AnaEx01EventAction.cc

@@ -0,0 +1,36 @@
+// This code implementation is the intellectual property of
+// the 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: AnaEx01EventAction.cc,v 1.3 2000/11/10 14:08:08 gbarrand Exp $
+// GEANT4 tag $Name: geant4-03-00 $
+//
+// 
+
+#ifdef G4ANALYSIS_USE
+#include "AnaEx01AnalysisManager.hh"
+#endif
+
+#include "AnaEx01EventAction.hh"
+
+AnaEx01EventAction::AnaEx01EventAction(
+ AnaEx01AnalysisManager* aAnalysisManager
+):fAnalysisManager(aAnalysisManager){}
+
+AnaEx01EventAction::~AnaEx01EventAction(){}
+
+void AnaEx01EventAction::BeginOfEventAction(const G4Event* aEvent){
+#ifdef G4ANALYSIS_USE
+  if(fAnalysisManager) fAnalysisManager->BeginOfEvent(aEvent);
+#endif
+}
+
+void AnaEx01EventAction::EndOfEventAction(const G4Event* aEvent) {
+#ifdef G4ANALYSIS_USE
+  if(fAnalysisManager) fAnalysisManager->EndOfEvent(aEvent);
+#endif
+}
+

examples/extended/analysis/AnaEx01/src/AnaEx01PhysicsList.cc

@@ -0,0 +1,356 @@
+// This code implementation is the intellectual property of
+// the 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: AnaEx01PhysicsList.cc,v 1.1.1.1 2000/09/14 11:37:21 barrand Exp $
+// GEANT4 tag $Name: geant4-03-00 $
+//
+// 
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+#include "AnaEx01PhysicsList.hh"
+
+#include "G4ParticleDefinition.hh"
+#include "G4ParticleWithCuts.hh"
+#include "G4ProcessManager.hh"
+#include "G4ProcessVector.hh"
+#include "G4ParticleTypes.hh"
+#include "G4ParticleTable.hh"
+#include "G4Material.hh"
+#include "G4ios.hh"              
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+AnaEx01PhysicsList::AnaEx01PhysicsList():  G4VUserPhysicsList()
+{
+  currentDefaultCut = defaultCutValue = 1.0*mm;
+  cutForGamma       = defaultCutValue;
+  cutForElectron    = defaultCutValue;
+  cutForProton      = defaultCutValue;
+
+ SetVerboseLevel(1);
+}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+AnaEx01PhysicsList::~AnaEx01PhysicsList()
+{}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+void AnaEx01PhysicsList::ConstructParticle()
+{
+  // In this method, static member functions should be called
+  // for all particles which you want to use.
+  // This ensures that objects of these particle types will be
+  // created in the program. 
+
+  ConstructBosons();
+  ConstructLeptons();
+  ConstructMesons();
+  ConstructBaryons();
+}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+void AnaEx01PhysicsList::ConstructBosons()
+{
+  // pseudo-particles
+  G4Geantino::GeantinoDefinition();
+  G4ChargedGeantino::ChargedGeantinoDefinition();
+
+  // gamma
+  G4Gamma::GammaDefinition();
+
+  // optical photon
+  G4OpticalPhoton::OpticalPhotonDefinition();
+}
+ //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+void AnaEx01PhysicsList::ConstructLeptons()
+{
+  // leptons
+  G4Electron::ElectronDefinition();
+  G4Positron::PositronDefinition();
+  G4MuonPlus::MuonPlusDefinition();
+  G4MuonMinus::MuonMinusDefinition();
+
+  G4NeutrinoE::NeutrinoEDefinition();
+  G4AntiNeutrinoE::AntiNeutrinoEDefinition();
+  G4NeutrinoMu::NeutrinoMuDefinition();
+  G4AntiNeutrinoMu::AntiNeutrinoMuDefinition();
+}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+void AnaEx01PhysicsList::ConstructMesons()
+{
+ //  mesons
+  G4PionPlus::PionPlusDefinition();
+  G4PionMinus::PionMinusDefinition();
+  G4PionZero::PionZeroDefinition();
+  G4Eta::EtaDefinition();
+  G4EtaPrime::EtaPrimeDefinition();
+  G4KaonPlus::KaonPlusDefinition();
+  G4KaonMinus::KaonMinusDefinition();
+  G4KaonZero::KaonZeroDefinition();
+  G4AntiKaonZero::AntiKaonZeroDefinition();
+  G4KaonZeroLong::KaonZeroLongDefinition();
+  G4KaonZeroShort::KaonZeroShortDefinition();
+}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+void AnaEx01PhysicsList::ConstructBaryons()
+{
+//  barions
+  G4Proton::ProtonDefinition();
+  G4AntiProton::AntiProtonDefinition();
+  G4Neutron::NeutronDefinition();
+  G4AntiNeutron::AntiNeutronDefinition();
+}
+
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+void AnaEx01PhysicsList::ConstructProcess()
+{
+  AddTransportation();
+  ConstructEM();
+  ConstructGeneral();
+}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+#include "G4ComptonScattering.hh"
+#include "G4GammaConversion.hh"
+#include "G4PhotoElectricEffect.hh"
+
+#include "G4MultipleScattering.hh"
+
+#include "G4eIonisation.hh"
+#include "G4eBremsstrahlung.hh"
+#include "G4eplusAnnihilation.hh"
+
+#include "G4MuIonisation.hh"
+#include "G4MuBremsstrahlung.hh"
+#include "G4MuPairProduction.hh"
+
+#include "G4hIonisation.hh"
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+void AnaEx01PhysicsList::ConstructEM()
+{
+  theParticleIterator->reset();
+  while( (*theParticleIterator)() ){
+    G4ParticleDefinition* particle = theParticleIterator->value();
+    G4ProcessManager* pmanager = particle->GetProcessManager();
+    G4String particleName = particle->GetParticleName();
+     
+    if (particleName == "gamma") {
+    // gamma
+      pmanager->AddDiscreteProcess(new G4GammaConversion());
+      pmanager->AddDiscreteProcess(new G4ComptonScattering());      
+      pmanager->AddDiscreteProcess(new G4PhotoElectricEffect());
+
+    } else if (particleName == "e-") {
+    //electron
+      G4VProcess* theeminusMultipleScattering = new G4MultipleScattering();
+      G4VProcess* theeminusIonisation         = new G4eIonisation();
+      G4VProcess* theeminusBremsstrahlung     = new G4eBremsstrahlung();
+      //
+      // add processes
+      pmanager->AddProcess(theeminusMultipleScattering);
+      pmanager->AddProcess(theeminusIonisation);
+      pmanager->AddProcess(theeminusBremsstrahlung);
+      //      
+      // set ordering for AlongStepDoIt
+      pmanager->SetProcessOrdering(theeminusMultipleScattering, idxAlongStep,1);
+      pmanager->SetProcessOrdering(theeminusIonisation,         idxAlongStep,2);
+      //
+      // set ordering for PostStepDoIt
+      pmanager->SetProcessOrdering(theeminusMultipleScattering, idxPostStep,1);
+      pmanager->SetProcessOrdering(theeminusIonisation,         idxPostStep,2);
+      pmanager->SetProcessOrdering(theeminusBremsstrahlung,     idxPostStep,3);
+
+    } else if (particleName == "e+") {
+    //positron
+      G4VProcess* theeplusMultipleScattering = new G4MultipleScattering();
+      G4VProcess* theeplusIonisation         = new G4eIonisation();
+      G4VProcess* theeplusBremsstrahlung     = new G4eBremsstrahlung();
+      G4VProcess* theeplusAnnihilation       = new G4eplusAnnihilation();
+      //
+      // add processes
+      pmanager->AddProcess(theeplusMultipleScattering);
+      pmanager->AddProcess(theeplusIonisation);
+      pmanager->AddProcess(theeplusBremsstrahlung);
+      pmanager->AddProcess(theeplusAnnihilation);
+      //
+      // set ordering for AtRestDoIt
+      pmanager->SetProcessOrderingToFirst(theeplusAnnihilation, idxAtRest);
+      //
+      // set ordering for AlongStepDoIt
+      pmanager->SetProcessOrdering(theeplusMultipleScattering, idxAlongStep,1);
+      pmanager->SetProcessOrdering(theeplusIonisation,         idxAlongStep,2);
+      //
+      // set ordering for PostStepDoIt
+      pmanager->SetProcessOrdering(theeplusMultipleScattering, idxPostStep,1);
+      pmanager->SetProcessOrdering(theeplusIonisation,         idxPostStep,2);
+      pmanager->SetProcessOrdering(theeplusBremsstrahlung,     idxPostStep,3);
+      pmanager->SetProcessOrdering(theeplusAnnihilation,       idxPostStep,4);
+  
+    } else if( particleName == "mu+" || 
+               particleName == "mu-"    ) {
+    //muon  
+      G4VProcess* aMultipleScattering = new G4MultipleScattering();
+      G4VProcess* aBremsstrahlung     = new G4MuBremsstrahlung();
+      G4VProcess* aPairProduction     = new G4MuPairProduction();
+      G4VProcess* anIonisation        = new G4MuIonisation();
+      //
+      // add processes
+      pmanager->AddProcess(anIonisation);
+      pmanager->AddProcess(aMultipleScattering);
+      pmanager->AddProcess(aBremsstrahlung);
+      pmanager->AddProcess(aPairProduction);
+      //
+      // set ordering for AlongStepDoIt
+      pmanager->SetProcessOrdering(aMultipleScattering, idxAlongStep,1);
+      pmanager->SetProcessOrdering(anIonisation,        idxAlongStep,2);
+      //
+      // set ordering for PostStepDoIt
+      pmanager->SetProcessOrdering(aMultipleScattering, idxPostStep,1);
+      pmanager->SetProcessOrdering(anIonisation,        idxPostStep,2);
+      pmanager->SetProcessOrdering(aBremsstrahlung,     idxPostStep,3);
+      pmanager->SetProcessOrdering(aPairProduction,     idxPostStep,4);
+
+     } else if ((!particle->IsShortLived()) &&
+	       (particle->GetPDGCharge() != 0.0) && 
+	       (particle->GetParticleName() != "chargedgeantino")) {
+     // all others charged particles except geantino     
+     G4VProcess* aMultipleScattering = new G4MultipleScattering();
+     G4VProcess* anIonisation        = new G4hIonisation();
+     //
+     // add processes
+     pmanager->AddProcess(anIonisation);
+     pmanager->AddProcess(aMultipleScattering);
+     //
+     // set ordering for AlongStepDoIt
+     pmanager->SetProcessOrdering(aMultipleScattering, idxAlongStep,1);
+     pmanager->SetProcessOrdering(anIonisation,        idxAlongStep,2);
+     //
+     // set ordering for PostStepDoIt
+     pmanager->SetProcessOrdering(aMultipleScattering, idxPostStep,1);
+     pmanager->SetProcessOrdering(anIonisation,        idxPostStep,2);
+    }
+  }
+}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+#include "G4Decay.hh"
+
+void AnaEx01PhysicsList::ConstructGeneral()
+{
+  // Add Decay Process
+   G4Decay* theDecayProcess = new G4Decay();
+  theParticleIterator->reset();
+  while( (*theParticleIterator)() ){
+    G4ParticleDefinition* particle = theParticleIterator->value();
+    G4ProcessManager* pmanager = particle->GetProcessManager();
+    if (theDecayProcess->IsApplicable(*particle)) { 
+      pmanager ->AddProcess(theDecayProcess);
+      // set ordering for PostStepDoIt and AtRestDoIt
+      pmanager ->SetProcessOrdering(theDecayProcess, idxPostStep);
+      pmanager ->SetProcessOrdering(theDecayProcess, idxAtRest);
+    }
+  }
+}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+void AnaEx01PhysicsList::SetCuts()
+{
+  // reactualise cutValues
+  if (currentDefaultCut != defaultCutValue)
+    {
+     if(cutForGamma    == currentDefaultCut) cutForGamma    = defaultCutValue;
+     if(cutForElectron == currentDefaultCut) cutForElectron = defaultCutValue;
+     if(cutForProton   == currentDefaultCut) cutForProton   = defaultCutValue;
+     currentDefaultCut = defaultCutValue;
+    }
+    
+  if (verboseLevel >0){
+    G4cout << "AnaEx01PhysicsList::SetCuts:";
+    G4cout << "CutLength : " << G4BestUnit(defaultCutValue,"Length") << G4endl;    
+  }  
+
+  // set cut values for gamma at first and for e- second and next for e+,
+  // because some processes for e+/e- need cut values for gamma 
+  SetCutValue(cutForGamma, "gamma");
+  SetCutValue(cutForElectron, "e-");
+  SetCutValue(cutForElectron, "e+");
+ 
+  // set cut values for proton and anti_proton before all other hadrons
+  // because some processes for hadrons need cut values for proton/anti_proton 
+  SetCutValue(cutForProton, "proton");
+  SetCutValue(cutForProton, "anti_proton");
+  
+  SetCutValueForOthers(defaultCutValue);
+
+  if (verboseLevel>0) DumpCutValuesTable();
+}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+
+void AnaEx01PhysicsList::SetCutForGamma(G4double cut)
+{
+  ResetCuts();
+  cutForGamma = cut;
+}
+
+void AnaEx01PhysicsList::SetCutForElectron(G4double cut)
+{
+  ResetCuts();
+  cutForElectron = cut;
+}
+
+void AnaEx01PhysicsList::SetCutForProton(G4double cut)
+{
+  ResetCuts();
+  cutForProton = cut;
+}
+
+G4double AnaEx01PhysicsList::GetCutForGamma() const
+{
+  return cutForGamma;
+}
+
+G4double AnaEx01PhysicsList::GetCutForElectron() const
+{
+  return cutForElectron;
+}
+
+G4double AnaEx01PhysicsList::GetCutForProton() const
+{
+  return cutForGamma;
+}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+
+
+
+
+
+
+
+
+
+

examples/extended/analysis/AnaEx01/src/AnaEx01PrimaryGeneratorAction.cc

@@ -0,0 +1,79 @@
+// This code implementation is the intellectual property of
+// the 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: AnaEx01PrimaryGeneratorAction.cc,v 1.1.1.1 2000/09/14 11:37:21 barrand Exp $
+// GEANT4 tag $Name: geant4-03-00 $
+//
+// 
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+#include "AnaEx01PrimaryGeneratorAction.hh"
+
+#include "AnaEx01DetectorConstruction.hh"
+#include "AnaEx01PrimaryGeneratorMessenger.hh"
+
+#include "G4Event.hh"
+#include "G4ParticleGun.hh"
+#include "G4ParticleTable.hh"
+#include "G4ParticleDefinition.hh"
+#include "Randomize.hh"
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+AnaEx01PrimaryGeneratorAction::AnaEx01PrimaryGeneratorAction(
+                                               AnaEx01DetectorConstruction* AnaEx01DC)
+:AnaEx01Detector(AnaEx01DC),rndmFlag("off")
+{
+  G4int n_particle = 1;
+  particleGun  = new G4ParticleGun(n_particle);
+  
+  //create a messenger for this class
+  gunMessenger = new AnaEx01PrimaryGeneratorMessenger(this);
+
+  // default particle kinematic
+
+  G4ParticleTable* particleTable = G4ParticleTable::GetParticleTable();
+  G4String particleName;
+  G4ParticleDefinition* particle
+                    = particleTable->FindParticle(particleName="e-");
+  particleGun->SetParticleDefinition(particle);
+  particleGun->SetParticleMomentumDirection(G4ThreeVector(1.,0.,0.));
+  particleGun->SetParticleEnergy(30.*MeV);
+  G4double position = -0.5*(AnaEx01Detector->GetWorldSizeX());
+  particleGun->SetParticlePosition(G4ThreeVector(position,0.*cm,0.*cm));
+
+}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+AnaEx01PrimaryGeneratorAction::~AnaEx01PrimaryGeneratorAction()
+{
+  delete particleGun;
+  delete gunMessenger;
+}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+void AnaEx01PrimaryGeneratorAction::GeneratePrimaries(G4Event* anEvent)
+{
+  //this function is called at the begining of event
+  // 
+  G4double x0 = -0.5*(AnaEx01Detector->GetWorldSizeX());
+  G4double y0 = 0.*cm, z0 = 0.*cm;
+  if (rndmFlag == "on")
+     {y0 = (AnaEx01Detector->GetCalorSizeYZ())*(G4UniformRand()-0.5);
+      z0 = (AnaEx01Detector->GetCalorSizeYZ())*(G4UniformRand()-0.5);
+     } 
+  particleGun->SetParticlePosition(G4ThreeVector(x0,y0,z0));
+
+  particleGun->GeneratePrimaryVertex(anEvent);
+}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+

examples/extended/analysis/AnaEx01/src/AnaEx01PrimaryGeneratorMessenger.cc

@@ -0,0 +1,51 @@
+// This code implementation is the intellectual property of
+// the 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: AnaEx01PrimaryGeneratorMessenger.cc,v 1.1.1.1 2000/09/14 11:37:21 barrand Exp $
+// GEANT4 tag $Name: geant4-03-00 $
+//
+// 
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+#include "AnaEx01PrimaryGeneratorMessenger.hh"
+
+#include "AnaEx01PrimaryGeneratorAction.hh"
+#include "G4UIcmdWithAString.hh"
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+AnaEx01PrimaryGeneratorMessenger::AnaEx01PrimaryGeneratorMessenger(AnaEx01PrimaryGeneratorAction* AnaEx01Gun)
+:AnaEx01Action(AnaEx01Gun)
+{ 
+  RndmCmd = new G4UIcmdWithAString("/gun/random",this);
+  RndmCmd->SetGuidance("Shoot randomly the incident particle.");
+  RndmCmd->SetGuidance("  Choice : on(default), off");
+  RndmCmd->SetParameterName("choice",true);
+  RndmCmd->SetDefaultValue("on");
+  RndmCmd->SetCandidates("on off");
+  RndmCmd->AvailableForStates(PreInit,Idle);
+}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+AnaEx01PrimaryGeneratorMessenger::~AnaEx01PrimaryGeneratorMessenger()
+{
+  delete RndmCmd;
+}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+void AnaEx01PrimaryGeneratorMessenger::SetNewValue(G4UIcommand * command,G4String newValue)
+{ 
+  if( command == RndmCmd )
+   { AnaEx01Action->SetRndmFlag(newValue);}
+}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+

examples/extended/analysis/AnaEx01/src/AnaEx01RunAction.cc

@@ -0,0 +1,36 @@
+// This code implementation is the intellectual property of
+// the 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: AnaEx01RunAction.cc,v 1.3 2000/11/10 14:08:09 gbarrand Exp $
+// GEANT4 tag $Name: geant4-03-00 $
+//
+// 
+
+#ifdef G4ANALYSIS_USE
+#include "AnaEx01AnalysisManager.hh"
+#endif
+
+#include "AnaEx01RunAction.hh"
+
+AnaEx01RunAction::AnaEx01RunAction(
+ AnaEx01AnalysisManager* aAnalysisManager
+):fAnalysisManager(aAnalysisManager){}
+
+AnaEx01RunAction::~AnaEx01RunAction(){}
+
+void AnaEx01RunAction::BeginOfRunAction(const G4Run* aRun) {
+#ifdef G4ANALYSIS_USE
+  if(fAnalysisManager) fAnalysisManager->BeginOfRun(aRun);
+#endif
+}
+
+void AnaEx01RunAction::EndOfRunAction(const G4Run* aRun){
+#ifdef G4ANALYSIS_USE
+  if(fAnalysisManager) fAnalysisManager->EndOfRun(aRun);
+#endif
+}
+

examples/extended/analysis/AnaEx01/src/AnaEx01SteppingAction.cc

@@ -0,0 +1,31 @@
+// This code implementation is the intellectual property of
+// the 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: AnaEx01SteppingAction.cc,v 1.3 2000/11/10 14:08:10 gbarrand Exp $
+// GEANT4 tag $Name: geant4-03-00 $
+//
+// 
+
+#ifdef G4ANALYSIS_USE
+#include "AnaEx01AnalysisManager.hh"
+#endif
+
+#include "AnaEx01SteppingAction.hh"
+
+AnaEx01SteppingAction::AnaEx01SteppingAction(
+ AnaEx01AnalysisManager* aAnalysisManager
+):fAnalysisManager(aAnalysisManager){}
+
+AnaEx01SteppingAction::~AnaEx01SteppingAction(){}
+void AnaEx01SteppingAction::UserSteppingAction(const G4Step* aStep){
+#ifdef G4ANALYSIS_USE
+  if(fAnalysisManager) fAnalysisManager->Step(aStep);
+#endif
+}
+
+
+

examples/extended/analysis/AnaEx01/src/AnaEx01SteppingVerbose.cc

@@ -0,0 +1,166 @@
+// This code implementation is the intellectual property of
+// the 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: AnaEx01SteppingVerbose.cc,v 1.1.1.1 2000/09/14 11:37:21 barrand Exp $
+// GEANT4 tag $Name: geant4-03-00 $
+//
+//
+//---------------------------------------------------------------
+//
+// AnaEx01SteppingVerbose.cc
+//
+// Description:
+//    Implementation of  the AnaEx01SteppingVerbose class
+//
+//---------------------------------------------------------------
+
+#include "AnaEx01SteppingVerbose.hh"
+#include "G4SteppingManager.hh"
+
+#include "G4UnitsTable.hh"
+
+////////////////////////////////////////////////
+AnaEx01SteppingVerbose::AnaEx01SteppingVerbose()
+////////////////////////////////////////////////
+{
+}
+
+//////////////////////////////////////////////////
+AnaEx01SteppingVerbose::~AnaEx01SteppingVerbose()
+//////////////////////////////////////////////////
+{
+}
+
+/////////////////////////////////////////
+void AnaEx01SteppingVerbose::StepInfo()
+/////////////////////////////////////////
+{
+  CopyState();
+  
+  G4int prec = G4cout.precision(3);
+
+  if( verboseLevel >= 1 ){
+    if( verboseLevel >= 4 ) VerboseTrack();
+    if( verboseLevel >= 3 ){
+      G4cout << G4endl;    
+      G4cout << G4std::setw( 5) << "#Step#"     << " "
+	     << G4std::setw( 6) << "X"          << "    "
+	     << G4std::setw( 6) << "Y"          << "    "  
+	     << G4std::setw( 6) << "Z"          << "    "
+	     << G4std::setw( 9) << "KineE"      << " "
+	     << G4std::setw( 9) << "dEStep"     << " "  
+	     << G4std::setw(10) << "StepLeng"     
+	     << G4std::setw(10) << "TrakLeng" 
+	     << G4std::setw(10) << "NextVolu" 
+	     << G4std::setw(10) << "Process"   << G4endl;	          
+    }
+
+    G4cout << G4std::setw( 5) << fTrack->GetCurrentStepNumber() << " "
+	   << G4std::setw( 6) << G4BestUnit(fTrack->GetPosition().x(),"Length")
+	   << G4std::setw( 6) << G4BestUnit(fTrack->GetPosition().y(),"Length")
+	   << G4std::setw( 6) << G4BestUnit(fTrack->GetPosition().z(),"Length")
+	   << G4std::setw( 6) << G4BestUnit(fTrack->GetKineticEnergy(),"Energy")
+	   << G4std::setw( 6) << G4BestUnit(fStep->GetTotalEnergyDeposit(),"Energy")
+	   << G4std::setw( 6) << G4BestUnit(fStep->GetStepLength(),"Length")
+	   << G4std::setw( 6) << G4BestUnit(fTrack->GetTrackLength(),"Length");
+
+    // if( fStepStatus != fWorldBoundary){ 
+    if( fTrack->GetNextVolume() != 0 ) { 
+      G4cout << G4std::setw(10) << fTrack->GetNextVolume()->GetName();
+    } else {
+      G4cout << G4std::setw(10) << "OutOfWorld";
+    }
+
+    if(fStep->GetPostStepPoint()->GetProcessDefinedStep() != NULL){
+      G4cout << G4std::setw(10) << fStep->GetPostStepPoint()->GetProcessDefinedStep()
+	->GetProcessName();
+    } else {
+      G4cout << "User Limit";
+    }
+
+    G4cout << G4endl;
+
+    if( verboseLevel == 2 ){
+      G4int tN2ndariesTot = fN2ndariesAtRestDoIt +
+	                    fN2ndariesAlongStepDoIt +
+	                    fN2ndariesPostStepDoIt;
+      if(tN2ndariesTot>0){
+	G4cout << "    :----- List of 2ndaries - "
+	       << "#SpawnInStep=" << G4std::setw(3) << tN2ndariesTot 
+	       << "(Rest="  << G4std::setw(2) << fN2ndariesAtRestDoIt
+	       << ",Along=" << G4std::setw(2) << fN2ndariesAlongStepDoIt
+	       << ",Post="  << G4std::setw(2) << fN2ndariesPostStepDoIt
+	       << "), "
+	       << "#SpawnTotal=" << G4std::setw(3) << (*fSecondary).entries()
+	       << " ---------------"
+	       << G4endl;
+
+	for(G4int lp1=(*fSecondary).entries()-tN2ndariesTot; 
+                        lp1<(*fSecondary).entries(); lp1++){
+	  G4cout << "    : "
+		 << G4std::setw(6)
+		 << G4BestUnit((*fSecondary)[lp1]->GetPosition().x(),"Length")
+		 << G4std::setw(6)
+		 << G4BestUnit((*fSecondary)[lp1]->GetPosition().y(),"Length")
+		 << G4std::setw(6)
+		 << G4BestUnit((*fSecondary)[lp1]->GetPosition().z(),"Length")
+		 << G4std::setw(6)
+		 << G4BestUnit((*fSecondary)[lp1]->GetKineticEnergy(),"Energy")
+		 << G4std::setw(10)
+		 << (*fSecondary)[lp1]->GetDefinition()->GetParticleName();
+	  G4cout << G4endl;
+	}
+              
+	G4cout << "    :-----------------------------"
+	       << "----------------------------------"
+	       << "-- EndOf2ndaries Info ---------------"
+	       << G4endl;
+      }
+    }
+    
+  }
+  G4cout.precision(prec);
+}
+
+////////////////////////////////////////////////
+void AnaEx01SteppingVerbose::TrackingStarted()
+////////////////////////////////////////////////
+{
+
+  CopyState();
+G4int prec = G4cout.precision(3);
+  if( verboseLevel > 0 ){
+
+    G4cout << G4std::setw( 5) << "Step#"      << " "
+           << G4std::setw( 6) << "X"          << "    "
+	   << G4std::setw( 6) << "Y"          << "    "  
+	   << G4std::setw( 6) << "Z"          << "    "
+	   << G4std::setw( 9) << "KineE"      << " "
+	   << G4std::setw( 9) << "dEStep"     << " "  
+	   << G4std::setw(10) << "StepLeng"  
+	   << G4std::setw(10) << "TrakLeng"
+	   << G4std::setw(10) << "NextVolu"
+	   << G4std::setw(10) << "Process"    << G4endl;	     
+
+    G4cout << G4std::setw( 5) << fTrack->GetCurrentStepNumber() << " "
+	   << G4std::setw( 6) << G4BestUnit(fTrack->GetPosition().x(),"Length")
+	   << G4std::setw( 6) << G4BestUnit(fTrack->GetPosition().y(),"Length")
+	   << G4std::setw( 6) << G4BestUnit(fTrack->GetPosition().z(),"Length")
+	   << G4std::setw( 6) << G4BestUnit(fTrack->GetKineticEnergy(),"Energy")
+	   << G4std::setw( 6) << G4BestUnit(fStep->GetTotalEnergyDeposit(),"Energy")
+	   << G4std::setw( 6) << G4BestUnit(fStep->GetStepLength(),"Length")
+	   << G4std::setw( 6) << G4BestUnit(fTrack->GetTrackLength(),"Length");
+
+    if(fTrack->GetNextVolume()){
+      G4cout << G4std::setw(10) << fTrack->GetNextVolume()->GetName() << " ";
+    } else {
+      G4cout << G4std::setw(10) << "OutOfWorld" << " ";
+    }
+    G4cout << G4std::setw(10) << "initStep" << G4endl;
+  }
+  G4cout.precision(prec);
+}

examples/extended/analysis/AnaEx01/src/AnaEx01VisManager.cc

@@ -0,0 +1,141 @@
+// This code implementation is the intellectual property of
+// the 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: AnaEx01VisManager.cc,v 1.1.1.1 2000/09/14 11:37:21 barrand Exp $
+// GEANT4 tag $Name: geant4-03-00 $
+//
+// 
+// John Allison 24th January 1998.
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+#ifdef G4VIS_USE
+
+#include "AnaEx01VisManager.hh"
+
+// Supported drivers...
+
+#ifdef G4VIS_USE_DAWN
+#include "G4FukuiRenderer.hh"
+#endif
+
+#ifdef G4VIS_USE_DAWNFILE
+#include "G4DAWNFILE.hh"
+#endif
+
+#ifdef G4VIS_USE_OPACS
+#include "G4Wo.hh"
+#include "G4Xo.hh"
+#endif
+
+#ifdef G4VIS_USE_OPENGLX
+#include "G4OpenGLImmediateX.hh"
+#include "G4OpenGLStoredX.hh"
+#endif
+
+#ifdef G4VIS_USE_OPENGLWIN32
+#include "G4OpenGLImmediateWin32.hh"
+#include "G4OpenGLStoredWin32.hh"
+#endif
+
+#ifdef G4VIS_USE_OPENGLXM
+#include "G4OpenGLImmediateXm.hh"
+#include "G4OpenGLStoredXm.hh"
+#endif
+
+#ifdef G4VIS_USE_OIX
+#include "G4OpenInventorX.hh"
+#endif
+
+#ifdef G4VIS_USE_OIWIN32
+#include "G4OpenInventorWin32.hh"
+#endif
+
+#ifdef G4VIS_USE_VRML
+#include "G4VRML1.hh"
+#include "G4VRML2.hh"
+#endif
+
+#ifdef G4VIS_USE_VRMLFILE
+#include "G4VRML1File.hh"
+#include "G4VRML2File.hh"
+#endif
+
+#ifdef G4VIS_USE_RAYTRACER
+#include "G4RayTracer.hh"
+#endif
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+AnaEx01VisManager::AnaEx01VisManager () {}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+void AnaEx01VisManager::RegisterGraphicsSystems () {
+
+#ifdef G4VIS_USE_DAWN
+  RegisterGraphicsSystem (new G4FukuiRenderer);
+#endif
+
+#ifdef G4VIS_USE_DAWNFILE
+  RegisterGraphicsSystem (new G4DAWNFILE);
+#endif
+
+#ifdef G4VIS_USE_OPACS
+  RegisterGraphicsSystem (new G4Wo);
+  RegisterGraphicsSystem (new G4Xo);
+#endif
+
+#ifdef G4VIS_USE_OPENGLX
+  RegisterGraphicsSystem (new G4OpenGLImmediateX);
+  RegisterGraphicsSystem (new G4OpenGLStoredX);
+#endif
+
+#ifdef G4VIS_USE_OPENGLWIN32
+  RegisterGraphicsSystem (new G4OpenGLImmediateWin32);
+  RegisterGraphicsSystem (new G4OpenGLStoredWin32);
+#endif
+
+#ifdef G4VIS_USE_OPENGLXM
+  RegisterGraphicsSystem (new G4OpenGLImmediateXm);
+  RegisterGraphicsSystem (new G4OpenGLStoredXm);
+#endif
+
+#ifdef G4VIS_USE_OIX
+  RegisterGraphicsSystem (new G4OpenInventorX);
+#endif
+
+#ifdef G4VIS_USE_OIWIN32
+  RegisterGraphicsSystem (new G4OpenInventorWin32);
+#endif
+
+#ifdef G4VIS_USE_VRML
+  RegisterGraphicsSystem (new G4VRML1);
+  RegisterGraphicsSystem (new G4VRML2);
+#endif
+
+#ifdef G4VIS_USE_VRMLFILE
+  RegisterGraphicsSystem (new G4VRML1File);
+  RegisterGraphicsSystem (new G4VRML2File);
+#endif
+
+#ifdef G4VIS_USE_RAYTRACER
+  RegisterGraphicsSystem (new G4RayTracer);
+#endif
+
+  if (fVerbose > 0) {
+    G4cout <<
+      "\nYou have successfully chosen to use the following graphics systems."
+	 << G4endl;
+    PrintAvailableGraphicsSystems ();
+  }
+}
+
+#endif
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....