]> git.uio.no Git - u/mrichter/AliRoot.git/blame - ITS/AliITSvPPRcoarseasymm.cxx
git://git.uio.no / u / mrichter / AliRoot.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
corrected test for presence of rotation in ProcessLogicalVolume()
[u/mrichter/AliRoot.git] / ITS / AliITSvPPRcoarseasymm.cxx
CommitLineData
33959f40 1/**************************************************************************
2 * Copyright(c) 1998-1999, ALICE Experiment at CERN, All rights reserved. *
3 * *
4 * Author: The ALICE Off-line Project. *
5 * Contributors are mentioned in the code where appropriate. *
6 * *
7 * Permission to use, copy, modify and distribute this software and its *
8 * documentation strictly for non-commercial purposes is hereby granted *
9 * without fee, provided that the above copyright notice appears in all *
10 * copies and that both the copyright notice and this permission notice *
11 * appear in the supporting documentation. The authors make no claims *
12 * about the suitability of this software for any purpose. It is *
13 * provided "as is" without express or implied warranty. *
14 **************************************************************************/
15
16/*
17$Log$
4ebc1b6a 18Revision 1.10 2000/10/27 17:19:50 barbera
19Position of rails w.r.t. the interaction point corrected.
20
acb52b3d 21Revision 1.9 2000/10/27 13:31:29 barbera
22Rails between ITS and TPC added.
23
c54243df 24Revision 1.8 2000/10/27 13:03:08 barbera
25Small changes in the SPD volumes and materials
26
6c251614 27Revision 1.6 2000/10/16 14:45:37 barbera
28Mother volume ITSD modified to avoid some overlaps
29
e8031268 30Revision 1.5 2000/10/16 13:49:15 barbera
31Services volumes slightly modified and material added following Pierluigi Barberis' information
32
e6892b92 33Revision 1.4 2000/10/07 15:33:07 barbera
34Small corrections to the ITSV mother volume
35
990d421f 36Revision 1.3 2000/10/07 13:06:50 barbera
37Some new materials and media defined
38
d12d92a5 39Revision 1.2 2000/10/07 10:58:15 barbera
40Mother volume ITSV corrected
41
b16d3d87 42Revision 1.1 2000/10/06 23:09:24 barbera
43New coarse geometry (asymmetric services
44
33959f40 45Revision 1.20 2000/10/02 21:28:08 fca
46Removal of useless dependecies via forward declarations
47
48Revision 1.19 2000/07/10 16:07:19 fca
49Release version of ITS code
50
51Revision 1.14.2.2 2000/05/19 10:09:21 nilsen
52fix for bug with HP and Sun unix + fix for event display in ITS-working branch
53
54Revision 1.14.2.1 2000/03/04 23:45:19 nilsen
55Fixed up the comments/documentation.
56
57Revision 1.14 1999/11/25 06:52:56 fca
58Correct value of drca
59
60Revision 1.13.2.1 1999/11/25 06:52:21 fca
61Correct value of drca
62
63Revision 1.13 1999/10/27 11:16:26 fca
64Correction of problem in geometry
65
66Revision 1.12 1999/10/22 08:25:25 fca
67remove double definition of destructors
68
69Revision 1.11 1999/10/22 08:16:49 fca
70Correct destructors, thanks to I.Hrivnacova
71
72Revision 1.10 1999/10/06 19:56:50 fca
73Add destructor
74
75Revision 1.9 1999/10/05 08:05:09 fca
76Minor corrections for uninitialised variables.
77
78Revision 1.8 1999/09/29 09:24:20 fca
79Introduction of the Copyright and cvs Log
80
81*/
82
83///////////////////////////////////////////////////////////////////////////////
84// //
85// Inner Traking System version PPR coarse asymmetric //
86// This class contains the base procedures for the Inner Tracking System //
87// //
88// Authors: R. Barbera
89// version 6.
90// Created 2000.
91//
92// NOTE: THIS IS THE COARSE ASYMMETRIC PPR geometry of the ITS.
93// THIS WILL NOT WORK
94// with the geometry or module classes or any analysis classes. You are
95// strongly encouraged to uses AliITSv5.
96// //
97///////////////////////////////////////////////////////////////////////////////
98
99#include <TMath.h>
100#include <TRandom.h>
101#include <TVector.h>
102#include <TGeometry.h>
103#include <TNode.h>
104#include <TTUBE.h>
105#include <TFile.h> // only required for Tracking function?
106#include <TCanvas.h>
107#include <TObjArray.h>
108#include <TClonesArray.h>
109
110
111#include "AliMC.h"
112#include "AliMagF.h"
113#include "AliConst.h"
114
115#include "AliITShit.h"
116#include "AliITSvPPRcoarseasymm.h"
117#include "AliRun.h"
118
119
120ClassImp(AliITSvPPRcoarseasymm)
121
122//_____________________________________________________________________________
123AliITSvPPRcoarseasymm::AliITSvPPRcoarseasymm() {
124////////////////////////////////////////////////////////////////////////
125// Standard default constructor for the ITS version 6.
126////////////////////////////////////////////////////////////////////////
127
128 fIdN = 6;
129 fIdName = new TString[fIdN];
130 fIdName[0] = "ITS1";
131 fIdName[1] = "ITS2";
132 fIdName[2] = "ITS3";
133 fIdName[3] = "ITS4";
134 fIdName[4] = "ITS5";
135 fIdName[5] = "ITS6";
136 fIdSens = new Int_t[fIdN];
137 for (Int_t i=0;i<fIdN;i++) fIdSens[i]=fIdName[i].Length();
138}
139//_____________________________________________________________________________
140AliITSvPPRcoarseasymm::AliITSvPPRcoarseasymm(const char *name, const char *title) : AliITS(name, title){
141////////////////////////////////////////////////////////////////////////
142// Standard constructor for the ITS version 6.
143////////////////////////////////////////////////////////////////////////
144
145 fIdN = 6;
146 fIdName = new TString[fIdN];
147 fIdName[0] = "ITS1";
148 fIdName[1] = "ITS2";
149 fIdName[2] = "ITS3";
150 fIdName[3] = "ITS4";
151 fIdName[4] = "ITS5";
152 fIdName[5] = "ITS6";
153 fIdSens = new Int_t[fIdN];
154 for (Int_t i=0;i<fIdN;i++) fIdSens[i]=fIdName[i].Length();
155
156}
157//____________________________________________________________________________
158AliITSvPPRcoarseasymm::AliITSvPPRcoarseasymm(const AliITSvPPRcoarseasymm &source){
159////////////////////////////////////////////////////////////////////////
160// Copy Constructor for ITS version 6.
161////////////////////////////////////////////////////////////////////////
162 if(&source == this) return;
163 printf("Not allowed to copy AliITSvPPRcoarseasymm\n");
164 return;
165}
166//_____________________________________________________________________________
167AliITSvPPRcoarseasymm& AliITSvPPRcoarseasymm::operator=(const AliITSvPPRcoarseasymm &source){
168////////////////////////////////////////////////////////////////////////
169// Assignment operator for the ITS version 6.
170////////////////////////////////////////////////////////////////////////
171 if(&source == this) return *this;
172 printf("Not allowed to copy AliITSvPPRcoarseasymm\n");
173 return *this;
174}
175//_____________________________________________________________________________
176AliITSvPPRcoarseasymm::~AliITSvPPRcoarseasymm() {
177////////////////////////////////////////////////////////////////////////
178// Standard destructor for the ITS version 6.
179////////////////////////////////////////////////////////////////////////
180}
181
182//__________________________________________________________________________
183void AliITSvPPRcoarseasymm::BuildGeometry(){
184////////////////////////////////////////////////////////////////////////
185// Geometry builder for the ITS version 6.
186////////////////////////////////////////////////////////////////////////
187 TNode *node, *top;
188 const int kColorITS=kYellow;
189 //
190 top = gAlice->GetGeometry()->GetNode("alice");
191
192 new TTUBE("S_layer1","Layer1 of ITS","void",3.95,3.95+0.05475,12.25);
193 top->cd();
194 node = new TNode("Layer1","Layer1","S_layer1",0,0,0,"");
195 node->SetLineColor(kColorITS);
196 fNodes->Add(node);
197
198 new TTUBE("S_layer2","Layer2 of ITS","void",7.,7.+0.05475,16.3);
199 top->cd();
200 node = new TNode("Layer2","Layer2","S_layer2",0,0,0,"");
201 node->SetLineColor(kColorITS);
202 fNodes->Add(node);
203
204 new TTUBE("S_layer3","Layer3 of ITS","void",15.,15.+0.05288,21.1);
205 top->cd();
206 node = new TNode("Layer3","Layer3","S_layer3",0,0,0,"");
207 node->SetLineColor(kColorITS);
208 fNodes->Add(node);
209
210 new TTUBE("S_layer4","Layer4 of ITS","void",24,24+0.05288,29.6);
211 top->cd();
212 node = new TNode("Layer4","Layer4","S_layer4",0,0,0,"");
213 node->SetLineColor(kColorITS);
214 fNodes->Add(node);
215
216 new TTUBE("S_layer5","Layer5 of ITS","void",40,40+0.05382,45.1);
217 top->cd();
218 node = new TNode("Layer5","Layer5","S_layer5",0,0,0,"");
219 node->SetLineColor(kColorITS);
220 fNodes->Add(node);
221
222 new TTUBE("S_layer6","Layer6 of ITS","void",45,45+0.05382,50.4);
223 top->cd();
224 node = new TNode("Layer6","Layer6","S_layer6",0,0,0,"");
225 node->SetLineColor(kColorITS);
226 fNodes->Add(node);
227}
228//_____________________________________________________________________________
229void AliITSvPPRcoarseasymm::CreateGeometry(){
230////////////////////////////////////////////////////////////////////////
231// This routine defines and Creates the geometry for version 6 of the ITS.
232////////////////////////////////////////////////////////////////////////
233
234 //INNER RADII OF THE SILICON LAYERS
6c251614 235 Float_t rl[6] = { 3.8095,7.,15.,24.,38.1,43.5765 };
33959f40 236 //THICKNESSES OF LAYERS (in % radiation length)
6c251614 237 Float_t drl[6] = { 1.03,1.03,0.94,0.95,0.91,0.87 };
33959f40 238 //HALF LENGTHS OF LAYERS
6c251614 239 Float_t dzl[6] = { 14.35,14.35,25.1,32.1,49.405,55.27 };
33959f40 240 //LENGTHS OF END-LADDER BOXES (ALL INCLUDED)
146fb996 241 Float_t dzb[6] = { 12.4,12.4,19.,19.,12.,11. };
33959f40 242 //THICKNESSES OF END-LADDER BOXES (ALL INCLUDED)
146fb996 243 Float_t drb[6] = { rl[1]-rl[0],0.2,5.,5.,3.,3. };
33959f40 244
245
246 Float_t dits[3], rlim, zmax;
247 Float_t zpos;
248 Float_t pcits[15], xltpc;
249 Int_t idrotm[399], i;
250 Float_t dgh[50];
251
252 Int_t *idtmed = fIdtmed->GetArray()-199;
253
254 // CONVERT INTO CM (RL(SI)=9.36 CM)
255 for (i = 0; i < 6; ++i) {
256 drl[i] = drl[i] / 100. * 9.36;
257 }
258
259 // FIELD CAGE HALF LENGTH
260
261 rlim = 56.;
262 zmax = 76.708;
263 xltpc = 284.;
264
b16d3d87 265 // --- Define ghost volume containing the whole ITS (including services)
266 // and fill it with air
267
268 dgh[0] = 0.;
269 dgh[1] = 360.;
270 dgh[2] = 12.;
271 dgh[3] = -xltpc-5.-0.1;
272 dgh[4] = 44.9;
273 dgh[5] = 85.;
274 dgh[6] = -xltpc;
275 dgh[7] = 44.9;
276 dgh[8] = 85.;
277 dgh[9] = -xltpc;
278 dgh[10] = 44.9;
279 dgh[11] = 56.1;
280 dgh[12] = -100.7;
281 dgh[13] = 44.9;
282 dgh[14] = 56.1;
990d421f 283 dgh[15] = -77.2;
b16d3d87 284 dgh[16] = 44.9;
285 dgh[17] = 56.1;
6c251614 286 dgh[18] = -40.;
4ebc1b6a 287 dgh[19] = 3.295;
b16d3d87 288 dgh[20] = 56.1;
6c251614 289 dgh[21] = 40.;
4ebc1b6a 290 dgh[22] = 3.295;
b16d3d87 291 dgh[23] = 56.1;
990d421f 292 dgh[24] = 77.2;
b16d3d87 293 dgh[25] = 44.9;
294 dgh[26] = 56.1;
295 dgh[27] = 100.7;
296 dgh[28] = 44.9;
297 dgh[29] = 56.1;
298 dgh[30] = xltpc;
299 dgh[31] = 61.5;
300 dgh[32] = 61.5+4.;
301 dgh[33] = xltpc;
302 dgh[34] = 61.5;
303 dgh[35] = 85.;
304 dgh[36] = xltpc+4.+0.1;
305 dgh[37] = 62.4;
306 dgh[38] = 85.;
307
308 gMC->Gsvolu("ITSV", "PCON", idtmed[275], dgh, 39);
309
310 // --- Place the ghost volume in its mother volume (ALIC) and make it
311 // invisible
312
313 gMC->Gspos("ITSV", 1, "ALIC", 0., 0., 0., 0, "ONLY");
d12d92a5 314 gMC->Gsatt("ITSV", "SEEN", 0);
b16d3d87 315
316
33959f40 317 // --- Define ghost volume containing the six layers and fill it with air
318
319 dgh[0] = 0.;
320 dgh[1] = 360.;
321 dgh[2] = 4.;
e8031268 322 dgh[3] = -77.2;
33959f40 323 dgh[4] = 45.;
324 dgh[5] = 56.;
6c251614 325 dgh[6] = -40.;
33959f40 326 dgh[7] = 3.3;
327 dgh[8] = 56.;
6c251614 328 dgh[9] = 40.;
33959f40 329 dgh[10] = 3.3;
330 dgh[11] = 56.;
e8031268 331 dgh[12] = 77.2;
33959f40 332 dgh[13] = 45.;
333 dgh[14] = 56.;
b16d3d87 334 gMC->Gsvolu("ITSD", "PCON", idtmed[275], dgh, 15);
33959f40 335
336 // --- Place the ghost volume in its mother volume (ITSV) and make it
337 // invisible
338
b16d3d87 339 gMC->Gspos("ITSD", 1, "ITSV", 0., 0., 0., 0, "ONLY");
146fb996 340 //gMC->Gsatt("ITSD", "SEEN", 0);
33959f40 341
342 // ITS LAYERS (SILICON)
343
344 dits[0] = rl[0];
345 dits[1] = rl[0] + drl[0];
346 dits[2] = dzl[0];
347 gMC->Gsvolu("ITS1", "TUBE", idtmed[199], dits, 3);
b16d3d87 348 gMC->Gspos("ITS1", 1, "ITSD", 0., 0., 0., 0, "ONLY");
33959f40 349
350 dits[0] = rl[1];
351 dits[1] = rl[1] + drl[1];
352 dits[2] = dzl[1];
353 gMC->Gsvolu("ITS2", "TUBE", idtmed[199], dits, 3);
b16d3d87 354 gMC->Gspos("ITS2", 1, "ITSD", 0., 0., 0., 0, "ONLY");
33959f40 355
356 dits[0] = rl[2];
357 dits[1] = rl[2] + drl[2];
358 dits[2] = dzl[2];
359 gMC->Gsvolu("ITS3", "TUBE", idtmed[224], dits, 3);
b16d3d87 360 gMC->Gspos("ITS3", 1, "ITSD", 0., 0., 0., 0, "ONLY");
33959f40 361
362 dits[0] = rl[3];
363 dits[1] = rl[3] + drl[3];
364 dits[2] = dzl[3];
365 gMC->Gsvolu("ITS4", "TUBE", idtmed[224], dits, 3);
b16d3d87 366 gMC->Gspos("ITS4", 1, "ITSD", 0., 0., 0., 0, "ONLY");
33959f40 367
368 dits[0] = rl[4];
369 dits[1] = rl[4] + drl[4];
370 dits[2] = dzl[4];
371 gMC->Gsvolu("ITS5", "TUBE", idtmed[249], dits, 3);
b16d3d87 372 gMC->Gspos("ITS5", 1, "ITSD", 0., 0., 0., 0, "ONLY");
33959f40 373
374 dits[0] = rl[5];
375 dits[1] = rl[5] + drl[5];
376 dits[2] = dzl[5];
377 gMC->Gsvolu("ITS6", "TUBE", idtmed[249], dits, 3);
b16d3d87 378 gMC->Gspos("ITS6", 1, "ITSD", 0., 0., 0., 0, "ONLY");
33959f40 379
d12d92a5 380 // END-LADDER ELECTRONICS BOXES AND CABLES FOR SPD
33959f40 381
d12d92a5 382 gMC->Gsvolu("IEL1", "TUBE", idtmed[208], dits, 0);
383 for (i = 0; i < 2; i++) {
33959f40 384 dits[0] = rl[i];
385 dits[1] = dits[0] + drb[i];
386 dits[2] = dzb[i] / 2.;
387 zpos = dzl[i] + dits[2];
d12d92a5 388 gMC->Gsposp("IEL1", i+1, "ITSD", 0., 0., zpos, 0, "ONLY", dits, 3);
389 gMC->Gsposp("IEL1", i+1+6, "ITSD", 0., 0.,-zpos, 0, "ONLY", dits, 3);
33959f40 390 }
d12d92a5 391
392 // END-LADDER ELECTRONICS BOXES AND CABLES FOR SDD
393
394 gMC->Gsvolu("IEL2", "TUBE", idtmed[237], dits, 0);
395 for (i = 2; i < 4; i++) {
396 dits[0] = rl[i];
397 dits[1] = dits[0] + drb[i];
398 dits[2] = dzb[i] / 2.;
399 zpos = dzl[i] + dits[2];
400 gMC->Gsposp("IEL2", i+1, "ITSD", 0., 0., zpos, 0, "ONLY", dits, 3);
401 gMC->Gsposp("IEL2", i+1+6, "ITSD", 0., 0.,-zpos, 0, "ONLY", dits, 3);
402 }
403
404 // END-LADDER ELECTRONICS BOXES AND CABLES FOR SSD
405
406 gMC->Gsvolu("IEL3", "TUBE", idtmed[263], dits, 0);
407 for (i = 4; i < 6; i++) {
408 dits[0] = rl[i];
409 dits[1] = dits[0] + drb[i];
410 dits[2] = dzb[i] / 2.;
411 zpos = dzl[i] + dits[2];
412 gMC->Gsposp("IEL3", i+1, "ITSD", 0., 0., zpos, 0, "ONLY", dits, 3);
413 gMC->Gsposp("IEL3", i+1+6, "ITSD", 0., 0.,-zpos, 0, "ONLY", dits, 3);
414 }
33959f40 415
146fb996 416
6c251614 417 // DEFINE THERMAL SCREEN FOR SPD
33959f40 418
6c251614 419 pcits[0] = 8.3;
420 pcits[1] = 8.5;
421 pcits[2] = 42.5;
422 gMC->Gsvolu("ICY1", "TUBE", idtmed[274], pcits, 3);
423 gMC->Gspos("ICY1", 1, "ITSD", 0., 0., 0., 0, "ONLY");
33959f40 424
33959f40 425 // DEFINE END CONES FOR SDD
426
4ebc1b6a 427 pcits[0] = (59.-42.5)/2.;
428 pcits[1] = 8.5;
429 pcits[2] = 8.5+3.0;
430 pcits[3] = 28.;
431 pcits[4] = 28.+3.0;
432 gMC->Gsvolu("ICO1", "CONE", idtmed[274], pcits, 5);
146fb996 433 AliMatrix(idrotm[200], 90., 0., 90., 90., 180., 0.);
4ebc1b6a 434 gMC->Gspos("ICO1", 1, "ITSD", 0., 0., 42.5+pcits[0], 0, "ONLY");
435 gMC->Gspos("ICO1", 2, "ITSD", 0., 0., -(42.5+pcits[0]), idrotm[200], "ONLY");
6c251614 436
437 // DEFINE CYLINDER BETWEEN SDD AND SSD
438
439 pcits[0] = (59.5-0.13/2.)/2.;
440 pcits[1] = (59.5+0.13/2.)/2.;
441 pcits[2] = 57.;
442 gMC->Gsvolu("ICY2", "TUBE", idtmed[274], pcits, 3);
146fb996 443 gMC->Gspos("ICY2", 1, "ITSD", 0., 0., 0., 0, "ONLY");
33959f40 444
445 // DEFINE END CONES FOR SSD
446
4ebc1b6a 447 pcits[0] = (74.-59.)/2.;
448 pcits[1] = 28.;
449 pcits[2] = 28.+4.;
450 pcits[3] = 47.;
451 pcits[4] = 47.+4.;
452 gMC->Gsvolu("ICO2", "CONE", idtmed[274], pcits, 5);
453 gMC->Gspos("ICO2", 1, "ITSD", 0., 0., 59.+pcits[0], 0, "ONLY");
33959f40 454
455 // SERVICES
146fb996 456
c54243df 457 // --- DEFINE CABLES AT THE END OF THE ITS CONES - COPPER PART
33959f40 458
459 dgh[0] = 45.;
e6892b92 460 dgh[1] = 45.+1.0;
e8031268 461 dgh[2] = 9.5;
33959f40 462
e6892b92 463 gMC->Gsvolu("ICCU", "TUBE", idtmed[279], dgh, 3);
e8031268 464 gMC->Gspos("ICCU", 1, "ITSV", 0., 0., 86.7, 0, "ONLY");
465 gMC->Gspos("ICCU", 2, "ITSV", 0., 0., -86.7, idrotm[200], "ONLY");
e6892b92 466
c54243df 467 // --- DEFINE CABLES AT THE END OF THE ITS CONES - CARBON PART
e6892b92 468
469 dgh[0] = 45.+1.0;
470 dgh[1] = 45.+1.0+1.5;
e8031268 471 dgh[2] = 9.5;
e6892b92 472
473 gMC->Gsvolu("ICCC", "TUBE", idtmed[274], dgh, 3);
e8031268 474 gMC->Gspos("ICCC", 1, "ITSV", 0., 0., 86.7, 0, "ONLY");
475 gMC->Gspos("ICCC", 2, "ITSV", 0., 0., -86.7, idrotm[200], "ONLY");
33959f40 476
c54243df 477 // --- DEFINE PATCH PANELS AT THE END OF THE ITS CONES
33959f40 478
479 dgh[0] = 45.;
480 dgh[1] = 56.;
481 dgh[2] = 2.25;
482
e6892b92 483 gMC->Gsvolu("IPAN", "TUBE", idtmed[285], dgh, 3);
b16d3d87 484 gMC->Gspos("IPAN", 1, "ITSV", 0., 0., 98.45, 0, "ONLY");
485 gMC->Gspos("IPAN", 2, "ITSV", 0., 0., -98.45, idrotm[200], "ONLY");
33959f40 486
c54243df 487 // --- DEFINE CABLES/COOLING BELOW THE TPC ON THE ABSORBER SIDE - COPPER PART
4ebc1b6a 488 // UPPER PART
489
490 dgh[0] = (xltpc-100.7)/2.;
491 dgh[1] = 45.2;
492 dgh[2] = 45.2+1.0;
493 dgh[3] = 61.8;
494 dgh[4] = 61.8+1.0;
495 dgh[5] = 12.;
496 dgh[6] = 168.;
497 gMC->Gsvolu("ICU1", "CONS", idtmed[279], dgh, 7);
498 gMC->Gspos("ICU1", 1, "ITSV", 0., 0., 100.7+dgh[0], 0, "ONLY");
33959f40 499
4ebc1b6a 500 // --- DEFINE CABLES/COOLING BELOW THE TPC ON THE ABSORBER SIDE - COPPER PART
501 // LOWER PART
502
503 dgh[0] = (xltpc-100.7)/2.;
504 dgh[1] = 45.2;
505 dgh[2] = 45.2+1.0;
506 dgh[3] = 61.8;
507 dgh[4] = 61.8+1.0;
508 dgh[5] = 192.;
509 dgh[6] = 348.;
510 gMC->Gsvolu("ICU2", "CONS", idtmed[279], dgh, 7);
511 gMC->Gspos("ICU2", 1, "ITSV", 0., 0., 100.7+dgh[0], 0, "ONLY");
512
513 // --- DEFINE CABLES/COOLING BELOW THE TPC ON THE ABSORBER SIDE - CARBON PART
514 // UPPER PART
515
516 dgh[0] = (xltpc-100.7)/2.;
517 dgh[1] = 45.2+1.0;
518 dgh[2] = 45.2+1.0+1.5;
519 dgh[3] = 61.8+1.0;
520 dgh[4] = 61.8+1.0+1.5;
521 dgh[5] = 12.;
522 dgh[6] = 168.;
523 gMC->Gsvolu("ICC1", "CONS", idtmed[274], dgh, 7);
524 gMC->Gspos("ICC1", 1, "ITSV", 0., 0., 100.7+dgh[0], 0, "ONLY");
e6892b92 525
c54243df 526 // --- DEFINE CABLES/COOLING BELOW THE TPC ON THE ABSORBER SIDE - CARBON PART
4ebc1b6a 527 // LOWER PART
528
529 dgh[0] = (xltpc-100.7)/2.;
530 dgh[1] = 45.2+1.0;
531 dgh[2] = 45.2+1.0+1.5;
532 dgh[3] = 61.8+1.0;
533 dgh[4] = 61.8+1.0+1.5;
534 dgh[5] = 192.;
535 dgh[6] = 348.;
536 gMC->Gsvolu("ICC2", "CONS", idtmed[274], dgh, 7);
537 gMC->Gspos("ICC2", 1, "ITSV", 0., 0., 100.7+dgh[0], 0, "ONLY");
538
c54243df 539 // --- DEFINE CABLES/COOLING BEHIND THE TPC ON THE ABSORBER SIDE - COPPER PART
4ebc1b6a 540 // UPPER PART
541
542 dgh[0] = 62.5;
543 dgh[1] = 74.5;
544 dgh[2] = 0.5;
545 dgh[3] = 12.;
546 dgh[4] = 168.;
547 gMC->Gsvolu("ICU3", "TUBS", idtmed[279], dgh, 5);
548 gMC->Gspos("ICU3", 1, "ITSV", 0., 0., xltpc+1.5+dgh[2], 0, "ONLY");
549
550 // --- DEFINE CABLES/COOLING BEHIND THE TPC ON THE ABSORBER SIDE - COPPER PART
551 // LOWER PART
552
553 dgh[0] = 62.5;
554 dgh[1] = 74.5;
555 dgh[2] = 0.5;
556 dgh[3] = 192.;
557 dgh[4] = 348.;
558 gMC->Gsvolu("ICU4", "TUBS", idtmed[279], dgh, 5);
559 gMC->Gspos("ICU4", 1, "ITSV", 0., 0., xltpc+1.5+dgh[2], 0, "ONLY");
560
c54243df 561 // --- DEFINE CABLES/COOLING BEHIND THE TPC ON THE ABSORBER SIDE - CARBON PART
4ebc1b6a 562 // UPPER PART
563
564 dgh[0] = 62.5;
565 dgh[1] = 74.5;
566 dgh[2] = 0.75;
567 dgh[3] = 12.;
568 dgh[4] = 168.;
569 gMC->Gsvolu("ICC3", "TUBS", idtmed[274], dgh, 5);
570 gMC->Gspos("ICC3", 1, "ITSV", 0., 0., xltpc+dgh[2], 0, "ONLY");
571
572 // --- DEFINE CABLES/COOLING BEHIND THE TPC ON THE ABSORBER SIDE - CARBON PART
573 // LOWER PART
574
575 dgh[0] = 62.5;
576 dgh[1] = 74.5;
577 dgh[2] = 0.75;
578 dgh[3] = 192.;
579 dgh[4] = 348.;
580 gMC->Gsvolu("ICC4", "TUBS", idtmed[274], dgh, 5);
581 gMC->Gspos("ICC4", 1, "ITSV", 0., 0., xltpc+dgh[2], 0, "ONLY");
33959f40 582
c54243df 583 // --- DEFINE CABLES/COOLING BELOW THE TPC ON THE OTHER SIDE W.R.T.
1a7aef02 584 // THE ABSORBER - COPPER PART - UPPER PART
33959f40 585
586 dgh[0] = 45.;
e6892b92 587 dgh[1] = 45.+1.0;
588 dgh[2] = (xltpc-100.7+1.5)/2.;
1a7aef02 589 dgh[3] = 12.;
590 dgh[4] = 168.;
591 gMC->Gsvolu("ICU5", "TUBS", idtmed[279], dgh, 5);
4ebc1b6a 592 gMC->Gspos("ICU5", 1, "ITSV", 0., 0., -100.7-dgh[2], 0, "ONLY");
e6892b92 593
c54243df 594 // --- DEFINE CABLES/COOLING BELOW THE TPC ON THE OTHER SIDE W.R.T.
1a7aef02 595 // THE ABSORBER - COPPER PART - LOWER PART
596
597 dgh[0] = 45.;
598 dgh[1] = 45.+1.0;
599 dgh[2] = (xltpc-100.7+1.5)/2.;
600 dgh[3] = 192.;
601 dgh[4] = 348.;
602 gMC->Gsvolu("ICU6", "TUBS", idtmed[279], dgh, 5);
603 gMC->Gspos("ICU6", 1, "ITSV", 0., 0., -100.7-dgh[2], 0, "ONLY");
604
605 // --- DEFINE CABLES/COOLING BELOW THE TPC ON THE OTHER SIDE W.R.T.
606 // THE ABSORBER - CARBON PART - UPPER PART
607
608 dgh[0] = 45.+1.0;
609 dgh[1] = 45.+1.0+1.5;
610 dgh[2] = (xltpc-100.7)/2.;
611 dgh[3] = 12.;
612 dgh[4] = 168.;
613 gMC->Gsvolu("ICC5", "TUBS", idtmed[274], dgh, 5);
614 gMC->Gspos("ICC5", 1, "ITSV", 0., 0., -100.7-dgh[2], 0, "ONLY");
615
616 // --- DEFINE CABLES/COOLING BELOW THE TPC ON THE OTHER SIDE W.R.T.
617 // THE ABSORBER - CARBON PART - LOWER PART
e6892b92 618
619 dgh[0] = 45.+1.0;
620 dgh[1] = 45.+1.0+1.5;
33959f40 621 dgh[2] = (xltpc-100.7)/2.;
1a7aef02 622 dgh[3] = 192.;
623 dgh[4] = 348.;
624 gMC->Gsvolu("ICC6", "TUBS", idtmed[274], dgh, 5);
625 gMC->Gspos("ICC6", 1, "ITSV", 0., 0., -100.7-dgh[2], 0, "ONLY");
33959f40 626
1a7aef02 627 // --- DEFINE CABLES/COOLING BEHIND THE TPC ON OTHER SIDE W.R.T. THE ABSORBER
628 // COPPER PART - UPPER PART
629
630 dgh[0] = 45.;
631 dgh[1] = 74.5;
632 dgh[2] = 0.5;
633 dgh[3] = 12.;
634 dgh[4] = 168.;
635 gMC->Gsvolu("ICU7", "TUBS", idtmed[279], dgh, 5);
636 gMC->Gspos("ICU7", 1, "ITSV", 0., 0., -(xltpc+1.5+dgh[2]), 0, "ONLY");
33959f40 637
c54243df 638 // --- DEFINE CABLES/COOLING BEHIND THE TPC ON OTHER SIDE W.R.T. THE ABSORBER
1a7aef02 639 // COPPER PART - LOWER PART
4ebc1b6a 640
641 dgh[0] = 45.;
642 dgh[1] = 74.5;
643 dgh[2] = 0.5;
1a7aef02 644 dgh[3] = 192.;
645 dgh[4] = 348.;
646 gMC->Gsvolu("ICU8", "TUBS", idtmed[279], dgh, 5);
647 gMC->Gspos("ICU8", 1, "ITSV", 0., 0., -(xltpc+1.5+dgh[2]), 0, "ONLY");
648
649 // --- DEFINE CABLES/COOLING BEHIND THE TPC ON OTHER SIDE W.R.T. THE ABSORBER
650 // CARBON PART - UPPER PART
33959f40 651
1a7aef02 652 dgh[0] = 45.+1.0;
653 dgh[1] = 74.5;
654 dgh[2] = 0.75;
655 dgh[3] = 12.;
656 dgh[4] = 168.;
657 gMC->Gsvolu("ICC7", "TUBS", idtmed[274], dgh, 5);
658 gMC->Gspos("ICC7", 1, "ITSV", 0., 0., -(xltpc+dgh[2]), 0, "ONLY");
e6892b92 659
c54243df 660 // --- DEFINE CABLES/COOLING BEHIND THE TPC ON OTHER SIDE W.R.T. THE ABSORBER
1a7aef02 661 // CARBON PART - LOWER PART
e6892b92 662
4ebc1b6a 663 dgh[0] = 45.+1.0;
664 dgh[1] = 74.5;
665 dgh[2] = 0.75;
1a7aef02 666 dgh[3] = 192.;
667 dgh[4] = 348.;
668 gMC->Gsvolu("ICC8", "TUBS", idtmed[274], dgh, 5);
669 gMC->Gspos("ICC8", 1, "ITSV", 0., 0., -(xltpc+dgh[2]), 0, "ONLY");
33959f40 670
1a7aef02 671 // --- DEFINE HOOK TO THE TPC ON OTHER SIDE W.R.T. THE ABSORBER - UPPER PART
672
673 dgh[0] = 74.5;
674 dgh[1] = 79.5;
675 dgh[2] = 2.5;
676 dgh[3] = 12.;
677 dgh[4] = 168.;
678 gMC->Gsvolu("IHK1", "TUBS", idtmed[284], dgh, 5);
679 gMC->Gspos("IHK1", 1, "ITSV", 0., 0., -xltpc-dgh[2], 0, "ONLY");
680
681 // --- DEFINE HOOK TO THE TPC ON OTHER SIDE W.R.T. THE ABSORBER - LOWER PART
33959f40 682
683 dgh[0] = 74.5;
684 dgh[1] = 79.5;
685 dgh[2] = 2.5;
1a7aef02 686 dgh[3] = 192.;
687 dgh[4] = 348.;
688 gMC->Gsvolu("IHK2", "TUBS", idtmed[284], dgh, 5);
689 gMC->Gspos("IHK2", 1, "ITSV", 0., 0., -xltpc-dgh[2], 0, "ONLY");
33959f40 690
c54243df 691 // --- DEFINE RAILS BETWEEN THE ITS AND THE TPC
692
693 dgh[0] = 0.85;
694 dgh[1] = 10.;
acb52b3d 695 dgh[2] = 190.;
c54243df 696 gMC->Gsvolu("IRAI", "BOX ", idtmed[285], dgh, 3);
acb52b3d 697 gMC->Gspos("IRAI", 1, "ITSV", 53., 0., -69.5, 0, "ONLY");
698 gMC->Gspos("IRAI", 2, "ITSV", -53., 0., -69.5, 0, "ONLY");
c54243df 699
4ebc1b6a 700 // --- DEFINE CYLINDERS HOLDING RAILS BETWEEN THE ITS AND THE TPC
701
4ebc1b6a 702 dgh[0] = 58.;
703 dgh[1] = 59.;
704 dgh[2] = 0.2; //check the thickness
705 gMC->Gsvolu("ICYL", "TUBE", idtmed[285], dgh, 3);
706 gMC->Gspos("ICYL", 1, "ITSV", 0., 0., 74., 0, "ONLY");
1a7aef02 707 gMC->Gspos("ICYL", 2, "ITSV", 0., 0., -74., idrotm[200], "ONLY");
33959f40 708
709 // --- Outputs the geometry tree in the EUCLID/CAD format
710
711 if (fEuclidOut) {
712 gMC->WriteEuclid("ITSgeometry", "ITSV", 1, 5);
713 }
714}
715//_____________________________________________________________________________
716void AliITSvPPRcoarseasymm::CreateMaterials(){
717////////////////////////////////////////////////////////////////////////
718 //
719 // Create ITS materials
720 // This function defines the default materials used in the Geant
721 // Monte Carlo simulations for the geometries AliITSv1, AliITSv3,
722 // AliITSvPPRcoarseasymm.
723 // In general it is automatically replaced by
724 // the CreatMaterials routine defined in AliITSv?. Should the function
725 // CreateMaterials not exist for the geometry version you are using this
726 // one is used. See the definition found in AliITSv5 or the other routine
727 // for a complete definition.
728 //
729 // Water H2O
730 Float_t awat[2] = { 1.00794,15.9994 };
731 Float_t zwat[2] = { 1.,8. };
732 Float_t wwat[2] = { 2.,1. };
733 Float_t denswat = 1.;
734 // Freon
735 Float_t afre[2] = { 12.011,18.9984032 };
736 Float_t zfre[2] = { 6.,9. };
737 Float_t wfre[2] = { 5.,12. };
738 Float_t densfre = 1.5;
739 // Ceramics
740 // 94.4% Al2O3 , 2.8% SiO2 , 2.3% MnO , 0.5% Cr2O3
741 Float_t acer[5] = { 26.981539,15.9994,28.0855,54.93805,51.9961 };
742 Float_t zcer[5] = { 13.,8.,14.,25., 24. };
743 Float_t wcer[5] = { .49976,1.01233,.01307, .01782,.00342 };
744 Float_t denscer = 3.6;
745 //
746 // 60% SiO2 , 40% G10FR4
747 // PC board
748 Float_t apcb[3] = { 28.0855,15.9994,17.749 };
749 Float_t zpcb[3] = { 14.,8.,8.875 };
750 Float_t wpcb[3] = { .28,.32,.4 };
751 Float_t denspcb = 1.8;
752 // POLYETHYL
753 Float_t apoly[2] = { 12.01,1. };
754 Float_t zpoly[2] = { 6.,1. };
755 Float_t wpoly[2] = { .33,.67 };
d12d92a5 756 // old SERVICES
33959f40 757 Float_t zserv[4] = { 1.,6.,26.,29. };
758 Float_t aserv[4] = { 1.,12.,55.8,63.5 };
759 Float_t wserv[4] = { .014,.086,.42,.48 };
d12d92a5 760 // Stainless steel
761 Float_t asteel[4] = { 55.847,51.9961,58.6934,28.0855 };
762 Float_t zsteel[4] = { 26.,24.,28.,14. };
763 Float_t wsteel[4] = { .715,.18,.1,.005 };
764
33959f40 765
766 Int_t isxfld = gAlice->Field()->Integ();
767 Float_t sxmgmx = gAlice->Field()->Max();
768
769
770 // --- Define the various materials for GEANT ---
771
772 // 200-224 --> Silicon Pixel Detectors (detectors, chips, buses, cooling,..)
773
774 AliMaterial(0, "SPD Si$", 28.0855, 14., 2.33, 9.36, 999);
775 AliMaterial(1, "SPD Si chip$", 28.0855, 14., 2.33, 9.36, 999);
776 AliMaterial(2, "SPD Si bus$", 28.0855, 14., 2.33, 9.36, 999);
777 AliMaterial(3, "SPD C$", 12.011, 6., 2.265,18.8, 999);
778 // v. dens
779 AliMaterial(4, "SPD Air$", 14.61, 7.3, .001205, 30423., 999);
780 AliMaterial(5, "SPD Vacuum$", 1e-16, 1e-16, 1e-16, 1e16, 1e16);
781 AliMaterial(6, "SPD Al$", 26.981539, 13., 2.6989, 8.9, 999);
782 AliMixture( 7, "SPD Water $", awat, zwat, denswat, -2, wwat);
783 AliMixture( 8, "SPD Freon$", afre, zfre, densfre, -2, wfre);
6c251614 784 AliMaterial(9, "SPD End ladder$", 55.845, 26., 7.87/10., 1.76*10., 999);
d12d92a5 785 AliMaterial(10, "SPD cone$",28.0855, 14., 2.33, 9.36, 999); // check !!!!
33959f40 786 // **
d12d92a5 787 AliMedium(0, "SPD Si$", 0, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
788 AliMedium(1, "SPD Si chip$", 1, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
789 AliMedium(2, "SPD Si bus$", 2, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
790 AliMedium(3, "SPD C$", 3, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
791 AliMedium(4, "SPD Air$", 4, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
792 AliMedium(5, "SPD Vacuum$", 5, 0,isxfld,sxmgmx, 10.,1.00, .1, .100,10.00);
793 AliMedium(6, "SPD Al$", 6, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
794 AliMedium(7, "SPD Water $", 7, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
795 AliMedium(8, "SPD Freon$", 8, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
796 AliMedium(9, "SPD End ladder",9, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
797 AliMedium(10, "SPD cone$", 10, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
33959f40 798
799 // 225-249 --> Silicon Drift Detectors (detectors, chips, buses, cooling,..)
800
801 AliMaterial(25, "SDD Si$", 28.0855, 14., 2.33, 9.36, 999);
802 AliMaterial(26, "SDD Si chip$", 28.0855, 14., 2.33, 9.36, 999);
803 AliMaterial(27, "SDD Si bus$", 28.0855, 14., 2.33, 9.36, 999);
804 AliMaterial(28, "SDD C$", 12.011, 6., 2.265,18.8, 999);
805 // v. dens
806 AliMaterial(29, "SDD Air$", 14.61, 7.3, .001205, 30423., 999);
807 AliMaterial(30, "SDD Vacuum$", 1e-16, 1e-16, 1e-16, 1e16, 1e16);
808 AliMaterial(31, "SDD Al$", 26.981539, 13., 2.6989, 8.9, 999);
809 // After a call with ratios by number (negative number of elements),
810 // the ratio array is changed to the ratio by weight, so all successive
811 // calls with the same array must specify the number of elements as
812 // positive
813 AliMixture(32, "SDD Water $", awat, zwat, denswat, 2, wwat);
814 // After a call with ratios by number (negative number of elements),
815 // the ratio array is changed to the ratio by weight, so all successive
816 // calls with the same array must specify the number of elements as
817 // positive
818 AliMixture( 33, "SDD Freon$", afre, zfre, densfre, 2, wfre);
819 AliMixture( 34, "SDD PCB$", apcb, zpcb, denspcb, 3, wpcb);
820 AliMaterial(35, "SDD Copper$", 63.546, 29., 8.96, 1.43, 999);
821 AliMixture( 36, "SDD Ceramics$", acer, zcer, denscer, -5, wcer);
822 AliMaterial(37, "SDD Kapton$", 12.011, 6., 1.3, 31.27, 999);
d12d92a5 823 AliMaterial(38, "SDD End ladder$",28.0855, 14., 2.33, 9.36, 999); // check !!!!
824 AliMaterial(39, "SDD cone$",28.0855, 14., 2.33, 9.36, 999); // check !!!!
33959f40 825 // **
826 // check A and Z
d12d92a5 827 AliMedium(25, "SDD Si$", 25, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
33959f40 828 AliMedium(26, "SDD Si chip$", 26, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
829 AliMedium(27, "SDD Si bus$", 27, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
830 AliMedium(28, "SDD C$", 28, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
831 AliMedium(29, "SDD Air$", 29, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
832 AliMedium(30, "SDD Vacuum$", 30, 0,isxfld,sxmgmx, 10.,1.00, .1, .100,10.00);
833 AliMedium(31, "SDD Al$", 31, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
834 AliMedium(32, "SDD Water $", 32, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
835 AliMedium(33, "SDD Freon$", 33, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
836 AliMedium(34, "SDD PCB$", 34, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
837 AliMedium(35, "SDD Copper$", 35, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
838 AliMedium(36, "SDD Ceramics$",36, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
839 AliMedium(37, "SDD Kapton$", 37, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
d12d92a5 840 AliMedium(38, "SDD End ladder",38, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
841 AliMedium(39, "SDD cone$", 39, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
33959f40 842
843 // 250-274 --> Silicon Strip Detectors (detectors, chips, buses, cooling,..)
844
845 AliMaterial(50, "SSD Si$", 28.0855, 14., 2.33, 9.36, 999.);
846 AliMaterial(51, "SSD Si chip$", 28.0855, 14., 2.33, 9.36, 999.);
847 AliMaterial(52, "SSD Si bus$", 28.0855, 14., 2.33, 9.36, 999.);
848 AliMaterial(53, "SSD C$", 12.011, 6., 2.265,18.8, 999.);
849 // v. dens
850 AliMaterial(54, "SSD Air$", 14.61, 7.3, .001205, 30423., 999);
851 AliMaterial(55, "SSD Vacuum$", 1e-16, 1e-16, 1e-16, 1e16, 1e16);
852 AliMaterial(56, "SSD Al$", 26.981539, 13., 2.6989, 8.9, 999);
853 // After a call with ratios by number (negative number of elements),
854 // the ratio array is changed to the ratio by weight, so all successive
855 // calls with the same array must specify the number of elements as
856 // positive
857 AliMixture(57, "SSD Water $", awat, zwat, denswat, 2, wwat);
858 // After a call with ratios by number (negative number of elements),
859 // the ratio array is changed to the ratio by weight, so all successive
860 // calls with the same array must specify the number of elements as
861 // positive
862 AliMixture(58, "SSD Freon$", afre, zfre, densfre, 2, wfre);
863 AliMixture(59, "SSD PCB$", apcb, zpcb, denspcb, 3, wpcb);
864 AliMaterial(60, "SSD Copper$", 63.546, 29., 8.96, 1.43, 999.);
865 // After a call with ratios by number (negative number of elements),
866 // the ratio array is changed to the ratio by weight, so all successive
867 // calls with the same array must specify the number of elements as
868 // positive
869 AliMixture( 61, "SSD Ceramics$", acer, zcer, denscer, 5, wcer);
870 AliMaterial(62, "SSD Kapton$", 12.011, 6., 1.3, 31.27, 999.);
871 // check A and Z
d12d92a5 872 AliMaterial(63, "SSD G10FR4$", 17.749, 8.875, 1.8, 21.822, 999.);
873 AliMaterial(64, "SSD End ladder$",28.0855, 14., 2.33, 9.36, 999); // check !!!!
874 AliMaterial(65, "SSD cone$",28.0855, 14., 2.33, 9.36, 999); // check !!!!
33959f40 875 // **
d12d92a5 876 AliMedium(50, "SSD Si$", 50, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
33959f40 877 AliMedium(51, "SSD Si chip$", 51, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
878 AliMedium(52, "SSD Si bus$", 52, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
879 AliMedium(53, "SSD C$", 53, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
880 AliMedium(54, "SSD Air$", 54, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
881 AliMedium(55, "SSD Vacuum$", 55, 0,isxfld,sxmgmx, 10.,1.00, .1, .100,10.00);
882 AliMedium(56, "SSD Al$", 56, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
883 AliMedium(57, "SSD Water $", 57, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
884 AliMedium(58, "SSD Freon$", 58, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
885 AliMedium(59, "SSD PCB$", 59, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
886 AliMedium(60, "SSD Copper$", 60, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
887 AliMedium(61, "SSD Ceramics$",61, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
888 AliMedium(62, "SSD Kapton$", 62, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
889 AliMedium(63, "SSD G10FR4$", 63, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
d12d92a5 890 AliMedium(64, "SPD End ladder",64, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
891 AliMedium(65, "SPD cone$", 65, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
33959f40 892
893 // 275-299 --> General (end-caps, frames, cooling, cables, etc.)
894
895 AliMaterial(75, "GEN C$", 12.011, 6., 2.265, 18.8, 999.);
896 // verify density
897 AliMaterial(76, "GEN Air$", 14.61, 7.3, .001205, 30423., 999);
898 AliMaterial(77, "GEN Vacuum$", 1e-16, 1e-16, 1e-16, 1e16, 1e16);
899 AliMixture( 78, "GEN POLYETHYL$", apoly, zpoly, .95, -2, wpoly);
900 AliMixture( 79, "GEN SERVICES$", aserv, zserv, 4.68, 4, wserv);
901 AliMaterial(80, "GEN Copper$", 63.546, 29., 8.96, 1.43, 999.);
902 // After a call with ratios by number (negative number of elements),
903 // the ratio array is changed to the ratio by weight, so all successive
904 // calls with the same array must specify the number of elements as
905 // positive
906 AliMixture(81, "GEN Water $", awat, zwat, denswat, 2, wwat);
e6892b92 907// AliMaterial(82, "GEN Cables$", 12.011, 6., 2.265, 18.8, 999.); // check !!!
908// AliMaterial(83, "GEN patch pan$", 12.011, 6., 2.265, 18.8, 999.); // check !!!
909// AliMaterial(84, "GEN serv$", 12.011, 6., 2.265, 18.8, 999.); // check !!!
d12d92a5 910 AliMixture(85, "GEN Inox$", asteel, zsteel, 7.88, 4, wsteel);
e6892b92 911 AliMaterial(86, "GEN Al$", 26.981539, 13., 2.6989, 8.9, 999);
33959f40 912 // **
913 AliMedium(75,"GEN C$", 75, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
914 AliMedium(76,"GEN Air$", 76, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
915 AliMedium(77,"GEN Vacuum$", 77, 0,isxfld,sxmgmx, 10., .10, .1, .100,10.00);
916 AliMedium(78,"GEN POLYETHYL$",78, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
917 AliMedium(79,"GEN SERVICES$", 79, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
918 AliMedium(80,"GEN Copper$", 80, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
919 AliMedium(81,"GEN Water $", 81, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
e6892b92 920// AliMedium(82,"GEN Cables$", 82, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
921// AliMedium(83,"GEN patch pan$",83, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
922// AliMedium(84,"GEN serv$", 84, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
d12d92a5 923 AliMedium(85,"GEN Inox$", 85, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
e6892b92 924 AliMedium(86, "GEN Al$", 86, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
33959f40 925}
926//_____________________________________________________________________________
927void AliITSvPPRcoarseasymm::Init(){
928////////////////////////////////////////////////////////////////////////
929// Initialise the ITS after it has been created.
930////////////////////////////////////////////////////////////////////////
931
932 //
933 AliITS::Init();
934 fMajorVersion = 1;
935 fMinorVersion = 0;
936}
937
938//_____________________________________________________________________________
939void AliITSvPPRcoarseasymm::DrawModule(){
940////////////////////////////////////////////////////////////////////////
941// Draw a shaded view of the FMD version 6.
942////////////////////////////////////////////////////////////////////////
943
944 // Set everything unseen
945 gMC->Gsatt("*", "seen", -1);
946 //
947 // Set ALIC mother visible
948 gMC->Gsatt("ALIC","SEEN",0);
949 //
950 // Set the volumes visible
951 gMC->Gsatt("ITSD","SEEN",0);
952 gMC->Gsatt("ITS1","SEEN",1);
953 gMC->Gsatt("ITS2","SEEN",1);
954 gMC->Gsatt("ITS3","SEEN",1);
955 gMC->Gsatt("ITS4","SEEN",1);
956 gMC->Gsatt("ITS5","SEEN",1);
957 gMC->Gsatt("ITS6","SEEN",1);
958
959 gMC->Gsatt("IPCB","SEEN",1);
960 gMC->Gsatt("ICO2","SEEN",1);
961 gMC->Gsatt("ICER","SEEN",0);
962 gMC->Gsatt("ISI2","SEEN",0);
963 gMC->Gsatt("IPLA","SEEN",0);
964 gMC->Gsatt("ICO3","SEEN",0);
965 gMC->Gsatt("IEPX","SEEN",0);
966 gMC->Gsatt("ISI3","SEEN",1);
967 gMC->Gsatt("ISUP","SEEN",0);
968 gMC->Gsatt("ICHO","SEEN",0);
969 gMC->Gsatt("ICMO","SEEN",0);
970 gMC->Gsatt("ICMD","SEEN",0);
971 gMC->Gsatt("ICCO","SEEN",1);
972 gMC->Gsatt("ICCM","SEEN",0);
973 gMC->Gsatt("ITMD","SEEN",0);
974 gMC->Gsatt("ITTT","SEEN",1);
975
976 //
977 gMC->Gdopt("hide", "on");
978 gMC->Gdopt("shad", "on");
979 gMC->Gsatt("*", "fill", 7);
980 gMC->SetClipBox(".");
981 gMC->SetClipBox("*", 0, 300, -300, 300, -300, 300);
982 gMC->DefaultRange();
983 gMC->Gdraw("alic", 40, 30, 0, 11, 10, .07, .07);
984 gMC->Gdhead(1111, "Inner Tracking System Version 1");
985 gMC->Gdman(17, 6, "MAN");
986}
987//_____________________________________________________________________________
988void AliITSvPPRcoarseasymm::StepManager(){
989////////////////////////////////////////////////////////////////////////
990// Called for every step in the ITS, then calls the AliITShit class
991// creator with the information to be recoreded about that hit.
992////////////////////////////////////////////////////////////////////////
b16d3d87 993
994/*
33959f40 995 Int_t copy, id;
996 Float_t hits[8];
997 Int_t vol[4];
998 TLorentzVector position, momentum;
999// TClonesArray &lhits = *fHits;
1000//
1001// no hits for this coarse asymmetric version.
1002//
1003
1004 //
1005 // Track status
1006 vol[3] = 0;
1007 if(gMC->IsTrackInside()) vol[3] += 1;
1008 if(gMC->IsTrackEntering()) vol[3] += 2;
1009 if(gMC->IsTrackExiting()) vol[3] += 4;
1010 if(gMC->IsTrackOut()) vol[3] += 8;
1011 if(gMC->IsTrackDisappeared()) vol[3] += 16;
1012 if(gMC->IsTrackStop()) vol[3] += 32;
1013 if(gMC->IsTrackAlive()) vol[3] += 64;
1014 //
1015 // Fill hit structure.
1016 if( !(gMC->TrackCharge()) ) return;
1017 //
1018 // Only entering charged tracks
1019 if((id=gMC->CurrentVolID(copy))==fIdSens[0]) {
1020 vol[0]=1;
1021 id=gMC->CurrentVolOffID(1,copy);
1022 vol[1]=copy;
1023 id=gMC->CurrentVolOffID(2,copy);
1024 vol[2]=copy;
1025 } else if(id==fIdSens[1]) {
1026 vol[0]=2;
1027 id=gMC->CurrentVolOffID(1,copy);
1028 vol[1]=copy;
1029 id=gMC->CurrentVolOffID(2,copy);
1030 vol[2]=copy;
1031 } else if(id==fIdSens[2]) {
1032 vol[0]=3;
1033 vol[1]=copy;
1034 id=gMC->CurrentVolOffID(1,copy);
1035 vol[2]=copy;
1036 } else if(id==fIdSens[3]) {
1037 vol[0]=4;
1038 vol[1]=copy;
1039 id=gMC->CurrentVolOffID(1,copy);
1040 vol[2]=copy;
1041 } else if(id==fIdSens[4]) {
1042 vol[0]=5;
1043 vol[1]=copy;
1044 id=gMC->CurrentVolOffID(1,copy);
1045 vol[2]=copy;
1046 } else if(id==fIdSens[5]) {
1047 vol[0]=6;
1048 vol[1]=copy;
1049 id=gMC->CurrentVolOffID(1,copy);
1050 vol[2]=copy;
1051 } else return;
1052 gMC->TrackPosition(position);
1053 gMC->TrackMomentum(momentum);
1054 hits[0]=position[0];
1055 hits[1]=position[1];
1056 hits[2]=position[2];
1057 hits[3]=momentum[0];
1058 hits[4]=momentum[1];
1059 hits[5]=momentum[2];
1060 hits[6]=gMC->Edep();
1061 hits[7]=gMC->TrackTime();
1062// new(lhits[fNhits++]) AliITShit(fIshunt,gAlice->CurrentTrack(),vol,hits);
1063//
1064// no hits for this coarse asymmetric version.
1065//
b16d3d87 1066*/
33959f40 1067}
1068/*
1069//____________________________________________________________________________
1070void AliITSvPPRcoarseasymm::Streamer(TBuffer &R__b){
1071////////////////////////////////////////////////////////////////////////
1072// A dummy Streamer function for this class AliITSvPPRcoarseasymm. By default it
1073// only streams the AliITS class as it is required. Since this class
1074// dosen't contain any "real" data to be saved, it doesn't.
1075////////////////////////////////////////////////////////////////////////
1076
1077 if (R__b.IsReading()) {
1078 Version_t R__v = R__b.ReadVersion(); if (R__v) { }
1079 AliITS::Streamer(R__b);
1080 } else {
1081 R__b.WriteVersion(AliITSvPPRcoarseasymm::IsA());
1082 AliITS::Streamer(R__b);
1083 } // end if R__b.IsReading()
1084}
1085*/