| 1 | void run_g4_test() { | 
| 2 |  | 
| 3 | TString PAM_VMC=gSystem->Getenv("PAM_VMC"); | 
| 4 | TString PLAT=gSystem->Getenv("PLATFORM"); | 
| 5 |  | 
| 6 | // Load basic libraries | 
| 7 | gROOT->LoadMacro(PAM_VMC+"/macro/basiclibs.C"); | 
| 8 | basiclibs(); | 
| 9 |  | 
| 10 | // Load PAMELA libs | 
| 11 | TString PAMLIB=gSystem->Getenv("PAM_LIB"); | 
| 12 | gSystem->Load(PAMLIB+"/libyoda.so"); | 
| 13 | gSystem->Load(PAMLIB+"/libDarthVader.so"); | 
| 14 | gSystem->Load(PAMLIB+"/libPamLevel2.so"); | 
| 15 |  | 
| 16 | // Load Geant4 libraries | 
| 17 | gROOT->LoadMacro(PAM_VMC+"/macro/PamG4Libs.C"); | 
| 18 | PamG4Libs(); | 
| 19 |  | 
| 20 | // Load application library | 
| 21 | gSystem->Load(PAM_VMC+"/lib/tgt_"+PLAT+"/libPamVMC_fc"); | 
| 22 |  | 
| 23 | // MC application | 
| 24 | PamVMCApplication* appl | 
| 25 | = new PamVMCApplication("PAMG4_VMC", "PAMELA GEANT4 VMC application","nik1"); | 
| 26 |  | 
| 27 | //verbose level (0-4), 0 means no verbose | 
| 28 | appl->SetVerboseLevel(0); | 
| 29 |  | 
| 30 | //initialise physycs with specific RunConfiguration, defined in macro | 
| 31 | appl->InitMC(PAM_VMC+"/config/g4Config.C"); | 
| 32 |  | 
| 33 |  | 
| 34 | //additional flags and controls related to G4 core | 
| 35 | ((TGeant4*)gMC)->ProcessGeantMacro(PAM_VMC+"/config/g4config2.in"); | 
| 36 |  | 
| 37 |  | 
| 38 | //maximum allowed steps per track, default 30000 | 
| 39 | ((TGeant4*)gMC)->SetMaxNStep(50000); | 
| 40 |  | 
| 41 | //define particle. Important. Is shold be done before any | 
| 42 | //definition of energy or momentum | 
| 43 | appl->GetPrimaryGenerator()->SetParticle(1000020040); | 
| 44 |  | 
| 45 | //define direction, theta, phi (radians) | 
| 46 | appl->GetPrimaryGenerator()->SetDirection(-TMath::Pi()/180.*0., | 
| 47 | TMath::Pi()/90.*0.); | 
| 48 |  | 
| 49 | //define total kinetic energy (GeV) | 
| 50 | appl->GetPrimaryGenerator()->SetKinEnergy(8.); | 
| 51 |  | 
| 52 | //define initial position in PAMELA reference system | 
| 53 | appl->GetPrimaryGenerator()->SetPosition(2.,2.,120.); | 
| 54 |  | 
| 55 |  | 
| 56 | //run MC in loop and visualize for 1 evnent | 
| 57 | for (Int_t i=0; i<11; i++){ | 
| 58 | if (i==10) ((TGeant4*)gMC)->ProcessGeantMacro(PAM_VMC+"/config/g4vis.in"); | 
| 59 | appl->RunMC(1); | 
| 60 | } | 
| 61 |  | 
| 62 | //Starting Geant-4 interface if needed | 
| 63 | //((TGeant4*)gMC)->StartGeantUI(); | 
| 64 |  | 
| 65 | // finish run, write output files | 
| 66 | appl->FinishRun(); | 
| 67 | delete appl; | 
| 68 | } |