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

void geom_gentle_tpc(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(kRed);
  k++;

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

  TEveGeoShape* its3 = (TEveGeoShape*) *k;
  its3->SetRnrSelf(kTRUE);
  its3->SetMainColor(kRed+4);

//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(kTRUE);
  lvl3->SetMainColor(kBlue);
  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(kGray);
  m++;

  TEveGeoShape* tpc2 = (TEveGeoShape*) *m;
  tpc2->SetRnrSelf(kTRUE);
  tpc2->SetMainColor(kGray);
  m++;

  TEveGeoShape* tpc3 = (TEveGeoShape*) *m;
  tpc3->SetRnrSelf(kTRUE);
  tpc3->SetMainColor(kGray);
  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(kFALSE);

    }

//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(kFALSE);
    }

//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(kFALSE);
    }


  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(kRed);
  k++;

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

  TEveGeoShape* its3 = (TEveGeoShape*) *k;
  its3->SetRnrSelf(kTRUE);
  its3->SetMainColor(kRed+4);

//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(kFALSE);

    }

//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(kFALSE);
    }

//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(kFALSE);
    }

  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(kRed);
  k++;

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

  TEveGeoShape* its3 = (TEveGeoShape*) *k;
  its3->SetRnrSelf(kTRUE);
  its3->SetMainColor(kRed+4);

//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(kFALSE);

    }

//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(kFALSE);
    }

//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(kFALSE);
    }


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