PamCAL/PamVMC/g4Config.C

// $Id: g4Config.C,v 1.1 2007/06/28 07:16:45 nikolas Exp $
//
// Configuration macro for Geant4 VirtualMC for PamG4VMC
// for geometry defined with Root and selected Geant4 native navigation

void Config()
{
  
  gSystem->Load("libG4phys_builders");
  gSystem->Load("libG4phys_lists");
  TString G4WD=gSystem->Getenv("G4WORKDIR");
  TString PLAT=gSystem->Getenv("PLATFORM");
  gSystem->Load(G4WD+"/lib/tgt_"+PLAT+"/libPamG4RunConfiguration");
  cout<<G4WD+"/lib/tgt_"+PLAT+"/libPamG4RunConfiguration";
  PamG4RunConfiguration* runConfiguration 
    = new PamG4RunConfiguration("geomRootToGeant4");
  
  // Switch on optical physics (not activated by default)
  /// TG4PhysicsListOptions options;
  ////runConfiguration->SetPhysicsListOptions(options);
  // TGeant4
  TGeant4* geant4
    = new TGeant4("TGeant4_PAMELA", "The Geant4 PAMELA Monte Carlo", runConfiguration);

  // Customise Geant4 setting
  // (verbose level, global range cut, ..)
  geant4->ProcessGeantMacro("g4config.in");
}
1	// $Id: g4Config.C,v 1.1 2007/06/28 07:16:45 nikolas Exp $
2	//
3	// Configuration macro for Geant4 VirtualMC for PamG4VMC
4	// for geometry defined with Root and selected Geant4 native navigation
5
6	void Config()
7	{
8
9	gSystem->Load("libG4phys_builders");
10	gSystem->Load("libG4phys_lists");
11	TString G4WD=gSystem->Getenv("G4WORKDIR");
12	TString PLAT=gSystem->Getenv("PLATFORM");
13	gSystem->Load(G4WD+"/lib/tgt_"+PLAT+"/libPamG4RunConfiguration");
14	cout<<G4WD+"/lib/tgt_"+PLAT+"/libPamG4RunConfiguration";
15	PamG4RunConfiguration* runConfiguration
16	= new PamG4RunConfiguration("geomRootToGeant4");
17
18	// Switch on optical physics (not activated by default)
19	/// TG4PhysicsListOptions options;
20	////runConfiguration->SetPhysicsListOptions(options);
21	// TGeant4
22	TGeant4* geant4
23	= new TGeant4("TGeant4_PAMELA", "The Geant4 PAMELA Monte Carlo", runConfiguration);
24
25	// Customise Geant4 setting
26	// (verbose level, global range cut, ..)
27	geant4->ProcessGeantMacro("g4config.in");
28	}