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