#include <cassert>
#include <TBrowser.h>
#include <TClonesArray.h>
#include <TH2.h>
#include <TParticle.h>
#include <TROOT.h>
#include <TVirtualMC.h>
#include "AliEMCALv2.h"
#include "AliEMCALHit.h"
#include "AliEMCALGeometry.h"
#include "AliRun.h"
#include "AliHeader.h"
#include "AliMC.h"
#include "AliStack.h"
#include "AliTrackReference.h"
ClassImp(AliEMCALv2)
AliEMCALv2::AliEMCALv2()
: AliEMCALv1()
{
}
AliEMCALv2::AliEMCALv2(const char *name, const char *title,
const Bool_t checkGeoAndRun)
: AliEMCALv1(name,title,checkGeoAndRun)
{
gAlice->GetMCApp()->AddHitList(fHits);
fNhits = 0;
fIshunt = 2;
fTimeCut = 30e-09;
fGeometry = GetGeometry();
}
AliEMCALv2::~AliEMCALv2(){
}
void AliEMCALv2::AddHit(Int_t shunt, Int_t primary, Int_t tracknumber, Int_t iparent, Float_t ienergy,
Int_t id, Float_t * hits,Float_t * p){
static Int_t hitCounter;
static AliEMCALHit *newHit, *curHit;
static Bool_t deja ;
deja = kFALSE;
newHit = new AliEMCALHit(shunt, primary, tracknumber, iparent, ienergy, id, hits, p);
for ( hitCounter = fNhits-1; hitCounter >= 0 && !deja; hitCounter-- ) {
curHit = (AliEMCALHit*) (*fHits)[hitCounter];
if(curHit->GetPrimary() != primary)
break;
if( *curHit == *newHit ) {
*curHit = *curHit + *newHit;
deja = kTRUE;
}
}
if ( !deja ) {
new((*fHits)[fNhits]) AliEMCALHit(*newHit);
fNhits++;
}
delete newHit;
}
void AliEMCALv2::StepManager(void){
static Float_t xyzte[5]={0.,0.,0.,0.,0.};
static Float_t pmom[4]={0.,0.,0.,0.};
static TLorentzVector pos;
static TLorentzVector mom;
static Float_t ienergy = 0;
static TString curVolName="";
static int supModuleNumber=-1, moduleNumber=-1, yNumber=-1, xNumber=-1, absid=-1;
static int keyGeom=1;
static const char *vn = "SCMX";
static Float_t depositedEnergy=0.0;
if(keyGeom == 0) {
keyGeom = 2;
if(TVirtualMC::GetMC()->VolId("PBMO")==0 || TVirtualMC::GetMC()->VolId("WSUC")==1) {
vn = "SCMX";
keyGeom = 1;
}
printf("AliEMCALv2::StepManager(): keyGeom %i : Sensetive volume %s \n",
keyGeom, vn);
if(TVirtualMC::GetMC()->VolId("WSUC")==1) printf(" WSUC - cosmic ray stand geometry \n");
}
Int_t tracknumber = gAlice->GetMCApp()->GetCurrentTrackNumber();
Int_t parent=0;
TParticle* part=0;
curVolName = TVirtualMC::GetMC()->CurrentVolName();
if(curVolName.Contains(vn) || curVolName.Contains("SCX")) {
if( ((depositedEnergy = TVirtualMC::GetMC()->Edep()) > 0.) && (TVirtualMC::GetMC()->TrackTime() < fTimeCut)){
if (fCurPrimary==-1)
fCurPrimary=gAlice->GetMCApp()->GetPrimary(tracknumber);
if (fCurParent==-1 || tracknumber != fCurTrack) {
parent=tracknumber;
if (fCurParent != -1) {
while (parent != fCurParent && parent != -1) {
part=gAlice->GetMCApp()->Particle(parent);
parent=part->GetFirstMother();
}
}
if (fCurParent==-1 || parent==-1) {
parent=tracknumber;
part=gAlice->GetMCApp()->Particle(parent);
while (parent != -1 && fGeometry->IsInEMCALOrDCAL(part->Vx(),part->Vy(),part->Vz())) {
parent=part->GetFirstMother();
if (parent!=-1)
part=gAlice->GetMCApp()->Particle(parent);
}
fCurParent=parent;
if (fCurParent==-1)
Error("StepManager","Cannot find parent");
else {
part=gAlice->GetMCApp()->Particle(fCurParent);
ienergy = part->Energy();
AddTrackReference(tracknumber, AliTrackReference::kEMCAL);
}
while (parent != -1) {
part=gAlice->GetMCApp()->Particle(parent);
part->SetBit(kKeepBit);
parent=part->GetFirstMother();
}
}
fCurTrack=tracknumber;
}
TVirtualMC::GetMC()->TrackPosition(pos);
xyzte[0] = pos[0];
xyzte[1] = pos[1];
xyzte[2] = pos[2];
xyzte[3] = TVirtualMC::GetMC()->TrackTime() ;
TVirtualMC::GetMC()->TrackMomentum(mom);
pmom[0] = mom[0];
pmom[1] = mom[1];
pmom[2] = mom[2];
pmom[3] = mom[3];
supModuleNumber = moduleNumber = yNumber = xNumber = absid = 0;
if(keyGeom >= 1) {
TVirtualMC::GetMC()->CurrentVolOffID(4, supModuleNumber);
TVirtualMC::GetMC()->CurrentVolOffID(3, moduleNumber);
TVirtualMC::GetMC()->CurrentVolOffID(1, yNumber);
TVirtualMC::GetMC()->CurrentVolOffID(0, xNumber);
Int_t CurrentSMType = 0;
if(strcmp(TVirtualMC::GetMC()->CurrentVolOffName(4),"SMOD")==0) CurrentSMType = AliEMCALGeometry::kEMCAL_Standard ;
else if(strcmp(TVirtualMC::GetMC()->CurrentVolOffName(4),"SM10")==0) CurrentSMType = AliEMCALGeometry::kEMCAL_Half ;
else if(strcmp(TVirtualMC::GetMC()->CurrentVolOffName(4),"SM3rd")==0) CurrentSMType = AliEMCALGeometry::kEMCAL_3rd ;
else if(strcmp(TVirtualMC::GetMC()->CurrentVolOffName(4),"DCSM")==0) CurrentSMType = AliEMCALGeometry::kDCAL_Standard ;
else if(strcmp(TVirtualMC::GetMC()->CurrentVolOffName(4),"DCEXT")==0) CurrentSMType = AliEMCALGeometry::kDCAL_Ext ;
else AliError("Unkown SM Type!!");
Int_t preSM = 0;
while( fGeometry->GetSMType(preSM) != CurrentSMType ) preSM++;
supModuleNumber += preSM;
if(strcmp(TVirtualMC::GetMC()->CurrentVolOffName(0),vn) != 0) {
if (strcmp(TVirtualMC::GetMC()->CurrentVolOffName(0),"SCX1")==0) xNumber=1;
else if(strcmp(TVirtualMC::GetMC()->CurrentVolOffName(0),"SCX2")==0) xNumber=2;
else if(strcmp(TVirtualMC::GetMC()->CurrentVolOffName(0),"SCX3")==0) xNumber=3;
else Fatal("StepManager()", "Wrong name of sensitive volume in 3X3 case : %s ", TVirtualMC::GetMC()->CurrentVolOffName(0));
}
} else {
TVirtualMC::GetMC()->CurrentVolOffID(5, supModuleNumber);
TVirtualMC::GetMC()->CurrentVolOffID(4, moduleNumber);
TVirtualMC::GetMC()->CurrentVolOffID(1, yNumber);
TVirtualMC::GetMC()->CurrentVolOffID(0, xNumber);
if (strcmp(TVirtualMC::GetMC()->CurrentVolOffName(5),"SMOP")==0) supModuleNumber = 2*(supModuleNumber-1)+1;
else if(strcmp(TVirtualMC::GetMC()->CurrentVolOffName(5),"SMON")==0) supModuleNumber = 2*(supModuleNumber-1)+2;
else assert(0);
}
Int_t iphi = -1;
Int_t ieta = -1;
Int_t smNumber = supModuleNumber-1;
Int_t smType = 1;
fGeometry->GetCellPhiEtaIndexInSModule(smNumber,moduleNumber-1,yNumber-1,xNumber-1, iphi, ieta);
if (smNumber%2 == 0) {
if(strcmp(TVirtualMC::GetMC()->CurrentVolOffName(4),"DCSM")==0) smType = 3;
else smType = 2;
ieta = ((fGeometry->GetCentersOfCellsEtaDir()).GetSize()* 2/smType -1)-ieta;
} else {
if(strcmp(TVirtualMC::GetMC()->CurrentVolOffName(4),"SM10")==0) smType = 2 ;
if(strcmp(TVirtualMC::GetMC()->CurrentVolOffName(4),"SM3rd")==0) smType = 3 ;
if(strcmp(TVirtualMC::GetMC()->CurrentVolOffName(4),"DCEXT")==0) smType = 3 ;
iphi= ((fGeometry->GetCentersOfCellsPhiDir()).GetSize()/smType-1)-iphi;
}
absid = fGeometry->GetAbsCellIdFromCellIndexes(smNumber, iphi, ieta);
if (absid < 0) {
printf(" supModuleNumber %i : moduleNumber %i : yNumber %i : xNumber %i \n",
supModuleNumber, moduleNumber, yNumber, xNumber);
Fatal("StepManager()", "Wrong id : %i ", absid) ;
}
Float_t lightYield = depositedEnergy ;
if (TVirtualMC::GetMC()->TrackCharge()!=0) {
Float_t birkC1Mod = 0;
if (fBirkC0==1){
if (TMath::Abs(TVirtualMC::GetMC()->TrackCharge())>=2) birkC1Mod = fBirkC1*7.2/12.6;
else birkC1Mod = fBirkC1;
}
Float_t dedxcm=0.;
if (TVirtualMC::GetMC()->TrackStep()>0) dedxcm=1000.*TVirtualMC::GetMC()->Edep()/TVirtualMC::GetMC()->TrackStep();
else dedxcm=0;
lightYield=lightYield/(1.+birkC1Mod*dedxcm+fBirkC2*dedxcm*dedxcm);
}
xyzte[4] = lightYield;
if (gDebug == -2)
printf("#sm %2i #m %3i #x %1i #z %1i -> absid %i : xyzte[4] = %f\n",
supModuleNumber,moduleNumber,yNumber,xNumber,absid, xyzte[4]);
AddHit(fIshunt, fCurPrimary,tracknumber, fCurParent, ienergy, absid, xyzte, pmom);
}
}
}