1 |
// $Id: PamVMCApplication.cxx,v 1.0 2007/06/01 |
2 |
// |
3 |
// Geant4 ExampleN06 adapted to Virtual Monte Carlo |
4 |
#include <cstdlib> |
5 |
#include <string> |
6 |
#include <TROOT.h> |
7 |
#include <TInterpreter.h> |
8 |
#include <TVirtualMC.h> |
9 |
#include <Riostream.h> |
10 |
#include <TGeoManager.h> |
11 |
#include <TVirtualGeoTrack.h> |
12 |
|
13 |
#include "PamVMCApplication.h" |
14 |
#include "PamVMCStack.h" |
15 |
#include "PamVMCDetectorConstruction.h" |
16 |
#include "PamVMCPrimaryGenerator.h" |
17 |
|
18 |
ClassImp(PamVMCApplication) |
19 |
|
20 |
PamVMCApplication::PamVMCApplication(const char *name, const char *title) |
21 |
: TVirtualMCApplication(name,title), |
22 |
fEventNo(0), |
23 |
fVerbose(0), |
24 |
fStack(0), |
25 |
fDetConstruction(0), |
26 |
fPrimaryGenerator(0) |
27 |
{ |
28 |
// Standard constructor |
29 |
|
30 |
// Create a user stack |
31 |
fStack = new PamVMCStack(10000); |
32 |
|
33 |
// Create detector construction |
34 |
fDetConstruction = new PamVMCDetectorConstruction(); |
35 |
|
36 |
// Create a primary generator |
37 |
fPrimaryGenerator = new PamVMCPrimaryGenerator(fStack); |
38 |
#ifdef PAMFIELD |
39 |
// Load the PAMELA magnetic field |
40 |
|
41 |
std::string pamcal=getenv("PAM_CALIB"); pamcal+="/trk-param/"; |
42 |
std::cout << "PAMELA env: " << pamcal << std::endl; |
43 |
pamfield.LoadField(pamcal.c_str()); |
44 |
#endif |
45 |
} |
46 |
|
47 |
|
48 |
PamVMCApplication::PamVMCApplication() |
49 |
: TVirtualMCApplication(), |
50 |
fEventNo(0), |
51 |
fVerbose(0), |
52 |
fStack(0), |
53 |
fDetConstruction(0), |
54 |
fPrimaryGenerator(0) |
55 |
{ |
56 |
// Default constructor |
57 |
} |
58 |
|
59 |
PamVMCApplication::~PamVMCApplication() |
60 |
{ |
61 |
// Destructor |
62 |
|
63 |
delete fStack; |
64 |
delete fDetConstruction; |
65 |
delete fPrimaryGenerator; |
66 |
delete gMC; |
67 |
gMC = 0; |
68 |
} |
69 |
|
70 |
// |
71 |
// public methods |
72 |
// |
73 |
|
74 |
void PamVMCApplication::InitMC(const char* setup) |
75 |
{ |
76 |
// Initialize MC. |
77 |
|
78 |
fVerbose.InitMC(); |
79 |
|
80 |
gROOT->LoadMacro(setup); |
81 |
gInterpreter->ProcessLine("Config()"); |
82 |
gMC->SetStack(fStack); |
83 |
gMC->Init(); |
84 |
gMC->BuildPhysics(); |
85 |
} |
86 |
|
87 |
void PamVMCApplication::RunMC(Int_t nofEvents) |
88 |
{ |
89 |
// MC run. |
90 |
|
91 |
fVerbose.RunMC(nofEvents); |
92 |
|
93 |
gMC->ProcessRun(nofEvents); |
94 |
|
95 |
//// fVerbose.FinishRun(); |
96 |
} |
97 |
|
98 |
void PamVMCApplication::ConstructGeometry() |
99 |
{ |
100 |
// Construct geometry using detector contruction class |
101 |
|
102 |
fVerbose.ConstructGeometry(); |
103 |
fDetConstruction->ConstructGeometry(); |
104 |
|
105 |
} |
106 |
|
107 |
void PamVMCApplication::InitGeometry() |
108 |
{ |
109 |
// Initialize geometry |
110 |
|
111 |
fVerbose.InitGeometry(); |
112 |
} |
113 |
|
114 |
|
115 |
void PamVMCApplication::GeneratePrimaries() |
116 |
{ |
117 |
// Fill the user stack (derived from TVirtualMCStack) with primary particles. |
118 |
|
119 |
///// fVerbose.GeneratePrimaries(); |
120 |
|
121 |
fPrimaryGenerator->GeneratePrimaries(); |
122 |
} |
123 |
|
124 |
void PamVMCApplication::BeginEvent() |
125 |
{ |
126 |
// User actions at beginning of event |
127 |
|
128 |
///// fVerbose.BeginEvent(); |
129 |
|
130 |
fEventNo++; |
131 |
} |
132 |
|
133 |
void PamVMCApplication::BeginPrimary() |
134 |
{ |
135 |
// User actions at beginning of a primary track |
136 |
|
137 |
//// fVerbose.BeginPrimary(); |
138 |
} |
139 |
|
140 |
void PamVMCApplication::PreTrack() |
141 |
{ |
142 |
// User actions at beginning of each track |
143 |
|
144 |
////// fVerbose.PreTrack(); |
145 |
|
146 |
} |
147 |
|
148 |
void PamVMCApplication::Stepping() |
149 |
{ |
150 |
// User actions at each step |
151 |
|
152 |
////// fVerbose.Stepping(); |
153 |
} |
154 |
|
155 |
void PamVMCApplication::PostTrack() |
156 |
{ |
157 |
// User actions after finishing of each track |
158 |
|
159 |
|
160 |
///// fVerbose.PostTrack(); |
161 |
} |
162 |
|
163 |
void PamVMCApplication::FinishPrimary() |
164 |
{ |
165 |
// User actions after finishing of a primary track |
166 |
|
167 |
///// fVerbose.FinishPrimary(); |
168 |
} |
169 |
|
170 |
void PamVMCApplication::FinishEvent() |
171 |
{ |
172 |
// User actions after finishing of an event |
173 |
|
174 |
|
175 |
/////fVerbose.FinishEvent(); |
176 |
|
177 |
|
178 |
|
179 |
fStack->Reset(); |
180 |
} |
181 |
|
182 |
void PamVMCApplication::Field(const Double_t* x, Double_t* b) const |
183 |
{ |
184 |
// Uniform magnetic field |
185 |
|
186 |
#ifdef PAMFIELD |
187 |
b[0] = pamfield.GetBX((float *)x); |
188 |
b[1] = pamfield.GetBY((float *)x); |
189 |
b[2] = pamfield.GetBZ((float *)x); |
190 |
#else |
191 |
for (Int_t i=0; i<3; i++) b[i] = 0.0; |
192 |
#endif |
193 |
} |