/**************************************************************************
* Copyright(c) 1998-1999, ALICE Experiment at CERN, All rights reserved. *
* *
* Author: The ALICE Off-line Project. *
* Contributors are mentioned in the code where appropriate. *
* *
* Permission to use, copy, modify and distribute this software and its *
* documentation strictly for non-commercial purposes is hereby granted *
* without fee, provided that the above copyright notice appears in all *
* copies and that both the copyright notice and this permission notice *
* appear in the supporting documentation. The authors make no claims *
* about the suitability of this software for any purpose. It is *
* provided "as is" without express or implied warranty. *
**************************************************************************/
/*
$Log$
Revision 1.26 2000/03/22 13:42:26 fca
SetGenerator does not replace an existing generator, ResetGenerator does
Revision 1.25 2000/02/23 16:25:22 fca
AliVMC and AliGeant3 classes introduced
ReadEuclid moved from AliRun to AliModule
Revision 1.24 2000/01/19 17:17:20 fca
Introducing a list of lists of hits -- more hits allowed for detector now
Revision 1.23 1999/12/03 11:14:31 fca
Fixing previous wrong checking
Revision 1.21 1999/11/25 10:40:08 fca
Fixing daughters information also in primary tracks
Revision 1.20 1999/10/04 18:08:49 fca
Adding protection against inconsistent Euclid files
Revision 1.19 1999/09/29 07:50:40 fca
Introduction of the Copyright and cvs Log
*/
///////////////////////////////////////////////////////////////////////////////
// //
// Control class for Alice C++ //
// Only one single instance of this class exists. //
// The object is created in main program aliroot //
// and is pointed by the global gAlice. //
// //
// -Supports the list of all Alice Detectors (fModules). //
// -Supports the list of particles (fParticles). //
// -Supports the Trees. //
// -Supports the geometry. //
// -Supports the event display. //
//Begin_Html
/*
*/
//End_Html
//Begin_Html
/*
*/
//End_Html
// //
///////////////////////////////////////////////////////////////////////////////
#include
#include
#include
#include
#include
#include
#include
#include "TParticle.h"
#include "AliRun.h"
#include "AliDisplay.h"
#include "AliVMC.h"
#include
#include
#include
AliRun *gAlice;
static AliHeader *header;
static TArrayF sEventEnergy;
static TArrayF sSummEnergy;
static TArrayF sSum2Energy;
ClassImp(AliRun)
//_____________________________________________________________________________
AliRun::AliRun()
{
//
// Default constructor for AliRun
//
header=&fHeader;
fRun = 0;
fEvent = 0;
fCurrent = -1;
fModules = 0;
fGenerator = 0;
fTreeD = 0;
fTreeK = 0;
fTreeH = 0;
fTreeE = 0;
fTreeR = 0;
fParticles = 0;
fGeometry = 0;
fDisplay = 0;
fField = 0;
fVMC = 0;
fNdets = 0;
fImedia = 0;
fTrRmax = 1.e10;
fTrZmax = 1.e10;
fInitDone = kFALSE;
fLego = 0;
fPDGDB = 0; //Particle factory object!
fHitLists = 0;
}
//_____________________________________________________________________________
AliRun::AliRun(const char *name, const char *title)
: TNamed(name,title)
{
//
// Constructor for the main processor.
// Creates the geometry
// Creates the list of Detectors.
// Creates the list of particles.
//
Int_t i;
gAlice = this;
fTreeD = 0;
fTreeK = 0;
fTreeH = 0;
fTreeE = 0;
fTreeR = 0;
fTrRmax = 1.e10;
fTrZmax = 1.e10;
fGenerator = 0;
fInitDone = kFALSE;
fLego = 0;
fField = 0;
gROOT->GetListOfBrowsables()->Add(this,name);
//
// create the support list for the various Detectors
fModules = new TObjArray(77);
//
// Create the TNode geometry for the event display
BuildSimpleGeometry();
fNtrack=0;
fHgwmk=0;
fCurrent=-1;
header=&fHeader;
fRun = 0;
fEvent = 0;
//
// Create the particle stack
fParticles = new TClonesArray("TParticle",100);
fDisplay = 0;
//
// Create default mag field
SetField();
//
fVMC = gVMC;
//
// Prepare the tracking medium lists
fImedia = new TArrayI(1000);
for(i=0;i<1000;i++) (*fImedia)[i]=-99;
//
// Make particles
fPDGDB = TDatabasePDG::Instance(); //Particle factory object!
//
// Create HitLists list
fHitLists = new TList();
}
//_____________________________________________________________________________
AliRun::~AliRun()
{
//
// Defaullt AliRun destructor
//
delete fImedia;
delete fField;
delete fVMC;
delete fGeometry;
delete fDisplay;
delete fGenerator;
delete fLego;
delete fTreeD;
delete fTreeK;
delete fTreeH;
delete fTreeE;
delete fTreeR;
if (fModules) {
fModules->Delete();
delete fModules;
}
if (fParticles) {
fParticles->Delete();
delete fParticles;
}
delete fHitLists;
}
//_____________________________________________________________________________
void AliRun::AddHit(Int_t id, Int_t track, Int_t *vol, Float_t *hits) const
{
//
// Add a hit to detector id
//
TObjArray &dets = *fModules;
if(dets[id]) ((AliModule*) dets[id])->AddHit(track,vol,hits);
}
//_____________________________________________________________________________
void AliRun::AddDigit(Int_t id, Int_t *tracks, Int_t *digits) const
{
//
// Add digit to detector id
//
TObjArray &dets = *fModules;
if(dets[id]) ((AliModule*) dets[id])->AddDigit(tracks,digits);
}
//_____________________________________________________________________________
void AliRun::Browse(TBrowser *b)
{
//
// Called when the item "Run" is clicked on the left pane
// of the Root browser.
// It displays the Root Trees and all detectors.
//
if (fTreeK) b->Add(fTreeK,fTreeK->GetName());
if (fTreeH) b->Add(fTreeH,fTreeH->GetName());
if (fTreeD) b->Add(fTreeD,fTreeD->GetName());
if (fTreeE) b->Add(fTreeE,fTreeE->GetName());
if (fTreeR) b->Add(fTreeR,fTreeR->GetName());
TIter next(fModules);
AliModule *detector;
while((detector = (AliModule*)next())) {
b->Add(detector,detector->GetName());
}
}
//_____________________________________________________________________________
void AliRun::Build()
{
//
// Initialize Alice geometry
// Dummy routine
//
}
//_____________________________________________________________________________
void AliRun::BuildSimpleGeometry()
{
//
// Create a simple TNode geometry used by Root display engine
//
// Initialise geometry
//
fGeometry = new TGeometry("AliceGeom","Galice Geometry for Hits");
new TMaterial("void","Vacuum",0,0,0); //Everything is void
TBRIK *brik = new TBRIK("S_alice","alice volume","void",2000,2000,3000);
brik->SetVisibility(0);
new TNode("alice","alice","S_alice");
}
//_____________________________________________________________________________
void AliRun::CleanDetectors()
{
//
// Clean Detectors at the end of event
//
TIter next(fModules);
AliModule *detector;
while((detector = (AliModule*)next())) {
detector->FinishEvent();
}
}
//_____________________________________________________________________________
void AliRun::CleanParents()
{
//
// Clean Particles stack.
// Set parent/daughter relations
//
TClonesArray &particles = *(gAlice->Particles());
TParticle *part;
int i;
for(i=0; iTestBit(Daughters_Bit)) {
part->SetFirstDaughter(-1);
part->SetLastDaughter(-1);
}
}
}
//_____________________________________________________________________________
Int_t AliRun::DistancetoPrimitive(Int_t, Int_t)
{
//
// Return the distance from the mouse to the AliRun object
// Dummy routine
//
return 9999;
}
//_____________________________________________________________________________
void AliRun::DumpPart (Int_t i)
{
//
// Dumps particle i in the stack
//
TClonesArray &particles = *fParticles;
((TParticle*) particles[i])->Print();
}
//_____________________________________________________________________________
void AliRun::DumpPStack ()
{
//
// Dumps the particle stack
//
TClonesArray &particles = *fParticles;
printf(
"\n\n=======================================================================\n");
for (Int_t i=0;i %d ",i); ((TParticle*) particles[i])->Print();
printf("--------------------------------------------------------------\n");
}
printf(
"\n=======================================================================\n\n");
}
//_____________________________________________________________________________
void AliRun::SetField(Int_t type, Int_t version, Float_t scale,
Float_t maxField, char* filename)
{
//
// Set magnetic field parameters
// type Magnetic field transport flag 0=no field, 2=helix, 3=Runge Kutta
// version Magnetic field map version (only 1 active now)
// scale Scale factor for the magnetic field
// maxField Maximum value for the magnetic field
//
// --- Sanity check on mag field flags
if(type<0 || type > 2) {
Warning("SetField",
"Invalid magnetic field flag: %5d; Helix tracking chosen instead\n"
,type);
type=2;
}
if(fField) delete fField;
if(version==1) {
fField = new AliMagFC("Map1"," ",type,version,scale,maxField);
} else if(version<=3) {
fField = new AliMagFCM("Map2-3",filename,type,version,scale,maxField);
fField->ReadField();
} else {
Warning("SetField","Invalid map %d\n",version);
}
}
//_____________________________________________________________________________
void AliRun::FillTree()
{
//
// Fills all AliRun TTrees
//
if (fTreeK) fTreeK->Fill();
if (fTreeH) fTreeH->Fill();
if (fTreeD) fTreeD->Fill();
if (fTreeR) fTreeR->Fill();
}
//_____________________________________________________________________________
void AliRun::FinishPrimary()
{
//
// Called at the end of each primary track
//
// static Int_t count=0;
// const Int_t times=10;
// This primary is finished, purify stack
PurifyKine();
// Write out hits if any
if (gAlice->TreeH()) {
gAlice->TreeH()->Fill();
}
// Reset Hits info
gAlice->ResetHits();
//
// if(++count%times==1) gObjectTable->Print();
}
//_____________________________________________________________________________
void AliRun::FinishEvent()
{
//
// Called at the end of the event.
//
//Update the energy deposit tables
Int_t i;
for(i=0;iFill();
}
// Write out the digits
if (fTreeD) {
fTreeD->Fill();
ResetDigits();
}
// Write out reconstructed clusters
if (fTreeR) {
fTreeR->Fill();
}
// Write out the event Header information
if (fTreeE) fTreeE->Fill();
// Reset stack info
ResetStack();
// Write Tree headers
// Int_t ievent = fHeader.GetEvent();
// char hname[30];
// sprintf(hname,"TreeK%d",ievent);
if (fTreeK) fTreeK->Write();
// sprintf(hname,"TreeH%d",ievent);
if (fTreeH) fTreeH->Write();
// sprintf(hname,"TreeD%d",ievent);
if (fTreeD) fTreeD->Write();
// sprintf(hname,"TreeR%d",ievent);
if (fTreeR) fTreeR->Write();
}
//_____________________________________________________________________________
void AliRun::FinishRun()
{
//
// Called at the end of the run.
//
// Clean detector information
TIter next(fModules);
AliModule *detector;
while((detector = (AliModule*)next())) {
detector->FinishRun();
}
//Output energy summary tables
EnergySummary();
// file is retrieved from whatever tree
TFile *File = 0;
if (fTreeK) File = fTreeK->GetCurrentFile();
if ((!File) && (fTreeH)) File = fTreeH->GetCurrentFile();
if ((!File) && (fTreeD)) File = fTreeD->GetCurrentFile();
if ((!File) && (fTreeE)) File = fTreeE->GetCurrentFile();
if( NULL==File ) {
Error("FinishRun","There isn't root file!");
exit(1);
}
File->cd();
fTreeE->Write();
// Clean tree information
delete fTreeK; fTreeK = 0;
delete fTreeH; fTreeH = 0;
delete fTreeD; fTreeD = 0;
delete fTreeR; fTreeR = 0;
delete fTreeE; fTreeE = 0;
// Write AliRun info and all detectors parameters
Write();
// Close output file
File->Write();
}
//_____________________________________________________________________________
void AliRun::FlagTrack(Int_t track)
{
//
// Flags a track and all its family tree to be kept
//
int curr;
TParticle *particle;
curr=track;
while(1) {
particle=(TParticle*)fParticles->UncheckedAt(curr);
// If the particle is flagged the three from here upward is saved already
if(particle->TestBit(Keep_Bit)) return;
// Save this particle
particle->SetBit(Keep_Bit);
// Move to father if any
if((curr=particle->GetFirstMother())==-1) return;
}
}
//_____________________________________________________________________________
void AliRun::EnergySummary()
{
//
// Print summary of deposited energy
//
Int_t ndep=0;
Float_t edtot=0;
Float_t ed, ed2;
Int_t kn, i, left, j, id;
const Float_t zero=0;
Int_t ievent=fHeader.GetEvent()+1;
//
// Energy loss information
if(ievent) {
printf("***************** Energy Loss Information per event (GEV) *****************\n");
for(kn=1;kn0) {
sEventEnergy[ndep]=kn;
if(ievent>1) {
ed=ed/ievent;
ed2=sSum2Energy[kn];
ed2=ed2/ievent;
ed2=100*TMath::Sqrt(TMath::Max(ed2-ed*ed,zero))/ed;
} else
ed2=99;
sSummEnergy[ndep]=ed;
sSum2Energy[ndep]=TMath::Min((Float_t) 99.,TMath::Max(ed2,zero));
edtot+=ed;
ndep++;
}
}
for(kn=0;kn<(ndep-1)/3+1;kn++) {
left=ndep-kn*3;
for(i=0;i<(3VolName(id),sSummEnergy[j],sSum2Energy[j]);
}
printf("\n");
}
//
// Relative energy loss in different detectors
printf("******************** Relative Energy Loss per event ********************\n");
printf("Total energy loss per event %10.3f GeV\n",edtot);
for(kn=0;kn<(ndep-1)/5+1;kn++) {
left=ndep-kn*5;
for(i=0;i<(5VolName(id),100*sSummEnergy[j]/edtot);
}
printf("\n");
}
for(kn=0;kn<75;kn++) printf("*");
printf("\n");
}
//
// Reset the TArray's
// sEventEnergy.Set(0);
// sSummEnergy.Set(0);
// sSum2Energy.Set(0);
}
//_____________________________________________________________________________
AliModule *AliRun::GetModule(const char *name)
{
//
// Return pointer to detector from name
//
return (AliModule*)fModules->FindObject(name);
}
//_____________________________________________________________________________
AliDetector *AliRun::GetDetector(const char *name)
{
//
// Return pointer to detector from name
//
return (AliDetector*)fModules->FindObject(name);
}
//_____________________________________________________________________________
Int_t AliRun::GetModuleID(const char *name)
{
//
// Return galice internal detector identifier from name
//
Int_t i=-1;
TObject *mod=fModules->FindObject(name);
if(mod) i=fModules->IndexOf(mod);
return i;
}
//_____________________________________________________________________________
Int_t AliRun::GetEvent(Int_t event)
{
//
// Connect the Trees Kinematics and Hits for event # event
// Set branch addresses
//
// Reset existing structures
ResetStack();
ResetHits();
ResetDigits();
// Delete Trees already connected
if (fTreeK) delete fTreeK;
if (fTreeH) delete fTreeH;
if (fTreeD) delete fTreeD;
if (fTreeR) delete fTreeR;
// Get header from file
if(fTreeE) fTreeE->GetEntry(event);
else Error("GetEvent","Cannot file Header Tree\n");
// Get Kine Tree from file
char treeName[20];
sprintf(treeName,"TreeK%d",event);
fTreeK = (TTree*)gDirectory->Get(treeName);
if (fTreeK) fTreeK->SetBranchAddress("Particles", &fParticles);
else Error("GetEvent","cannot find Kine Tree for event:%d\n",event);
// Get Hits Tree header from file
sprintf(treeName,"TreeH%d",event);
fTreeH = (TTree*)gDirectory->Get(treeName);
if (!fTreeH) {
Error("GetEvent","cannot find Hits Tree for event:%d\n",event);
}
// Get Digits Tree header from file
sprintf(treeName,"TreeD%d",event);
fTreeD = (TTree*)gDirectory->Get(treeName);
if (!fTreeD) {
Warning("GetEvent","cannot find Digits Tree for event:%d\n",event);
}
// Get Reconstruct Tree header from file
sprintf(treeName,"TreeR%d",event);
fTreeR = (TTree*)gDirectory->Get(treeName);
if (!fTreeR) {
// printf("WARNING: cannot find Reconstructed Tree for event:%d\n",event);
}
// Set Trees branch addresses
TIter next(fModules);
AliModule *detector;
while((detector = (AliModule*)next())) {
detector->SetTreeAddress();
}
if (fTreeK) fTreeK->GetEvent(0);
fNtrack = Int_t (fParticles->GetEntries());
return fNtrack;
}
//_____________________________________________________________________________
TGeometry *AliRun::GetGeometry()
{
//
// Import Alice geometry from current file
// Return pointer to geometry object
//
if (!fGeometry) fGeometry = (TGeometry*)gDirectory->Get("AliceGeom");
//
// Unlink and relink nodes in detectors
// This is bad and there must be a better way...
//
TIter next(fModules);
AliModule *detector;
while((detector = (AliModule*)next())) {
detector->SetTreeAddress();
TList *dnodes=detector->Nodes();
Int_t j;
TNode *node, *node1;
for ( j=0; jGetSize(); j++) {
node = (TNode*) dnodes->At(j);
node1 = fGeometry->GetNode(node->GetName());
dnodes->Remove(node);
dnodes->AddAt(node1,j);
}
}
return fGeometry;
}
//_____________________________________________________________________________
void AliRun::GetNextTrack(Int_t &mtrack, Int_t &ipart, Float_t *pmom,
Float_t &e, Float_t *vpos, Float_t *polar,
Float_t &tof)
{
//
// Return next track from stack of particles
//
TVector3 pol;
fCurrent=-1;
TParticle *track;
for(Int_t i=fNtrack-1; i>=0; i--) {
track=(TParticle*) fParticles->UncheckedAt(i);
if(!track->TestBit(Done_Bit)) {
//
// The track has not yet been processed
fCurrent=i;
ipart=track->GetPdgCode();
pmom[0]=track->Px();
pmom[1]=track->Py();
pmom[2]=track->Pz();
e =track->Energy();
vpos[0]=track->Vx();
vpos[1]=track->Vy();
vpos[2]=track->Vz();
track->GetPolarisation(pol);
polar[0]=pol.X();
polar[1]=pol.Y();
polar[2]=pol.Z();
tof=track->T();
track->SetBit(Done_Bit);
break;
}
}
mtrack=fCurrent;
//
// stop and start timer when we start a primary track
Int_t nprimaries = fHeader.GetNprimary();
if (fCurrent >= nprimaries) return;
if (fCurrent < nprimaries-1) {
fTimer.Stop();
track=(TParticle*) fParticles->UncheckedAt(fCurrent+1);
// track->SetProcessTime(fTimer.CpuTime());
}
fTimer.Start();
}
//_____________________________________________________________________________
Int_t AliRun::GetPrimary(Int_t track)
{
//
// return number of primary that has generated track
//
int current, parent;
TParticle *part;
//
parent=track;
while (1) {
current=parent;
part = (TParticle *)fParticles->UncheckedAt(current);
parent=part->GetFirstMother();
if(parent<0) return current;
}
}
//_____________________________________________________________________________
void AliRun::Init(const char *setup)
{
//
// Initialize the Alice setup
//
gROOT->LoadMacro(setup);
gInterpreter->ProcessLine("Config();");
gMC->DefineParticles(); //Create standard MC particles
TObject *objfirst, *objlast;
fNdets = fModules->GetLast()+1;
//
//=================Create Materials, geometry, histograms, etc
TIter next(fModules);
AliModule *detector;
while((detector = (AliModule*)next())) {
detector->SetTreeAddress();
objlast = gDirectory->GetList()->Last();
// Initialise detector materials, geometry, histograms,etc
detector->CreateMaterials();
detector->CreateGeometry();
detector->BuildGeometry();
detector->Init();
// Add Detector histograms in Detector list of histograms
if (objlast) objfirst = gDirectory->GetList()->After(objlast);
else objfirst = gDirectory->GetList()->First();
while (objfirst) {
detector->Histograms()->Add(objfirst);
objfirst = gDirectory->GetList()->After(objfirst);
}
}
SetTransPar(); //Read the cuts for all materials
MediaTable(); //Build the special IMEDIA table
//Terminate building of geometry
printf("%p\n",gVMC);
gVMC->FinishGeometry();
//Initialise geometry deposition table
sEventEnergy.Set(gMC->NofVolumes()+1);
sSummEnergy.Set(gMC->NofVolumes()+1);
sSum2Energy.Set(gMC->NofVolumes()+1);
//Compute cross-sections
gVMC->BuildPhysics();
//Write Geometry object to current file.
fGeometry->Write();
fInitDone = kTRUE;
}
//_____________________________________________________________________________
void AliRun::MediaTable()
{
//
// Built media table to get from the media number to
// the detector id
//
Int_t kz, nz, idt, lz, i, k, ind;
// Int_t ibeg;
TObjArray &dets = *gAlice->Detectors();
AliModule *det;
//
// For all detectors
for (kz=0;kzGetIdtmed());
for(nz=0;nz<100;nz++) {
// Find max and min material number
if((idt=idtmed[nz])) {
det->LoMedium() = det->LoMedium() < idt ? det->LoMedium() : idt;
det->HiMedium() = det->HiMedium() > idt ? det->HiMedium() : idt;
}
}
if(det->LoMedium() > det->HiMedium()) {
det->LoMedium() = 0;
det->HiMedium() = 0;
} else {
if(det->HiMedium() > fImedia->GetSize()) {
Error("MediaTable","Increase fImedia from %d to %d",
fImedia->GetSize(),det->HiMedium());
return;
}
// Tag all materials in rage as belonging to detector kz
for(lz=det->LoMedium(); lz<= det->HiMedium(); lz++) {
(*fImedia)[lz]=kz;
}
}
}
}
//
// Print summary table
printf(" Traking media ranges:\n");
for(i=0;i<(fNdets-1)/6+1;i++) {
for(k=0;k< (6 %3d;",det->GetName(),det->LoMedium(),
det->HiMedium());
else
printf(" %6s: %3d -> %3d;","NULL",0,0);
}
printf("\n");
}
}
//____________________________________________________________________________
void AliRun::SetGenerator(AliGenerator *generator)
{
//
// Load the event generator
//
if(!fGenerator) fGenerator = generator;
}
//____________________________________________________________________________
void AliRun::ResetGenerator(AliGenerator *generator)
{
//
// Load the event generator
//
if(fGenerator)
Warning("ResetGenerator","Replacing generator %s with %s\n",
fGenerator->GetName(),generator->GetName());
fGenerator = generator;
}
//____________________________________________________________________________
void AliRun::SetTransPar(char* filename)
{
//
// Read filename to set the transport parameters
//
const Int_t ncuts=10;
const Int_t nflags=11;
const Int_t npars=ncuts+nflags;
const char pars[npars][7] = {"CUTGAM" ,"CUTELE","CUTNEU","CUTHAD","CUTMUO",
"BCUTE","BCUTM","DCUTE","DCUTM","PPCUTM","ANNI",
"BREM","COMP","DCAY","DRAY","HADR","LOSS",
"MULS","PAIR","PHOT","RAYL"};
char line[256];
char detName[7];
char* filtmp;
Float_t cut[ncuts];
Int_t flag[nflags];
Int_t i, itmed, iret, ktmed, kz;
FILE *lun;
//
// See whether the file is there
filtmp=gSystem->ExpandPathName(filename);
lun=fopen(filtmp,"r");
delete [] filtmp;
if(!lun) {
Warning("SetTransPar","File %s does not exist!\n",filename);
return;
}
//
printf(" "); for(i=0;i<60;i++) printf("*"); printf("\n");
printf(" *%59s\n","*");
printf(" * Please check carefully what you are doing!%10s\n","*");
printf(" *%59s\n","*");
//
while(1) {
// Initialise cuts and flags
for(i=0;iGetIdtmed();
// Check that the tracking medium code is valid
if(0<=itmed && itmed < 100) {
ktmed=idtmed[itmed];
if(!ktmed) {
Warning("SetTransPar","Invalid tracking medium code %d for %s\n",itmed,mod->GetName());
continue;
}
// Set energy thresholds
for(kz=0;kz=0) {
printf(" * %-6s set to %10.3E for tracking medium code %4d for %s\n",
pars[kz],cut[kz],itmed,mod->GetName());
gMC->Gstpar(ktmed,pars[kz],cut[kz]);
}
}
// Set transport mechanisms
for(kz=0;kz=0) {
printf(" * %-6s set to %10d for tracking medium code %4d for %s\n",
pars[ncuts+kz],flag[kz],itmed,mod->GetName());
gMC->Gstpar(ktmed,pars[ncuts+kz],Float_t(flag[kz]));
}
}
} else {
Warning("SetTransPar","Invalid medium code %d *\n",itmed);
continue;
}
} else {
Warning("SetTransPar","Module %s not present\n",detName);
continue;
}
}
}
//_____________________________________________________________________________
void AliRun::MakeTree(Option_t *option)
{
//
// Create the ROOT trees
// Loop on all detectors to create the Root branch (if any)
//
char hname[30];
//
// Analyse options
char *K = strstr(option,"K");
char *H = strstr(option,"H");
char *E = strstr(option,"E");
char *D = strstr(option,"D");
char *R = strstr(option,"R");
//
if (K && !fTreeK) {
sprintf(hname,"TreeK%d",fEvent);
fTreeK = new TTree(hname,"Kinematics");
// Create a branch for particles
fTreeK->Branch("Particles",&fParticles,4000);
}
if (H && !fTreeH) {
sprintf(hname,"TreeH%d",fEvent);
fTreeH = new TTree(hname,"Hits");
fTreeH->SetAutoSave(1000000000); //no autosave
}
if (D && !fTreeD) {
sprintf(hname,"TreeD%d",fEvent);
fTreeD = new TTree(hname,"Digits");
}
if (R && !fTreeR) {
sprintf(hname,"TreeR%d",fEvent);
fTreeR = new TTree(hname,"Reconstruction");
}
if (E && !fTreeE) {
fTreeE = new TTree("TE","Header");
// Create a branch for Header
fTreeE->Branch("Header","AliHeader",&header,4000);
}
//
// Create a branch for hits/digits for each detector
// Each branch is a TClonesArray. Each data member of the Hits classes
// will be in turn a subbranch of the detector master branch
TIter next(fModules);
AliModule *detector;
while((detector = (AliModule*)next())) {
if (H || D || R) detector->MakeBranch(option);
}
}
//_____________________________________________________________________________
Int_t AliRun::PurifyKine(Int_t lastSavedTrack, Int_t nofTracks)
{
//
// PurifyKine with external parameters
//
fHgwmk = lastSavedTrack;
fNtrack = nofTracks;
PurifyKine();
return fHgwmk;
}
//_____________________________________________________________________________
void AliRun::PurifyKine()
{
//
// Compress kinematic tree keeping only flagged particles
// and renaming the particle id's in all the hits
//
TClonesArray &particles = *fParticles;
int nkeep=fHgwmk+1, parent, i;
TParticle *part, *partnew, *father;
int *map = new int[particles.GetEntries()];
// Save in Header total number of tracks before compression
fHeader.SetNtrack(fHeader.GetNtrack()+fNtrack-fHgwmk);
// Preset map, to be removed later
for(i=0; iTestBit(Keep_Bit)) {
// This particle has to be kept
map[i]=nkeep;
if(i!=nkeep) {
// Old and new are different, have to copy
partnew = (TParticle *)particles.UncheckedAt(nkeep);
*partnew = *part;
} else partnew = part;
// as the parent is always *before*, it must be already
// in place. This is what we are checking anyway!
if((parent=partnew->GetFirstMother())>fHgwmk) {
if(map[parent]==-99) printf("map[%d] = -99!\n",parent);
partnew->SetFirstMother(map[parent]);
}
nkeep++;
}
}
fNtrack=nkeep;
// Fix daughters information
for (i=0; iGetFirstMother();
if(parent>=0) {
father = (TParticle *)particles.UncheckedAt(parent);
if(father->TestBit(Daughters_Bit)) {
if(iGetFirstDaughter()) father->SetFirstDaughter(i);
if(i>father->GetLastDaughter()) father->SetLastDaughter(i);
} else {
// Iitialise daughters info for first pass
father->SetFirstDaughter(i);
father->SetLastDaughter(i);
father->SetBit(Daughters_Bit);
}
}
}
#ifdef old
// Now loop on all detectors and reset the hits
AliHit *OneHit;
TIter next(fModules);
AliModule *detector;
while((detector = (AliModule*)next())) {
if (!detector->Hits()) continue;
TClonesArray &vHits=*(detector->Hits());
if(vHits.GetEntries() != detector->GetNhits())
printf("vHits.GetEntries()!=detector->GetNhits(): %d != %d\n",
vHits.GetEntries(),detector->GetNhits());
for (i=0; iGetNhits(); i++) {
OneHit = (AliHit *)vHits.UncheckedAt(i);
OneHit->SetTrack(map[OneHit->GetTrack()]);
}
}
#else
// Now loop on all registered hit lists
TIter next(fHitLists);
TCollection *hitList;
while((hitList = (TCollection*)next())) {
TIter nexthit(hitList);
AliHit *hit;
while((hit = (AliHit*)nexthit())) {
hit->SetTrack(map[hit->GetTrack()]);
}
}
#endif
fHgwmk=nkeep-1;
particles.SetLast(fHgwmk);
delete [] map;
}
//_____________________________________________________________________________
void AliRun::Reset(Int_t run, Int_t idevent)
{
//
// Reset all Detectors & kinematics & trees
//
char hname[30];
//
ResetStack();
ResetHits();
ResetDigits();
// Initialise event header
fHeader.Reset(run,idevent);
if(fTreeK) {
fTreeK->Reset();
sprintf(hname,"TreeK%d",idevent);
fTreeK->SetName(hname);
}
if(fTreeH) {
fTreeH->Reset();
sprintf(hname,"TreeH%d",idevent);
fTreeH->SetName(hname);
}
if(fTreeD) {
fTreeD->Reset();
sprintf(hname,"TreeD%d",idevent);
fTreeD->SetName(hname);
}
if(fTreeR) {
fTreeR->Reset();
sprintf(hname,"TreeR%d",idevent);
fTreeR->SetName(hname);
}
}
//_____________________________________________________________________________
void AliRun::ResetDigits()
{
//
// Reset all Detectors digits
//
TIter next(fModules);
AliModule *detector;
while((detector = (AliModule*)next())) {
detector->ResetDigits();
}
}
//_____________________________________________________________________________
void AliRun::ResetHits()
{
//
// Reset all Detectors hits
//
TIter next(fModules);
AliModule *detector;
while((detector = (AliModule*)next())) {
detector->ResetHits();
}
}
//_____________________________________________________________________________
void AliRun::ResetPoints()
{
//
// Reset all Detectors points
//
TIter next(fModules);
AliModule *detector;
while((detector = (AliModule*)next())) {
detector->ResetPoints();
}
}
//_____________________________________________________________________________
void AliRun::Run(Int_t nevent, const char *setup)
{
//
// Main function to be called to process a galice run
// example
// Root > gAlice.Run();
// a positive number of events will cause the finish routine
// to be called
//
Int_t i, todo;
// check if initialisation has been done
if (!fInitDone) Init(setup);
// Create the Root Tree with one branch per detector
MakeTree("KHDER");
todo = TMath::Abs(nevent);
for (i=0; iProcessEvent();
FinishEvent();
fEvent++;
}
// End of this run, close files
if(nevent>0) FinishRun();
}
//_____________________________________________________________________________
void AliRun::RunLego(const char *setup,Int_t ntheta,Float_t themin,
Float_t themax,Int_t nphi,Float_t phimin,Float_t phimax,
Float_t rmin,Float_t rmax,Float_t zmax)
{
//
// Generates lego plots of:
// - radiation length map phi vs theta
// - radiation length map phi vs eta
// - interaction length map
// - g/cm2 length map
//
// ntheta bins in theta, eta
// themin minimum angle in theta (degrees)
// themax maximum angle in theta (degrees)
// nphi bins in phi
// phimin minimum angle in phi (degrees)
// phimax maximum angle in phi (degrees)
// rmin minimum radius
// rmax maximum radius
//
//
// The number of events generated = ntheta*nphi
// run input parameters in macro setup (default="Config.C")
//
// Use macro "lego.C" to visualize the 3 lego plots in spherical coordinates
//Begin_Html
/*
*/
//End_Html
//Begin_Html
/*
*/
//End_Html
//Begin_Html
/*
*/
//End_Html
//
// check if initialisation has been done
if (!fInitDone) Init(setup);
//Create Lego object
fLego = new AliLego("lego",ntheta,themin,themax,nphi,phimin,phimax,rmin,rmax,zmax);
//Run Lego Object
fLego->Run();
// Create only the Root event Tree
MakeTree("E");
// End of this run, close files
FinishRun();
}
//_____________________________________________________________________________
void AliRun::SetCurrentTrack(Int_t track)
{
//
// Set current track number
//
fCurrent = track;
}
//_____________________________________________________________________________
void AliRun::SetTrack(Int_t done, Int_t parent, Int_t pdg, Float_t *pmom,
Float_t *vpos, Float_t *polar, Float_t tof,
const char *mecha, Int_t &ntr, Float_t weight)
{
//
// Load a track on the stack
//
// done 0 if the track has to be transported
// 1 if not
// parent identifier of the parent track. -1 for a primary
// pdg particle code
// pmom momentum GeV/c
// vpos position
// polar polarisation
// tof time of flight in seconds
// mecha production mechanism
// ntr on output the number of the track stored
//
TClonesArray &particles = *fParticles;
TParticle *particle;
Float_t mass;
const Int_t firstdaughter=-1;
const Int_t lastdaughter=-1;
const Int_t KS=0;
// const Float_t tlife=0;
//
// Here we get the static mass
// For MC is ok, but a more sophisticated method could be necessary
// if the calculated mass is required
// also, this method is potentially dangerous if the mass
// used in the MC is not the same of the PDG database
//
mass = TDatabasePDG::Instance()->GetParticle(pdg)->Mass();
Float_t e=TMath::Sqrt(mass*mass+pmom[0]*pmom[0]+
pmom[1]*pmom[1]+pmom[2]*pmom[2]);
//printf("Loading particle %s mass %f ene %f No %d ip %d pos %f %f %f mom %f %f %f KS %d m %s\n",
//pname,mass,e,fNtrack,pdg,vpos[0],vpos[1],vpos[2],pmom[0],pmom[1],pmom[2],KS,mecha);
particle=new(particles[fNtrack]) TParticle(pdg,KS,parent,-1,firstdaughter,
lastdaughter,pmom[0],pmom[1],pmom[2],
e,vpos[0],vpos[1],vpos[2],tof);
// polar[0],polar[1],polar[2],tof,
// mecha,weight);
((TParticle*)particles[fNtrack])->SetPolarisation(TVector3(polar[0],polar[1],polar[2]));
((TParticle*)particles[fNtrack])->SetWeight(weight);
if(!done) particle->SetBit(Done_Bit);
if(parent>=0) {
particle=(TParticle*) fParticles->UncheckedAt(parent);
particle->SetLastDaughter(fNtrack);
if(particle->GetFirstDaughter()<0) particle->SetFirstDaughter(fNtrack);
} else {
//
// This is a primary track. Set high water mark for this event
fHgwmk=fNtrack;
//
// Set also number if primary tracks
fHeader.SetNprimary(fHgwmk+1);
fHeader.SetNtrack(fHgwmk+1);
}
ntr = fNtrack++;
}
//_____________________________________________________________________________
void AliRun::KeepTrack(const Int_t track)
{
//
// flags a track to be kept
//
TClonesArray &particles = *fParticles;
((TParticle*)particles[track])->SetBit(Keep_Bit);
}
//_____________________________________________________________________________
void AliRun::StepManager(Int_t id) const
{
//
// Called at every step during transport
//
//
// --- If lego option, do it and leave
if (fLego)
fLego->StepManager();
else {
Int_t copy;
//Update energy deposition tables
sEventEnergy[gMC->CurrentVolID(copy)]+=gMC->Edep();
//Call the appropriate stepping routine;
AliModule *det = (AliModule*)fModules->At(id);
if(det) det->StepManager();
}
}
//_____________________________________________________________________________
void AliRun::Streamer(TBuffer &R__b)
{
//
// Stream an object of class AliRun.
//
if (R__b.IsReading()) {
Version_t R__v = R__b.ReadVersion(); if (R__v) { }
TNamed::Streamer(R__b);
if (!gAlice) gAlice = this;
gROOT->GetListOfBrowsables()->Add(this,"Run");
fTreeE = (TTree*)gDirectory->Get("TE");
if (fTreeE) fTreeE->SetBranchAddress("Header", &header);
else Error("Streamer","cannot find Header Tree\n");
R__b >> fNtrack;
R__b >> fHgwmk;
R__b >> fDebug;
fHeader.Streamer(R__b);
R__b >> fModules;
R__b >> fParticles;
R__b >> fField;
// R__b >> fVMC;
R__b >> fNdets;
R__b >> fTrRmax;
R__b >> fTrZmax;
R__b >> fGenerator;
if(R__v>1) {
R__b >> fPDGDB; //Particle factory object!
fTreeE->GetEntry(0);
} else {
fHeader.SetEvent(0);
fPDGDB = TDatabasePDG::Instance(); //Particle factory object!
}
} else {
R__b.WriteVersion(AliRun::IsA());
TNamed::Streamer(R__b);
R__b << fNtrack;
R__b << fHgwmk;
R__b << fDebug;
fHeader.Streamer(R__b);
R__b << fModules;
R__b << fParticles;
R__b << fField;
// R__b << fVMC;
R__b << fNdets;
R__b << fTrRmax;
R__b << fTrZmax;
R__b << fGenerator;
R__b << fPDGDB; //Particle factory object!
}
}