1 void geom_gentle_projector(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();
19 TEveGeoShape* lvl1 = (TEveGeoShape*) *i;
20 lvl1->SetRnrSelf(kFALSE);
21 TEveElement::List_i j = lvl1->BeginChildren();
23 TEveGeoShape* lvl2 = (TEveGeoShape*) *j;
24 lvl2->SetRnrSelf(kFALSE);
25 TEveElement::List_i k = lvl2->BeginChildren();
27 TEveGeoShape* its1 = (TEveGeoShape*) *k;
28 its1->SetRnrSelf(kTRUE);
29 its1->SetMainColor(kBlue-6);
30 its1->SetMainTransparency(50);
33 TEveGeoShape* its2 = (TEveGeoShape*) *k;
34 its2->SetRnrSelf(kTRUE);
35 its2->SetMainTransparency(50);
38 TEveGeoShape* its3 = (TEveGeoShape*) *k;
39 its3->SetRnrSelf(kTRUE);
40 its1->SetMainColor(kGreen-10);
41 its3->SetMainTransparency(50);
47 TEveGeoShape* lvl1 = (TEveGeoShape*) *i;
48 lvl1->SetRnrSelf(kFALSE);
49 TEveElement::List_i j = lvl1->BeginChildren();
51 TEveGeoShape* lvl2 = (TEveGeoShape*) *j;
52 lvl2->SetRnrSelf(kFALSE);
53 TEveElement::List_i k = lvl2->BeginChildren();
55 TEveGeoShape* lvl3 = (TEveGeoShape*) *k;
56 lvl3->SetRnrSelf(kTRUE);
57 lvl3->SetMainTransparency(50);
58 TEveElement::List_i l = lvl3->BeginChildren();
60 TEveGeoShape* lvl4 = (TEveGeoShape*) *l;
61 lvl4->SetRnrSelf(kFALSE);
62 TEveElement::List_i m = lvl4->BeginChildren();
64 TEveGeoShape* tpc1 = (TEveGeoShape*) *m;
65 tpc1->SetRnrSelf(kTRUE);
66 tpc1->SetMainTransparency(50);
69 TEveGeoShape* tpc2 = (TEveGeoShape*) *m;
70 tpc2->SetMainColor(kGray);
71 tpc2->SetMainTransparency(50);
74 TEveGeoShape* tpc3 = (TEveGeoShape*) *m;
75 tpc3->SetRnrSelf(kTRUE);
76 tpc3->SetMainTransparency(50);
83 TEveGeoShape* lvl1 = (TEveGeoShape*) *i;
84 lvl1->SetRnrSelf(kFALSE);
85 TEveElement::List_i j = lvl1->BeginChildren();
87 TEveGeoShape* lvl2 = (TEveGeoShape*) *j;
88 lvl2->SetRnrSelf(kTRUE);
89 lvl2->SetMainTransparency(50);
92 TEveGeoShape* lvl2 = (TEveGeoShape*) *j;
93 lvl2->SetRnrSelf(kTRUE);
94 lvl2->SetMainTransparency(50);
101 TEveGeoShape* lvl1 = (TEveGeoShape*) *i;
102 lvl1->SetRnrSelf(kFALSE);
104 for (TEveElement::List_i j = lvl1->BeginChildren(); j != lvl1->EndChildren(); j++)
106 TEveGeoShape* lvl2 = (TEveGeoShape*) *j;
107 lvl2->SetRnrSelf(kTRUE);
108 lvl2->SetMainTransparency(50);
115 TEveGeoShape* lvl1 = (TEveGeoShape*) *i;
116 lvl1->SetRnrSelf(kFALSE);
118 for (TEveElement::List_i j = lvl1->BeginChildren(); j != lvl1->EndChildren(); j++)
120 TEveGeoShape* lvl2 = (TEveGeoShape*) *j;
121 lvl2->SetRnrSelf(kTRUE);
122 lvl2->SetMainTransparency(50);
126 TFile f("$ALICE_ROOT/EVE/alice-data/gentle_rphi_geo.root");
127 TEveGeoShapeExtract* gse = (TEveGeoShapeExtract*) f.Get("Gentle");
128 TEveGeoShape* gsre2 = TEveGeoShape::ImportShapeExtract(gse);
131 // Fix visibility, color and transparency
133 gsre2->SetRnrSelf(kFALSE);
134 TEveElement::List_i i = gsre2->BeginChildren();
138 TEveGeoShape* lvl1 = (TEveGeoShape*) *i;
139 lvl1->SetRnrSelf(kFALSE);
140 TEveElement::List_i j = lvl1->BeginChildren();
142 TEveGeoShape* lvl2 = (TEveGeoShape*) *j;
143 lvl2->SetRnrSelf(kFALSE);
144 TEveElement::List_i k = lvl2->BeginChildren();
146 TEveGeoShape* its1 = (TEveGeoShape*) *k;
147 its1->SetRnrSelf(kTRUE);
148 its1->SetMainColor(kGreen-10);
149 its1->SetMainTransparency(70);
152 TEveGeoShape* its2 = (TEveGeoShape*) *k;
153 its2->SetRnrSelf(kTRUE);
154 its2->SetMainTransparency(70);
157 TEveGeoShape* its3 = (TEveGeoShape*) *k;
158 its3->SetRnrSelf(kTRUE);
159 its3->SetMainColor(kBlue-6);
160 its3->SetMainTransparency(70);
163 TFile f("$ALICE_ROOT/EVE/alice-data/gentle_rhoz_geo.root");
164 TEveGeoShapeExtract* gse = (TEveGeoShapeExtract*) f.Get("Gentle");
165 TEveGeoShape* gsre3 = TEveGeoShape::ImportShapeExtract(gse);
168 gsre3->SetRnrSelf(kFALSE);
169 TEveElement::List_i i = gsre3->BeginChildren();
173 TEveGeoShape* lvl1 = (TEveGeoShape*) *i;
174 lvl1->SetRnrSelf(kFALSE);
175 TEveElement::List_i j = lvl1->BeginChildren();
177 TEveGeoShape* lvl2 = (TEveGeoShape*) *j;
178 lvl2->SetRnrSelf(kFALSE);
179 TEveElement::List_i k = lvl2->BeginChildren();
181 TEveGeoShape* its1 = (TEveGeoShape*) *k;
182 its1->SetRnrSelf(kTRUE);
183 its1->SetMainTransparency(70);
184 its1->SetMainColor(kGreen-10);
187 TEveGeoShape* its2 = (TEveGeoShape*) *k;
188 its2->SetRnrSelf(kTRUE);
189 its2->SetMainTransparency(70);
190 // its2->SetMainColor(kRed+2);
193 TEveGeoShape* its3 = (TEveGeoShape*) *k;
194 its3->SetRnrSelf(kTRUE);
195 its3->SetMainColor(kBlue-6);
196 its3->SetMainTransparency(70);
199 TEveElement* top = gEve->GetCurrentEvent();
201 AliEveMultiView *mv = AliEveMultiView::Instance();
203 mv->InitGeomGentle(gsre1, gsre2, gsre3);
205 gEve->FullRedraw3D(kTRUE, kTRUE);