fixed the tainted variables
[u/mrichter/AliRoot.git] / ITS / AliITSvPPRcoarseasymm.cxx
CommitLineData
5d5bdf03 1 /**************************************************************************
33959f40 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
88cb7938 16/* $Id$ */
33959f40 17
18///////////////////////////////////////////////////////////////////////////////
19// //
20// Inner Traking System version PPR coarse asymmetric //
21// This class contains the base procedures for the Inner Tracking System //
22// //
23// Authors: R. Barbera
24// version 6.
25// Created 2000.
26//
27// NOTE: THIS IS THE COARSE ASYMMETRIC PPR geometry of the ITS.
28// THIS WILL NOT WORK
29// with the geometry or module classes or any analysis classes. You are
30// strongly encouraged to uses AliITSv5.
31// //
32///////////////////////////////////////////////////////////////////////////////
4ae5bbc4 33#include <Riostream.h>
f7a1cc68 34#include <TGeoGlobalMagField.h>
35#include <TGeoManager.h>
33959f40 36#include <TMath.h>
88cb7938 37#include <TObjArray.h>
33959f40 38#include <TRandom.h>
39#include <TVector.h>
88cb7938 40#include <TVirtualMC.h>
33959f40 41
33959f40 42#include "AliMagF.h"
43#include "AliConst.h"
33959f40 44#include "AliITShit.h"
45#include "AliITSvPPRcoarseasymm.h"
88cb7938 46#include "AliMagF.h"
33959f40 47#include "AliRun.h"
48
33959f40 49ClassImp(AliITSvPPRcoarseasymm)
50
51//_____________________________________________________________________________
7537d03c 52AliITSvPPRcoarseasymm::AliITSvPPRcoarseasymm():
012f0f4c 53AliITS(),
54fMajorVersion(IsVersion()),
7537d03c 55fMinorVersion(0),
56fRails(0),
012f0f4c 57fSuppMat(0),
58fIgm(kvPPRcourseasymm) {
33959f40 59////////////////////////////////////////////////////////////////////////
60// Standard default constructor for the ITS version 6.
61////////////////////////////////////////////////////////////////////////
62
bae7e562 63 fIdN = 0;
64 fIdName = 0;
65 fIdSens = 0;
33959f40 66}
67//_____________________________________________________________________________
012f0f4c 68AliITSvPPRcoarseasymm::AliITSvPPRcoarseasymm(const char *name, const char *title) :
69AliITS(name, title),
70fMajorVersion(IsVersion()),
7537d03c 71fMinorVersion(0),
72fRails(0),
012f0f4c 73fSuppMat(0),
74fIgm(kvPPRcourseasymm) {
33959f40 75////////////////////////////////////////////////////////////////////////
76// Standard constructor for the ITS version 6.
77////////////////////////////////////////////////////////////////////////
78
bae7e562 79 fIdN = 6;
80 fIdName = new TString[fIdN];
81 fIdName[0] = "ITS1";
82 fIdName[1] = "ITS2";
83 fIdName[2] = "ITS3";
84 fIdName[3] = "ITS4";
85 fIdName[4] = "ITS5";
86 fIdName[5] = "ITS6";
87 fIdSens = new Int_t[fIdN];
88 for (Int_t i=0;i<fIdN;i++) fIdSens[i]=0;
33959f40 89}
33959f40 90//_____________________________________________________________________________
91AliITSvPPRcoarseasymm::~AliITSvPPRcoarseasymm() {
92////////////////////////////////////////////////////////////////////////
93// Standard destructor for the ITS version 6.
94////////////////////////////////////////////////////////////////////////
95}
96
33959f40 97//_____________________________________________________________________________
98void AliITSvPPRcoarseasymm::CreateGeometry(){
012f0f4c 99 ////////////////////////////////////////////////////////////////////////
100 // This routine defines and Creates the geometry for version 6 of the ITS.
101 ////////////////////////////////////////////////////////////////////////
33959f40 102
012f0f4c 103 //INNER RADII OF THE SILICON LAYERS
104 Float_t rl[6] = { 3.8095,7.,15.,24.,38.5,43.5765 };
105 //THICKNESSES OF LAYERS (in % radiation length)
106 Float_t drl[6] = { 1.03,1.03,0.94,0.95,0.91,0.87 };
107 //HALF LENGTHS OF LAYERS
108 Float_t dzl[6] = { 14.35,14.35,25.1,32.1,49.405,55.27 };
109 //LENGTHS OF END-LADDER BOXES (ALL INCLUDED)
110 Float_t dzb[6] = { 12.4,12.4,13.5,15.,7.5,7.5 };
111 //THICKNESSES OF END-LADDER BOXES (ALL INCLUDED)
112 Float_t drb[6] = { rl[1]-rl[0],0.2,5.,5.,4.,4. };
33959f40 113
114
012f0f4c 115 Float_t dits[3], rlim, zmax;
116 Float_t zpos;
117 Float_t pcits[100], ztpc;
118 Int_t idrotm[1999], i;
119 Float_t dgh[100];
33959f40 120
012f0f4c 121 Int_t rails = 1; // flag for rails (1 --> rails in; 0 --> rails out)
122 Int_t suppmat = 0; // flag to change the material of the services
123 // supports (=0 copper, =1 aluminum, =2 carbon)
124 // These constant character strings are set by cvs during commit
125 // do not change them unless you know what you are doing!
126 const Char_t *cvsDate="$Date$";
127 const Char_t *cvsRevision="$Revision$";
128 rails = GetRails();
e4f08ac3 129
012f0f4c 130 if(rails != 0 && rails != 1) {
131 cout << "ITS - WARNING: the switch for rails is not set "
132 "neither to 0 (rails out) nor to 1 (rails in)."
133 " The default value of 1 (rails in) will be used." << endl;
134 } // end if
72923d44 135
012f0f4c 136 if (rails == 0 ) {
137 cout << "ITS: Rails are out." << endl;
138 } else {
139 cout << "ITS: Rails are in." << endl;
140 } // end if
141 suppmat = GetSupportMaterial();
72923d44 142
012f0f4c 143 if (suppmat != 0 && suppmat != 1 && suppmat != 2) {
144 cout << "ITS - WARNING: the flag for the material of "
145 "services supports is not set neither to 0 (copper) "
146 "nor to 1 (aluminum) nor to 2 (carbon)."
147 " The default value of 0 (copper) will be used." << endl;
148 } // end if
72923d44 149
012f0f4c 150 if (suppmat == 0) {
151 cout << "ITS: The material of the services supports is copper."
152 << endl;
153 } else if (suppmat == 1){
154 cout << "ITS: The material of the services supports is aluminum."
155 << endl;
156 } else {
157 cout << "ITS: The material of the services supports is carbon."
158 << endl;
159 } // end if
72923d44 160
e4f08ac3 161
012f0f4c 162 Int_t *idtmed = fIdtmed->GetArray()-199;
33959f40 163
012f0f4c 164 // CONVERT INTO CM (RL(SI)=9.36 CM)
165 for (i = 0; i < 6; ++i) {
166 drl[i] = drl[i] / 100. * 9.36;
167 } // end if
33959f40 168
012f0f4c 169 // FIELD CAGE HALF LENGTH
33959f40 170
012f0f4c 171 rlim = 50.;
172 zmax = 74.;
173 ztpc = 284.;
33959f40 174
012f0f4c 175 // --- Define ghost volume containing the whole ITS (including services)
176 // and fill it with air
177 /*
178 dgh[0] = 0.;
179 dgh[1] = 360.;
180 dgh[2] = 16.;
181 dgh[3] = -ztpc-5.-0.1;
182 dgh[4] = 46;
183 dgh[5] = 85.;
184 dgh[6] = -ztpc;
185 dgh[7] = 46;
186 dgh[8] = 85.;
187 dgh[9] = -ztpc;
188 dgh[10] = 46;
189 dgh[11] = rlim+6;
190 dgh[12] = -97.5;
191 dgh[13] = 46;
192 dgh[14] = rlim+6;
193 dgh[15] = -zmax;
194 dgh[16] = 46;
195 dgh[17] = rlim+6;
196 dgh[18] = -48;
197 dgh[19] = 6;
198 dgh[20] = rlim+6;
199 dgh[21] = -28.6;
200 dgh[22] = 6;
201 dgh[23] = rlim+6;
202 dgh[24] = -27.6;
203 dgh[25] = 3.295;
204 dgh[26] = rlim+6;
205 dgh[27] = 27.6;
206 dgh[28] = 3.295;
207 dgh[29] = rlim+6;
208 dgh[30] = 28.6;
209 dgh[31] = 6;
210 dgh[32] = rlim+6;
211 dgh[33] = 48;
212 dgh[34] = 6;
213 dgh[35] = rlim+6;
214 dgh[36] = zmax;
215 dgh[37] = 46;
216 dgh[38] = rlim+6;
217 dgh[39] = 97.5;
218 dgh[40] = 46;
219 dgh[41] = rlim+6;
220 dgh[42] = ztpc;
221 dgh[43] = 62;
222 dgh[44] = 62+4.;
223 dgh[45] = ztpc;
224 dgh[46] = 62;
225 dgh[47] = 85.;
226 dgh[48] = ztpc+4.+0.1;
227 dgh[49] = 62.4;
228 dgh[50] = 85.;
229 gMC->Gsvolu("ITSV", "PCON", idtmed[275], dgh, 51);
b16d3d87 230
012f0f4c 231 // --- Place the ghost volume in its mother volume (ALIC) and make it
232 // invisible
b16d3d87 233
012f0f4c 234 gMC->Gspos("ITSV", 1, "ALIC", 0., 0., 0., 0, "ONLY");
235 //gMC->Gsatt("ITSV", "SEEN", 0);
236 */
237 TGeoVolumeAssembly *itsV = gGeoManager->MakeVolumeAssembly("ITSV");
238 const Int_t length=100;
239 Char_t vstrng[length];
240 if(fIgm.WriteVersionString(vstrng,length,(AliITSVersion_t)IsVersion(),
241 fMinorVersion,cvsDate,cvsRevision))
242 itsV->SetTitle(vstrng);
b16d3d87 243
012f0f4c 244 TGeoVolume *alic = gGeoManager->GetVolume("ALIC");
245 if(alic==0) {
246 Error("CreateGeometry","alic=0");
247 return;
248 } // end if
249 // See idrotm[199] for angle definitions.
250 //alic->AddNode(itsV,1,new TGeoRotation("", 90.,180., 90.,90., 180.,0.));
251 alic->AddNode(itsV,1,0);
b16d3d87 252
012f0f4c 253 // --- Define ghost volume containing the six layers and fill it with air
33959f40 254
255 dgh[0] = 0.;
256 dgh[1] = 360.;
e4f08ac3 257 dgh[2] = 8.;
258 dgh[3] = -zmax;
45725ec9 259 dgh[4] = 46.;
e4f08ac3 260 dgh[5] = rlim;
261 dgh[6] = -47.5;
262 dgh[7] = 6.005;
263 dgh[8] = rlim;
264 dgh[9] = -28.5;
265 dgh[10] = 6.005;
266 dgh[11] = rlim;
267 dgh[12] = -27.5;
268 dgh[13] = 3.3;
269 dgh[14] = rlim;
270 dgh[15] = 27.5;
271 dgh[16] = 3.3;
272 dgh[17] = rlim;
273 dgh[18] = 28.5;
274 dgh[19] = 6.005;
275 dgh[20] = rlim;
276 dgh[21] = 47.5;
277 dgh[22] = 6.005;
278 dgh[23] = rlim;
279 dgh[24] = zmax;
280 dgh[25] = 46.;
281 dgh[26] = rlim;
282 gMC->Gsvolu("ITSD", "PCON", idtmed[275], dgh, 27);
33959f40 283
284 // --- Place the ghost volume in its mother volume (ITSV) and make it
285 // invisible
286
b16d3d87 287 gMC->Gspos("ITSD", 1, "ITSV", 0., 0., 0., 0, "ONLY");
146fb996 288 //gMC->Gsatt("ITSD", "SEEN", 0);
33959f40 289
e4f08ac3 290
33959f40 291 // ITS LAYERS (SILICON)
292
293 dits[0] = rl[0];
294 dits[1] = rl[0] + drl[0];
295 dits[2] = dzl[0];
296 gMC->Gsvolu("ITS1", "TUBE", idtmed[199], dits, 3);
b16d3d87 297 gMC->Gspos("ITS1", 1, "ITSD", 0., 0., 0., 0, "ONLY");
33959f40 298
299 dits[0] = rl[1];
300 dits[1] = rl[1] + drl[1];
301 dits[2] = dzl[1];
302 gMC->Gsvolu("ITS2", "TUBE", idtmed[199], dits, 3);
b16d3d87 303 gMC->Gspos("ITS2", 1, "ITSD", 0., 0., 0., 0, "ONLY");
33959f40 304
305 dits[0] = rl[2];
306 dits[1] = rl[2] + drl[2];
307 dits[2] = dzl[2];
308 gMC->Gsvolu("ITS3", "TUBE", idtmed[224], dits, 3);
b16d3d87 309 gMC->Gspos("ITS3", 1, "ITSD", 0., 0., 0., 0, "ONLY");
33959f40 310
311 dits[0] = rl[3];
312 dits[1] = rl[3] + drl[3];
313 dits[2] = dzl[3];
314 gMC->Gsvolu("ITS4", "TUBE", idtmed[224], dits, 3);
b16d3d87 315 gMC->Gspos("ITS4", 1, "ITSD", 0., 0., 0., 0, "ONLY");
33959f40 316
317 dits[0] = rl[4];
318 dits[1] = rl[4] + drl[4];
319 dits[2] = dzl[4];
320 gMC->Gsvolu("ITS5", "TUBE", idtmed[249], dits, 3);
b16d3d87 321 gMC->Gspos("ITS5", 1, "ITSD", 0., 0., 0., 0, "ONLY");
33959f40 322
323 dits[0] = rl[5];
324 dits[1] = rl[5] + drl[5];
325 dits[2] = dzl[5];
326 gMC->Gsvolu("ITS6", "TUBE", idtmed[249], dits, 3);
b16d3d87 327 gMC->Gspos("ITS6", 1, "ITSD", 0., 0., 0., 0, "ONLY");
33959f40 328
d12d92a5 329 // END-LADDER ELECTRONICS BOXES AND CABLES FOR SPD
33959f40 330
d12d92a5 331 gMC->Gsvolu("IEL1", "TUBE", idtmed[208], dits, 0);
332 for (i = 0; i < 2; i++) {
33959f40 333 dits[0] = rl[i];
334 dits[1] = dits[0] + drb[i];
335 dits[2] = dzb[i] / 2.;
336 zpos = dzl[i] + dits[2];
d12d92a5 337 gMC->Gsposp("IEL1", i+1, "ITSD", 0., 0., zpos, 0, "ONLY", dits, 3);
338 gMC->Gsposp("IEL1", i+1+6, "ITSD", 0., 0.,-zpos, 0, "ONLY", dits, 3);
33959f40 339 }
d12d92a5 340
341 // END-LADDER ELECTRONICS BOXES AND CABLES FOR SDD
342
343 gMC->Gsvolu("IEL2", "TUBE", idtmed[237], dits, 0);
89909db5 344 for (i = 2; i < 3; i++) {
345 dits[0] = rl[i]-2.5;
346 dits[1] = dits[0] + drb[i];
347 dits[2] = dzb[i] / 2.;
348 zpos = dzl[i] + dits[2];
349 gMC->Gsposp("IEL2", i+1, "ITSD", 0., 0., zpos, 0, "ONLY", dits, 3);
350 gMC->Gsposp("IEL2", i+1+6, "ITSD", 0., 0.,-zpos, 0, "ONLY", dits, 3);
351 }
352 for (i = 3; i < 4; i++) {
353 dits[0] = rl[i]-1.4;
d12d92a5 354 dits[1] = dits[0] + drb[i];
355 dits[2] = dzb[i] / 2.;
356 zpos = dzl[i] + dits[2];
357 gMC->Gsposp("IEL2", i+1, "ITSD", 0., 0., zpos, 0, "ONLY", dits, 3);
358 gMC->Gsposp("IEL2", i+1+6, "ITSD", 0., 0.,-zpos, 0, "ONLY", dits, 3);
359 }
360
361 // END-LADDER ELECTRONICS BOXES AND CABLES FOR SSD
362
363 gMC->Gsvolu("IEL3", "TUBE", idtmed[263], dits, 0);
89909db5 364 for (i = 4; i < 5; i++) {
365 dits[0] = rl[i]+1.4;
d12d92a5 366 dits[1] = dits[0] + drb[i];
367 dits[2] = dzb[i] / 2.;
368 zpos = dzl[i] + dits[2];
369 gMC->Gsposp("IEL3", i+1, "ITSD", 0., 0., zpos, 0, "ONLY", dits, 3);
370 gMC->Gsposp("IEL3", i+1+6, "ITSD", 0., 0.,-zpos, 0, "ONLY", dits, 3);
371 }
89909db5 372 for (i = 5; i < 6; i++) {
373 dits[0] = rl[i]+0.4235;
374 dits[1] = dits[0] + drb[i];
375 dits[2] = dzb[i] / 2.;
376 zpos = dzl[i] + dits[2];
377 gMC->Gsposp("IEL3", i+1, "ITSD", 0., 0., zpos, 0, "ONLY", dits, 3);
378 gMC->Gsposp("IEL3", i+1+6, "ITSD", 0., 0.,-zpos, 0, "ONLY", dits, 3);
379 }
146fb996 380
6c251614 381 // DEFINE THERMAL SCREEN FOR SPD
33959f40 382
6c251614 383 pcits[0] = 8.3;
384 pcits[1] = 8.5;
385 pcits[2] = 42.5;
386 gMC->Gsvolu("ICY1", "TUBE", idtmed[274], pcits, 3);
387 gMC->Gspos("ICY1", 1, "ITSD", 0., 0., 0., 0, "ONLY");
33959f40 388
33959f40 389 // DEFINE END CONES FOR SDD
390
4ebc1b6a 391 pcits[0] = (59.-42.5)/2.;
392 pcits[1] = 8.5;
89909db5 393 pcits[2] = 8.5+0.1;
4ebc1b6a 394 pcits[3] = 28.;
89909db5 395 pcits[4] = 28.+0.1;
9cd18c59 396 gMC->Gsvolu("ICO1", "CONE", idtmed[238], pcits, 5);
146fb996 397 AliMatrix(idrotm[200], 90., 0., 90., 90., 180., 0.);
4ebc1b6a 398 gMC->Gspos("ICO1", 1, "ITSD", 0., 0., 42.5+pcits[0], 0, "ONLY");
399 gMC->Gspos("ICO1", 2, "ITSD", 0., 0., -(42.5+pcits[0]), idrotm[200], "ONLY");
6c251614 400
401 // DEFINE CYLINDER BETWEEN SDD AND SSD
402
403 pcits[0] = (59.5-0.13/2.)/2.;
404 pcits[1] = (59.5+0.13/2.)/2.;
405 pcits[2] = 57.;
faec2e21 406 gMC->Gsvolu("ICY2", "TUBE", idtmed[274], pcits, 3);
146fb996 407 gMC->Gspos("ICY2", 1, "ITSD", 0., 0., 0., 0, "ONLY");
33959f40 408
409 // DEFINE END CONES FOR SSD
410
4ebc1b6a 411 pcits[0] = (74.-59.)/2.;
412 pcits[1] = 28.;
89909db5 413 pcits[2] = 28.+0.1;
4ebc1b6a 414 pcits[3] = 47.;
89909db5 415 pcits[4] = 47.+0.1;
9cd18c59 416 gMC->Gsvolu("ICO2", "CONE", idtmed[264], pcits, 5);
4ebc1b6a 417 gMC->Gspos("ICO2", 1, "ITSD", 0., 0., 59.+pcits[0], 0, "ONLY");
1a366a10 418 gMC->Gspos("ICO2", 2, "ITSD", 0., 0., -(59.+pcits[0]), idrotm[200], "ONLY");
e4f08ac3 419
1a366a10 420
e4f08ac3 421 // **************************** SERVICES *********************************
422
423
424
c54243df 425 // --- DEFINE CABLES AT THE END OF THE ITS CONES - COPPER PART
72923d44 426 // UPPER PART
33959f40 427
e4f08ac3 428 dgh[0] = 46.;
429 dgh[1] = 46.+1.0;
e8031268 430 dgh[2] = 9.5;
72923d44 431 dgh[3] = 12.;
432 dgh[4] = 168.;
33959f40 433
72923d44 434 if (suppmat == 0) {
435 gMC->Gsvolu("I1CU", "TUBS", idtmed[279], dgh, 5); // copper
436 } else if (suppmat == 1) {
437 gMC->Gsvolu("I1CU", "TUBS", idtmed[285], dgh, 5); // aluminum
438 } else {
439 gMC->Gsvolu("I1CU", "TUBS", idtmed[274], dgh, 5); // carbon
440 }
441 gMC->Gspos("I1CU", 1, "ITSV", 0., 0., 83.5, 0, "ONLY");
442 gMC->Gspos("I1CU", 2, "ITSV", 0., 0., -83.5, idrotm[200], "ONLY");
e6892b92 443
72923d44 444 // --- DEFINE CABLES AT THE END OF THE ITS CONES - COPPER PART
445 // LOWER PART
446
447 dgh[0] = 46.;
448 dgh[1] = 46.+1.0;
449 dgh[2] = 9.5;
450 dgh[3] = 192.;
451 dgh[4] = 348.;
452
453 if (suppmat == 0) {
454 gMC->Gsvolu("I2CU", "TUBS", idtmed[279], dgh, 5); // copper
455 } else if (suppmat == 1) {
456 gMC->Gsvolu("I2CU", "TUBS", idtmed[285], dgh, 5); // aluminum
457 } else {
458 gMC->Gsvolu("I2CU", "TUBS", idtmed[274], dgh, 5); // carbon
459 }
460 gMC->Gspos("I2CU", 1, "ITSV", 0., 0., 83.5, 0, "ONLY");
461 gMC->Gspos("I2CU", 2, "ITSV", 0., 0., -83.5, idrotm[200], "ONLY");
462
463
c54243df 464 // --- DEFINE CABLES AT THE END OF THE ITS CONES - CARBON PART
72923d44 465 // UPPER PART
e6892b92 466
e4f08ac3 467 dgh[0] = 46.+1.0;
468 dgh[1] = 46.+1.0+1.5;
e8031268 469 dgh[2] = 9.5;
72923d44 470 dgh[3] = 12.;
471 dgh[4] = 168.;
e6892b92 472
72923d44 473 gMC->Gsvolu("I1CC", "TUBS", idtmed[274], dgh, 5);
474 gMC->Gspos("I1CC", 1, "ITSV", 0., 0., 83.5, 0, "ONLY");
475 gMC->Gspos("I1CC", 2, "ITSV", 0., 0., -83.5, idrotm[200], "ONLY");
33959f40 476
72923d44 477 // --- DEFINE CABLES AT THE END OF THE ITS CONES - CARBON PART
478 // LOWER PART
479
480 dgh[0] = 46.+1.0;
481 dgh[1] = 46.+1.0+1.5;
482 dgh[2] = 9.5;
483 dgh[3] = 192.;
484 dgh[4] = 348.;
33959f40 485
72923d44 486 gMC->Gsvolu("I2CC", "TUBS", idtmed[274], dgh, 5);
487 gMC->Gspos("I2CC", 1, "ITSV", 0., 0., 83.5, 0, "ONLY");
488 gMC->Gspos("I2CC", 2, "ITSV", 0., 0., -83.5, idrotm[200], "ONLY");
489
490 // --- DEFINE PATCH PANELS AT THE END OF THE ITS CONES
491 // UPPER PART
492
e4f08ac3 493 dgh[0] = 46.;
33959f40 494 dgh[1] = 56.;
495 dgh[2] = 2.25;
72923d44 496 dgh[3] = 12.;
497 dgh[4] = 168.;
33959f40 498
72923d44 499 gMC->Gsvolu("IPA1", "TUBS", idtmed[285], dgh, 5);
500 gMC->Gspos("IPA1", 1, "ITSV", 0., 0., 95.25, 0, "ONLY");
501 gMC->Gspos("IPA1", 2, "ITSV", 0., 0., -95.25, idrotm[200], "ONLY");
502
503
504 // --- DEFINE PATCH PANELS AT THE END OF THE ITS CONES
505 // LOWER PART
506
507 dgh[0] = 46.;
508 dgh[1] = 56.;
509 dgh[2] = 2.25;
510 dgh[3] = 192.;
511 dgh[4] = 348.;
33959f40 512
72923d44 513 gMC->Gsvolu("IPA2", "TUBS", idtmed[285], dgh, 5);
514 gMC->Gspos("IPA2", 1, "ITSV", 0., 0., 95.25, 0, "ONLY");
515 gMC->Gspos("IPA2", 2, "ITSV", 0., 0., -95.25, idrotm[200], "ONLY");
516
517
c54243df 518 // --- DEFINE CABLES/COOLING BELOW THE TPC ON THE ABSORBER SIDE - COPPER PART
4ebc1b6a 519 // UPPER PART
520
e4f08ac3 521 dgh[0] = (ztpc-97.5)/2.;
522 dgh[1] = 46.2;
523 dgh[2] = 46.2+1.0;
524 dgh[3] = 62.3;
525 dgh[4] = 62.3+1.0;
4ebc1b6a 526 dgh[5] = 12.;
527 dgh[6] = 168.;
72923d44 528 if (suppmat == 0) {
529 gMC->Gsvolu("ICU1", "CONS", idtmed[279], dgh, 7); // copper
530 } else if (suppmat == 1) {
531 gMC->Gsvolu("ICU1", "CONS", idtmed[285], dgh, 7); // aluminum
532 } else {
533 gMC->Gsvolu("ICU1", "CONS", idtmed[274], dgh, 7); // carbon
534 }
e4f08ac3 535 gMC->Gspos("ICU1", 1, "ITSV", 0., 0., 97.5+dgh[0], 0, "ONLY");
33959f40 536
4ebc1b6a 537 // --- DEFINE CABLES/COOLING BELOW THE TPC ON THE ABSORBER SIDE - COPPER PART
538 // LOWER PART
539
e4f08ac3 540 dgh[0] = (ztpc-97.5)/2.;
541 dgh[1] = 46.2;
542 dgh[2] = 46.2+1.0;
543 dgh[3] = 62.3;
544 dgh[4] = 62.3+1.0;
4ebc1b6a 545 dgh[5] = 192.;
546 dgh[6] = 348.;
72923d44 547 if (suppmat == 0) {
548 gMC->Gsvolu("ICU2", "CONS", idtmed[279], dgh, 7); // copper
549 } else if (suppmat == 1) {
550 gMC->Gsvolu("ICU2", "CONS", idtmed[285], dgh, 7); // aluminum
551 } else {
552 gMC->Gsvolu("ICU2", "CONS", idtmed[274], dgh, 7); // carbon
553 }
e4f08ac3 554 gMC->Gspos("ICU2", 1, "ITSV", 0., 0., 97.5+dgh[0], 0, "ONLY");
555
4ebc1b6a 556
557 // --- DEFINE CABLES/COOLING BELOW THE TPC ON THE ABSORBER SIDE - CARBON PART
558 // UPPER PART
559
e4f08ac3 560 dgh[0] = (ztpc-97.5)/2.;
561 dgh[1] = 46.2+1.0;
562 dgh[2] = 46.2+1.0+1.5;
563 dgh[3] = 62.3+1.0;
564 dgh[4] = 62.3+1.0+1.5;
4ebc1b6a 565 dgh[5] = 12.;
566 dgh[6] = 168.;
567 gMC->Gsvolu("ICC1", "CONS", idtmed[274], dgh, 7);
e4f08ac3 568 gMC->Gspos("ICC1", 1, "ITSV", 0., 0., 97.5+dgh[0], 0, "ONLY");
e6892b92 569
c54243df 570 // --- DEFINE CABLES/COOLING BELOW THE TPC ON THE ABSORBER SIDE - CARBON PART
4ebc1b6a 571 // LOWER PART
572
e4f08ac3 573 dgh[0] = (ztpc-97.5)/2.;
574 dgh[1] = 46.2+1.0;
45725ec9 575 dgh[2] = 46.2+1.0+1.5;
e4f08ac3 576 dgh[3] = 62.3+1.0;
45725ec9 577 dgh[4] = 62.3+1.0+1.5;
4ebc1b6a 578 dgh[5] = 192.;
579 dgh[6] = 348.;
580 gMC->Gsvolu("ICC2", "CONS", idtmed[274], dgh, 7);
e4f08ac3 581 gMC->Gspos("ICC2", 1, "ITSV", 0., 0., 97.5+dgh[0], 0, "ONLY");
4ebc1b6a 582
c54243df 583 // --- DEFINE CABLES/COOLING BEHIND THE TPC ON THE ABSORBER SIDE - COPPER PART
4ebc1b6a 584 // UPPER PART
585
e4f08ac3 586 dgh[0] = 62.1;
4ebc1b6a 587 dgh[1] = 74.5;
588 dgh[2] = 0.5;
589 dgh[3] = 12.;
590 dgh[4] = 168.;
72923d44 591 if (suppmat == 0) {
592 gMC->Gsvolu("ICU3", "TUBS", idtmed[279], dgh, 5); // copper
593 } else if (suppmat == 1) {
594 gMC->Gsvolu("ICU3", "TUBS", idtmed[285], dgh, 5); // aluminum
595 } else {
596 gMC->Gsvolu("ICU3", "TUBS", idtmed[274], dgh, 5); // carbon
597 }
e4f08ac3 598 gMC->Gspos("ICU3", 1, "ITSV", 0., 0., ztpc+1.5+dgh[2], 0, "ONLY");
4ebc1b6a 599
600 // --- DEFINE CABLES/COOLING BEHIND THE TPC ON THE ABSORBER SIDE - COPPER PART
601 // LOWER PART
602
e4f08ac3 603 dgh[0] = 62.1;
4ebc1b6a 604 dgh[1] = 74.5;
605 dgh[2] = 0.5;
606 dgh[3] = 192.;
607 dgh[4] = 348.;
72923d44 608 if (suppmat == 0) {
609 gMC->Gsvolu("ICU4", "TUBS", idtmed[279], dgh, 5); // copper
610 } else if (suppmat == 1) {
611 gMC->Gsvolu("ICU4", "TUBS", idtmed[285], dgh, 5); // aluminum
612 } else {
613 gMC->Gsvolu("ICU4", "TUBS", idtmed[274], dgh, 5); // carbon
614 }
e4f08ac3 615 gMC->Gspos("ICU4", 1, "ITSV", 0., 0., ztpc+1.5+dgh[2], 0, "ONLY");
4ebc1b6a 616
c54243df 617 // --- DEFINE CABLES/COOLING BEHIND THE TPC ON THE ABSORBER SIDE - CARBON PART
4ebc1b6a 618 // UPPER PART
619
e4f08ac3 620 dgh[0] = 62.1;
4ebc1b6a 621 dgh[1] = 74.5;
622 dgh[2] = 0.75;
623 dgh[3] = 12.;
624 dgh[4] = 168.;
625 gMC->Gsvolu("ICC3", "TUBS", idtmed[274], dgh, 5);
e4f08ac3 626 gMC->Gspos("ICC3", 1, "ITSV", 0., 0., ztpc+dgh[2], 0, "ONLY");
4ebc1b6a 627
628 // --- DEFINE CABLES/COOLING BEHIND THE TPC ON THE ABSORBER SIDE - CARBON PART
629 // LOWER PART
630
e4f08ac3 631 dgh[0] = 62.1;
4ebc1b6a 632 dgh[1] = 74.5;
633 dgh[2] = 0.75;
634 dgh[3] = 192.;
635 dgh[4] = 348.;
636 gMC->Gsvolu("ICC4", "TUBS", idtmed[274], dgh, 5);
e4f08ac3 637 gMC->Gspos("ICC4", 1, "ITSV", 0., 0., ztpc+dgh[2], 0, "ONLY");
33959f40 638
c54243df 639 // --- DEFINE CABLES/COOLING BELOW THE TPC ON THE OTHER SIDE W.R.T.
1a7aef02 640 // THE ABSORBER - COPPER PART - UPPER PART
33959f40 641
e4f08ac3 642 dgh[0] = 46.;
643 dgh[1] = 46.+1.0;
644 dgh[2] = (ztpc-97.5+1.5)/2.;
1a7aef02 645 dgh[3] = 12.;
646 dgh[4] = 168.;
72923d44 647 if (suppmat == 0) {
648 gMC->Gsvolu("ICU5", "TUBS", idtmed[279], dgh, 5); // copper
649 } else if (suppmat == 1) {
650 gMC->Gsvolu("ICU5", "TUBS", idtmed[285], dgh, 5); // aluminum
651 } else {
652 gMC->Gsvolu("ICU5", "TUBS", idtmed[274], dgh, 5); // carbon
653 }
e4f08ac3 654 gMC->Gspos("ICU5", 1, "ITSV", 0., 0., -97.5-dgh[2], 0, "ONLY");
e6892b92 655
c54243df 656 // --- DEFINE CABLES/COOLING BELOW THE TPC ON THE OTHER SIDE W.R.T.
1a7aef02 657 // THE ABSORBER - COPPER PART - LOWER PART
658
e4f08ac3 659 dgh[0] = 46.;
660 dgh[1] = 46.+1.0;
661 dgh[2] = (ztpc-97.5+1.5)/2.;
1a7aef02 662 dgh[3] = 192.;
663 dgh[4] = 348.;
72923d44 664 if (suppmat == 0) {
665 gMC->Gsvolu("ICU6", "TUBS", idtmed[279], dgh, 5); // copper
666 } else if (suppmat == 1) {
667 gMC->Gsvolu("ICU6", "TUBS", idtmed[285], dgh, 5); // aluminum
668 } else {
669 gMC->Gsvolu("ICU6", "TUBS", idtmed[274], dgh, 5); // carbon
670 }
e4f08ac3 671 gMC->Gspos("ICU6", 1, "ITSV", 0., 0., -97.5-dgh[2], 0, "ONLY");
1a7aef02 672
673 // --- DEFINE CABLES/COOLING BELOW THE TPC ON THE OTHER SIDE W.R.T.
674 // THE ABSORBER - CARBON PART - UPPER PART
675
e4f08ac3 676 dgh[0] = 46.+1.0;
677 dgh[1] = 46.+1.0+1.5;
678 dgh[2] = (ztpc-97.5)/2.;
1a7aef02 679 dgh[3] = 12.;
680 dgh[4] = 168.;
681 gMC->Gsvolu("ICC5", "TUBS", idtmed[274], dgh, 5);
e4f08ac3 682 gMC->Gspos("ICC5", 1, "ITSV", 0., 0., -97.5-dgh[2], 0, "ONLY");
1a7aef02 683
684 // --- DEFINE CABLES/COOLING BELOW THE TPC ON THE OTHER SIDE W.R.T.
685 // THE ABSORBER - CARBON PART - LOWER PART
e6892b92 686
e4f08ac3 687 dgh[0] = 46.+1.0;
688 dgh[1] = 46.+1.0+1.5;
689 dgh[2] = (ztpc-97.5)/2.;
1a7aef02 690 dgh[3] = 192.;
691 dgh[4] = 348.;
692 gMC->Gsvolu("ICC6", "TUBS", idtmed[274], dgh, 5);
e4f08ac3 693 gMC->Gspos("ICC6", 1, "ITSV", 0., 0., -97.5-dgh[2], 0, "ONLY");
33959f40 694
1a7aef02 695 // --- DEFINE CABLES/COOLING BEHIND THE TPC ON OTHER SIDE W.R.T. THE ABSORBER
696 // COPPER PART - UPPER PART
697
e4f08ac3 698 dgh[0] = 46.;
1a7aef02 699 dgh[1] = 74.5;
700 dgh[2] = 0.5;
701 dgh[3] = 12.;
702 dgh[4] = 168.;
72923d44 703 if (suppmat == 0) {
704 gMC->Gsvolu("ICU7", "TUBS", idtmed[279], dgh, 5); // copper
705 } else if (suppmat == 1) {
706 gMC->Gsvolu("ICU7", "TUBS", idtmed[285], dgh, 5); // aluminum
707 } else {
708 gMC->Gsvolu("ICU7", "TUBS", idtmed[274], dgh, 5); // carbon
709 }
e4f08ac3 710 gMC->Gspos("ICU7", 1, "ITSV", 0., 0., -(ztpc+1.5+dgh[2]), 0, "ONLY");
33959f40 711
c54243df 712 // --- DEFINE CABLES/COOLING BEHIND THE TPC ON OTHER SIDE W.R.T. THE ABSORBER
1a7aef02 713 // COPPER PART - LOWER PART
4ebc1b6a 714
e4f08ac3 715 dgh[0] = 46.;
4ebc1b6a 716 dgh[1] = 74.5;
717 dgh[2] = 0.5;
1a7aef02 718 dgh[3] = 192.;
719 dgh[4] = 348.;
72923d44 720 if (suppmat == 0) {
721 gMC->Gsvolu("ICU8", "TUBS", idtmed[279], dgh, 5); // copper
722 } else if (suppmat == 1) {
723 gMC->Gsvolu("ICU8", "TUBS", idtmed[285], dgh, 5); // aluminum
724 } else {
725 gMC->Gsvolu("ICU8", "TUBS", idtmed[274], dgh, 5); // carbon
726 }
e4f08ac3 727 gMC->Gspos("ICU8", 1, "ITSV", 0., 0., -(ztpc+1.5+dgh[2]), 0, "ONLY");
1a7aef02 728
729 // --- DEFINE CABLES/COOLING BEHIND THE TPC ON OTHER SIDE W.R.T. THE ABSORBER
730 // CARBON PART - UPPER PART
33959f40 731
e4f08ac3 732 dgh[0] = 46.+1.0;
1a7aef02 733 dgh[1] = 74.5;
734 dgh[2] = 0.75;
735 dgh[3] = 12.;
736 dgh[4] = 168.;
737 gMC->Gsvolu("ICC7", "TUBS", idtmed[274], dgh, 5);
e4f08ac3 738 gMC->Gspos("ICC7", 1, "ITSV", 0., 0., -(ztpc+dgh[2]), 0, "ONLY");
e6892b92 739
c54243df 740 // --- DEFINE CABLES/COOLING BEHIND THE TPC ON OTHER SIDE W.R.T. THE ABSORBER
1a7aef02 741 // CARBON PART - LOWER PART
e6892b92 742
e4f08ac3 743 dgh[0] = 46.+1.0;
4ebc1b6a 744 dgh[1] = 74.5;
745 dgh[2] = 0.75;
1a7aef02 746 dgh[3] = 192.;
747 dgh[4] = 348.;
748 gMC->Gsvolu("ICC8", "TUBS", idtmed[274], dgh, 5);
e4f08ac3 749 gMC->Gspos("ICC8", 1, "ITSV", 0., 0., -(ztpc+dgh[2]), 0, "ONLY");
33959f40 750
1a7aef02 751 // --- DEFINE HOOK TO THE TPC ON OTHER SIDE W.R.T. THE ABSORBER - UPPER PART
752
753 dgh[0] = 74.5;
754 dgh[1] = 79.5;
755 dgh[2] = 2.5;
756 dgh[3] = 12.;
757 dgh[4] = 168.;
758 gMC->Gsvolu("IHK1", "TUBS", idtmed[284], dgh, 5);
e4f08ac3 759 gMC->Gspos("IHK1", 1, "ITSV", 0., 0., -ztpc-dgh[2], 0, "ONLY");
1a7aef02 760
761 // --- DEFINE HOOK TO THE TPC ON OTHER SIDE W.R.T. THE ABSORBER - LOWER PART
33959f40 762
763 dgh[0] = 74.5;
764 dgh[1] = 79.5;
765 dgh[2] = 2.5;
1a7aef02 766 dgh[3] = 192.;
767 dgh[4] = 348.;
768 gMC->Gsvolu("IHK2", "TUBS", idtmed[284], dgh, 5);
e4f08ac3 769 gMC->Gspos("IHK2", 1, "ITSV", 0., 0., -ztpc-dgh[2], 0, "ONLY");
33959f40 770
c54243df 771 // --- DEFINE RAILS BETWEEN THE ITS AND THE TPC
772
e4f08ac3 773 if (rails == 1) {
774
775 dgh[0] = 2.;
776 dgh[1] = 8.;
777 dgh[2] = 190.;
31683195 778 gMC->Gsvolu("IRA1", "BOX ", idtmed[239], dgh, 3);
e4f08ac3 779 gMC->Gspos("IRA1", 1, "ITSV", 53.5, 0., -69.5, 0, "ONLY");
31683195 780 gMC->Gsvolu("IRA2", "BOX ", idtmed[239], dgh, 3);
e4f08ac3 781 gMC->Gspos("IRA2", 1, "ITSV", -53.5, 0., -69.5, 0, "ONLY");
782
31683195 783 dgh[0] = 2.-0.5; // 0.5 was determined in such a way that the aluminum area is 20.9 cm^2
784 dgh[1] = 8.-0.5; // 0.5 was determined in such a way that the aluminum area is 20.9 cm^2
e4f08ac3 785 dgh[2] = 190.;
786 gMC->Gsvolu("IRA3", "BOX ", idtmed[275], dgh, 3);
787 gMC->Gspos("IRA3", 1, "IRA1", 0., 0., 0., 0, "ONLY");
788 gMC->Gsvolu("IRA4", "BOX ", idtmed[275], dgh, 3);
789 gMC->Gspos("IRA4", 1, "IRA2", 0., 0., 0., 0, "ONLY");
790
791 }
c54243df 792
4ebc1b6a 793 // --- DEFINE CYLINDERS HOLDING RAILS BETWEEN THE ITS AND THE TPC
794
e4f08ac3 795 dgh[0] = 56.9;
4ebc1b6a 796 dgh[1] = 59.;
89909db5 797 dgh[2] = 0.6;
4ebc1b6a 798 gMC->Gsvolu("ICYL", "TUBE", idtmed[285], dgh, 3);
27c5763c 799 gMC->Gspos("ICYL", 1, "ALIC", 0., 0., 74.1, 0, "ONLY");
800 gMC->Gspos("ICYL", 2, "ALIC", 0., 0., -74.1, idrotm[200], "ONLY");
e4f08ac3 801
802 // --- DEFINE SUPPORTS FOR RAILS ATTACHED TO THE CYLINDERS
803
804 dgh[0] = 0.;
805 dgh[1] = 3.;
806 dgh[2] = 5.; // 5. comes from the fact that the volume has to be 567.6/2 cm^3
807 gMC->Gsvolu("ISR1", "TUBE", idtmed[286], dgh, 3);
c2685204 808 gMC->Gspos("ISR1", 1, "ITSV", 53.4292, 10.7053, 79.75, 0, "ONLY");
809 gMC->Gspos("ISR1", 2, "ITSV", 53.4292, -10.7053, 79.75, 0, "ONLY");
810 gMC->Gspos("ISR1", 3, "ITSV", -53.4292, 10.7053, 79.75, 0, "ONLY");
811 gMC->Gspos("ISR1", 4, "ITSV", -53.4292, -10.7053, 79.75, 0, "ONLY");
812 gMC->Gspos("ISR1", 5, "ITSV", 53.4292, 10.7053, -79.75, 0, "ONLY");
813 gMC->Gspos("ISR1", 6, "ITSV", 53.4292, -10.7053, -79.75, 0, "ONLY");
814 gMC->Gspos("ISR1", 7, "ITSV", -53.4292, 10.7053, -79.75, 0, "ONLY");
815 gMC->Gspos("ISR1", 8, "ITSV", -53.4292, -10.7053, -79.75, 0, "ONLY");
e4f08ac3 816
817 // --- DEFINE SUPPORTS FOR RAILS ATTACHED TO THE ABSORBER
818
819 dgh[0] = 5.;
820 dgh[1] = 12.;
821 dgh[2] = 5.;
822 gMC->Gsvolu("ISR2", "BOX ", idtmed[285], dgh, 3);
823 gMC->Gspos("ISR2", 1, "ALIC", 53.5, 0., 125.5, 0, "ONLY");
824 gMC->Gsvolu("ISR3", "BOX ", idtmed[285], dgh, 3);
825 gMC->Gspos("ISR3", 1, "ALIC", -53.5, 0., 125.5, 0, "ONLY");
826
827 dgh[0] = 5.-2.;
828 dgh[1] = 12.-2.;
829 dgh[2] = 5.;
830 gMC->Gsvolu("ISR4", "BOX ", idtmed[275], dgh, 3);
831 gMC->Gspos("ISR4", 1, "ISR2", 0., 0., 0., 0, "ONLY");
832 gMC->Gsvolu("ISR5", "BOX ", idtmed[275], dgh, 3);
833 gMC->Gspos("ISR5", 1, "ISR3", 0., 0., 0., 0, "ONLY");
834
835 // --- DEFINE SUPPORTS TO ATTACH THE ITS TO THE TPC
836
837 dgh[0] = 0.;
838 dgh[1] = 5.;
839 dgh[2] = 2.;
840 gMC->Gsvolu("ISR6", "TUBE", idtmed[285], dgh, 3);
841 gMC->Gspos("ISR6", 1, "ALIC", 0., 54., 77., 0, "ONLY");
842 gMC->Gspos("ISR6", 2, "ALIC", 0., 54., -77., 0, "ONLY");
843 gMC->Gspos("ISR6", 3, "ALIC", 0., -54., -77., 0, "ONLY");
844
845
33959f40 846 // --- Outputs the geometry tree in the EUCLID/CAD format
847
848 if (fEuclidOut) {
849 gMC->WriteEuclid("ITSgeometry", "ITSV", 1, 5);
850 }
851}
852//_____________________________________________________________________________
853void AliITSvPPRcoarseasymm::CreateMaterials(){
854////////////////////////////////////////////////////////////////////////
855 //
856 // Create ITS materials
857 // This function defines the default materials used in the Geant
858 // Monte Carlo simulations for the geometries AliITSv1, AliITSv3,
859 // AliITSvPPRcoarseasymm.
860 // In general it is automatically replaced by
023ae34b 861 // the CreateMaterials routine defined in AliITSv?. Should the function
33959f40 862 // CreateMaterials not exist for the geometry version you are using this
863 // one is used. See the definition found in AliITSv5 or the other routine
864 // for a complete definition.
865 //
866 // Water H2O
867 Float_t awat[2] = { 1.00794,15.9994 };
868 Float_t zwat[2] = { 1.,8. };
869 Float_t wwat[2] = { 2.,1. };
870 Float_t denswat = 1.;
871 // Freon
872 Float_t afre[2] = { 12.011,18.9984032 };
873 Float_t zfre[2] = { 6.,9. };
874 Float_t wfre[2] = { 5.,12. };
875 Float_t densfre = 1.5;
876 // Ceramics
877 // 94.4% Al2O3 , 2.8% SiO2 , 2.3% MnO , 0.5% Cr2O3
878 Float_t acer[5] = { 26.981539,15.9994,28.0855,54.93805,51.9961 };
879 Float_t zcer[5] = { 13.,8.,14.,25., 24. };
880 Float_t wcer[5] = { .49976,1.01233,.01307, .01782,.00342 };
881 Float_t denscer = 3.6;
882 //
883 // 60% SiO2 , 40% G10FR4
884 // PC board
885 Float_t apcb[3] = { 28.0855,15.9994,17.749 };
886 Float_t zpcb[3] = { 14.,8.,8.875 };
887 Float_t wpcb[3] = { .28,.32,.4 };
888 Float_t denspcb = 1.8;
889 // POLYETHYL
890 Float_t apoly[2] = { 12.01,1. };
891 Float_t zpoly[2] = { 6.,1. };
892 Float_t wpoly[2] = { .33,.67 };
d12d92a5 893 // old SERVICES
33959f40 894 Float_t zserv[4] = { 1.,6.,26.,29. };
895 Float_t aserv[4] = { 1.,12.,55.8,63.5 };
896 Float_t wserv[4] = { .014,.086,.42,.48 };
d12d92a5 897 // Stainless steel
898 Float_t asteel[4] = { 55.847,51.9961,58.6934,28.0855 };
899 Float_t zsteel[4] = { 26.,24.,28.,14. };
900 Float_t wsteel[4] = { .715,.18,.1,.005 };
901
33959f40 902
f7a1cc68 903 Int_t isxfld = ((AliMagF*)TGeoGlobalMagField::Instance()->GetField())->Integ();
904 Float_t sxmgmx = ((AliMagF*)TGeoGlobalMagField::Instance()->GetField())->Max();
33959f40 905
906
907 // --- Define the various materials for GEANT ---
908
909 // 200-224 --> Silicon Pixel Detectors (detectors, chips, buses, cooling,..)
910
e4f08ac3 911 AliMaterial(0, "SPD Si$", 28.0855, 14., 2.33, 9.36, 999.);
912 AliMaterial(1, "SPD Si chip$", 28.0855, 14., 2.33, 9.36, 999.);
913 AliMaterial(2, "SPD Si bus$", 28.0855, 14., 2.33, 9.36, 999.);
914 AliMaterial(3, "SPD C$", 12.011, 6., 2.265,18.8, 999.);
33959f40 915 // v. dens
e4f08ac3 916 AliMaterial(4, "SPD Air$", 14.61, 7.3, .001205, 30423., 999.);
33959f40 917 AliMaterial(5, "SPD Vacuum$", 1e-16, 1e-16, 1e-16, 1e16, 1e16);
e4f08ac3 918 AliMaterial(6, "SPD Al$", 26.981539, 13., 2.6989, 8.9, 999.);
33959f40 919 AliMixture( 7, "SPD Water $", awat, zwat, denswat, -2, wwat);
920 AliMixture( 8, "SPD Freon$", afre, zfre, densfre, -2, wfre);
e4f08ac3 921 AliMaterial(9, "SPD End ladder$", 55.845, 26., 7.87/10., 1.76*10., 999.);
922 //AliMaterial(9, "SPD End ladder$", 55.845, 26., -7.87/10., -1.76*10., 999.);
923 AliMaterial(10, "SPD cone$",28.0855, 14., 2.33, 9.36, 999.); // check !!!!
33959f40 924 // **
faec2e21 925 AliMedium(0, "SPD Si$", 0, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
926 AliMedium(1, "SPD Si chip$", 1, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
927 AliMedium(2, "SPD Si bus$", 2, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
928 AliMedium(3, "SPD C$", 3, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
929 AliMedium(4, "SPD Air$", 4, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
930 AliMedium(5, "SPD Vacuum$", 5, 0,isxfld,sxmgmx, 10.,1.00, .1, .100,10.00);
931 AliMedium(6, "SPD Al$", 6, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
932 AliMedium(7, "SPD Water $", 7, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
933 AliMedium(8, "SPD Freon$", 8, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
934 AliMedium(9, "SPD End ladder$",9, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
935 AliMedium(10, "SPD cone$", 10, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
33959f40 936
937 // 225-249 --> Silicon Drift Detectors (detectors, chips, buses, cooling,..)
938
e4f08ac3 939 AliMaterial(25, "SDD Si$", 28.0855, 14., 2.33, 9.36, 999.);
940 AliMaterial(26, "SDD Si chip$", 28.0855, 14., 2.33, 9.36, 999.);
941 AliMaterial(27, "SDD Si bus$", 28.0855, 14., 2.33, 9.36, 999.);
942 AliMaterial(28, "SDD C$", 12.011, 6., 2.265,18.8, 999.);
33959f40 943 // v. dens
e4f08ac3 944 AliMaterial(29, "SDD Air$", 14.61, 7.3, .001205, 30423., 999.);
33959f40 945 AliMaterial(30, "SDD Vacuum$", 1e-16, 1e-16, 1e-16, 1e16, 1e16);
e4f08ac3 946 AliMaterial(31, "SDD Al$", 26.981539, 13., 2.6989, 8.9, 999.);
33959f40 947 // After a call with ratios by number (negative number of elements),
948 // the ratio array is changed to the ratio by weight, so all successive
949 // calls with the same array must specify the number of elements as
950 // positive
951 AliMixture(32, "SDD Water $", awat, zwat, denswat, 2, wwat);
952 // After a call with ratios by number (negative number of elements),
953 // the ratio array is changed to the ratio by weight, so all successive
954 // calls with the same array must specify the number of elements as
955 // positive
956 AliMixture( 33, "SDD Freon$", afre, zfre, densfre, 2, wfre);
957 AliMixture( 34, "SDD PCB$", apcb, zpcb, denspcb, 3, wpcb);
e4f08ac3 958 AliMaterial(35, "SDD Copper$", 63.546, 29., 8.96, 1.43, 999.);
33959f40 959 AliMixture( 36, "SDD Ceramics$", acer, zcer, denscer, -5, wcer);
e4f08ac3 960 AliMaterial(37, "SDD Kapton$", 12.011, 6., 1.3, 31.27, 999.);
961 AliMaterial(38, "SDD End ladder$", 69.9298, 29.8246, 0.3824, 36.5103, 999.);
31683195 962 AliMaterial(39, "SDD cone$",63.546, 29., 1.15, 1.265, 999.);
963 AliMaterial(40, "SDD M55J$",12.3565, 6.4561, 1.8097, 22.9570, 999.);
e4f08ac3 964 //AliMaterial(38, "SDD End ladder$", 69.9298, 29.8246, -0.3824, -36.5103, 999.);
965 //AliMaterial(39, "SDD cone$",63.546, 29., -1.15, -1.265, 999.);
89909db5 966
33959f40 967 // **
968 // check A and Z
faec2e21 969 AliMedium(25, "SDD Si$", 25, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
970 AliMedium(26, "SDD Si chip$", 26, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
971 AliMedium(27, "SDD Si bus$", 27, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
972 AliMedium(28, "SDD C$", 28, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
973 AliMedium(29, "SDD Air$", 29, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
974 AliMedium(30, "SDD Vacuum$", 30, 0,isxfld,sxmgmx, 10.,1.00, .1, .100,10.00);
975 AliMedium(31, "SDD Al$", 31, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
976 AliMedium(32, "SDD Water $", 32, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
977 AliMedium(33, "SDD Freon$", 33, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
978 AliMedium(34, "SDD PCB$", 34, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
979 AliMedium(35, "SDD Copper$", 35, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
980 AliMedium(36, "SDD Ceramics$", 36, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
981 AliMedium(37, "SDD Kapton$", 37, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
982 AliMedium(38, "SDD End ladder$",38, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
983 AliMedium(39, "SDD cone$", 39, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
31683195 984 AliMedium(40, "SDD M55J$", 40, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
33959f40 985 // 250-274 --> Silicon Strip Detectors (detectors, chips, buses, cooling,..)
986
987 AliMaterial(50, "SSD Si$", 28.0855, 14., 2.33, 9.36, 999.);
988 AliMaterial(51, "SSD Si chip$", 28.0855, 14., 2.33, 9.36, 999.);
989 AliMaterial(52, "SSD Si bus$", 28.0855, 14., 2.33, 9.36, 999.);
990 AliMaterial(53, "SSD C$", 12.011, 6., 2.265,18.8, 999.);
991 // v. dens
e4f08ac3 992 AliMaterial(54, "SSD Air$", 14.61, 7.3, .001205, 30423., 999.);
33959f40 993 AliMaterial(55, "SSD Vacuum$", 1e-16, 1e-16, 1e-16, 1e16, 1e16);
e4f08ac3 994 AliMaterial(56, "SSD Al$", 26.981539, 13., 2.6989, 8.9, 999.);
33959f40 995 // After a call with ratios by number (negative number of elements),
996 // the ratio array is changed to the ratio by weight, so all successive
997 // calls with the same array must specify the number of elements as
998 // positive
999 AliMixture(57, "SSD Water $", awat, zwat, denswat, 2, wwat);
1000 // After a call with ratios by number (negative number of elements),
1001 // the ratio array is changed to the ratio by weight, so all successive
1002 // calls with the same array must specify the number of elements as
1003 // positive
1004 AliMixture(58, "SSD Freon$", afre, zfre, densfre, 2, wfre);
1005 AliMixture(59, "SSD PCB$", apcb, zpcb, denspcb, 3, wpcb);
1006 AliMaterial(60, "SSD Copper$", 63.546, 29., 8.96, 1.43, 999.);
1007 // After a call with ratios by number (negative number of elements),
1008 // the ratio array is changed to the ratio by weight, so all successive
1009 // calls with the same array must specify the number of elements as
1010 // positive
e4f08ac3 1011 AliMixture(61, "SSD Ceramics$", acer, zcer, denscer, 5, wcer);
33959f40 1012 AliMaterial(62, "SSD Kapton$", 12.011, 6., 1.3, 31.27, 999.);
1013 // check A and Z
d12d92a5 1014 AliMaterial(63, "SSD G10FR4$", 17.749, 8.875, 1.8, 21.822, 999.);
e4f08ac3 1015 AliMaterial(64, "SSD End ladder$", 32.0988, 15.4021, 0.68, 35.3238, 999.);
1016 AliMaterial(65, "SSD cone$",63.546, 29., 1.15, 1.265, 999.);
1017 //AliMaterial(64, "SSD End ladder$", 32.0988, 15.4021, -0.68, -35.3238, 999.);
1018 //AliMaterial(65, "SSD cone$",63.546, 29., -1.15, -1.265, 999.);
33959f40 1019 // **
faec2e21 1020 AliMedium(50, "SSD Si$", 50, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
1021 AliMedium(51, "SSD Si chip$", 51, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
1022 AliMedium(52, "SSD Si bus$", 52, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
1023 AliMedium(53, "SSD C$", 53, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
1024 AliMedium(54, "SSD Air$", 54, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
1025 AliMedium(55, "SSD Vacuum$", 55, 0,isxfld,sxmgmx, 10.,1.00, .1, .100,10.00);
1026 AliMedium(56, "SSD Al$", 56, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
1027 AliMedium(57, "SSD Water $", 57, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
1028 AliMedium(58, "SSD Freon$", 58, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
1029 AliMedium(59, "SSD PCB$", 59, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
1030 AliMedium(60, "SSD Copper$", 60, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
1031 AliMedium(61, "SSD Ceramics$", 61, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
1032 AliMedium(62, "SSD Kapton$", 62, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
1033 AliMedium(63, "SSD G10FR4$", 63, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
1034 AliMedium(64, "SSD End ladder$",64, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
1035 AliMedium(65, "SSD cone$", 65, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
1036
33959f40 1037 // 275-299 --> General (end-caps, frames, cooling, cables, etc.)
1038
1039 AliMaterial(75, "GEN C$", 12.011, 6., 2.265, 18.8, 999.);
1040 // verify density
e4f08ac3 1041 AliMaterial(76, "GEN Air$", 14.61, 7.3, .001205, 30423., 999.);
33959f40 1042 AliMaterial(77, "GEN Vacuum$", 1e-16, 1e-16, 1e-16, 1e16, 1e16);
1043 AliMixture( 78, "GEN POLYETHYL$", apoly, zpoly, .95, -2, wpoly);
1044 AliMixture( 79, "GEN SERVICES$", aserv, zserv, 4.68, 4, wserv);
1045 AliMaterial(80, "GEN Copper$", 63.546, 29., 8.96, 1.43, 999.);
1046 // After a call with ratios by number (negative number of elements),
1047 // the ratio array is changed to the ratio by weight, so all successive
1048 // calls with the same array must specify the number of elements as
1049 // positive
1050 AliMixture(81, "GEN Water $", awat, zwat, denswat, 2, wwat);
e6892b92 1051// AliMaterial(82, "GEN Cables$", 12.011, 6., 2.265, 18.8, 999.); // check !!!
1052// AliMaterial(83, "GEN patch pan$", 12.011, 6., 2.265, 18.8, 999.); // check !!!
1053// AliMaterial(84, "GEN serv$", 12.011, 6., 2.265, 18.8, 999.); // check !!!
d12d92a5 1054 AliMixture(85, "GEN Inox$", asteel, zsteel, 7.88, 4, wsteel);
e4f08ac3 1055 AliMaterial(86, "GEN Al$", 26.981539, 13., 2.6989, 8.9, 999.);
1056 AliMaterial(87,"inox/alum$", 32.1502,15.3383,3.0705,6.9197,999.);
33959f40 1057 // **
1058 AliMedium(75,"GEN C$", 75, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
1059 AliMedium(76,"GEN Air$", 76, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
1060 AliMedium(77,"GEN Vacuum$", 77, 0,isxfld,sxmgmx, 10., .10, .1, .100,10.00);
1061 AliMedium(78,"GEN POLYETHYL$",78, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
1062 AliMedium(79,"GEN SERVICES$", 79, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
1063 AliMedium(80,"GEN Copper$", 80, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
1064 AliMedium(81,"GEN Water $", 81, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
e6892b92 1065// AliMedium(82,"GEN Cables$", 82, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
1066// AliMedium(83,"GEN patch pan$",83, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
1067// AliMedium(84,"GEN serv$", 84, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
d12d92a5 1068 AliMedium(85,"GEN Inox$", 85, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
e6892b92 1069 AliMedium(86, "GEN Al$", 86, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
e4f08ac3 1070 AliMedium(87,"inox/alum$", 87, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
1071
33959f40 1072}
1073//_____________________________________________________________________________
1074void AliITSvPPRcoarseasymm::Init(){
1075////////////////////////////////////////////////////////////////////////
1076// Initialise the ITS after it has been created.
1077////////////////////////////////////////////////////////////////////////
bae7e562 1078 Int_t i;
33959f40 1079
bae7e562 1080 cout << endl;
1081 for(i=0;i<24;i++) cout << "*";cout << " ITSvPPRcoarseasymm_Init ";
1082 for(i=0;i<25;i++) cout << "*";cout << endl;
1083//
33959f40 1084 AliITS::Init();
bae7e562 1085//
1086 for(i=0;i<72;i++) cout << "*";
1087 cout << endl;
33959f40 1088}
1089
1090//_____________________________________________________________________________
d2f55a22 1091void AliITSvPPRcoarseasymm::DrawModule() const {
33959f40 1092////////////////////////////////////////////////////////////////////////
1093// Draw a shaded view of the FMD version 6.
1094////////////////////////////////////////////////////////////////////////
1095
1096 // Set everything unseen
1097 gMC->Gsatt("*", "seen", -1);
1098 //
1099 // Set ALIC mother visible
1100 gMC->Gsatt("ALIC","SEEN",0);
1101 //
1102 // Set the volumes visible
1103 gMC->Gsatt("ITSD","SEEN",0);
1104 gMC->Gsatt("ITS1","SEEN",1);
1105 gMC->Gsatt("ITS2","SEEN",1);
1106 gMC->Gsatt("ITS3","SEEN",1);
1107 gMC->Gsatt("ITS4","SEEN",1);
1108 gMC->Gsatt("ITS5","SEEN",1);
1109 gMC->Gsatt("ITS6","SEEN",1);
1110
1111 gMC->Gsatt("IPCB","SEEN",1);
1112 gMC->Gsatt("ICO2","SEEN",1);
1113 gMC->Gsatt("ICER","SEEN",0);
1114 gMC->Gsatt("ISI2","SEEN",0);
1115 gMC->Gsatt("IPLA","SEEN",0);
1116 gMC->Gsatt("ICO3","SEEN",0);
1117 gMC->Gsatt("IEPX","SEEN",0);
1118 gMC->Gsatt("ISI3","SEEN",1);
1119 gMC->Gsatt("ISUP","SEEN",0);
1120 gMC->Gsatt("ICHO","SEEN",0);
1121 gMC->Gsatt("ICMO","SEEN",0);
1122 gMC->Gsatt("ICMD","SEEN",0);
1123 gMC->Gsatt("ICCO","SEEN",1);
1124 gMC->Gsatt("ICCM","SEEN",0);
1125 gMC->Gsatt("ITMD","SEEN",0);
1126 gMC->Gsatt("ITTT","SEEN",1);
1127
1128 //
1129 gMC->Gdopt("hide", "on");
1130 gMC->Gdopt("shad", "on");
1131 gMC->Gsatt("*", "fill", 7);
1132 gMC->SetClipBox(".");
1133 gMC->SetClipBox("*", 0, 300, -300, 300, -300, 300);
1134 gMC->DefaultRange();
1135 gMC->Gdraw("alic", 40, 30, 0, 11, 10, .07, .07);
1136 gMC->Gdhead(1111, "Inner Tracking System Version 1");
1137 gMC->Gdman(17, 6, "MAN");
1138}
1139//_____________________________________________________________________________
1140void AliITSvPPRcoarseasymm::StepManager(){
1141////////////////////////////////////////////////////////////////////////
1142// Called for every step in the ITS, then calls the AliITShit class
1143// creator with the information to be recoreded about that hit.
1144////////////////////////////////////////////////////////////////////////
b16d3d87 1145
1146/*
33959f40 1147 Int_t copy, id;
1148 Float_t hits[8];
1149 Int_t vol[4];
1150 TLorentzVector position, momentum;
1151// TClonesArray &lhits = *fHits;
1152//
1153// no hits for this coarse asymmetric version.
1154//
1155
1156 //
1157 // Track status
1158 vol[3] = 0;
1159 if(gMC->IsTrackInside()) vol[3] += 1;
1160 if(gMC->IsTrackEntering()) vol[3] += 2;
1161 if(gMC->IsTrackExiting()) vol[3] += 4;
1162 if(gMC->IsTrackOut()) vol[3] += 8;
1163 if(gMC->IsTrackDisappeared()) vol[3] += 16;
1164 if(gMC->IsTrackStop()) vol[3] += 32;
1165 if(gMC->IsTrackAlive()) vol[3] += 64;
1166 //
1167 // Fill hit structure.
1168 if( !(gMC->TrackCharge()) ) return;
1169 //
1170 // Only entering charged tracks
1171 if((id=gMC->CurrentVolID(copy))==fIdSens[0]) {
1172 vol[0]=1;
1173 id=gMC->CurrentVolOffID(1,copy);
1174 vol[1]=copy;
1175 id=gMC->CurrentVolOffID(2,copy);
1176 vol[2]=copy;
1177 } else if(id==fIdSens[1]) {
1178 vol[0]=2;
1179 id=gMC->CurrentVolOffID(1,copy);
1180 vol[1]=copy;
1181 id=gMC->CurrentVolOffID(2,copy);
1182 vol[2]=copy;
1183 } else if(id==fIdSens[2]) {
1184 vol[0]=3;
1185 vol[1]=copy;
1186 id=gMC->CurrentVolOffID(1,copy);
1187 vol[2]=copy;
1188 } else if(id==fIdSens[3]) {
1189 vol[0]=4;
1190 vol[1]=copy;
1191 id=gMC->CurrentVolOffID(1,copy);
1192 vol[2]=copy;
1193 } else if(id==fIdSens[4]) {
1194 vol[0]=5;
1195 vol[1]=copy;
1196 id=gMC->CurrentVolOffID(1,copy);
1197 vol[2]=copy;
1198 } else if(id==fIdSens[5]) {
1199 vol[0]=6;
1200 vol[1]=copy;
1201 id=gMC->CurrentVolOffID(1,copy);
1202 vol[2]=copy;
1203 } else return;
1204 gMC->TrackPosition(position);
1205 gMC->TrackMomentum(momentum);
1206 hits[0]=position[0];
1207 hits[1]=position[1];
1208 hits[2]=position[2];
1209 hits[3]=momentum[0];
1210 hits[4]=momentum[1];
1211 hits[5]=momentum[2];
1212 hits[6]=gMC->Edep();
1213 hits[7]=gMC->TrackTime();
5a30b198 1214// new(lhits[fNhits++]) AliITShit(fIshunt,gAlice->GetMCApp()->GetCurrentTrackNumber(),vol,hits);
33959f40 1215//
1216// no hits for this coarse asymmetric version.
1217//
b16d3d87 1218*/
33959f40 1219}
33959f40 1220