1 void geom_gentle_bright(Bool_t register_as_global=kTRUE)
4 TFile f("$ALICE_ROOT/EVE/alice-data/gentle_geo.root");
5 TEveGeoShapeExtract* gse = (TEveGeoShapeExtract*) f.Get("Gentle");
6 TEveGeoShape* gsre1 = TEveGeoShape::ImportShapeExtract(gse);
9 if (register_as_global)
11 gEve->AddGlobalElement(gsre1);
14 // Fix visibility, color and transparency
16 gsre1->SetRnrSelf(kFALSE);
17 TEveElement::List_i i = gsre1->BeginChildren();
21 TEveGeoShape* lvl1 = (TEveGeoShape*) *i;
22 lvl1->SetRnrSelf(kFALSE);
23 TEveElement::List_i j = lvl1->BeginChildren();
25 TEveGeoShape* lvl2 = (TEveGeoShape*) *j;
26 lvl2->SetRnrSelf(kFALSE);
27 TEveElement::List_i k = lvl2->BeginChildren();
29 TEveGeoShape* its1 = (TEveGeoShape*) *k;
30 its1->SetRnrSelf(kTRUE);
31 its1->SetMainColor(kOrange+10);
32 // its1->SetMainTransparency(60);
35 TEveGeoShape* its2 = (TEveGeoShape*) *k;
36 its2->SetRnrSelf(kTRUE);
37 its2->SetMainColor(kOrange-3);
38 // its2->SetMainTransparency(60);
41 TEveGeoShape* its3 = (TEveGeoShape*) *k;
42 its3->SetRnrSelf(kTRUE);
43 its3->SetMainColor(kYellow);
44 // its3->SetMainTransparency(60);
50 TEveGeoShape* lvl1 = (TEveGeoShape*) *i;
51 lvl1->SetRnrSelf(kFALSE);
52 TEveElement::List_i j = lvl1->BeginChildren();
54 TEveGeoShape* lvl2 = (TEveGeoShape*) *j;
55 lvl2->SetRnrSelf(kFALSE);
56 TEveElement::List_i k = lvl2->BeginChildren();
58 TEveGeoShape* lvl3 = (TEveGeoShape*) *k;
59 lvl3->SetRnrSelf(kTRUE);
60 lvl3->SetMainColor(kCyan);
61 // lvl3->SetMainTransparency(70);
62 TEveElement::List_i l = lvl3->BeginChildren();
64 TEveGeoShape* lvl4 = (TEveGeoShape*) *l;
65 lvl4->SetRnrSelf(kFALSE);
66 TEveElement::List_i m = lvl4->BeginChildren();
68 TEveGeoShape* tpc1 = (TEveGeoShape*) *m;
69 tpc1->SetRnrSelf(kTRUE);
70 // tpc1->SetMainColor(1);
71 // tpc1->SetMainTransparency(70);
74 TEveGeoShape* tpc2 = (TEveGeoShape*) *m;
75 tpc2->SetRnrSelf(kTRUE);
76 // tpc2->SetMainColor(1);
77 // tpc2->SetMainTransparency(70);
80 TEveGeoShape* tpc3 = (TEveGeoShape*) *m;
81 tpc3->SetRnrSelf(kTRUE);
82 // tpc3->SetMainColor(1);
83 // tpc3->SetMainTransparency(70);
90 TEveGeoShape* lvl1 = (TEveGeoShape*) *i;
91 lvl1->SetRnrSelf(kFALSE);
92 TEveElement::List_i j = lvl1->BeginChildren();
94 TEveGeoShape* trd1 = (TEveGeoShape*) *j;
95 trd1->SetRnrSelf(kTRUE);
96 trd1->SetMainColor(kAzure-7);
97 // trd1->SetMainTransparency(80);
100 TEveGeoShape* tof1 = (TEveGeoShape*) *j;
101 tof1->SetRnrSelf(kTRUE);
102 tof1->SetMainColor(kMagenta+3);
103 // tof1->SetMainTransparency(80);
109 TEveGeoShape* lvl1 = (TEveGeoShape*) *i;
110 lvl1->SetRnrSelf(kFALSE);
112 for (TEveElement::List_i j = lvl1->BeginChildren(); j != lvl1->EndChildren(); ++j)
114 TEveGeoShape* lvl2 = (TEveGeoShape*) *j;
115 lvl2->SetRnrSelf(kTRUE);
116 lvl2->SetMainColor(kRed);
117 // lvl2->SetMainTransparency(20);
124 TEveGeoShape* lvl1 = (TEveGeoShape*) *i;
125 lvl1->SetRnrSelf(kFALSE);
127 for (TEveElement::List_i j = lvl1->BeginChildren(); j != lvl1->EndChildren(); ++j)
129 TEveGeoShape* lvl2 = (TEveGeoShape*) *j;
130 lvl2->SetRnrSelf(kTRUE);
131 lvl2->SetMainColor(kBlue);
132 // lvl2->SetMainTransparency(20);
135 TFile f("$ALICE_ROOT/EVE/alice-data/gentle_rphi_geo.root");
136 TEveGeoShapeExtract* gse = (TEveGeoShapeExtract*) f.Get("Gentle");
137 TEveGeoShape* gsre2 = TEveGeoShape::ImportShapeExtract(gse);
140 // Fix visibility, color and transparency
142 gsre2->SetRnrSelf(kFALSE);
143 TEveElement::List_i i = gsre2->BeginChildren();
147 TEveGeoShape* lvl1 = (TEveGeoShape*) *i;
148 lvl1->SetRnrSelf(kFALSE);
149 TEveElement::List_i j = lvl1->BeginChildren();
151 TEveGeoShape* lvl2 = (TEveGeoShape*) *j;
152 lvl2->SetRnrSelf(kFALSE);
153 TEveElement::List_i k = lvl2->BeginChildren();
155 TEveGeoShape* its1 = (TEveGeoShape*) *k;
156 its1->SetRnrSelf(kTRUE);
157 its1->SetMainColor(1);
158 its1->SetMainTransparency(80);
162 TEveGeoShape* its2 = (TEveGeoShape*) *k;
163 its2->SetRnrSelf(kTRUE);
164 its2->SetMainColor(1);
165 its2->SetMainTransparency(80);
168 TEveGeoShape* its3 = (TEveGeoShape*) *k;
169 its3->SetRnrSelf(kTRUE);
170 its3->SetMainColor(1);
171 its3->SetMainTransparency(80);
177 TEveGeoShape* lvl1 = (TEveGeoShape*) *i;
178 lvl1->SetRnrSelf(kFALSE);
180 for (TEveElement::List_i j = lvl1->BeginChildren(); j != lvl1->EndChildren(); j++)
182 TEveGeoShape* lvl2 = (TEveGeoShape*) *j;
183 lvl2->SetRnrSelf(kTRUE);
184 lvl2->SetMainColor(1);
185 lvl2->SetMainTransparency(80);
193 TEveGeoShape* lvl1 = (TEveGeoShape*) *i;
194 lvl1->SetRnrSelf(kFALSE);
196 for (TEveElement::List_i j = lvl1->BeginChildren(); j != lvl1->EndChildren(); j++)
198 TEveGeoShape* lvl2 = (TEveGeoShape*) *j;
199 lvl2->SetRnrSelf(kTRUE);
200 lvl2->SetMainColor(1);
201 lvl2->SetMainTransparency(80);
209 TEveGeoShape* lvl1 = (TEveGeoShape*) *i;
210 lvl1->SetRnrSelf(kFALSE);
212 for (TEveElement::List_i j = lvl1->BeginChildren(); j != lvl1->EndChildren(); j++)
214 TEveGeoShape* lvl2 = (TEveGeoShape*) *j;
215 lvl2->SetRnrSelf(kTRUE);
216 lvl2->SetMainColor(1);
217 lvl2->SetMainTransparency(80);
220 TFile f("$ALICE_ROOT/EVE/alice-data/gentle_rhoz_geo.root");
221 TEveGeoShapeExtract* gse = (TEveGeoShapeExtract*) f.Get("Gentle");
222 TEveGeoShape* gsre3 = TEveGeoShape::ImportShapeExtract(gse);
225 // Fix visibility, color and transparency
227 gsre3->SetRnrSelf(kFALSE);
228 TEveElement::List_i i = gsre3->BeginChildren();
232 TEveGeoShape* lvl1 = (TEveGeoShape*) *i;
233 lvl1->SetRnrSelf(kFALSE);
234 TEveElement::List_i j = lvl1->BeginChildren();
236 TEveGeoShape* lvl2 = (TEveGeoShape*) *j;
237 lvl2->SetRnrSelf(kFALSE);
238 TEveElement::List_i k = lvl2->BeginChildren();
240 TEveGeoShape* its1 = (TEveGeoShape*) *k;
241 its1->SetRnrSelf(kTRUE);
242 its1->SetMainColor(1);
245 TEveGeoShape* its2 = (TEveGeoShape*) *k;
246 its2->SetRnrSelf(kTRUE);
247 its2->SetMainColor(1);
250 TEveGeoShape* its3 = (TEveGeoShape*) *k;
251 its3->SetRnrSelf(kTRUE);
252 its3->SetMainColor(1);
258 TEveGeoShape* lvl1 = (TEveGeoShape*) *i;
259 lvl1->SetRnrSelf(kFALSE);
261 for (TEveElement::List_i j = lvl1->BeginChildren(); j != lvl1->EndChildren(); j++)
263 TEveGeoShape* lvl2 = (TEveGeoShape*) *j;
264 lvl2->SetRnrSelf(kTRUE);
265 lvl2->SetMainColor(1);
266 lvl2->SetMainTransparency(80);
275 TEveGeoShape* lvl1 = (TEveGeoShape*) *i;
276 lvl1->SetRnrSelf(kFALSE);
278 for (TEveElement::List_i j = lvl1->BeginChildren(); j != lvl1->EndChildren(); j++)
280 TEveGeoShape* lvl2 = (TEveGeoShape*) *j;
281 lvl2->SetRnrSelf(kTRUE);
282 lvl2->SetMainColor(1);
283 lvl2->SetMainTransparency(80);
290 TEveGeoShape* lvl1 = (TEveGeoShape*) *i;
291 lvl1->SetRnrSelf(kFALSE);
293 for (TEveElement::List_i j = lvl1->BeginChildren(); j != lvl1->EndChildren(); j++)
295 TEveGeoShape* lvl2 = (TEveGeoShape*) *j;
296 lvl2->SetRnrSelf(kTRUE);
297 lvl2->SetMainColor(1);
298 lvl2->SetMainTransparency(80);
302 //fix all the viewers
304 TEveElement* top = gEve->GetCurrentEvent();
306 AliEveMultiView *mv = AliEveMultiView::Instance();
308 mv->InitGeomGentle(gsre1, gsre2, gsre3);
310 gEve->FullRedraw3D(kTRUE, kTRUE);