-Int_t AliITSFindClustersV2() {
-/****************************************************************
- * Just something to start with *
- ****************************************************************/
- cerr<<"Looking for clusters...\n";
-
- if (gAlice) {delete gAlice; gAlice=0;}
-
- TFile *in=TFile::Open("galice.root","update");
- if (!in->IsOpen()) {
- cerr<<"Can't open galice.root !\n";
- return 1;
- }
-
- if (!(gAlice=(AliRun*)in->Get("gAlice"))) {
- cerr<<"Can't find gAlice !\n";
- return 2;
- }
-
- Int_t ev=0;
- gAlice->GetEvent(ev);
-
- AliITS *ITS = (AliITS*)gAlice->GetModule("ITS");
- if (!ITS) {
- cerr<<"Can't find the ITS !\n";
- return 3;
- }
-
- gAlice->MakeTree("R"); ITS->MakeBranch("R",0);
-//////////////// Taken from ITSHitsToFastPoints.C ///////////////////////
- ITS->SetSimulationModel(0,new AliITSsimulationFastPoints());
- ITS->SetSimulationModel(1,new AliITSsimulationFastPoints());
- ITS->SetSimulationModel(2,new AliITSsimulationFastPoints());
- Int_t nsignal=25;
- Int_t size=-1;
- Int_t bgr_ev=Int_t(ev/nsignal);
- ITS->HitsToFastRecPoints(ev,bgr_ev,size," ","All"," ");
-//////////////////////////////////////////////////////////////////////////
-
- delete gAlice; gAlice=0;
- in->Close();
-
-///////////////// Conversion AliITSRecPoint -> AliITSclusterV2 //////////////
- /*TFile */in=TFile::Open("galice.root");
-
- if (gAlice) {delete gAlice; gAlice=0;}
-
- if (!(gAlice=(AliRun*)in->Get("gAlice"))) {
- cerr<<"Can't find gAlice !\n";
- return 4;
- }
-
- gAlice->GetEvent(0);
-
- /*AliITS */ITS = (AliITS*)gAlice->GetModule("ITS");
- if (!ITS) {
- cerr<<"Can't find the ITS !\n";
- return 5;
- }
- AliITSgeom *geom=ITS->GetITSgeom();
-
- TFile *out=TFile::Open("AliITSclustersV2.root","new");
- if (!out->IsOpen()) {
- cerr<<"Delete old AliITSclustersV2.root !\n";
- return 6;
- }
- geom->Write();
-
- TClonesArray *clusters=new TClonesArray("AliITSclusterV2",10000);
- //TTree *cTree=new TTree("cTree","ITS clusters");
- TTree *cTree=new TTree("TreeC_ITS_0","ITS clusters");
- cTree->Branch("Clusters",&clusters);
-
- TTree *pTree=gAlice->TreeR();
- if (!pTree) {
- cerr<<"Can't get TreeR !\n";
- return 7;
- }
- TBranch *branch=pTree->GetBranch("ITSRecPoints");
- if (!branch) {
- cerr<<"Can't get ITSRecPoints branch !\n";
- return 8;
- }
- TClonesArray *points=new TClonesArray("AliITSRecPoint",10000);
- branch->SetAddress(&points);
-
- TClonesArray &cl=*clusters;
- Int_t nclusters=0;
- Int_t nentr=(Int_t)pTree->GetEntries();
-
- cerr<<"Number of entries: "<<nentr<<endl;
-
- for (Int_t i=0; i<nentr; i++) {
- points->Clear();
- pTree->GetEvent(i);
- Int_t ncl=points->GetEntriesFast(); if (ncl==0){cTree->Fill();continue;}
- Int_t lay,lad,det; geom->GetModuleId(i,lay,lad,det);
- Float_t x,y,zshift; geom->GetTrans(lay,lad,det,x,y,zshift);
- Double_t rot[9]; geom->GetRotMatrix(lay,lad,det,rot);
- Double_t yshift = x*rot[0] + y*rot[1];
- Int_t ndet=(lad-1)*geom->GetNdetectors(lay) + (det-1);
- nclusters+=ncl;
- for (Int_t j=0; j<ncl; j++) {
- AliITSRecPoint *p=(AliITSRecPoint*)points->UncheckedAt(j);
- Float_t lp[5];
- lp[0]=-p->GetX()-yshift; if (lay==1) lp[0]=-lp[0];
- lp[1]=p->GetZ()+zshift;
- lp[2]=p->GetSigmaX2();
- lp[3]=p->GetSigmaZ2();
- lp[4]=p->GetQ();
- Int_t lab[6];
- lab[0]=p->GetLabel(0);lab[1]=p->GetLabel(1);lab[2]=p->GetLabel(2);
- lab[3]=ndet;
-
- Int_t label=lab[0];
- TParticle *part=(TParticle*)gAlice->Particle(label);
- label=-3;
- while (part->P() < 0.005) {
- Int_t m=part->GetFirstMother();
- if (m<0) {cerr<<"Primary momentum: "<<part->P()<<endl; break;}
- label=m;
- part=(TParticle*)gAlice->Particle(label);
- }
- if (lab[1]<0) lab[1]=label;
- else if (lab[2]<0) lab[2]=label;
- else cerr<<"No empty labels !\n";
-
- new(cl[j]) AliITSclusterV2(lab,lp);
- }
- cTree->Fill(); clusters->Delete();
- points->Delete();
- }
- cTree->Write();
-
- cerr<<"Number of clusters: "<<nclusters<<endl;
-
- delete cTree; delete clusters; delete points;
-
- delete gAlice; gAlice=0;
-
- in->Close();
- out->Close();
-
- return 0;