[u/mrichter/AliRoot.git] / EVE / alice-macros / geom_gentle_transparentlight.C

void geom_gentle_transparentlight(Bool_t register_as_global=kTRUE)
{

  TFile f("$ALICE_ROOT/EVE/alice-data/gentle_geo.root");
  TEveGeoShapeExtract* gse = (TEveGeoShapeExtract*) f.Get("Gentle");
  TEveGeoShape* gsre1 = TEveGeoShape::ImportShapeExtract(gse);
  f.Close();

  if (register_as_global)
  {
    gEve->AddGlobalElement(gsre1);
  }

  // Fix visibility, color and transparency

  gsre1->SetRnrSelf(kFALSE);
  TEveElement::List_i i = gsre1->BeginChildren();

//ITS

  TEveGeoShape* lvl1 = (TEveGeoShape*) *i;
  lvl1->SetRnrSelf(kFALSE);
  TEveElement::List_i j = lvl1->BeginChildren();

  TEveGeoShape* lvl2 = (TEveGeoShape*) *j;
  lvl2->SetRnrSelf(kFALSE);
  TEveElement::List_i k = lvl2->BeginChildren();

  TEveGeoShape* its1 = (TEveGeoShape*) *k;
  its1->SetRnrSelf(kTRUE);
  its1->SetMainColor(1);
  its1->SetMainTransparency(80);
  k++;

  TEveGeoShape* its2 = (TEveGeoShape*) *k;
  its2->SetRnrSelf(kTRUE);
  its2->SetMainColor(1);
  its2->SetMainTransparency(80);
  k++;

  TEveGeoShape* its3 = (TEveGeoShape*) *k;
  its3->SetRnrSelf(kTRUE);
  its3->SetMainColor(1);
  its3->SetMainTransparency(80);

//TPC

  i++;

  TEveGeoShape* lvl1 = (TEveGeoShape*) *i;
  lvl1->SetRnrSelf(kFALSE);
  TEveElement::List_i j = lvl1->BeginChildren();

  TEveGeoShape* lvl2 = (TEveGeoShape*) *j;
  lvl2->SetRnrSelf(kFALSE);
  TEveElement::List_i k = lvl2->BeginChildren();

  TEveGeoShape* lvl3 = (TEveGeoShape*) *k;
  lvl3->SetRnrSelf(kFALSE);
  lvl3->SetMainColor(1);
  lvl3->SetMainTransparency(80);
  TEveElement::List_i l = lvl3->BeginChildren();

  TEveGeoShape* lvl4 = (TEveGeoShape*) *l;
  lvl4->SetRnrSelf(kFALSE);
  TEveElement::List_i m = lvl4->BeginChildren();

  TEveGeoShape* tpc1 = (TEveGeoShape*) *m;
  tpc1->SetRnrSelf(kTRUE);
  tpc1->SetMainColor(1);
  tpc1->SetMainTransparency(80);
  m++;

  TEveGeoShape* tpc2 = (TEveGeoShape*) *m;
  tpc2->SetMainColor(kGray);
  tpc2->SetMainColor(1);
  tpc2->SetMainTransparency(80);
  m++;

  TEveGeoShape* tpc3 = (TEveGeoShape*) *m;
  tpc3->SetRnrSelf(kTRUE);
  tpc3->SetMainColor(1);
  tpc3->SetMainTransparency(80);
  m++;

//TRD+TOF

  i++;

  TEveGeoShape* lvl1 = (TEveGeoShape*) *i;
  lvl1->SetRnrSelf(kFALSE);

  for (TEveElement::List_i j = lvl1->BeginChildren(); j != lvl1->EndChildren(); ++j)
    {
      TEveGeoShape* lvl2 = (TEveGeoShape*) *j;
      lvl2->SetRnrSelf(kTRUE);
      lvl2->SetMainColor(1);
      lvl2->SetMainTransparency(80);

    }

//PHOS

  i++;

  TEveGeoShape* lvl1 = (TEveGeoShape*) *i;
  lvl1->SetRnrSelf(kFALSE);

  for (TEveElement::List_i j = lvl1->BeginChildren(); j != lvl1->EndChildren(); ++j)
    {
      TEveGeoShape* lvl2 = (TEveGeoShape*) *j;
      lvl2->SetRnrSelf(kTRUE);
      lvl2->SetMainColor(1);
      lvl2->SetMainTransparency(80);
    }

//HMPID

  i++;

  TEveGeoShape* lvl1 = (TEveGeoShape*) *i;
  lvl1->SetRnrSelf(kFALSE);

  for (TEveElement::List_i j = lvl1->BeginChildren(); j != lvl1->EndChildren(); ++j)
    {
      TEveGeoShape* lvl2 = (TEveGeoShape*) *j;
      lvl2->SetRnrSelf(kTRUE);
      lvl2->SetMainColor(1);
      lvl2->SetMainTransparency(80);
    }

  TFile f("$ALICE_ROOT/EVE/alice-data/gentle_rphi_geo.root");
  TEveGeoShapeExtract* gse = (TEveGeoShapeExtract*) f.Get("Gentle");
  TEveGeoShape* gsre2 = TEveGeoShape::ImportShapeExtract(gse);
  f.Close();

  // Fix visibility, color and transparency

  gsre2->SetRnrSelf(kFALSE);
  TEveElement::List_i i = gsre2->BeginChildren();

//ITS

  TEveGeoShape* lvl1 = (TEveGeoShape*) *i;
  lvl1->SetRnrSelf(kFALSE);
  TEveElement::List_i j = lvl1->BeginChildren();

  TEveGeoShape* lvl2 = (TEveGeoShape*) *j;
  lvl2->SetRnrSelf(kFALSE);
  TEveElement::List_i k = lvl2->BeginChildren();

  TEveGeoShape* its1 = (TEveGeoShape*) *k;
  its1->SetRnrSelf(kTRUE);
  its1->SetMainColor(1);
  its1->SetMainTransparency(80);

  k++;

  TEveGeoShape* its2 = (TEveGeoShape*) *k;
  its2->SetRnrSelf(kTRUE);
  its2->SetMainColor(1);
  its2->SetMainTransparency(80);
  k++;

  TEveGeoShape* its3 = (TEveGeoShape*) *k;
  its3->SetRnrSelf(kTRUE);
  its3->SetMainColor(1);
  its3->SetMainTransparency(80);

//TPC

  i++;
  i++;

  TEveGeoShape* lvl1 = (TEveGeoShape*) *i;
  lvl1->SetRnrSelf(kFALSE);

  for (TEveElement::List_i j = lvl1->BeginChildren(); j != lvl1->EndChildren(); j++)
    {
      TEveGeoShape* lvl2 = (TEveGeoShape*) *j;
      lvl2->SetRnrSelf(kTRUE);
      lvl2->SetMainColor(1);
      lvl2->SetMainTransparency(80);
    }

//PHOS

  i++;

  TEveGeoShape* lvl1 = (TEveGeoShape*) *i;
  lvl1->SetRnrSelf(kFALSE);

  for (TEveElement::List_i j = lvl1->BeginChildren(); j != lvl1->EndChildren(); j++)
    {
      TEveGeoShape* lvl2 = (TEveGeoShape*) *j;
      lvl2->SetRnrSelf(kTRUE);
      lvl2->SetMainColor(1);
      lvl2->SetMainTransparency(80);

    }

//HMPID

  i++;

  TEveGeoShape* lvl1 = (TEveGeoShape*) *i;
  lvl1->SetRnrSelf(kFALSE);

  for (TEveElement::List_i j = lvl1->BeginChildren(); j != lvl1->EndChildren(); j++)
    {
      TEveGeoShape* lvl2 = (TEveGeoShape*) *j;
      lvl2->SetRnrSelf(kTRUE);
      lvl2->SetMainColor(1);
      lvl2->SetMainTransparency(80);
    }

  TFile f("$ALICE_ROOT/EVE/alice-data/gentle_rhoz_geo.root");
  TEveGeoShapeExtract* gse = (TEveGeoShapeExtract*) f.Get("Gentle");
  TEveGeoShape* gsre3 = TEveGeoShape::ImportShapeExtract(gse);
  f.Close();

  // Fix visibility, color and transparency

  gsre3->SetRnrSelf(kFALSE);
  TEveElement::List_i i = gsre3->BeginChildren();

//ITS

  TEveGeoShape* lvl1 = (TEveGeoShape*) *i;
  lvl1->SetRnrSelf(kFALSE);
  TEveElement::List_i j = lvl1->BeginChildren();

  TEveGeoShape* lvl2 = (TEveGeoShape*) *j;
  lvl2->SetRnrSelf(kFALSE);
  TEveElement::List_i k = lvl2->BeginChildren();

  TEveGeoShape* its1 = (TEveGeoShape*) *k;
  its1->SetRnrSelf(kTRUE);
  its1->SetMainColor(1);
  k++;

  TEveGeoShape* its2 = (TEveGeoShape*) *k;
  its2->SetRnrSelf(kTRUE);
  its2->SetMainColor(1);
  k++;

  TEveGeoShape* its3 = (TEveGeoShape*) *k;
  its3->SetRnrSelf(kTRUE);
  its3->SetMainColor(1);

//TPC

  i++;
  i++;

  TEveGeoShape* lvl1 = (TEveGeoShape*) *i;
  lvl1->SetRnrSelf(kFALSE);

  for (TEveElement::List_i j = lvl1->BeginChildren(); j != lvl1->EndChildren(); j++)
    {
      TEveGeoShape* lvl2 = (TEveGeoShape*) *j;
      lvl2->SetRnrSelf(kTRUE);
      lvl2->SetMainColor(1);
      lvl2->SetMainTransparency(80);

    }

//PHOS

  i++;

  TEveGeoShape* lvl1 = (TEveGeoShape*) *i;
  lvl1->SetRnrSelf(kFALSE);

  for (TEveElement::List_i j = lvl1->BeginChildren(); j != lvl1->EndChildren(); j++)
    {
      TEveGeoShape* lvl2 = (TEveGeoShape*) *j;
      lvl2->SetRnrSelf(kTRUE);
      lvl2->SetMainColor(1);
      lvl2->SetMainTransparency(80);
    }

//HMPID

  i++;

  TEveGeoShape* lvl1 = (TEveGeoShape*) *i;
  lvl1->SetRnrSelf(kFALSE);

  for (TEveElement::List_i j = lvl1->BeginChildren(); j != lvl1->EndChildren(); j++)
    {
      TEveGeoShape* lvl2 = (TEveGeoShape*) *j;
      lvl2->SetRnrSelf(kTRUE);
      lvl2->SetMainColor(1);
      lvl2->SetMainTransparency(80);
    }


//fix all the viewers

  TEveElement* top = gEve->GetCurrentEvent();

  AliEveMultiView *mv = AliEveMultiView::Instance();

  mv->InitGeomGentle(gsre1, gsre2, gsre3);

  gEve->FullRedraw3D(kTRUE, kTRUE);

}
Commit	Line	Data
3aff0c2e	1	void geom_gentle_transparentlight(Bool_t register_as_global=kTRUE)
	2	{
	3
	4	TFile f("$ALICE_ROOT/EVE/alice-data/gentle_geo.root");
	5	TEveGeoShapeExtract* gse = (TEveGeoShapeExtract*) f.Get("Gentle");
	6	TEveGeoShape* gsre1 = TEveGeoShape::ImportShapeExtract(gse);
	7	f.Close();
	8
	9	if (register_as_global)
	10	{
	11	gEve->AddGlobalElement(gsre1);
	12	}
	13
	14	// Fix visibility, color and transparency
	15
	16	gsre1->SetRnrSelf(kFALSE);
	17	TEveElement::List_i i = gsre1->BeginChildren();
	18
	19	//ITS
	20
	21	TEveGeoShape* lvl1 = (TEveGeoShape) i;
	22	lvl1->SetRnrSelf(kFALSE);
	23	TEveElement::List_i j = lvl1->BeginChildren();
	24
	25	TEveGeoShape* lvl2 = (TEveGeoShape) j;
	26	lvl2->SetRnrSelf(kFALSE);
	27	TEveElement::List_i k = lvl2->BeginChildren();
	28
	29	TEveGeoShape* its1 = (TEveGeoShape) k;
	30	its1->SetRnrSelf(kTRUE);
	31	its1->SetMainColor(1);
	32	its1->SetMainTransparency(80);
	33	k++;
	34
	35	TEveGeoShape* its2 = (TEveGeoShape) k;
	36	its2->SetRnrSelf(kTRUE);
	37	its2->SetMainColor(1);
	38	its2->SetMainTransparency(80);
	39	k++;
	40
	41	TEveGeoShape* its3 = (TEveGeoShape) k;
	42	its3->SetRnrSelf(kTRUE);
	43	its3->SetMainColor(1);
	44	its3->SetMainTransparency(80);
	45
	46	//TPC
	47
	48	i++;
	49
	50	TEveGeoShape* lvl1 = (TEveGeoShape) i;
	51	lvl1->SetRnrSelf(kFALSE);
	52	TEveElement::List_i j = lvl1->BeginChildren();
	53
	54	TEveGeoShape* lvl2 = (TEveGeoShape) j;
	55	lvl2->SetRnrSelf(kFALSE);
	56	TEveElement::List_i k = lvl2->BeginChildren();
	57
	58	TEveGeoShape* lvl3 = (TEveGeoShape) k;
	59	lvl3->SetRnrSelf(kFALSE);
	60	lvl3->SetMainColor(1);
	61	lvl3->SetMainTransparency(80);
	62	TEveElement::List_i l = lvl3->BeginChildren();
	63
	64	TEveGeoShape* lvl4 = (TEveGeoShape) l;
65	lvl4->SetRnrSelf(kFALSE);
66	TEveElement::List_i m = lvl4->BeginChildren();
67
68	TEveGeoShape* tpc1 = (TEveGeoShape) m;
69	tpc1->SetRnrSelf(kTRUE);
70	tpc1->SetMainColor(1);
71	tpc1->SetMainTransparency(80);
72	m++;
73
74	TEveGeoShape* tpc2 = (TEveGeoShape) m;
75	tpc2->SetMainColor(kGray);
76	tpc2->SetMainColor(1);
77	tpc2->SetMainTransparency(80);
78	m++;
79
80	TEveGeoShape* tpc3 = (TEveGeoShape) m;
81	tpc3->SetRnrSelf(kTRUE);
82	tpc3->SetMainColor(1);
83	tpc3->SetMainTransparency(80);
84	m++;
85
86	//TRD+TOF
87
88	i++;
89
90	TEveGeoShape* lvl1 = (TEveGeoShape) i;
91	lvl1->SetRnrSelf(kFALSE);
92
93	for (TEveElement::List_i j = lvl1->BeginChildren(); j != lvl1->EndChildren(); ++j)
94	{
95	TEveGeoShape* lvl2 = (TEveGeoShape) j;
96	lvl2->SetRnrSelf(kTRUE);
97	lvl2->SetMainColor(1);
98	lvl2->SetMainTransparency(80);
99
100	}
101
102	//PHOS
103
104	i++;
105
106	TEveGeoShape* lvl1 = (TEveGeoShape) i;
107	lvl1->SetRnrSelf(kFALSE);
108
109	for (TEveElement::List_i j = lvl1->BeginChildren(); j != lvl1->EndChildren(); ++j)
110	{
111	TEveGeoShape* lvl2 = (TEveGeoShape) j;
112	lvl2->SetRnrSelf(kTRUE);
113	lvl2->SetMainColor(1);
114	lvl2->SetMainTransparency(80);
115	}
116
117	//HMPID
118
119	i++;
120
121	TEveGeoShape* lvl1 = (TEveGeoShape) i;
122	lvl1->SetRnrSelf(kFALSE);
123
124	for (TEveElement::List_i j = lvl1->BeginChildren(); j != lvl1->EndChildren(); ++j)
125	{
126	TEveGeoShape* lvl2 = (TEveGeoShape) j;
127	lvl2->SetRnrSelf(kTRUE);
128	lvl2->SetMainColor(1);
129	lvl2->SetMainTransparency(80);
130	}
131
132	TFile f("$ALICE_ROOT/EVE/alice-data/gentle_rphi_geo.root");
133	TEveGeoShapeExtract* gse = (TEveGeoShapeExtract*) f.Get("Gentle");
134	TEveGeoShape* gsre2 = TEveGeoShape::ImportShapeExtract(gse);
135	f.Close();
136
137	// Fix visibility, color and transparency
138
139	gsre2->SetRnrSelf(kFALSE);
140	TEveElement::List_i i = gsre2->BeginChildren();
141
142	//ITS
143
144	TEveGeoShape* lvl1 = (TEveGeoShape) i;
145	lvl1->SetRnrSelf(kFALSE);
146	TEveElement::List_i j = lvl1->BeginChildren();
147
148	TEveGeoShape* lvl2 = (TEveGeoShape) j;
149	lvl2->SetRnrSelf(kFALSE);
150	TEveElement::List_i k = lvl2->BeginChildren();
151
152	TEveGeoShape* its1 = (TEveGeoShape) k;
153	its1->SetRnrSelf(kTRUE);
154	its1->SetMainColor(1);
155	its1->SetMainTransparency(80);
156
157	k++;
158
159	TEveGeoShape* its2 = (TEveGeoShape) k;
160	its2->SetRnrSelf(kTRUE);
161	its2->SetMainColor(1);
162	its2->SetMainTransparency(80);
163	k++;
164
165	TEveGeoShape* its3 = (TEveGeoShape) k;
166	its3->SetRnrSelf(kTRUE);
167	its3->SetMainColor(1);
168	its3->SetMainTransparency(80);
169
170	//TPC
171
172	i++;
173	i++;
174
175	TEveGeoShape* lvl1 = (TEveGeoShape) i;
176	lvl1->SetRnrSelf(kFALSE);
177
178	for (TEveElement::List_i j = lvl1->BeginChildren(); j != lvl1->EndChildren(); j++)
179	{
180	TEveGeoShape* lvl2 = (TEveGeoShape) j;
181	lvl2->SetRnrSelf(kTRUE);
182	lvl2->SetMainColor(1);
183	lvl2->SetMainTransparency(80);
184	}
185
186	//PHOS
187
188	i++;
189
190	TEveGeoShape* lvl1 = (TEveGeoShape) i;
191	lvl1->SetRnrSelf(kFALSE);
192
193	for (TEveElement::List_i j = lvl1->BeginChildren(); j != lvl1->EndChildren(); j++)
194	{
195	TEveGeoShape* lvl2 = (TEveGeoShape) j;
196	lvl2->SetRnrSelf(kTRUE);
197	lvl2->SetMainColor(1);
198	lvl2->SetMainTransparency(80);
199
200	}
201
202	//HMPID
203
204	i++;
205
206	TEveGeoShape* lvl1 = (TEveGeoShape) i;
207	lvl1->SetRnrSelf(kFALSE);
208
209	for (TEveElement::List_i j = lvl1->BeginChildren(); j != lvl1->EndChildren(); j++)
210	{
211	TEveGeoShape* lvl2 = (TEveGeoShape) j;
212	lvl2->SetRnrSelf(kTRUE);
213	lvl2->SetMainColor(1);
214	lvl2->SetMainTransparency(80);
215	}
216
217	TFile f("$ALICE_ROOT/EVE/alice-data/gentle_rhoz_geo.root");
218	TEveGeoShapeExtract* gse = (TEveGeoShapeExtract*) f.Get("Gentle");
219	TEveGeoShape* gsre3 = TEveGeoShape::ImportShapeExtract(gse);
220	f.Close();
221
222	// Fix visibility, color and transparency
223
224	gsre3->SetRnrSelf(kFALSE);
225	TEveElement::List_i i = gsre3->BeginChildren();
226
227	//ITS
228
229	TEveGeoShape* lvl1 = (TEveGeoShape) i;
230	lvl1->SetRnrSelf(kFALSE);
231	TEveElement::List_i j = lvl1->BeginChildren();
232
233	TEveGeoShape* lvl2 = (TEveGeoShape) j;
234	lvl2->SetRnrSelf(kFALSE);
235	TEveElement::List_i k = lvl2->BeginChildren();
236
237	TEveGeoShape* its1 = (TEveGeoShape) k;
238	its1->SetRnrSelf(kTRUE);
239	its1->SetMainColor(1);
240	k++;
241
242	TEveGeoShape* its2 = (TEveGeoShape) k;
243	its2->SetRnrSelf(kTRUE);
244	its2->SetMainColor(1);
245	k++;
246
247	TEveGeoShape* its3 = (TEveGeoShape) k;
248	its3->SetRnrSelf(kTRUE);
249	its3->SetMainColor(1);
250
251	//TPC
252
253	i++;
254	i++;
255
256	TEveGeoShape* lvl1 = (TEveGeoShape) i;
257	lvl1->SetRnrSelf(kFALSE);
258
259	for (TEveElement::List_i j = lvl1->BeginChildren(); j != lvl1->EndChildren(); j++)
260	{
261	TEveGeoShape* lvl2 = (TEveGeoShape) j;
262	lvl2->SetRnrSelf(kTRUE);
263	lvl2->SetMainColor(1);
264	lvl2->SetMainTransparency(80);
265
266	}
267
268	//PHOS
269
270	i++;
271
272	TEveGeoShape* lvl1 = (TEveGeoShape) i;
273	lvl1->SetRnrSelf(kFALSE);
274
275	for (TEveElement::List_i j = lvl1->BeginChildren(); j != lvl1->EndChildren(); j++)
276	{
277	TEveGeoShape* lvl2 = (TEveGeoShape) j;
278	lvl2->SetRnrSelf(kTRUE);
279	lvl2->SetMainColor(1);
280	lvl2->SetMainTransparency(80);
281	}
282
283	//HMPID
284
285	i++;
286
287	TEveGeoShape* lvl1 = (TEveGeoShape) i;
288	lvl1->SetRnrSelf(kFALSE);
289
290	for (TEveElement::List_i j = lvl1->BeginChildren(); j != lvl1->EndChildren(); j++)
291	{
292	TEveGeoShape* lvl2 = (TEveGeoShape) j;
293	lvl2->SetRnrSelf(kTRUE);
294	lvl2->SetMainColor(1);
295	lvl2->SetMainTransparency(80);
296	}
297
298
299	//fix all the viewers
300
301	TEveElement* top = gEve->GetCurrentEvent();
302
303	AliEveMultiView *mv = AliEveMultiView::Instance();
304
305	mv->InitGeomGentle(gsre1, gsre2, gsre3);
306
307	gEve->FullRedraw3D(kTRUE, kTRUE);
308
309	}