f06b741d248770fc71ed69863c7f87102c3f034e
[u/mrichter/AliRoot.git] / EVE / alice-macros / tpc_clusters.C
1 // $Id$
2 // Main authors: Matevz Tadel & Alja Mrak-Tadel: 2006, 2007
3
4 /**************************************************************************
5  * Copyright(c) 1998-2008, ALICE Experiment at CERN, all rights reserved. *
6  * See http://aliceinfo.cern.ch/Offline/AliRoot/License.html for          *
7  * full copyright notice.                                                 *
8  **************************************************************************/
9
10 #ifdef __CINT__
11
12 class TEveElement;
13 class TEvePointSet;
14
15 #else
16
17 #include <TEveManager.h>
18 #include <TEvePointSet.h>
19 #include <EveBase/AliEveEventManager.h>
20
21 #include <AliRunLoader.h>
22 #include <AliCluster.h>
23 #include <TPC/AliTPCClustersRow.h>
24
25 #endif
26
27 TEvePointSet* tpc_clusters(TEveElement* cont=0, Float_t maxR=270)
28 {
29   const Int_t kMaxCl=100*160;
30
31   AliEveEventManager::AssertGeometry();
32
33   TEvePointSet* clusters = new TEvePointSet(kMaxCl);
34   clusters->SetOwnIds(kTRUE);
35
36   AliRunLoader* rl = AliEveEventManager::AssertRunLoader();
37   rl->LoadRecPoints("TPC");
38
39   AliTPCClustersRow *clrow=new AliTPCClustersRow();
40   clrow->SetClass("AliTPCclusterMI");
41   clrow->SetArray(kMaxCl);
42
43   TTree *cTree = rl->GetTreeR("TPC", false);
44   cTree->SetBranchAddress("Segment", &clrow);
45
46   Float_t maxRsqr = maxR*maxR;
47   Int_t nentr=(Int_t)cTree->GetEntries();
48   for (Int_t i=0; i<nentr; i++)
49   {
50     if (!cTree->GetEvent(i)) continue;
51
52     TClonesArray *cl = clrow->GetArray();
53     Int_t ncl = cl->GetEntriesFast();
54
55     printf("%d: %d\n", i, ncl);
56
57     while (ncl--)
58     {
59       AliCluster *c = (AliCluster*) cl->UncheckedAt(ncl);
60       Float_t g[3]; //global coordinates
61       c->GetGlobalXYZ(g);
62       if (g[0]*g[0]+g[1]*g[1] < maxRsqr)
63       {
64         clusters->SetNextPoint(g[0], g[1], g[2]);
65         AliCluster *atp = new AliCluster(*c);
66         clusters->SetPointId(atp);
67       }
68     }
69     cl->Clear();
70   }
71
72   delete clrow;
73
74   if (clusters->Size() == 0 && gEve->GetKeepEmptyCont() == kFALSE)
75   {
76     Warning("tpc_clusters", "No TPC clusters");
77     delete clusters;
78     return 0;
79   }
80
81   clusters->SetMarkerStyle(2);
82   clusters->SetMarkerSize(0.2);
83   clusters->SetMarkerColor(4);
84
85   char form[1000];
86   sprintf(form,"TPC Clusters");
87   clusters->SetName(form);
88
89   char tip[1000];
90   sprintf(tip,"N=%d", clusters->Size());
91   clusters->SetTitle(tip);
92   gEve->AddElement(clusters, cont);
93   gEve->Redraw3D();
94
95   return clusters;
96 }