Removing obsolete macros which used the AliTPCtracker
[u/mrichter/AliRoot.git] / EVE / alice-macros / geom_gentle_notransparency.C
1 #if !defined(__CINT__) || defined(__MAKECINT__)
2 #include <TFile.h>
3 #include <TGLViewer.h>
4 #include <TEveManager.h>
5 #include <TEveElement.h>
6 #include <TEveGeoShape.h>
7 #include <TEveGeoShapeExtract.h>
8
9 #include <AliEveEventManager.h>
10 #include <AliEveMultiView.h>
11 #endif
12
13 void geom_gentle_notransparency(Bool_t register_as_global=kTRUE)
14 {
15   TEveGeoShape* gsre1;
16   TEveGeoShape* gsre2;
17   TEveGeoShape* gsre3;
18   
19 {
20     TFile f("$ALICE_ROOT/EVE/alice-data/gentle_geo.root");
21     TEveGeoShapeExtract* gse = (TEveGeoShapeExtract*) f.Get("Gentle");
22     gsre1 = TEveGeoShape::ImportShapeExtract(gse);
23     f.Close();
24
25     if (register_as_global)
26     {
27       gEve->AddGlobalElement(gsre1);
28     }
29
30     // Fix visibility, color and transparency
31
32     gsre1->SetRnrSelf(kFALSE);
33     TEveElement::List_i i = gsre1->BeginChildren();
34
35   //ITS
36     {
37       TEveGeoShape* lvl1 = (TEveGeoShape*) *i;
38       lvl1->SetRnrSelf(kFALSE);
39       TEveElement::List_i j = lvl1->BeginChildren();
40
41       TEveGeoShape* lvl2 = (TEveGeoShape*) *j;
42       lvl2->SetRnrSelf(kFALSE);
43       TEveElement::List_i k = lvl2->BeginChildren();
44
45       TEveGeoShape* its1 = (TEveGeoShape*) *k;
46       its1->SetRnrSelf(kTRUE);
47       its1->SetMainTransparency(5);
48       k++;
49
50       TEveGeoShape* its2 = (TEveGeoShape*) *k;
51       its2->SetRnrSelf(kTRUE);
52       its2->SetMainTransparency(5);
53       k++;
54
55       TEveGeoShape* its3 = (TEveGeoShape*) *k;
56       its3->SetRnrSelf(kTRUE);
57       its3->SetMainTransparency(5);
58     }
59   //TPC
60
61     i++;
62     {
63       TEveGeoShape* lvl1 = (TEveGeoShape*) *i;
64       lvl1->SetRnrSelf(kFALSE);
65       TEveElement::List_i j = lvl1->BeginChildren();
66
67       TEveGeoShape* lvl2 = (TEveGeoShape*) *j;
68       lvl2->SetRnrSelf(kFALSE);
69       TEveElement::List_i k = lvl2->BeginChildren();
70
71       TEveGeoShape* lvl3 = (TEveGeoShape*) *k;
72       lvl3->SetRnrSelf(kTRUE);
73       lvl3->SetMainTransparency(5);
74       TEveElement::List_i l = lvl3->BeginChildren();
75
76       TEveGeoShape* lvl4 = (TEveGeoShape*) *l;
77       lvl4->SetRnrSelf(kFALSE);
78       TEveElement::List_i m = lvl4->BeginChildren();
79
80       TEveGeoShape* tpc1 = (TEveGeoShape*) *m;
81       tpc1->SetRnrSelf(kTRUE);
82       tpc1->SetMainTransparency(5);
83       m++;
84
85       TEveGeoShape* tpc2 = (TEveGeoShape*) *m;
86       tpc2->SetMainColor(kGray);
87       tpc2->SetMainTransparency(5);
88       m++;
89
90       TEveGeoShape* tpc3 = (TEveGeoShape*) *m;
91       tpc3->SetRnrSelf(kTRUE);
92       tpc3->SetMainTransparency(5);
93       m++;
94     }
95
96   //TRD+TOF
97
98     i++;
99     {
100     TEveGeoShape* lvl1 = (TEveGeoShape*) *i;
101     lvl1->SetRnrSelf(kFALSE);
102     TEveElement::List_i j = lvl1->BeginChildren();
103
104     TEveGeoShape* lvl2 = (TEveGeoShape*) *j;
105     lvl2->SetRnrSelf(kTRUE);
106     lvl2->SetMainTransparency(5);
107     j++;
108
109     TEveGeoShape* lvl3 = (TEveGeoShape*) *j;
110     lvl3->SetRnrSelf(kTRUE);
111     lvl3->SetMainTransparency(5);
112     j++;
113     }
114
115   //PHOS
116
117     i++;
118     {
119     TEveGeoShape* lvl1 = (TEveGeoShape*) *i;
120     lvl1->SetRnrSelf(kFALSE);
121
122     for (TEveElement::List_i j = lvl1->BeginChildren(); j != lvl1->EndChildren(); j++)
123       {
124         TEveGeoShape* lvl2 = (TEveGeoShape*) *j;
125         lvl2->SetRnrSelf(kTRUE);
126         lvl2->SetMainTransparency(5);
127       }
128     }
129     
130   //HMPID
131
132     i++;
133     {
134     TEveGeoShape* lvl1 = (TEveGeoShape*) *i;
135     lvl1->SetRnrSelf(kFALSE);
136
137     for (TEveElement::List_i j = lvl1->BeginChildren(); j != lvl1->EndChildren(); j++)
138       {
139         TEveGeoShape* lvl2 = (TEveGeoShape*) *j;
140         lvl2->SetRnrSelf(kTRUE);
141         lvl2->SetMainTransparency(5);
142       }
143     }
144 }
145
146 {
147   TFile f("$ALICE_ROOT/EVE/alice-data/gentle_rphi_geo.root");
148   TEveGeoShapeExtract* gse = (TEveGeoShapeExtract*) f.Get("Gentle");
149   gsre2 = TEveGeoShape::ImportShapeExtract(gse);
150   f.Close();
151 }
152
153 {
154   TFile f("$ALICE_ROOT/EVE/alice-data/gentle_rhoz_geo.root");
155   TEveGeoShapeExtract* gse = (TEveGeoShapeExtract*) f.Get("Gentle");
156   gsre3 = TEveGeoShape::ImportShapeExtract(gse);
157   f.Close();
158 }
159
160   TEveElement* top = gEve->GetCurrentEvent();
161
162   AliEveMultiView *mv = AliEveMultiView::Instance();
163
164   mv->InitGeomGentle(gsre1, gsre2, gsre3, 0);
165
166   gEve->FullRedraw3D(kTRUE, kTRUE);
167
168 }
169