]> git.uio.no Git - u/mrichter/AliRoot.git/blame - ITS/AliITSvPPRsymm.cxx
git://git.uio.no / u / mrichter / AliRoot.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
The test suite was modified to add the mel recipeint. The Makefile has a fast (make...
[u/mrichter/AliRoot.git] / ITS / AliITSvPPRsymm.cxx
CommitLineData
5d5bdf03 1 /**************************************************************************
db915fea 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$
a8c83dcb 18Revision 1.31 2001/10/04 22:33:39 nilsen
19Fixed bugs in SetDefaults.
20
82873bc1 21Revision 1.30 2001/10/01 19:34:09 nilsen
22Fixed a bug in asigning detector types in SetDefaults under SSD layer 6.
23
1570d46d 24Revision 1.29 2001/06/07 14:42:14 barbera
25Both chip and det thicknesses set to [100,300]
26
214030ed 27Revision 1.28 2001/05/31 19:24:47 barbera
28Default values of SPD detector and chip thickness set to 200 microns as defined by the Technical Board
29
46d7680e 30Revision 1.27 2001/05/30 16:15:47 fca
31Correct comparison wiht AliGeant3::Class() introduced. Thanks to I.Hrivnacova
32
cbfdea0d 33Revision 1.26 2001/05/30 15:55:35 hristov
34Strings compared instead of pointers
35
268b9c60 36Revision 1.25 2001/05/30 14:04:31 hristov
37Dynamic cast replaced (F.Carminati)
38
4154d3d8 39Revision 1.24 2001/05/25 15:59:59 morsch
40Overlaps corrected. (R. Barbera)
41
9bf5e8ff 42Revision 1.22 2001/05/16 08:17:49 hristov
43Bug fixed in the StepManager to account for the difference in the geometry tree for the ITS pixels. This fixes both the funny distribution of pixel coordinates and the missing hits/digits/points in many sectors of the ITS pixel barrel. Also included is a patch to properly get and use the detector dimensions through out the ITS code. (B.Nilsen)
44
e99dbc71 45Revision 1.21 2001/05/10 00:12:59 nilsen
46Finished fixing up the default segmentation for the PPR geometry.
47
c11a498e 48Revision 1.20 2001/05/09 01:02:22 nilsen
49Finished fixing SetDefaults for the segmentation of SPD, SDD, and SSD.
50
92cc4da1 51Revision 1.19 2001/05/03 08:40:15 barbera
52Volume ITSD slightly modified to be consistent with v5. Some improvement in the printouts. The last commit did not complete successfully.
53
1e9111db 54Revision 1.17 2001/05/01 22:40:42 nilsen
55Partical update of SetDefault.
56
2c198b76 57Revision 1.16 2001/04/22 13:48:09 barbera
58New values of media parameters and thickness of SPD end-ladder electronics as given by Fabio Formenti
59
fc44ab90 60Revision 1.15 2001/04/04 07:02:16 barbera
61Position of the cylinders holding rails corrected
62
27c5763c 63Revision 1.14 2001/03/29 22:02:30 barbera
64Some changes to the services due to the new drawings from the engineers.
65
05a91552 66Revision 1.13 2001/03/29 05:28:56 barbera
67Rails material changed from aluminum to carbon fiber according with the decision of the last Technical Board
68
31683195 69Revision 1.12 2001/03/28 06:40:20 barbera
70Central and services mother volumes made consistenf for detailed and coarse geometry. Switch for rails added to the coarse geometries
71
e4f08ac3 72Revision 1.11 2001/03/23 00:12:23 nilsen
73Set Reading of AliITSgeom data from Geant3 common blocks as the default and
74not a .det file. Removed redundent calls to BuildGeometry.
75
0646a0e8 76Revision 1.10 2001/03/15 13:47:55 barbera
77Some service mother volumes modified
78
6d62fed9 79Revision 1.9 2001/03/13 18:13:30 barbera
80Some mother volumes sligthly modified to eliminate an overlap with the absorber
81
45725ec9 82Revision 1.8 2001/03/13 08:36:24 hristov
83fabsf replaced by TMath::Abs
84
767187dd 85Revision 1.7 2001/03/13 00:43:43 barbera
86Updated version of the PPR detailed geometry with symmetric services. Of course, the central part of the detector (volume ITSD and its daughters) is the same of AliITSvPPRasymm.cxx
87
9d2da7b3 88Revision 1.6 2001/02/13 16:53:35 nilsen
89Fixed a but when trying to use GEANT4. Needed to replace
90if(!((TGeant3*)gMC)) with if(!(dynamic_casst<TGeant3*>(gMC)))
91because just casting gMC to be TGeant3* even when it realy is a TGeant3 pointer
92did not result in a zero value. For AliITSv5asymm and AliITSv5symm, needed
93to fix a bug in the initilizers and a bug in BuildGeometry. This is now done
94in the same way as in AliITSv5.cxx.
95
9a4c6ea3 96Revision 1.5 2001/02/09 20:06:26 nilsen
97Fixed bug in distructor. Can't distroy fixxed length arrays. Thanks Peter.
98
58e13d99 99Revision 1.4 2001/02/09 00:05:31 nilsen
100Added fMajor/MinorVersion variables and made other changes to better make
101use of the new code changes in AliITSgeom related classes.
102
bae7e562 103Revision 1.3 2001/01/30 09:23:13 hristov
104Streamers removed (R.Brun)
105
a8a6107b 106Revision 1.2 2001/01/26 20:01:19 hristov
107Major upgrade of AliRoot code
108
2ab0c725 109Revision 1.1.2.1 2001/01/15 13:38:32 barbera
110New ITS detailed geometry to be used for the PPR
111
db915fea 112Revision 1.12 2000/12/10 16:00:44 barbera
113Added last definition of special media like end-ladder boxes and cones
114
115Revision 1.11 2000/10/30 08:02:25 barbera
116PCON's changed into simpler CONS and TUBS. Services now allow for the rails to go through them.
117
118Revision 1.3.2.7 2000/10/27 17:20:00 barbera
119Position of rails w.r.t. the interaction point corrected.
120
121Revision 1.9 2000/10/27 13:31:29 barbera
122Rails between ITS and TPC added.
123
124Revision 1.8 2000/10/27 13:03:08 barbera
125Small changes in the SPD volumes and materials
126
127Revision 1.6 2000/10/16 14:45:37 barbera
128Mother volume ITSD modified to avoid some overlaps
129
130Revision 1.5 2000/10/16 13:49:15 barbera
131Services volumes slightly modified and material added following Pierluigi Barberis' information
132
133Revision 1.4 2000/10/07 15:33:07 barbera
134Small corrections to the ITSV mother volume
135
136Revision 1.3 2000/10/07 13:06:50 barbera
137Some new materials and media defined
138
139Revision 1.2 2000/10/07 10:42:43 barbera
140Mother volume ITSV corrected
141
142Revision 1.1 2000/10/06 23:09:12 barbera
143New geometry (symmetric services
144
145Revision 1.20 2000/10/02 21:28:08 fca
146Removal of useless dependecies via forward declarations
147
148Revision 1.19 2000/07/10 16:07:19 fca
149Release version of ITS code
150
151Revision 1.14.2.2 2000/05/19 10:09:21 nilsen
152fix for bug with HP and Sun unix + fix for event display in ITS-working branch
153
154Revision 1.14.2.1 2000/03/04 23:45:19 nilsen
155Fixed up the comments/documentation.
156
157Revision 1.14 1999/11/25 06:52:56 fca
158Correct value of drca
159
160Revision 1.13.2.1 1999/11/25 06:52:21 fca
161Correct value of drca
162
163Revision 1.13 1999/10/27 11:16:26 fca
164Correction of problem in geometry
165
166Revision 1.12 1999/10/22 08:25:25 fca
167remove double definition of destructors
168
169Revision 1.11 1999/10/22 08:16:49 fca
170Correct destructors, thanks to I.Hrivnacova
171
172Revision 1.10 1999/10/06 19:56:50 fca
173Add destructor
174
175Revision 1.9 1999/10/05 08:05:09 fca
176Minor corrections for uninitialised variables.
177
178Revision 1.8 1999/09/29 09:24:20 fca
179Introduction of the Copyright and cvs Log
180
181*/
182
bae7e562 183//////////////////////////////////////////////////////////////////////////////
184// //
185// Inner Traking System version PPR symmetric //
186// This class contains the base procedures for the Inner Tracking System //
187// //
188// Authors: R. Barbera //
189// version 6. //
190// Created 2000. //
191// //
192// NOTE: THIS IS THE SYMMETRIC PPR geometry of the ITS. //
193// THIS WILL NOT WORK //
194// with the geometry or module classes or any analysis classes. You are //
195// strongly encouraged to uses AliITSv5. //
196// //
197//////////////////////////////////////////////////////////////////////////////
9d2da7b3 198// See AliITSvPPRsymm::StepManager().
bae7e562 199#include <iostream.h>
200#include <iomanip.h>
9d2da7b3 201#include <stdio.h>
202#include <stdlib.h>
db915fea 203#include <TMath.h>
db915fea 204#include <TGeometry.h>
205#include <TNode.h>
206#include <TTUBE.h>
207#include <TFile.h> // only required for Tracking function?
208#include <TCanvas.h>
209#include <TObjArray.h>
9d2da7b3 210#include <TLorentzVector.h>
211#include <TObjString.h>
db915fea 212#include <TClonesArray.h>
9d2da7b3 213#include <TBRIK.h>
214#include <TSystem.h>
db915fea 215
216#include "AliMC.h"
9d2da7b3 217#include "AliRun.h"
db915fea 218#include "AliMagF.h"
219#include "AliConst.h"
cbfdea0d 220#include "AliGeant3.h"
bae7e562 221#include "AliITSGeant3Geometry.h"
db915fea 222#include "AliITShit.h"
9d2da7b3 223#include "AliITS.h"
db915fea 224#include "AliITSvPPRsymm.h"
bae7e562 225#include "AliITSgeom.h"
226#include "AliITSgeomSPD.h"
227#include "AliITSgeomSDD.h"
228#include "AliITSgeomSSD.h"
2c198b76 229#include "AliITSDetType.h"
230#include "AliITSresponseSPD.h"
231#include "AliITSresponseSDD.h"
232#include "AliITSresponseSSD.h"
233#include "AliITSsegmentationSPD.h"
234#include "AliITSsegmentationSDD.h"
235#include "AliITSsegmentationSSD.h"
82873bc1 236#include "AliITSsimulationSPD.h"
237#include "AliITSsimulationSDD.h"
238#include "AliITSsimulationSSD.h"
2c198b76 239#include "AliITSClusterFinderSPD.h"
240#include "AliITSClusterFinderSDD.h"
241#include "AliITSClusterFinderSSD.h"
db915fea 242
243
244ClassImp(AliITSvPPRsymm)
245
246//_____________________________________________________________________________
247AliITSvPPRsymm::AliITSvPPRsymm() {
248////////////////////////////////////////////////////////////////////////
249// Standard default constructor for the ITS version 9.
250////////////////////////////////////////////////////////////////////////
bae7e562 251 Int_t i;
252
9d2da7b3 253 fIdN = 0;
bae7e562 254 fIdName = 0;
255 fIdSens = 0;
256 fEuclidOut = kFALSE; // Don't write Euclide file
257 fGeomDetOut = kFALSE; // Don't write .det file
0646a0e8 258 fGeomDetIn = kFALSE; // Don't Read .det file
bae7e562 259 fMajorVersion = IsVersion();
260 fMinorVersion = -1;
261 for(i=0;i<60;i++) fRead[i] = '\0';
262 for(i=0;i<60;i++) fWrite[i] = '\0';
263 for(i=0;i<60;i++) fEuclidGeomDet[i] = '\0';
db915fea 264}
265//_____________________________________________________________________________
266AliITSvPPRsymm::AliITSvPPRsymm(const char *name, const char *title) : AliITS(name, title){
267////////////////////////////////////////////////////////////////////////
268// Standard constructor for the ITS version 9.
269////////////////////////////////////////////////////////////////////////
bae7e562 270 Int_t i;
271
272 fIdN = 6;
273 fIdName = new TString[fIdN];
274 fIdName[0] = "ITS1";
275 fIdName[1] = "ITS2";
276 fIdName[2] = "ITS3";
277 fIdName[3] = "ITS4";
278 fIdName[4] = "ITS5";
279 fIdName[5] = "ITS6";
280 fIdSens = new Int_t[fIdN];
281 for (i=0;i<fIdN;i++) fIdSens[i] = 0;
282 fMajorVersion = IsVersion();
9d2da7b3 283 fMinorVersion = 2;
bae7e562 284 fEuclidOut = kFALSE; // Don't write Euclide file
285 fGeomDetOut = kFALSE; // Don't write .det file
0646a0e8 286 fGeomDetIn = kFALSE; // Don't Read .det file
9d2da7b3 287 SetThicknessDet1();
288 SetThicknessDet2();
289 SetThicknessChip1();
290 SetThicknessChip2();
bae7e562 291
9d2da7b3 292 fEuclidGeometry="$ALICE_ROOT/ITS/ITSgeometry_vPPRsymm2.euc";
293 strncpy(fEuclidGeomDet,"$ALICE_ROOT/ITS/ITSgeometry_vPPRsymm2.det",60);
bae7e562 294 strncpy(fRead,fEuclidGeomDet,60);
9d2da7b3 295 strncpy(fWrite,fEuclidGeomDet,60);
296
db915fea 297}
298//____________________________________________________________________________
299AliITSvPPRsymm::AliITSvPPRsymm(const AliITSvPPRsymm &source){
300////////////////////////////////////////////////////////////////////////
301// Copy Constructor for ITS version 9.
302////////////////////////////////////////////////////////////////////////
303 if(&source == this) return;
bae7e562 304 Warning("Copy Constructor","Not allowed to copy AliITSvPPRsymm");
db915fea 305 return;
306}
307//_____________________________________________________________________________
308AliITSvPPRsymm& AliITSvPPRsymm::operator=(const AliITSvPPRsymm &source){
309////////////////////////////////////////////////////////////////////////
9d2da7b3 310// Assignment operator for the ITS version 9.
db915fea 311////////////////////////////////////////////////////////////////////////
bae7e562 312 if(&source == this) return *this;
313 Warning("= operator","Not allowed to copy AliITSvPPRsymm");
314 return *this;
db915fea 315}
316//_____________________________________________________________________________
317AliITSvPPRsymm::~AliITSvPPRsymm() {
318////////////////////////////////////////////////////////////////////////
9d2da7b3 319// Standard destructor for the ITS version 9.
db915fea 320////////////////////////////////////////////////////////////////////////
321}
db915fea 322//__________________________________________________________________________
323void AliITSvPPRsymm::BuildGeometry(){
324////////////////////////////////////////////////////////////////////////
325// Geometry builder for the ITS version 9.
326////////////////////////////////////////////////////////////////////////
327 TNode *node, *top;
328 const int kColorITS=kYellow;
329 //
330 top = gAlice->GetGeometry()->GetNode("alice");
331
332 new TTUBE("S_layer1","Layer1 of ITS","void",3.95,3.95+0.05475,12.25);
333 top->cd();
334 node = new TNode("Layer1","Layer1","S_layer1",0,0,0,"");
335 node->SetLineColor(kColorITS);
336 fNodes->Add(node);
337
338 new TTUBE("S_layer2","Layer2 of ITS","void",7.,7.+0.05475,16.3);
339 top->cd();
340 node = new TNode("Layer2","Layer2","S_layer2",0,0,0,"");
341 node->SetLineColor(kColorITS);
342 fNodes->Add(node);
343
344 new TTUBE("S_layer3","Layer3 of ITS","void",15.,15.+0.05288,21.1);
345 top->cd();
346 node = new TNode("Layer3","Layer3","S_layer3",0,0,0,"");
347 node->SetLineColor(kColorITS);
348 fNodes->Add(node);
349
350 new TTUBE("S_layer4","Layer4 of ITS","void",24,24+0.05288,29.6);
351 top->cd();
352 node = new TNode("Layer4","Layer4","S_layer4",0,0,0,"");
353 node->SetLineColor(kColorITS);
354 fNodes->Add(node);
355
356 new TTUBE("S_layer5","Layer5 of ITS","void",40,40+0.05382,45.1);
357 top->cd();
358 node = new TNode("Layer5","Layer5","S_layer5",0,0,0,"");
359 node->SetLineColor(kColorITS);
360 fNodes->Add(node);
361
362 new TTUBE("S_layer6","Layer6 of ITS","void",45,45+0.05382,50.4);
363 top->cd();
364 node = new TNode("Layer6","Layer6","S_layer6",0,0,0,"");
365 node->SetLineColor(kColorITS);
366 fNodes->Add(node);
367}
368//_____________________________________________________________________________
369void AliITSvPPRsymm::CreateGeometry(){
370////////////////////////////////////////////////////////////////////////
371// This routine defines and Creates the geometry for version 9 of the ITS.
372////////////////////////////////////////////////////////////////////////
373
374 //INNER RADII OF THE SILICON LAYERS
e4f08ac3 375 // Float_t rl[6] = { 3.8095,7.,15.,24.,38.1,43.5765 };
db915fea 376 //THICKNESSES OF LAYERS (in % radiation length)
377 Float_t drl[6] = { 1.03,1.03,0.94,0.95,0.91,0.87 };
378 //HALF LENGTHS OF LAYERS
e4f08ac3 379 // Float_t dzl[6] = { 14.35,14.35,25.1,32.1,49.405,55.27 };
db915fea 380 //LENGTHS OF END-LADDER BOXES (ALL INCLUDED)
e4f08ac3 381 // Float_t dzb[6] = { 12.4,12.4,13.5,15.,7.5,7.5 };
db915fea 382 //THICKNESSES OF END-LADDER BOXES (ALL INCLUDED)
e4f08ac3 383 // Float_t drb[6] = { rl[1]-rl[0],0.2,5.,5.,4.,4. };
9d2da7b3 384
db915fea 385
e4f08ac3 386 Float_t dits[100], rlim, zmax;
9d2da7b3 387 // Float_t zpos;
388 // Float_t pcits[50]
e4f08ac3 389 Float_t ztpc;
9d2da7b3 390 Int_t idrotm[1999], i;
e4f08ac3 391 Float_t dgh[100];
9d2da7b3 392
393
394 // Define some variables for SPD
395
396 Float_t dits1[3], di101[3], di107[3], di10b[3], di106[3]; // for layer 1
397 Float_t di103[3], di10a[3], di102[3]; // for layer 1
398 Float_t dits2[3], di1d1[3], di1d7[3], di20b[3], di1d6[3]; // for layer 2
399 Float_t di1d3[3], di20a[3], di1d2[3]; // for layer 2
400 Float_t di108[3], di104[3]; // for both layers
401
a8c83dcb 402 Float_t ddet1=200.; // total detector thickness on layer 1 (micron)
403 Float_t dchip1=200.; // total chip thickness on layer 1 (micron)
9d2da7b3 404
a8c83dcb 405 Float_t ddet2=200.; // total detector thickness on layer 2 (micron)
406 Float_t dchip2=200.; // total chip thickness on layer 2 (micron)
9d2da7b3 407
214030ed 408 Float_t dbus=300.; // total bus thickness on both layers (micron)
9d2da7b3 409
410 ddet1 = GetThicknessDet1();
411 ddet2 = GetThicknessDet2();
412 dchip1 = GetThicknessChip1();
413 dchip2 = GetThicknessChip2();
414
9d2da7b3 415 if(ddet1 < 100. || ddet1 > 300.) {
1e9111db 416 cout << "ITS - WARNING: the detector thickness for layer 1 is outside the range of [100,300] microns."
a8c83dcb 417 " The default value of 200 microns will be used." << endl;
418 ddet1=200.;
9d2da7b3 419 }
420
421 if(ddet2 < 100. || ddet2 > 300.) {
1e9111db 422 cout << "ITS - WARNING: the detector thickness for layer 2 is outside the range of [100,300] microns."
a8c83dcb 423 " The default value of 200 microns will be used." << endl;
424 ddet2=200.;
9d2da7b3 425 }
426
214030ed 427 if(dchip1 < 100. || dchip1 > 300.) {
428 cout << "ITS - WARNING: the chip thickness for layer 1 is outside the range of [100,300] microns."
a8c83dcb 429 " The default value of 200 microns will be used." << endl;
430 dchip1=200.;
9d2da7b3 431 }
432
214030ed 433 if(dchip2 < 100. || dchip2 > 300.) {
434 cout << "ITS - WARNING: the chip thickness for layer 2 is outside the range of [100,300] microns."
a8c83dcb 435 " The default value of 200 microns will be used." << endl;
436 dchip2=200.;
9d2da7b3 437 }
e4f08ac3 438
439 Int_t rails = 1; // flag for rails (1 --> rails in; 0 --> rails out)
9d2da7b3 440
e4f08ac3 441 Int_t fluid = 1; // flag for the cooling fluid (1 --> water; 0 --> freon)
442
443 rails = GetRails();
444
445 fluid = GetCoolingFluid();
446
447 if(rails != 0 && rails != 1) {
1e9111db 448 cout << "ITS - WARNING: the switch for rails is not set neither to 0 (rails out) nor to 1 (rails in)."
e4f08ac3 449 " The default value of 1 (rails in) will be used." << endl;
450
451 }
452
453 if(fluid != 0 && fluid != 1) {
1e9111db 454 cout << "ITS - WARNING: the switch for cooling fluid is not set neither to 0 (freon) nor to 1 (water)."
e4f08ac3 455 " The default value of 1 (water) will be used." << endl;
456 }
457
1e9111db 458 cout << "ITS: Detector thickness on layer 1 is set to " << ddet1 << " microns." << endl;
459 cout << "ITS: Chip thickness on layer 1 is set to " << dchip1 << " microns." << endl;
460 cout << "ITS: Detector thickness on layer 2 is set to " << ddet2 << " microns." << endl;
461 cout << "ITS: Chip thickness on layer 2 is set to " << dchip2 << " microns." << endl;
e4f08ac3 462 if(rails == 0 ) {
1e9111db 463 cout << "ITS: Rails are out." << endl;
e4f08ac3 464 } else {
1e9111db 465 cout << "ITS: Rails are in." << endl;
e4f08ac3 466 }
467 if(fluid == 0 ) {
1e9111db 468 cout << "ITS: The cooling fluid is freon." << endl;
e4f08ac3 469 } else {
1e9111db 470 cout << "ITS: The cooling fluid is water." << endl;
e4f08ac3 471 }
472
9d2da7b3 473 ddet1 = ddet1*0.0001/2.; // conversion from tot length in um to half in cm
474 ddet2 = ddet2*0.0001/2.; // conversion from tot length in um to half in cm
475 dchip1 = dchip1*0.0001/2.;// conversion from tot length in um to half in cm
476 dchip2 = dchip2*0.0001/2.;// conversion from tot length in um to half in cm
e4f08ac3 477 dbus = dbus*0.0001/2.; // conversion from tot length in um to half in cm
9d2da7b3 478
479 Float_t deltax, deltay;
480
481 Int_t thickness = fMinorVersion/10;
482 Int_t option = fMinorVersion - 10*thickness;
483
484
485 // Define some variables for SDD
486
487
488 Float_t sin30, cos30;
489
490 // SDD electronics+services main volumes
491 Float_t I018dits[3], I024dits[3], I047dits[3], I048dits[3];
492
493 // SDD detector ladder
494
495 Float_t I302dits[3], I402dits[3], I004dits[3], I005dits[3];
496 Float_t Y_SDD_sep = 0.20;
497 Float_t ySDD;
498 Int_t iSDD;
499 Float_t Z_SDD_lay3[6] = {18.55, 10.95, 3.70, -3.70, -11.20, -18.35};
500 Float_t Z_SDD_lay4[8] = {25.75, 18.60, 11.00, 3.70, -3.70, -11.20, -18.45, -26.05};
501
502 // ladder foot and end-ladder (frame and cooling)
503 Float_t I028dits[3], I420dits[3], I421dits[3], I422dits[6], I423dits[3];
504 Float_t I424dits[3], xI424, yI424;
505 Float_t I425dits[3];
506 Int_t indI425;
507 Float_t I029dits[4], I030dits[4], I031dits[3], I032dits[3];
508
509 // SDD ladder frame and cooling
510 Float_t SDD_CoolPipe[3] = {1.7000, -0.5500, 0.0000};
511 Float_t I035dits[3], I037dits[3], I038dits[3];
512 Float_t I039dits[3], xI039, yI039;
513 Float_t I041dits[5];
514
515 // SDD hybrid, chips and capacitors
516 Float_t I050dits[3], xI050, yI050;
517 Float_t I052dits[3], xI052, yI052;
518 Float_t I042dits[3], xI042, yI042;
519 Float_t xI042space = 0.17;
520 Float_t I043dits[3], xI043, yI043;
521 Float_t xI043space = 0.17;
522 Float_t zchip, zChipSpace;
523 Float_t I051dits[3], xI051, yI051, zI051, yI051space, xcap;
524 Int_t ichip, icap;
525
526 // SDD microcables
527 Float_t I044dits[4], xI044, yI044, volI044;
528 Float_t xHV, yHV, zHV, xLV, yLV, zLV;
529 Char_t HVname[5], LVname[5];
530
531
532 // Define media off-set
db915fea 533
534 Int_t *idtmed = fIdtmed->GetArray()-199;
9d2da7b3 535
db915fea 536
537 // Rotation matrices
538
9d2da7b3 539 // SPD - option 'a' (this is NOT the default so leave commented)
540
541
542 if (option == 1) {
543
544 AliMatrix(idrotm[201],90.0,90.0,90.0,180.0,0.0,0.0);
545 AliMatrix(idrotm[202],90.0,90.0,90.0,0.0,0.0,0.0);
546 AliMatrix(idrotm[203],90.0,350.0,90.0,260.0,0.0,0.0);
547 AliMatrix(idrotm[204],90.0,170.0,90.0,80.0,0.0,0.0);
548 AliMatrix(idrotm[205],90.0,10.0,90.0,100.0,0.0,0.0);
549 AliMatrix(idrotm[206],90.0,190.0,90.0,280.0,0.0,0.0);
550 AliMatrix(idrotm[207],90.0,342.0,90.0,72.0,0.0,0.0);
551 AliMatrix(idrotm[208],90.0,156.999893,90.0,246.999893,0.0,0.0);
552 AliMatrix(idrotm[209],90.0,147.999802,90.0,237.999893,0.0,0.0);
553 AliMatrix(idrotm[210],90.0,138.999802,90.0,228.999802,0.0,0.0);
554 AliMatrix(idrotm[211],90.0,129.999802,90.0,219.999802,0.0,0.0);
555 AliMatrix(idrotm[212],90.0,36.7896,90.0,126.789597,0.0,0.0);
556 AliMatrix(idrotm[213],90.0,343.579712,90.0,73.579697,0.0,0.0);
557 AliMatrix(idrotm[214],90.0,95.413696,90.0,185.413696,0.0,0.0);
558 AliMatrix(idrotm[215],90.0,5.4141,90.0,95.414101,0.0,0.0);
559 AliMatrix(idrotm[216],90.0,318.296906,90.0,48.296902,0.0,0.0);
560 AliMatrix(idrotm[217],90.0,67.000099,90.0,157.000107,0.0,0.0);
561 AliMatrix(idrotm[218],90.0,337.003998,90.0,67.003998,0.0,0.0);
562 AliMatrix(idrotm[219],90.0,247.000305,90.0,337.000305,0.0,0.0);
563 AliMatrix(idrotm[220],90.0,305.633514,90.0,35.633499,0.0,0.0);
564 AliMatrix(idrotm[221],90.0,58.000198,90.0,148.000198,0.0,0.0);
565 AliMatrix(idrotm[222],90.0,327.997101,90.0,57.997101,0.0,0.0 );
566 AliMatrix(idrotm[223],90.0,237.994202,90.0,327.994202,0.0,0.0);
567 AliMatrix(idrotm[224],90.0,296.627502,90.0,26.627399,0.0,0.0);
568 AliMatrix(idrotm[225],90.0,48.994099,90.0,138.994095,0.0,0.0);
569 AliMatrix(idrotm[226],90.0,318.990997,90.0,48.991001,0.0,0.0);
570 AliMatrix(idrotm[227],90.0,228.988205,90.0,318.98819,0.0,0.0);
571 AliMatrix(idrotm[228],90.0,287.621399,90.0,17.621401,0.0,0.0);
572 AliMatrix(idrotm[229],90.0,39.988098,90.0,129.988098,0.0,0.0);
573 AliMatrix(idrotm[230],90.0,309.984985,90.0,39.985001,0.0,0.0);
574 AliMatrix(idrotm[231],90.0,327.2612,90.0,57.2612,0.0,0.0);
575 AliMatrix(idrotm[232],90.0,237.261398,90.0,327.261414,0.0,0.0);
576 AliMatrix(idrotm[233],90.0,252.000504,90.0,342.000488,0.0,0.0 );
577 AliMatrix(idrotm[234],90.0,71.9991,90.0,161.9991,0.0,0.0);
578 AliMatrix(idrotm[235],90.0,270.0,90.0,0.0,0.0,0.0);
579 AliMatrix(idrotm[236],90.0,180.013702,90.0,270.013702,0.0,0.0);
9bf5e8ff 580 AliMatrix(idrotm[237],90.0,180.0,90.0,90.0,0.0,0.0);
9d2da7b3 581 AliMatrix(idrotm[238],90.0,144.0,90.0,234.0,0.0,0.0);
582 AliMatrix(idrotm[239],90.0,216.0,90.0,306.0,0.0,0.0);
583 AliMatrix(idrotm[240],90.0,288.0,90.0,18.0,0.0,0.0);
584 AliMatrix(idrotm[241],90.0,324.0,90.0,54.0,0.0,0.0);
585 AliMatrix(idrotm[242],90.0,36.0,90.0,126.0,0.0,0.0);
586 AliMatrix(idrotm[243],90.0,108.0,90.0,198.0,0.0,0.0);
9bf5e8ff 587 AliMatrix(idrotm[244],90.0,180.0,90.0,270.0,0.0,0.0);
588 AliMatrix(idrotm[245],90.0,162.0,90.0,252.0,0.0,0.0);
589 AliMatrix(idrotm[246],90.0,310.0,90.0,40.0,0.0,0.0);
590 AliMatrix(idrotm[247],90.0,319.0,90.0,49.0,0.0,0.0);
591 AliMatrix(idrotm[248],90.0,328.0,90.0,58.0,0.0,0.0);
592 AliMatrix(idrotm[249],90.0,337.0,90.0,67.0,0.0,0.0);
9d2da7b3 593 AliMatrix(idrotm[1003],90.0,73.5,90.0,163.5,0.0,0.0);
594 AliMatrix(idrotm[1011],90.0,342.0,90.0,72.0,0.0,0.0);
595 AliMatrix(idrotm[1039],90.0,72.0,90.0,162.0,0.0,0.0);
596 AliMatrix(idrotm[1043],90.0,66.91,90.0,156.91,0.0,0.0);
597 AliMatrix(idrotm[1065],90.0,144.0,90.0,234.0,0.0,0.0);
598 AliMatrix(idrotm[1078],90.0,180.0,90.0,270.0,0.0,0.0);
599 AliMatrix(idrotm[1088],90.0,57.41,90.0,147.41,0.0,0.0);
600 AliMatrix(idrotm[1089],90.0,333.0,90.0,63.0,0.0,0.0);
601 AliMatrix(idrotm[1090],90.0,351.0,90.0,81.0,0.0,0.0);
602 AliMatrix(idrotm[1091],90.0,216.0,90.0,306.0,0.0,0.0);
603 AliMatrix(idrotm[1092],90.0,27.0,90.0,117.0,0.0,0.0);
604 AliMatrix(idrotm[1093],90.0,18.0,90.0,108.0,0.0,0.0);
605 AliMatrix(idrotm[1094],90.0,9.0,90.0,99.0,0.0,0.0);
606 AliMatrix(idrotm[1104],90.0,252.0,90.0,342.0,0.0,0.0);
607 AliMatrix(idrotm[1106],90.0,36.0,90.0,126.0,0.0,0.0);
608 AliMatrix(idrotm[1107],90.0,108.0,90.0,198.0,0.0,0.0);
609 AliMatrix(idrotm[1108],90.0,324.0,90.0,54.0,180.0,0.0);
610 AliMatrix(idrotm[1109],90.0,0.0,90.0,90.0,180.0,0.0);
611 AliMatrix(idrotm[1110],90.0,36.0,90.0,126.0,180.0,0.0);
612 AliMatrix(idrotm[1111],90.0,72.0,90.0,162.0,180.0,0.0);
613 AliMatrix(idrotm[1112],90.0,108.0,90.0,198.0,180.0,0.0);
614 AliMatrix(idrotm[1113],90.0,144.0,90.0,234.0,180.0,0.0);
615 AliMatrix(idrotm[1114],90.0,180.0,90.0,270.0,180.0,0.0);
616 AliMatrix(idrotm[1115],90.0,216.0,90.0,306.0,180.0,0.0);
617 AliMatrix(idrotm[1116],90.0,252.0,90.0,342.0,180.0,0.0);
618 AliMatrix(idrotm[1117],90.0,288.0,90.0,18.0,0.0,0.0);
619 AliMatrix(idrotm[1118],90.0,288.0,90.0,18.0,180.0,0.0);
620 AliMatrix(idrotm[1130],90.0,324.0,90.0,54.0,0.0,0.0);
621
622 }
db915fea 623
9d2da7b3 624 // SPD - option 'b' (this is the default)
625
626 if (option == 2) {
627
9bf5e8ff 628 AliMatrix(idrotm[201],90.0,0.0,90.0,90.0,0.0,0.0);
9d2da7b3 629 AliMatrix(idrotm[202],90.0,90.0,90.0,0.0,0.0,0.0);
630 AliMatrix(idrotm[203],90.0,350.0,90.0,260.0,0.0,0.0);
631 AliMatrix(idrotm[204],90.0,170.0,90.0,80.0,0.0,0.0);
632 AliMatrix(idrotm[205],90.0,10.0,90.0,100.0,0.0,0.0);
633 AliMatrix(idrotm[206],90.0,190.0,90.0,280.0,0.0,0.0);
634 AliMatrix(idrotm[207],90.0,342.0,90.0,72.0,0.0,0.0);
635 AliMatrix(idrotm[208],90.0,156.999893,90.0,246.999893,0.0,0.0);
636 AliMatrix(idrotm[209],90.0,147.999802,90.0,237.999893,0.0,0.0);
637 AliMatrix(idrotm[210],90.0,138.999802,90.0,228.999802,0.0,0.0);
638 AliMatrix(idrotm[211],90.0,129.999802,90.0,219.999802,0.0,0.0);
639 AliMatrix(idrotm[212],90.0,36.7896,90.0,126.789597,0.0,0.0);
640 AliMatrix(idrotm[213],90.0,343.579712,90.0,73.579697,0.0,0.0);
641 AliMatrix(idrotm[214],90.0,95.413696,90.0,185.413696,0.0,0.0);
642 AliMatrix(idrotm[215],90.0,5.4141,90.0,95.414101,0.0,0.0);
643 AliMatrix(idrotm[216],90.0,318.296906,90.0,48.296902,0.0,0.0);
644 AliMatrix(idrotm[217],90.0,67.000099,90.0,157.000107,0.0,0.0);
645 AliMatrix(idrotm[218],90.0,337.003998,90.0,67.003998,0.0,0.0);
646 AliMatrix(idrotm[219],90.0,247.000305,90.0,337.000305,0.0,0.0);
647 AliMatrix(idrotm[220],90.0,305.633514,90.0,35.633499,0.0,0.0);
648 AliMatrix(idrotm[221],90.0,58.000198,90.0,148.000198,0.0,0.0);
649 AliMatrix(idrotm[222],90.0,327.997101,90.0,57.997101,0.0,0.0);
650 AliMatrix(idrotm[223],90.0,237.994202,90.0,327.994202,0.0,0.0);
651 AliMatrix(idrotm[224],90.0,296.627502,90.0,26.627399,0.0,0.0);
652 AliMatrix(idrotm[225],90.0,48.994099,90.0,138.994095,0.0,0.0);
653 AliMatrix(idrotm[226],90.0,318.990997,90.0,48.991001,0.0,0.0);
654 AliMatrix(idrotm[227],90.0,228.988205,90.0,318.98819,0.0,0.0);
655 AliMatrix(idrotm[228],90.0,287.621399,90.0,17.621401,0.0,0.0);
656 AliMatrix(idrotm[229],90.0,39.988098,90.0,129.988098,0.0,0.0);
657 AliMatrix(idrotm[230],90.0,309.984985,90.0,39.985001,0.0,0.0);
658 AliMatrix(idrotm[231],90.0,327.2612,90.0,57.2612,0.0,0.0);
659 AliMatrix(idrotm[232],90.0,237.261398,90.0,327.261414,0.0,0.0);
660 AliMatrix(idrotm[233],90.0,252.000504,90.0,342.000488,0.0,0.0);
661 AliMatrix(idrotm[234],90.0,71.9991,90.0,161.9991,0.0,0.0);
662 AliMatrix(idrotm[235],90.0,270.0,90.0,0.0,0.0,0.0);
663 AliMatrix(idrotm[236],90.0,180.013702,90.0,270.013702,0.0,0.0);
664 AliMatrix(idrotm[237],90.0,90.0,90.0,180.0,0.0,0.0);
9bf5e8ff 665 AliMatrix(idrotm[238],90.0,180.0,90.0,270.0,0.0,0.0);
666 AliMatrix(idrotm[239],90.0,162.0,90.0,252.0,0.0,0.0);
667 AliMatrix(idrotm[240],90.0,310.0,90.0,40.0,0.0,0.0);
668 AliMatrix(idrotm[241],90.0,319.0,90.0,49.0,0.0,0.0);
669 AliMatrix(idrotm[242],90.0,328.0,90.0,58.0,0.0,0.0);
670 AliMatrix(idrotm[243],90.0,337.0,90.0,67.0,0.0,0.0);
9d2da7b3 671 AliMatrix(idrotm[244],90.0,216.0,90.0,306.0,0.0,0.0);
672 AliMatrix(idrotm[245],90.0,36.0,90.0,126.0,0.0,0.0);
673 AliMatrix(idrotm[246],90.0,108.0,90.0,198.0,0.0,0.0);
674 AliMatrix(idrotm[247],90.0,144.0,90.0,234.0,0.0,0.0);
675 AliMatrix(idrotm[248],90.0,288.0,90.0,18.0,0.0,0.0);
676 AliMatrix(idrotm[249],90.0,324.0,90.0,54.0,0.0,0.0);
677 AliMatrix(idrotm[1003],90.0,73.5,90.0,163.5,0.0,0.0);
678 AliMatrix(idrotm[1011],90.0,342.0,90.0,72.0,0.0,0.0);
679 AliMatrix(idrotm[1039],90.0,72.0,90.0,162.0,0.0,0.0);
680 AliMatrix(idrotm[1043],90.0,66.91,90.0,156.91,0.0,0.0);
681 AliMatrix(idrotm[1065],90.0,144.0,90.0,234.0,0.0,0.0);
682 AliMatrix(idrotm[1078],90.0,180.0,90.0,270.0,0.0,0.0);
683 AliMatrix(idrotm[1088],90.0,57.41,90.0,147.41,0.0,0.0);
684 AliMatrix(idrotm[1089],90.0,333.0,90.0,63.0,0.0,0.0);
685 AliMatrix(idrotm[1090],90.0,351.0,90.0,81.0,0.0,0.0);
686 AliMatrix(idrotm[1091],90.0,216.0,90.0,306.0,0.0,0.0);
687 AliMatrix(idrotm[1092],90.0,27.0,90.0,117.0,0.0,0.0);
688 AliMatrix(idrotm[1093],90.0,18.0,90.0,108.0,0.0,0.0);
689 AliMatrix(idrotm[1094],90.0,9.0,90.0,99.0,0.0,0.0);
690 AliMatrix(idrotm[1104],90.0,252.0,90.0,342.0,0.0,0.0);
691 AliMatrix(idrotm[1106],90.0,36.0,90.0,126.0,0.0,0.0);
692 AliMatrix(idrotm[1107],90.0,108.0,90.0,198.0,0.0,0.0);
693 AliMatrix(idrotm[1108],90.0,324.0,90.0,54.0,180.0,0.0);
694 AliMatrix(idrotm[1109],90.0,0.0,90.0,90.0,180.0,0.0);
695 AliMatrix(idrotm[1110],90.0,36.0,90.0,126.0,180.0,0.0);
696 AliMatrix(idrotm[1111],90.0,72.0,90.0,162.0,180.0,0.0);
697 AliMatrix(idrotm[1112],90.0,108.0,90.0,198.0,180.0,0.0);
698 AliMatrix(idrotm[1113],90.0,144.0,90.0,234.0,180.0,0.0);
699 AliMatrix(idrotm[1114],90.0,180.0,90.0,270.0,180.0,0.0);
700 AliMatrix(idrotm[1115],90.0,216.0,90.0,306.0,180.0,0.0);
701 AliMatrix(idrotm[1116],90.0,252.0,90.0,342.0,180.0,0.0);
702 AliMatrix(idrotm[1117],90.0,288.0,90.0,18.0,0.0,0.0);
703 AliMatrix(idrotm[1118],90.0,288.0,90.0,18.0,180.0,0.0);
704 AliMatrix(idrotm[1130],90.0,324.0,90.0,54.0,0.0,0.0);
705
706 }
707
db915fea 708 // SDD
709
710 AliMatrix(idrotm[301],0.0,0.0,90.0,90.0,90.0,180.0);
711 AliMatrix(idrotm[302],0.0,0.0,90.0,90.0,90.0,0.0);
712 AliMatrix(idrotm[303],180.0,0.0,90.0,90.0,90.0,0.0);
713 AliMatrix(idrotm[304],180.0,0.0,90.0,90.0,90.0,180.0);
714 AliMatrix(idrotm[305],90.0,347.14,90.0,77.14,0.0,0.0);
715 AliMatrix(idrotm[306],90.0,321.43,90.0,51.43,0.0,0.0);
716 AliMatrix(idrotm[307],90.0,295.71,90.0,25.71,0.0,0.0);
717 AliMatrix(idrotm[308],90.0,244.29,90.0,334.29,0.0,0.0);
718 AliMatrix(idrotm[309],90.0,218.57,90.0,308.57,0.0,0.0);
719 AliMatrix(idrotm[310],90.0,167.14,90.0,257.14,0.0,0.0);
720 AliMatrix(idrotm[311],90.0,141.43,90.0,231.43,0.0,0.0);
721 AliMatrix(idrotm[312],90.0,0.0,0.0,0.0,90.0,270.0);
722 AliMatrix(idrotm[313],90.0,115.71,90.0,205.71,0.0,0.0);
723 AliMatrix(idrotm[314],90.0,335.45,90.0,65.45,0.0,0.0);
724 AliMatrix(idrotm[315],90.0,319.09,90.0,49.09,0.0,0.0);
725 AliMatrix(idrotm[316],90.0,302.73,90.0,32.73,0.0,0.0);
726 AliMatrix(idrotm[317],90.0,286.36,90.0,16.36,0.0,0.0);
727 AliMatrix(idrotm[318],90.0,270.0,90.0,360.0,0.0,0.0);
728 AliMatrix(idrotm[319],90.0,253.64,90.0,343.64,0.0,0.0);
729 AliMatrix(idrotm[320],90.0,237.27,90.0,327.27,0.0,0.0);
730 AliMatrix(idrotm[321],90.0,12.86,90.0,102.86,0.0,0.0);
731 AliMatrix(idrotm[322],90.0,220.91,90.0,310.91,0.0,0.0);
732 AliMatrix(idrotm[323],90.0,204.55,90.0,294.55,0.0,0.0);
733 AliMatrix(idrotm[324],90.0,188.18,90.0,278.18,0.0,0.0);
734 AliMatrix(idrotm[325],90.0,171.82,90.0,261.82,0.0,0.0);
735 AliMatrix(idrotm[326],90.0,155.45,90.0,245.45,0.0,0.0);
736 AliMatrix(idrotm[327],90.0,139.09,90.0,229.09,0.0,0.0);
737 AliMatrix(idrotm[328],90.0,122.73,90.0,212.73,0.0,0.0);
738 AliMatrix(idrotm[329],90.0,106.36,90.0,196.36,0.0,0.0);
739 AliMatrix(idrotm[330],90.0,73.64,90.0,163.64,0.0,0.0);
740 AliMatrix(idrotm[331],90.0,40.91,90.0,130.91,0.0,0.0);
741 AliMatrix(idrotm[332],90.0,24.55,90.0,114.55,0.0,0.0);
742 AliMatrix(idrotm[333],90.0,38.57,90.0,128.57,0.0,0.0);
743 AliMatrix(idrotm[334],90.0,351.82,90.0,81.82,0.0,0.0);
744 AliMatrix(idrotm[335],90.0,8.18,90.0,98.18,0.0,0.0);
745 AliMatrix(idrotm[336],90.0,64.29,90.0,154.29,0.0,0.0);
746 AliMatrix(idrotm[337],111.0,300.0,21.0,300.0,90.0,30.0);
747 AliMatrix(idrotm[338],69.0,240.0,159.0,240.0,90.0,150.0);
748 AliMatrix(idrotm[339],111.0,240.0,21.0,240.0,90.0,150.0);
749 AliMatrix(idrotm[340],69.0,300.0,159.0,300.0,90.0,30.0);
750 AliMatrix(idrotm[341],128.0,0.0,38.0,0.0,90.0,270.0);
751 AliMatrix(idrotm[342],90.0,240.0,180.0,0.0,90.0,330.);
752 AliMatrix(idrotm[343],90.0,120.0,180.0,0.0,90.0,210.0);
753 AliMatrix(idrotm[344],90.0,0.0,180.0,0.0,90.0,90.0);
754 AliMatrix(idrotm[345],90.0,180.0,90.0,90.0,0.0,0.0);
755 AliMatrix(idrotm[346],90.0,300.0,90.0,30.0,0.0,0.0);
756 AliMatrix(idrotm[347],90.0,240.0,90.0,150.0,0.0,0.0);
757 AliMatrix(idrotm[348],90.0,180.0,0.0,0.0,90.0,270.0);
758 AliMatrix(idrotm[349],90.0,235.0,90.0,145.0,0.0,0.0);
759 AliMatrix(idrotm[350],90.0,90.0,90.0,180.0,0.0,0.0);
760 AliMatrix(idrotm[351],90.0,305.0,90.0,35.0,0.0,0.0);
761 AliMatrix(idrotm[352],0.0,0.0,90.0,0.0,90.0,90.0);
762 AliMatrix(idrotm[353],90.0,60.0,90.0,150.0,0.0,0.0);
763 AliMatrix(idrotm[354],90.0,120.0,90.0,30.0,0.0,0.0);
764 AliMatrix(idrotm[355],90.0,180.0,90.0,90.0,180.0,0.0);
765 AliMatrix(idrotm[356],90.0,270.0,90.0,0.0,0.0,0.0);
766 AliMatrix(idrotm[366],90.0,57.27,90.0,147.27,0.0,0.0);
767 AliMatrix(idrotm[386],90.0,192.86,90.0,282.86,0.0,0.0);
768
769 // SSD
770
771 AliMatrix(idrotm[501],90.0,148.24,90.0,238.24,0.0,0.0);
772 AliMatrix(idrotm[503],90.0,137.65,90.0,227.65,0.0,0.0);
773 AliMatrix(idrotm[504],90.0,127.06,90.0,217.06,0.0,0.0);
774 AliMatrix(idrotm[505],90.0,116.47,90.0,206.47,0.0,0.0);
775 AliMatrix(idrotm[506],90.0,105.88,90.0,195.88,0.0,0.0);
776 AliMatrix(idrotm[507],90.0,95.29,90.0,185.29,0.0,0.0);
777 AliMatrix(idrotm[508],90.0,84.71,90.0,174.71,0.0,0.0);
778 AliMatrix(idrotm[509],90.0,74.12,90.0,164.12,0.0,0.0);
779 AliMatrix(idrotm[510],90.0,63.53,90.0,153.53,0.0,0.0);
780 AliMatrix(idrotm[511],90.0,52.94,90.0,142.94,0.0,0.0);
781 AliMatrix(idrotm[512],90.0,42.35,90.0,132.35,0.0,0.0);
782 AliMatrix(idrotm[513],90.0,31.76,90.0,121.76,0.0,0.0);
783 AliMatrix(idrotm[514],90.0,10.59,90.0,100.59,0.0,0.0);
784 AliMatrix(idrotm[515],90.0,349.41,90.0,79.41,0.0,0.0);
785 AliMatrix(idrotm[516],90.0,338.82,90.0,68.82,0.0,0.0);
786 AliMatrix(idrotm[517],90.0,328.24,90.0,58.24,0.0,0.0);
787 AliMatrix(idrotm[518],90.0,317.65,90.0,47.65,0.0,0.0);
788 AliMatrix(idrotm[519],90.0,307.06,90.0,37.06,0.0,0.0);
789 AliMatrix(idrotm[520],90.0,296.47,90.0,26.47,0.0,0.0);
790 AliMatrix(idrotm[521],90.0,285.88,90.0,15.88,0.0,0.0);
791 AliMatrix(idrotm[522],90.0,275.29,90.0,5.29,0.0,0.0);
792 AliMatrix(idrotm[523],90.0,264.71,90.0,354.71,0.0,0.0);
793 AliMatrix(idrotm[524],90.0,254.12,90.0,344.12,0.0,0.0);
794 AliMatrix(idrotm[525],90.0,243.53,90.0,333.53,0.0,0.0);
795 AliMatrix(idrotm[526],90.0,232.94,90.0,322.94,0.0,0.0);
796 AliMatrix(idrotm[527],90.0,222.35,90.0,312.35,0.0,0.0);
797 AliMatrix(idrotm[528],90.0,211.76,90.0,301.76,0.0,0.0);
798 AliMatrix(idrotm[529],90.0,190.59,90.0,280.59,0.0,0.0);
799 AliMatrix(idrotm[530],90.0,169.41,90.0,259.41,0.0,0.0);
800 AliMatrix(idrotm[531],90.0,158.82,90.0,248.82,0.0,0.0);
801 AliMatrix(idrotm[532],90.0,360.0,90.0,90.0,0.0,0.0);
802 AliMatrix(idrotm[533],90.0,180.0,90.0,270.0,0.0,0.0);
803 AliMatrix(idrotm[534],90.0,189.47,90.0,279.47,0.0,0.0);
9d2da7b3 804 AliMatrix(idrotm[535],90.0,198.95,90.0,288.95,0.0,0.0);
db915fea 805 AliMatrix(idrotm[537],90.0,217.89,90.0,307.89,0.0,0.0);
806 AliMatrix(idrotm[538],90.0,227.37,90.0,317.37,0.0,0.0);
807 AliMatrix(idrotm[539],90.0,236.84,90.0,326.84,0.0,0.0);
808 AliMatrix(idrotm[540],90.0,246.32,90.0,336.32,0.0,0.0);
809 AliMatrix(idrotm[541],90.0,255.79,90.0,345.79,0.0,0.0);
810 AliMatrix(idrotm[542],90.0,265.26,90.0,355.26,0.0,0.0);
811 AliMatrix(idrotm[543],90.0,274.74,90.0,4.74,0.0,0.0);
812 AliMatrix(idrotm[544],90.0,284.21,90.0,14.21,0.0,0.0);
813 AliMatrix(idrotm[545],90.0,293.68,90.0,23.68,0.0,0.0);
814 AliMatrix(idrotm[546],90.0,303.16,90.0,33.16,0.0,0.0);
815 AliMatrix(idrotm[547],90.0,312.63,90.0,42.63,0.0,0.0);
816 AliMatrix(idrotm[548],90.0,322.11,90.0,52.11,0.0,0.0);
817 AliMatrix(idrotm[549],90.0,331.58,90.0,61.58,0.0,0.0);
818 AliMatrix(idrotm[550],90.0,341.05,90.0,71.05,0.0,0.0);
819 AliMatrix(idrotm[551],90.0,350.53,90.0,80.53,0.0,0.0);
820 AliMatrix(idrotm[552],90.0,9.47,90.0,99.47,0.0,0.0);
9d2da7b3 821 AliMatrix(idrotm[553],90.0,18.95,90.0,108.95,0.0,0.0);
db915fea 822 AliMatrix(idrotm[555],90.0,37.89,90.0,127.89,0.0,0.0);
823 AliMatrix(idrotm[556],90.0,47.37,90.0,137.37,0.0,0.0);
824 AliMatrix(idrotm[557],90.0,56.84,90.0,146.84,0.0,0.0);
825 AliMatrix(idrotm[558],90.0,66.32,90.0,156.32,0.0,0.0);
826 AliMatrix(idrotm[559],90.0,75.79,90.0,165.79,0.0,0.0);
827 AliMatrix(idrotm[560],90.0,85.26,90.0,175.26,0.0,0.0);
828 AliMatrix(idrotm[561],90.0,94.74,90.0,184.74,0.0,0.0);
829 AliMatrix(idrotm[562],90.0,104.21,90.0,194.21,0.0,0.0);
830 AliMatrix(idrotm[563],90.0,113.68,90.0,203.68,0.0,0.0);
831 AliMatrix(idrotm[564],90.0,123.16,90.0,213.16,0.0,0.0);
832 AliMatrix(idrotm[565],90.0,132.63,90.0,222.63,0.0,0.0);
833 AliMatrix(idrotm[566],90.0,142.11,90.0,232.11,0.0,0.0);
834 AliMatrix(idrotm[567],90.0,151.58,90.0,241.58,0.0,0.0);
835 AliMatrix(idrotm[568],90.0,161.05,90.0,251.05,0.0,0.0);
836 AliMatrix(idrotm[569],90.0,170.53,90.0,260.53,0.0,0.0);
837 AliMatrix(idrotm[570],90.0,180.0,90.0,90.0,180.0,0.0);
838 AliMatrix(idrotm[571],90.0,0.0,0.0,0.0,90.0,270.0);
839 AliMatrix(idrotm[572],90.0,180.0,0.0,0.0,90.0,270.0);
840 AliMatrix(idrotm[573],90.0,180.0,90.0,90.0,0.0,0.0);
841 AliMatrix(idrotm[575],90.0,120.0,180.0,0.0,90.0,210.0);
842 AliMatrix(idrotm[576],65.71,300.0,90.0,30.0,24.29,120.0);
843 AliMatrix(idrotm[577],114.29,300.0,90.0,30.0,155.71,120.0);
844 AliMatrix(idrotm[579],65.71,240.0,90.0,150.0,24.29,60.0);
845 AliMatrix(idrotm[580],114.29,240.0,90.0,150.0,155.71,60.0);
846 AliMatrix(idrotm[581],90.0,240.0,180.0,0.0,90.0,330.0);
847 AliMatrix(idrotm[583],90.0,0.0,180.0,0.0,90.0,90.0);
848 AliMatrix(idrotm[584],90.0,180.0,180.0,0.0,90.0,90.0);
849 AliMatrix(idrotm[586],180.0,0.0,90.0,90.0,90.0,0.0);
850 AliMatrix(idrotm[618],90.0,201.18,90.0,291.18,0.0,0.0);
851 AliMatrix(idrotm[620],90.0,28.42,90.0,118.42,0.0,0.0);
852 AliMatrix(idrotm[623],90.0,208.42,90.0,298.42,0.0,0.0);
853 AliMatrix(idrotm[633],132.46,0.0,90.0,90.0,42.46,360.0);
854 AliMatrix(idrotm[653],90.0,21.18,90.0,111.18,0.0,0.0);
855
9d2da7b3 856
857 // SDD cone
858
859 AliMatrix(idrotm[846],90.0,300.0,90.0,30.0,0.0,0.0);
860 AliMatrix(idrotm[851],90.0,305.0,90.0,35.0,0.0,0.0);
861 AliMatrix(idrotm[853],90.0,60.0,90.0,150.0,0.0,0.0);
862 AliMatrix(idrotm[856],90.0,0.0,90.0,90.0,180.0,0.0);
863 AliMatrix(idrotm[857],90.0,5.0,90.0,95.0,180.0,0.0);
864 AliMatrix(idrotm[858],90.0,65.0,90.0,155.0,180.0,0.0);
865 AliMatrix(idrotm[859],90.0,305.0,90.0,35.0,180.0,0.0);
866 AliMatrix(idrotm[860],90.0,245.0,90.0,335.0,180.0,0.0);
867 AliMatrix(idrotm[861],90.0,185.0,90.0,275.0,180.0,0.0);
868 AliMatrix(idrotm[862],90.0,125.0,90.0,215.0,180.0,0.0);
869 AliMatrix(idrotm[863],90.0,257.5,90.0,347.5,180.0,0.0);
870 AliMatrix(idrotm[864],90.0,227.5,90.0,317.5,180.0,0.0);
871 AliMatrix(idrotm[865],90.0,197.5,90.0,287.5,180.0,0.0);
872 AliMatrix(idrotm[867],90.0,167.5,90.0,257.5,180.0,0.0);
873 AliMatrix(idrotm[868],90.0,287.5,90.0,17.5,0.0,0.0);
874 AliMatrix(idrotm[869],90.0,137.5,90.0,227.5,180.0,0.0);
875 AliMatrix(idrotm[870],90.0,107.5,90.0,197.5,180.0,0.0);
876 AliMatrix(idrotm[871],90.0,77.5,90.0,167.5,180.0,0.0);
877 AliMatrix(idrotm[872],90.0,47.5,90.0,137.5,180.0,0.0);
878 AliMatrix(idrotm[873],90.0,17.5,90.0,107.5,180.0,0.0);
879 AliMatrix(idrotm[874],90.0,347.5,90.0,77.5,180.0,0.0);
880 AliMatrix(idrotm[875],90.0,317.5,90.0,47.5,180.0,0.0);
881 AliMatrix(idrotm[876],90.0,287.5,90.0,17.5,180.0,0.0);
882 AliMatrix(idrotm[877],90.0,185.0,90.0,275.0,0.0,0.0);
883 AliMatrix(idrotm[878],90.0,180.0,90.0,270.0,0.0,0.0);
884 AliMatrix(idrotm[879],90.0,125.0,90.0,215.0,0.0,0.0);
885 AliMatrix(idrotm[880],90.0,65.0,90.0,155.0,0.0,0.0);
886 AliMatrix(idrotm[881],90.0,5.0,90.0,95.0,0.0,0.0);
887 AliMatrix(idrotm[882],90.0,245.0,90.0,335.0,0.0,0.0);
888 AliMatrix(idrotm[883],90.0,47.5,90.0,137.5,0.0,0.0);
889 AliMatrix(idrotm[884],90.0,77.5,90.0,167.5,0.0,0.0);
890 AliMatrix(idrotm[885],90.0,107.5,90.0,197.5,0.0,0.0);
891 AliMatrix(idrotm[887],90.0,137.5,90.0,227.5,0.0,0.0);
892 AliMatrix(idrotm[888],90.0,167.5,90.0,257.5,0.0,0.0);
893 AliMatrix(idrotm[889],90.0,197.5,90.0,287.5,0.0,0.0);
894 AliMatrix(idrotm[890],90.0,227.5,90.0,317.5,0.0,0.0);
895 AliMatrix(idrotm[891],90.0,347.5,90.0,77.5,0.0,0.0);
896 AliMatrix(idrotm[892],90.0,317.5,90.0,47.5,0.0,0.0);
897 AliMatrix(idrotm[893],90.0,257.5,90.0,347.5,0.0,0.0);
898 AliMatrix(idrotm[894],90.0,270.0,0.0,0.0,90.0,180.0);
899 AliMatrix(idrotm[895],90.0,286.36,0.0,0.0,90.0,196.36);
900 AliMatrix(idrotm[896],90.0,302.73,0.0,0.0,90.0,212.73);
901 AliMatrix(idrotm[897],90.0,319.09,0.0,0.0,90.0,229.09);
902 AliMatrix(idrotm[898],90.0,17.5,90.0,107.5,0.0,0.0);
903 AliMatrix(idrotm[899],90.0,335.45,0.0,0.0,90.0,245.45);
904 AliMatrix(idrotm[900],90.0,351.82,0.0,0.0,90.0,261.82);
905 AliMatrix(idrotm[901],90.0,8.18,0.0,0.0,90.0,278.18);
906 AliMatrix(idrotm[902],90.0,24.55,0.0,0.0,90.0,294.55);
907 AliMatrix(idrotm[903],90.0,40.91,0.0,0.0,90.0,310.91);
908 AliMatrix(idrotm[904],90.0,57.27,0.0,0.0,90.0,327.27);
909 AliMatrix(idrotm[905],90.0,73.64,0.0,0.0,90.0,343.64);
910 AliMatrix(idrotm[906],90.0,90.0,0.0,0.0,90.0,360.0);
911 AliMatrix(idrotm[907],90.0,106.36,0.0,0.0,90.0,16.36);
912 AliMatrix(idrotm[908],90.0,122.73,0.0,0.0,90.0,32.73);
913 AliMatrix(idrotm[909],90.0,139.09,0.0,0.0,90.0,49.09);
914 AliMatrix(idrotm[910],90.0,155.45,0.0,0.0,90.0,65.45);
915 AliMatrix(idrotm[911],90.0,171.82,0.0,0.0,90.0,81.82);
916 AliMatrix(idrotm[912],90.0,188.18,0.0,0.0,90.0,98.18);
917 AliMatrix(idrotm[913],90.0,204.55,0.0,0.0,90.0,114.55);
918 AliMatrix(idrotm[914],90.0,220.91,0.0,0.0,90.0,130.91);
919 AliMatrix(idrotm[915],90.0,237.27,0.0,0.0,90.0,147.27);
920 AliMatrix(idrotm[916],90.0,253.64,0.0,0.0,90.0,163.64);
921 AliMatrix(idrotm[917],90.0,295.71,0.0,0.0,90.0,205.71);
922 AliMatrix(idrotm[918],90.0,321.43,0.0,0.0,90.0,231.43);
923 AliMatrix(idrotm[919],90.0,347.14,0.0,0.0,90.0,257.14);
924 AliMatrix(idrotm[920],90.0,12.86,0.0,0.0,90.0,282.86);
925 AliMatrix(idrotm[921],90.0,38.57,0.0,0.0,90.0,308.57);
926 AliMatrix(idrotm[922],90.0,64.29,0.0,0.0,90.0,334.29);
927 AliMatrix(idrotm[923],90.0,115.71,0.0,0.0,90.0,25.71);
928 AliMatrix(idrotm[924],90.0,141.43,0.0,0.0,90.0,51.43);
929 AliMatrix(idrotm[925],90.0,167.14,0.0,0.0,90.0,77.14);
930 AliMatrix(idrotm[926],90.0,192.86,0.0,0.0,90.0,102.86);
931 AliMatrix(idrotm[927],90.0,218.57,0.0,0.0,90.0,128.57);
932 AliMatrix(idrotm[928],90.0,244.29,0.0,0.0,90.0,154.29);
933 AliMatrix(idrotm[929],90.0,120.0,90.0,210.0,0.0,0.0);
934 AliMatrix(idrotm[930],90.0,240.0,90.0,330.0,0.0,0.0);
935 AliMatrix(idrotm[931],90.0,60.0,90.0,150.0,180.0,0.0);
936 AliMatrix(idrotm[932],90.0,120.0,90.0,210.0,180.0,0.0);
937 AliMatrix(idrotm[933],90.0,180.0,90.0,270.0,180.0,0.0);
938 AliMatrix(idrotm[934],90.0,240.0,90.0,330.0,180.0,0.0);
939 AliMatrix(idrotm[935],90.0,300.0,90.0,30.0,180.0,0.0);
940
941 // SSD cone
942
943 AliMatrix(idrotm[701],90.0,0.0,90.0,90.0,180.0,0.0);
944 AliMatrix(idrotm[702],90.0,347.5,90.0,77.5,180.0,0.0);
945 AliMatrix(idrotm[703],90.0,17.5,90.0,107.5,180.0,0.0);
946 AliMatrix(idrotm[704],90.0,47.5,90.0,137.5,180.0,0.0);
947 AliMatrix(idrotm[705],90.0,77.5,90.0,167.5,180.0,0.0);
948 AliMatrix(idrotm[706],90.0,107.5,90.0,197.5,180.0,0.0);
949 AliMatrix(idrotm[707],90.0,137.5,90.0,227.5,180.0,0.0);
950 AliMatrix(idrotm[708],90.0,167.5,90.0,257.5,180.0,0.0);
951 AliMatrix(idrotm[709],90.0,197.5,90.0,287.5,180.0,0.0);
952 AliMatrix(idrotm[710],90.0,227.5,90.0,317.5,180.0,0.0);
953 AliMatrix(idrotm[711],90.0,257.5,90.0,347.5,180.0,0.0);
954 AliMatrix(idrotm[712],90.0,287.5,90.0,17.5,180.0,0.0);
955 AliMatrix(idrotm[713],90.0,317.5,90.0,47.5,180.0,0.0);
956 AliMatrix(idrotm[714],90.0,328.4,90.0,58.4,180.0,0.0);
957 AliMatrix(idrotm[715],90.0,28.4,90.0,118.4,180.0,0.0);
958 AliMatrix(idrotm[716],90.0,88.4,90.0,178.4,180.0,0.0);
959 AliMatrix(idrotm[717],90.0,148.4,90.0,238.4,180.0,0.0);
960 AliMatrix(idrotm[718],90.0,208.4,90.0,298.4,180.0,0.0);
961 AliMatrix(idrotm[719],90.0,268.4,90.0,358.4,180.0,0.0);
962 AliMatrix(idrotm[720],90.0,28.4,90.0,118.4,0.0,0.0);
963 AliMatrix(idrotm[721],90.0,88.4,90.0,178.4,0.0,0.0);
964 AliMatrix(idrotm[722],90.0,148.4,90.0,238.4,0.0,0.0);
965 AliMatrix(idrotm[723],90.0,208.4,90.0,298.4,0.0,0.0);
966 AliMatrix(idrotm[724],90.0,268.4,90.0,358.4,0.0,0.0);
967 AliMatrix(idrotm[725],90.0,328.4,90.0,58.4,0.0,0.0);
968 AliMatrix(idrotm[726],90.0,77.5,90.0,167.5,0.0,0.0);
969 AliMatrix(idrotm[727],90.0,107.5,90.0,197.5,0.0,0.0);
970 AliMatrix(idrotm[728],90.0,137.5,90.0,227.5,0.0,0.0);
971 AliMatrix(idrotm[729],90.0,167.5,90.0,257.5,0.0,0.0);
972 AliMatrix(idrotm[730],90.0,227.5,90.0,317.5,0.0,0.0);
973 AliMatrix(idrotm[731],90.0,257.5,90.0,347.5,0.0,0.0);
974 AliMatrix(idrotm[732],90.0,317.5,90.0,47.5,0.0,0.0);
975 AliMatrix(idrotm[733],90.0,197.5,90.0,287.5,0.0,0.0);
976 AliMatrix(idrotm[734],90.0,347.5,90.0,77.5,0.0,0.0);
977 AliMatrix(idrotm[735],90.0,47.5,90.0,137.5,0.0,0.0);
978 AliMatrix(idrotm[768],90.0,287.5,90.0,17.5,0.0,0.0);
979 AliMatrix(idrotm[798],90.0,17.5,90.0,107.5,0.0,0.0);
980
981 // Services
982
983 AliMatrix(idrotm[200], 90., 0., 90., 90., 180., 0.);
db915fea 984
985
986 // CONVERT INTO CM (RL(SI)=9.36 CM)
9d2da7b3 987
db915fea 988 for (i = 0; i < 6; ++i) {
989 drl[i] = drl[i] / 100. * 9.36;
990 }
991
992 // FIELD CAGE HALF LENGTH
993
1e9111db 994 rlim = 50.;
e4f08ac3 995 zmax = 74.;
996 ztpc = 284.;
9d2da7b3 997
db915fea 998 // --- Define ghost volume containing the whole ITS (including services)
999 // and fill it with air
1000
1001 dgh[0] = 0.;
1002 dgh[1] = 360.;
6d62fed9 1003 dgh[2] = 16.;
e4f08ac3 1004 dgh[3] = -ztpc-5.-0.1;
1005 dgh[4] = 62.4;
db915fea 1006 dgh[5] = 85.;
e4f08ac3 1007 dgh[6] = -ztpc;
1008 dgh[7] = 62;
db915fea 1009 dgh[8] = 85.;
e4f08ac3 1010 dgh[9] = -ztpc;
1011 dgh[10] = 62;
1012 dgh[11] = 62+4.;
1013 dgh[12] = -97.5;
1014 dgh[13] = 46;
1e9111db 1015 dgh[14] = rlim+6;
e4f08ac3 1016 dgh[15] = -zmax;
1017 dgh[16] = 46;
1e9111db 1018 dgh[17] = rlim+6;
e4f08ac3 1019 dgh[18] = -48;
6d62fed9 1020 dgh[19] = 6;
1e9111db 1021 dgh[20] = rlim+6;
e4f08ac3 1022 dgh[21] = -28.6;
6d62fed9 1023 dgh[22] = 6;
1e9111db 1024 dgh[23] = rlim+6;
e4f08ac3 1025 dgh[24] = -27.6;
6d62fed9 1026 dgh[25] = 3.295;
1e9111db 1027 dgh[26] = rlim+6;
e4f08ac3 1028 dgh[27] = 27.6;
6d62fed9 1029 dgh[28] = 3.295;
1e9111db 1030 dgh[29] = rlim+6;
e4f08ac3 1031 dgh[30] = 28.6;
6d62fed9 1032 dgh[31] = 6;
1e9111db 1033 dgh[32] = rlim+6;
e4f08ac3 1034 dgh[33] = 48;
6d62fed9 1035 dgh[34] = 6;
1e9111db 1036 dgh[35] = rlim+6;
e4f08ac3 1037 dgh[36] = zmax;
6d62fed9 1038 dgh[37] = 46;
1e9111db 1039 dgh[38] = rlim+6;
e4f08ac3 1040 dgh[39] = 97.5;
1041 dgh[40] = 46;
1e9111db 1042 dgh[41] = rlim+6;
e4f08ac3 1043 dgh[42] = ztpc;
1044 dgh[43] = 62;
1045 dgh[44] = 62+4.;
1046 dgh[45] = ztpc;
1047 dgh[46] = 62;
6d62fed9 1048 dgh[47] = 85.;
e4f08ac3 1049 dgh[48] = ztpc+4.+0.1;
6d62fed9 1050 dgh[49] = 62.4;
1051 dgh[50] = 85.;
1052 gMC->Gsvolu("ITSV", "PCON", idtmed[205], dgh, 51);
45725ec9 1053
6d62fed9 1054
db915fea 1055
1056 // --- Place the ghost volume in its mother volume (ALIC) and make it
1057 // invisible
1058
1059 gMC->Gspos("ITSV", 1, "ALIC", 0., 0., 0., 0, "ONLY");
1060 //gMC->Gsatt("ITSV", "SEEN", 0);
9d2da7b3 1061
1062
db915fea 1063 // --- Define ghost volume containing the six layers and fill it with air
1064
1065 dgh[0] = 0.;
1066 dgh[1] = 360.;
6d62fed9 1067 dgh[2] = 8.;
e4f08ac3 1068 dgh[3] = -zmax;
45725ec9 1069 dgh[4] = 46.;
e4f08ac3 1070 dgh[5] = rlim;
1071 dgh[6] = -47.5;
6d62fed9 1072 dgh[7] = 6.005;
e4f08ac3 1073 dgh[8] = rlim;
1074 dgh[9] = -28.5;
6d62fed9 1075 dgh[10] = 6.005;
e4f08ac3 1076 dgh[11] = rlim;
1077 dgh[12] = -27.5;
6d62fed9 1078 dgh[13] = 3.3;
e4f08ac3 1079 dgh[14] = rlim;
1080 dgh[15] = 27.5;
6d62fed9 1081 dgh[16] = 3.3;
e4f08ac3 1082 dgh[17] = rlim;
1083 dgh[18] = 28.5;
6d62fed9 1084 dgh[19] = 6.005;
e4f08ac3 1085 dgh[20] = rlim;
1086 dgh[21] = 47.5;
6d62fed9 1087 dgh[22] = 6.005;
e4f08ac3 1088 dgh[23] = rlim;
1089 dgh[24] = zmax;
6d62fed9 1090 dgh[25] = 46.;
e4f08ac3 1091 dgh[26] = rlim;
6d62fed9 1092 gMC->Gsvolu("ITSD", "PCON", idtmed[205], dgh, 27);
db915fea 1093
9d2da7b3 1094 // --- Place the ghost volume in its mother volume (ITSV) and make it
db915fea 1095 // invisible
1096
1097 gMC->Gspos("ITSD", 1, "ITSV", 0., 0., 0., 0, "ONLY");
1098 //gMC->Gsatt("ITSD", "SEEN", 0);
db915fea 1099
9d2da7b3 1100 // --- Define SPD (option 'a') volumes ----------------------------
1101
1102 // SPD - option 'a'
1103 // (this is NOT the default)
1104
1105 if (option == 1) {
1106
1107 dits[0] = 3.7;
1108 dits[1] = 7.75;
45725ec9 1109 dits[2] = 26.1;
9d2da7b3 1110 gMC->Gsvolu("IT12", "TUBE", idtmed[254], dits, 3);
1111
1112 dits[0] = 3.7;
1113 dits[1] = 7.7;
1114 dits[2] = 24;
1115 dits[3] = 57;
1116 dits[4] = 100;
1117 gMC->Gsvolu("I12A", "TUBS", idtmed[254], dits, 5); // sector
1118
1119 di10a[0] = 0.843;
1120 di10a[1] = ddet1+dchip1+dbus+0.0025;
1121 di10a[2] = 19.344;
1122 gMC->Gsvolu("I10A", "BOX ", idtmed[254], di10a, 3); // mother volume
1123 // on layer 1
1124 di20a[0] = 0.843;
1125 di20a[1] = ddet2+dchip2+dbus+0.0025;
1126 di20a[2] = 19.344;
1127 gMC->Gsvolu("I20A", "BOX ", idtmed[254], di20a, 3); // mother volume
1128 // on layer 2
1129 dits[0] = 1.3673;
1130 dits[1] = 0.01;
1131 dits[2] = 24;
1132 gMC->Gsvolu("I123", "BOX ", idtmed[253], dits, 3);
1133
1134 dits[0] = 0.06;
1135 dits[1] = 0.08;
1136 dits[2] = 24;
1137 dits[3] = -36.79;
1138 dits[4] = 21.834;
1139 gMC->Gsvolu("I121", "TUBS", idtmed[253], dits, 5);
1140
1141 dits[0] = 0.1253;
1142 dits[1] = 0.01;
1143 dits[2] = 24;
1144 gMC->Gsvolu("I122", "BOX ", idtmed[253], dits, 3);
1145
1146 dits[0] = 0.04;
1147 dits[1] = 0.06 ;
1148 dits[2] = 24;
1149 dits[3] = 126.79;
1150 dits[4] = 270;
1151 gMC->Gsvolu("I120", "TUBS", idtmed[253], dits, 5);
1152
1153 dits[0] = 0.1134;
1154 dits[1] = 0.01;
1155 dits[2] = 24;
1156 gMC->Gsvolu("I144", "BOX ", idtmed[253], dits, 3);
1157
1158 dits[0] = 0.25;
1159 dits[1] = 0.06;
1160 dits[2] = 24;
1161 gMC->Gsvolu("I113", "BOX ", idtmed[254], dits, 3);
1162
1163 dits[0] = 0.077;
1164 dits[1] = 0.01;
1165 dits[2] = 24;
1166 gMC->Gsvolu("I143", "BOX ", idtmed[253], dits, 3);
1167
1168 dits[0] = 0.04;
1169 dits[1] = 0.06;
1170 dits[2] = 24;
1171 dits[3] = 0;
1172 dits[4] = 90;
1173 gMC->Gsvolu("I142", "TUBS", idtmed[253], dits, 5);
1174
1175 dits[0] = 0.0695;
1176 dits[1] = 0.01;
1177 dits[2] = 24;
1178 gMC->Gsvolu("I141", "BOX ", idtmed[253], dits, 3);
1179
1180 dits[0] = 0.06;
1181 dits[1] = 0.08;
1182 dits[2] = 24;
1183 dits[3] = 0;
1184 dits[4] = 108;
1185 gMC->Gsvolu("I140", "TUBS", idtmed[253], dits, 5);
1186
1187 dits[0] = 0.1835;
1188 dits[1] = 0.01;
1189 dits[2] = 24;
1190 gMC->Gsvolu("I139", "BOX ", idtmed[253], dits, 3);
1191
1192 dits[0] = 0.1894 ;
1193 dits[1] = 0.01;
1194 dits[2] = 24;
1195 gMC->Gsvolu("I138", "BOX ", idtmed[253], dits, 3);
1196
1197 dits[0] = 0.04;
1198 dits[1] = 0.06;
1199 dits[2] = 24;
1200 dits[3] = 0;
1201 dits[4] = 75.261;
1202 gMC->Gsvolu("I137", "TUBS", idtmed[253], dits, 5);
1203
1204 dits[0] = 1.3401;
1205 dits[1] = 0.01;
1206 dits[2] = 24;
1207 gMC->Gsvolu("I136", "BOX ", idtmed[253], dits, 3);
1208
1209 dits[0] = 0.05;
1210 dits[1] = 0.07;
1211 dits[2] = 24;
1212 dits[3] = 0;
1213 dits[4] = 72.739;
1214 gMC->Gsvolu("I135", "TUBS", idtmed[253], dits, 5);
1215
1216 dits[0] = 0.1193;
1217 dits[1] = 0.01;
1218 dits[2] = 24;
1219 gMC->Gsvolu("I134", "BOX ", idtmed[253], dits, 3);
1220
1221 dits[0] = 0.163;
1222 dits[1] = 0.01;
1223 dits[2] = 24;
1224 gMC->Gsvolu("I133", "BOX ", idtmed[253], dits, 3);
1225
1226 dits[0] = 0.04;
1227 dits[1] = 0.06;
1228 dits[2] = 24;
1229 dits[3] = 0;
1230 dits[4] = 157.633;
1231 gMC->Gsvolu("I132", "TUBS", idtmed[253], dits, 5);
1232
1233 dits[0] = 0.2497;
1234 dits[1] = 0.01;
1235 dits[2] = 24;
1236 gMC->Gsvolu("I131", "BOX ", idtmed[253], dits, 3);
1237
1238 dits[0] = 0.06;
1239 dits[1] = 0.08;
1240 dits[2] = 24;
1241 dits[3] = 0;
1242 dits[4] = 148.633;
1243 gMC->Gsvolu("I130", "TUBS", idtmed[253], dits, 5);
1244
1245 dits[0] = 0.292;
1246 dits[1] = 0.01;
1247 dits[2] = 24;
1248 gMC->Gsvolu("I129", "BOX ", idtmed[253], dits, 3);
1249
1250 dits[0] = 0.163;
1251 dits[1] = 0.01;
1252 dits[2] = 24;
1253 gMC->Gsvolu("I128", "BOX ", idtmed[253], dits, 3);
1254
1255 dits[0] = 0.04;
1256 dits[1] = 0.06;
1257 dits[2] = 24;
1258 dits[3] = 0;
1259 dits[4] = 161.297;
1260 gMC->Gsvolu("I126", "TUBS", idtmed[253], dits, 5);
1261
1262 dits[0] = 0.2433;
1263 dits[1] = 0.01;
1264 dits[2] = 24;
1265 gMC->Gsvolu("I125", "BOX ", idtmed[253], dits, 3);
1266
1267 dits[0] = 0.06;
1268 dits[1] = 0.08;
1269 dits[2] = 24;
1270 dits[3] = 0;
1271 dits[4] = 42.883;
1272 gMC->Gsvolu("I124", "TUBS", idtmed[253], dits, 5);
1273
1274 di103[0] = 0.793;
1275 di103[1] = ddet1+dchip1;
1276 di103[2] = 3.536;
1277 gMC->Gsvolu("I103", "BOX ", idtmed[254], di103, 3); // contains det and chip
1278 // layer 1
1279 dits[0] = 0.793;
fc44ab90 1280 dits[1] = 0.475; //0.685; 0.015
9d2da7b3 1281 dits[2] = 2.5;
fc44ab90 1282 gMC->Gsvolu("I105", "BOX ", idtmed[290], dits, 3);
9d2da7b3 1283
1284 di104[0] = 0.843;
1285 di104[1] = dbus;
1286 di104[2] = 14.344;
1287 gMC->Gsvolu("I104", "BOX ", idtmed[275], di104, 3); // bus for both layers
1288
1289 di1d3[0] = 0.793;
1290 di1d3[1] = ddet2+dchip2;
1291 di1d3[2] = 3.536;
1292 gMC->Gsvolu("I1D3", "BOX ", idtmed[254], di1d3, 3); // contains det and chip
1293 // layer 2
1294 dits[0] = 0.793;
1295 dits[0] = 0.06;
1296 dits[1] = 0.08;
1297 dits[2] = 24;
1298 dits[3] = 0;
1299 dits[4] = 80;
1300 gMC->Gsvolu("I112", "TUBS", idtmed[253], dits, 5);
1301
1302 dits[0] = 0.04;
1303 dits[1] = 0.06;
1304 dits[2] = 24;
1305 dits[3] = 0;
1306 dits[4] = 80;
1307 gMC->Gsvolu("I111", "TUBS", idtmed[253], dits, 5);
1308
1309 dits[0] = 0.15;
1310 dits[1] = 0.0146;
1311 dits[2] = 24;
1312 gMC->Gsvolu("I118", "BOX ", idtmed[273], dits, 3);
1313
1314 dits[0] = 0.1315;
1315 dits[1] = 0.01;
1316 dits[2] = 24;
1317 gMC->Gsvolu("I110", "BOX ", idtmed[253], dits, 3);
1318
1319 dits[0] = 0.025;
1320 dits[1] = 0.035;
1321 dits[2] = 24;
1322 dits[3] = 0;
1323 dits[4] = 180;
1324 gMC->Gsvolu("I114", "TUBS", idtmed[264], dits, 5);
1325
e4f08ac3 1326 if (fluid == 1) {
1327 dits[0] = 0;
1328 dits[1] = 0.025;
1329 dits[2] = 24;
1330 dits[3] = 0;
1331 dits[4] = 180;
1332 gMC->Gsvolu("I115", "TUBS", idtmed[211], dits, 5); // set water as cooling fluid
1333 } else {
1334 dits[0] = 0;
1335 dits[1] = 0.025;
1336 dits[2] = 24;
1337 dits[3] = 0;
1338 dits[4] = 180;
1339 gMC->Gsvolu("I115", "TUBS", idtmed[212], dits, 5); // set freon as cooling fluid
1340 }
1341
9d2da7b3 1342 dits[0] = 0.063;
1343 dits[1] = 0.035;
1344 dits[2] = 24;
1345 gMC->Gsvolu("I116", "BOX ", idtmed[264], dits, 3);
1346
1347 di102[0] = 0.793;
1348 di102[1] = dchip1;
1349 di102[2] = 0.68;
1350 gMC->Gsvolu("I102", "BOX ", idtmed[201], di102, 3); // chip layer 1
1351
1352 di1d2[0] = 0.793;
1353 di1d2[1] = dchip2;
1354 di1d2[2] = 0.68;
1355 gMC->Gsvolu("I1D2", "BOX ", idtmed[201], di1d2, 3); // chip layer 2
1356
1357 di101[0] = 0.705;
1358 di101[1] = ddet1;
1359 di101[2] = 3.536;
1360 gMC->Gsvolu("I101", "BOX ", idtmed[250], di101, 3); // contains detector
1361 // layer 1
1362 di1d1[0] = 0.705;
1363 di1d1[1] = ddet2;
1364 di1d1[2] = 3.536;
1365 gMC->Gsvolu("I1D1", "BOX ", idtmed[250], di1d1, 3); // contains detector
1366 // layer 2
e4f08ac3 1367 if (fluid == 1) {
1368 dits[0] = 0.063;
1369 dits[1] = 0.025;
1370 dits[2] = 24;
1371 gMC->Gsvolu("I117", "BOX ", idtmed[211], dits, 3); // set water as cooling fuid
1372 } else {
1373 dits[0] = 0.063;
1374 dits[1] = 0.025;
1375 dits[2] = 24;
1376 gMC->Gsvolu("I117", "BOX ", idtmed[212], dits, 3); // set freon as cooling fluid
1377 }
9d2da7b3 1378
1379 dits1[0] = 0.64;
1380 dits1[1] = ddet1;
1381 dits1[2] = 3.48;
1382 gMC->Gsvolu("ITS1", "BOX ", idtmed[200], dits1, 3); // detector layer 1
1383
1384 dits2[0] = 0.64;
1385 dits2[1] = ddet2;
1386 dits2[2] = 3.48;
1387 gMC->Gsvolu("ITS2", "BOX ", idtmed[200], dits2, 3); // detector layer 2
1388
1389 dits[0] = 3.701;
1390 dits[1] = 7.699;
1391 dits[2] = 4;
1392 dits[3] = 57.1;
1393 dits[4] = 99.9;
1394 gMC->Gsvolu("I650", "TUBS", idtmed[254], dits, 5); // was I150 in old geom.
1395
1396 dits[0] = 0;
1397 dits[1] = 0.5;
1398 dits[2] = 1.5;
1399 gMC->Gsvolu("I676", "TUBE", idtmed[274], dits, 3); // was I176 in old geom.
1400
1401 dits[0] = 0;
1402 dits[1] = 0.18;
1403 dits[2] = 0.8;
1404 gMC->Gsvolu("I673", "TUBE", idtmed[274], dits, 3); // was I173 in old geom.
1405
1406 dits[0] = 0;
1407 dits[1] = 0.18;
1408 dits[2] = 3;
1409 gMC->Gsvolu("I671", "TUBE", idtmed[274], dits, 3); // was I171 in old geom.
1410
1411 dits[0] = 0;
1412 dits[1] = 0.075;
1413 dits[2] = 0.8;
1414 gMC->Gsvolu("I669", "TUBE", idtmed[264], dits, 3); // was I169 in old geom.
1415
1416 dits[0] = 3.5;
1417 dits[1] = 5.6;
1418 dits[2] = 0.55;
1419 dits[3] = 0;
1420 dits[4] = 38;
1421 gMC->Gsvolu("I667", "TUBS", idtmed[263], dits, 5); // was I167 in old geom.
1422
1423 dits[0] = 6.6;
1424 dits[1] = 7.6;
1425 dits[2] = 0.5;
1426 dits[3] = 0;
1427 dits[4] = 9;
1428 gMC->Gsvolu("I666", "TUBS", idtmed[263], dits, 5); // was I166 in old geom.
1429
1430 dits[0] = 0.26;
1431 dits[1] = 0.32;
1432 dits[2] = 0.55;
1433 gMC->Gsvolu("I678", "TUBE", idtmed[263], dits, 3); // was I178 in old geom.
1434
e4f08ac3 1435 if (fluid == 1) {
1436 dits[0] = 0;
1437 dits[1] = 0.3;
1438 dits[2] = 1.5;
1439 gMC->Gsvolu("I677", "TUBE", idtmed[211], dits, 3); // set water as cooling fluid
1440 // was I177 in old geom.
1441 } else {
1442 dits[0] = 0;
1443 dits[1] = 0.3;
1444 dits[2] = 1.5;
1445 gMC->Gsvolu("I677", "TUBE", idtmed[212], dits, 3); // set freon as cooling fluid
1446 // was I177 in old geom.
1447 }
1448
9d2da7b3 1449 dits[0] = 0.07;
1450 dits[1] = 0.125;
1451 dits[2] = 0.3;
1452 gMC->Gsvolu("I675", "TUBE", idtmed[263], dits, 3); // was I175 in old geom.
1453
e4f08ac3 1454 if (fluid == 1) {
1455 dits[0] = 0;
1456 dits[1] = 0.1;
1457 dits[2] = 0.8;
1458 gMC->Gsvolu("I674", "TUBE", idtmed[211], dits, 3); // set water as cooling fluid
1459 // was I174 in old geom.
1460 } else {
1461 dits[0] = 0;
1462 dits[1] = 0.1;
1463 dits[2] = 0.8;
1464 gMC->Gsvolu("I674", "TUBE", idtmed[212], dits, 3); // set freon as cooling fluid
1465 // was I174 in old geom.
1466 }
1467
1468 if (fluid == 1) {
1469 dits[0] = 0;
1470 dits[1] = 0.1;
1471 dits[2] = 3;
1472 gMC->Gsvolu("I672", "TUBE", idtmed[211], dits, 3); // set water as cooling fluid
1473 // was I172 in old geom.
1474 } else {
1475 dits[0] = 0;
1476 dits[1] = 0.1;
1477 dits[2] = 3;
1478 gMC->Gsvolu("I672", "TUBE", idtmed[212], dits, 3); // set freon as cooling fluid
1479 // was I172 in old geom.
1480 }
1481
1482 if (fluid == 1) {
1483 dits[0] = 0;
1484 dits[1] = 0.0746;
1485 dits[2] = 0.8;
1486 gMC->Gsvolu("I670", "TUBE", idtmed[211], dits, 3); // set water as cooling fluid
1487 // was I170 in old geom.
1488 } else {
1489 dits[0] = 0;
1490 dits[1] = 0.0746;
1491 dits[2] = 0.8;
1492 gMC->Gsvolu("I670", "TUBE", idtmed[212], dits, 3); // set freon as cooling fluid
1493 // was I170 in old geom.
1494 }
1495
1496 if (fluid == 1) {
1497 dits[0] = 3.7;
1498 dits[1] = 5.4;
1499 dits[2] = 0.35;
1500 dits[3] = 2;
1501 dits[4] = 36;
1502 gMC->Gsvolu("I668", "TUBS", idtmed[211], dits, 5); // set water as cooling fluid
1503 // was I168 in old geom.
1504 } else {
1505 dits[0] = 3.7;
1506 dits[1] = 5.4;
1507 dits[2] = 0.35;
1508 dits[3] = 2;
1509 dits[4] = 36;
1510 gMC->Gsvolu("I668", "TUBS", idtmed[212], dits, 5); // set freon as cooling fluid
1511 // was I168 in old geom.
1512 }
9d2da7b3 1513
db915fea 1514
9d2da7b3 1515 }
db915fea 1516
9d2da7b3 1517 // --- Define SPD (option 'b') volumes ----------------------------
1518
1519 // SPD - option 'b'
1520 // (this is the default)
1521
1522 if (option == 2) {
1523
1524 dits[0] = 3.7;
1525 dits[1] = 7.75;
45725ec9 1526 dits[2] = 26.1;
9d2da7b3 1527 gMC->Gsvolu("IT12", "TUBE", idtmed[254], dits, 3);
1528
1529 dits[0] = 3.7;
1530 dits[1] = 7.7;
1531 dits[2] = 24;
1532 dits[3] = 57;
1533 dits[4] = 100;
1534 gMC->Gsvolu("I12B", "TUBS", idtmed[254], dits, 5); // sector
1535
1536 di10b[0] = 0.843;
1537 di10b[1] = ddet1+dchip1+dbus+0.0025;
1538 di10b[2] = 19.344;
1539 gMC->Gsvolu("I10B", "BOX ", idtmed[254], di10b, 3); // mother volume
1540 // on layer 1
1541
1542 di20b[0] = 0.843;
1543 di20b[1] = ddet2+dchip2+dbus+0.0025;
1544 di20b[2] = 19.344;
1545 gMC->Gsvolu("I20B", "BOX ", idtmed[254], di20b, 3); // mother volume
1546 // layer 2
1547
1548 dits[0] = 1.3673;
1549 dits[1] = 0.01;
1550 dits[2] = 24;
1551 gMC->Gsvolu("I123", "BOX ", idtmed[253], dits, 3);
1552
1553 dits[0] = 0.06;
1554 dits[1] = 0.08;
1555 dits[2] = 24;
1556 dits[3] = -36.79;
1557 dits[4] = 21.834;
1558 gMC->Gsvolu("I121", "TUBS", idtmed[253], dits, 5);
1559
1560 dits[0] = 0.1253;
1561 dits[1] = 0.01;
1562 dits[2] = 24;
1563 gMC->Gsvolu("I122", "BOX ", idtmed[253], dits, 3);
1564
1565 dits[0] = 0.04;
1566 dits[1] = 0.06 ;
1567 dits[2] = 24;
1568 dits[3] = 126.79;
1569 dits[4] = 270;
1570 gMC->Gsvolu("I120", "TUBS", idtmed[253], dits, 5);
1571
1572 dits[0] = 0.1134;
1573 dits[1] = 0.01;
1574 dits[2] = 24;
1575 gMC->Gsvolu("I144", "BOX ", idtmed[253], dits, 3);
1576
1577 dits[0] = 0.25;
1578 dits[1] = 0.06;
1579 dits[2] = 24;
1580 gMC->Gsvolu("I113", "BOX ", idtmed[254], dits, 3);
1581
1582 dits[0] = 0.077;
1583 dits[1] = 0.01;
1584 dits[2] = 24;
1585 gMC->Gsvolu("I143", "BOX ", idtmed[253], dits, 3);
1586
1587 dits[0] = 0.04;
1588 dits[1] = 0.06;
1589 dits[2] = 24;
1590 dits[3] = 0;
1591 dits[4] = 90;
1592 gMC->Gsvolu("I142", "TUBS", idtmed[253], dits, 5);
1593
1594 dits[0] = 0.0695;
1595 dits[1] = 0.01;
1596 dits[2] = 24;
1597 gMC->Gsvolu("I141", "BOX ", idtmed[253], dits, 3);
1598
1599 dits[0] = 0.06;
1600 dits[1] = 0.08;
1601 dits[2] = 24;
1602 dits[3] = 0;
1603 dits[4] = 108;
1604 gMC->Gsvolu("I140", "TUBS", idtmed[253], dits, 5);
1605
1606 dits[0] = 0.1835;
1607 dits[1] = 0.01;
1608 dits[2] = 24;
1609 gMC->Gsvolu("I139", "BOX ", idtmed[253], dits, 3);
1610
1611 dits[0] = 0.1894 ;
1612 dits[1] = 0.01;
1613 dits[2] = 24;
1614 gMC->Gsvolu("I138", "BOX ", idtmed[253], dits, 3);
1615
1616 dits[0] = 0.04;
1617 dits[1] = 0.06;
1618 dits[2] = 24;
1619 dits[3] = 0;
1620 dits[4] = 75.261;
1621 gMC->Gsvolu("I137", "TUBS", idtmed[253], dits, 5);
1622
1623 dits[0] = 1.3401;
1624 dits[1] = 0.01;
1625 dits[2] = 24;
1626 gMC->Gsvolu("I136", "BOX ", idtmed[253], dits, 3);
1627
1628 dits[0] = 0.05;
1629 dits[1] = 0.07;
1630 dits[2] = 24;
1631 dits[3] = 0;
1632 dits[4] = 72.739;
1633 gMC->Gsvolu("I135", "TUBS", idtmed[253], dits, 5);
1634
1635 dits[0] = 0.1193;
1636 dits[1] = 0.01;
1637 dits[2] = 24;
1638 gMC->Gsvolu("I134", "BOX ", idtmed[253], dits, 3);
1639
1640 dits[0] = 0.163;
1641 dits[1] = 0.01;
1642 dits[2] = 24;
1643 gMC->Gsvolu("I133", "BOX ", idtmed[253], dits, 3);
1644
1645 dits[0] = 0.04;
1646 dits[1] = 0.06;
1647 dits[2] = 24;
1648 dits[3] = 0;
1649 dits[4] = 157.633;
1650 gMC->Gsvolu("I132", "TUBS", idtmed[253], dits, 5);
1651
1652 dits[0] = 0.2497;
1653 dits[1] = 0.01;
1654 dits[2] = 24;
1655 gMC->Gsvolu("I131", "BOX ", idtmed[253], dits, 3);
1656
1657 dits[0] = 0.06;
1658 dits[1] = 0.08;
1659 dits[2] = 24;
1660 dits[3] = 0;
1661 dits[4] = 148.633;
1662 gMC->Gsvolu("I130", "TUBS", idtmed[253], dits, 5);
1663
1664 dits[0] = 0.292;
1665 dits[1] = 0.01;
1666 dits[2] = 24;
1667 gMC->Gsvolu("I129", "BOX ", idtmed[253], dits, 3);
1668
1669 dits[0] = 0.163;
1670 dits[1] = 0.01;
1671 dits[2] = 24;
1672 gMC->Gsvolu("I128", "BOX ", idtmed[253], dits, 3);
1673
1674 dits[0] = 0.04;
1675 dits[1] = 0.06;
1676 dits[2] = 24;
1677 dits[3] = 0;
1678 dits[4] = 161.297;
1679 gMC->Gsvolu("I126", "TUBS", idtmed[253], dits, 5);
1680
1681 dits[0] = 0.2433;
1682 dits[1] = 0.01;
1683 dits[2] = 24;
1684 gMC->Gsvolu("I125", "BOX ", idtmed[253], dits, 3);
1685
1686 dits[0] = 0.06;
1687 dits[1] = 0.08;
1688 dits[2] = 24;
1689 dits[3] = 0;
1690 dits[4] = 42.883;
1691 gMC->Gsvolu("I124", "TUBS", idtmed[253], dits, 5);
1692
1693 dits[0] = 0.793;
fc44ab90 1694 dits[1] = 0.475; //0.685; 0.015
9d2da7b3 1695 dits[2] = 2.5;
fc44ab90 1696 gMC->Gsvolu("I105", "BOX ", idtmed[290], dits, 3);
9d2da7b3 1697
1698 di107[0] = 0.793;
1699 di107[1] = ddet1+dchip1;
1700 di107[2] = 3.536;
1701 gMC->Gsvolu("I107", "BOX ", idtmed[254], di107, 3); // contains det and chip
1702 // layer 1
1703 dits[0] = 0.705;
1704 dits[1] = 0.01;
1705 dits[2] = 2.5;
1706 gMC->Gsvolu("I109", "BOX ", idtmed[275], dits, 3);
1707
1708 di108[0] = 0.705;
1709 di108[1] = dbus;
1710 di108[2] = 14.344;
1711 gMC->Gsvolu("I108", "BOX ", idtmed[275], di108, 3); // bus for both layers
1712
1713 di1d7[0] = 0.7975;
1714 di1d7[1] = ddet2+dchip2;
1715 di1d7[2] = 3.536;
1716 gMC->Gsvolu("I1D7", "BOX ", idtmed[254], di1d7, 3); // contains det and chip
1717 // layer 2
1718 dits[0] = 0.06;
1719 dits[1] = 0.08;
1720 dits[2] = 24;
1721 dits[3] = 0;
1722 dits[4] = 80;
1723 gMC->Gsvolu("I112", "TUBS", idtmed[253], dits, 5);
1724
1725 dits[0] = 0.04;
1726 dits[1] = 0.06;
1727 dits[2] = 24;
1728 dits[3] = 0;
1729 dits[4] = 80;
1730 gMC->Gsvolu("I111", "TUBS", idtmed[253], dits, 5);
1731
1732 dits[0] = 0.15;
1733 dits[1] = 0.0146;
1734 dits[2] = 24;
1735 gMC->Gsvolu("I118", "BOX ", idtmed[273], dits, 3);
1736
1737 dits[0] = 0.1315;
1738 dits[1] = 0.01;
1739 dits[2] = 24;
1740 gMC->Gsvolu("I110", "BOX ", idtmed[253], dits, 3);
1741
1742 dits[0] = 0.025;
1743 dits[1] = 0.035;
1744 dits[2] = 24;
1745 dits[3] = 0;
1746 dits[4] = 180;
1747 gMC->Gsvolu("I114", "TUBS", idtmed[264], dits, 5);
1748
e4f08ac3 1749 if (fluid == 1) {
1750 dits[0] = 0;
1751 dits[1] = 0.025;
1752 dits[2] = 24;
1753 dits[3] = 0;
1754 dits[4] = 180;
1755 gMC->Gsvolu("I115", "TUBS", idtmed[211], dits, 5); // set water as cooling fluid
1756 } else {
1757 dits[0] = 0;
1758 dits[1] = 0.025;
1759 dits[2] = 24;
1760 dits[3] = 0;
1761 dits[4] = 180;
1762 gMC->Gsvolu("I115", "TUBS", idtmed[212], dits, 5); // set freon as cooling fluid
1763 }
1764
9d2da7b3 1765 dits[0] = 0.063;
1766 dits[1] = 0.035;
1767 dits[2] = 24;
1768 gMC->Gsvolu("I116", "BOX ", idtmed[264], dits, 3);
1769
1770 di106[0] = 0.7975;
1771 di106[1] = dchip1;
1772 di106[2] = 0.68;
1773 gMC->Gsvolu("I106", "BOX ", idtmed[201], di106, 3); // chip layer 1
1774
1775 di1d6[0] = 0.7975;
1776 di1d6[1] = dchip2;
1777 di1d6[2] = 0.68;
1778 gMC->Gsvolu("I1D6", "BOX ", idtmed[201], di1d6, 3); // chip layer 2
1779
1780 di101[0] = 0.705;
1781 di101[1] = ddet1;
1782 di101[2] = 3.536;
1783 gMC->Gsvolu("I101", "BOX ", idtmed[250], di101, 3); // contains detector
1784 // layer 1
1785 di1d1[0] = 0.705;
1786 di1d1[1] = ddet2;
1787 di1d1[2] = 3.536;
1788 gMC->Gsvolu("I1D1", "BOX ", idtmed[250], di1d1, 3); // contains detector
1789 // layer 2
e4f08ac3 1790
1791 if (fluid == 1) {
1792 dits[0] = 0.063;
1793 dits[1] = 0.025;
1794 dits[2] = 24;
1795 gMC->Gsvolu("I117", "BOX ", idtmed[211], dits, 3); // set water as cooling fluid
1796 } else {
1797 dits[0] = 0.063;
1798 dits[1] = 0.025;
1799 dits[2] = 24;
1800 gMC->Gsvolu("I117", "BOX ", idtmed[212], dits, 3); // set freon as cooling fluid
1801 }
9d2da7b3 1802
1803 dits1[0] = 0.64;
1804 dits1[1] = ddet1;
1805 dits1[2] = 3.48;
1806 gMC->Gsvolu("ITS1", "BOX ", idtmed[200], dits1, 3); // detector layer 1
1807
1808 dits2[0] = 0.64;
1809 dits2[1] = ddet2;
1810 dits2[2] = 3.48;
1811 gMC->Gsvolu("ITS2", "BOX ", idtmed[200], dits2, 3); // detector layer 2
1812
1813 dits[0] = 3.701;
1814 dits[1] = 7.699;
1815 dits[2] = 4;
1816 dits[3] = 57.1;
1817 dits[4] = 99.9;
1818 gMC->Gsvolu("I650", "TUBS", idtmed[254], dits, 5); // was I150 in old geom.
1819
1820 dits[0] = 0;
1821 dits[1] = 0.5;
1822 dits[2] = 1.5;
1823 gMC->Gsvolu("I676", "TUBE", idtmed[274], dits, 3); // was I176 in old geom.
1824
1825 dits[0] = 0;
1826 dits[1] = 0.18;
1827 dits[2] = 0.8;
1828 gMC->Gsvolu("I673", "TUBE", idtmed[274], dits, 3); // was I173 in old geom.
1829
1830 dits[0] = 0;
1831 dits[1] = 0.18;
1832 dits[2] = 3;
1833 gMC->Gsvolu("I671", "TUBE", idtmed[274], dits, 3); // was I171 in old geom.
1834
1835 dits[0] = 0;
1836 dits[1] = 0.075;
1837 dits[2] = 0.8;
1838 gMC->Gsvolu("I669", "TUBE", idtmed[264], dits, 3); // was I169 in old geom.
1839
1840 dits[0] = 3.5;
1841 dits[1] = 5.6;
1842 dits[2] = 0.55;
1843 dits[3] = 0;
1844 dits[4] = 38;
1845 gMC->Gsvolu("I667", "TUBS", idtmed[263], dits, 5); // was I167 in old geom.
1846
1847 dits[0] = 6.6;
1848 dits[1] = 7.6;
1849 dits[2] = 0.5;
1850 dits[3] = 0;
1851 dits[4] = 9;
1852 gMC->Gsvolu("I666", "TUBS", idtmed[263], dits, 5); // was I166 in old geom.
1853
1854 dits[0] = 0.26;
1855 dits[1] = 0.32;
1856 dits[2] = 0.55;
1857 gMC->Gsvolu("I678", "TUBE", idtmed[263], dits, 3); // was I178 in old geom.
1858
e4f08ac3 1859 if (fluid == 1) {
1860 dits[0] = 0;
1861 dits[1] = 0.3;
1862 dits[2] = 1.5;
1863 gMC->Gsvolu("I677", "TUBE", idtmed[211], dits, 3); //set water as cooling fluid
1864 // was I177 in old geom.
1865 } else {
1866 dits[0] = 0;
1867 dits[1] = 0.3;
1868 dits[2] = 1.5;
1869 gMC->Gsvolu("I677", "TUBE", idtmed[212], dits, 3); //set freon as cooling fluid
1870 // was I177 in old geom.
1871 }
9d2da7b3 1872
1873 dits[0] = 0.07;
1874 dits[1] = 0.125;
1875 dits[2] = 0.3;
1876 gMC->Gsvolu("I675", "TUBE", idtmed[263], dits, 3); // was I175 in old geom.
1877
e4f08ac3 1878 if (fluid == 1) {
1879 dits[0] = 0;
1880 dits[1] = 0.1;
1881 dits[2] = 0.8;
1882 gMC->Gsvolu("I674", "TUBE", idtmed[211], dits, 3); //set water as cooling fluid
1883 // was I174 in old geom.
1884 } else {
1885 dits[0] = 0;
1886 dits[1] = 0.1;
1887 dits[2] = 0.8;
1888 gMC->Gsvolu("I674", "TUBE", idtmed[212], dits, 3); //set freon as cooling fluid
1889 // was I174 in old geom.
1890 }
1891
1892 if (fluid == 1) {
1893 dits[0] = 0;
1894 dits[1] = 0.1;
1895 dits[2] = 3;
1896 gMC->Gsvolu("I672", "TUBE", idtmed[211], dits, 3); //set water as cooling fluid
1897 // was I172 in old geom.
1898 } else {
1899 dits[0] = 0;
1900 dits[1] = 0.1;
1901 dits[2] = 3;
1902 gMC->Gsvolu("I672", "TUBE", idtmed[212], dits, 3); //set freon as cooling fluid
1903 // was I172 in old geom.
1904 }
1905
1906 if (fluid == 1) {
1907 dits[0] = 0;
1908 dits[1] = 0.0746;
1909 dits[2] = 0.8;
1910 gMC->Gsvolu("I670", "TUBE", idtmed[211], dits, 3); //set water as cooling fluid
1911 // was I170 in old geom.
1912 } else {
1913 dits[0] = 0;
1914 dits[1] = 0.0746;
1915 dits[2] = 0.8;
1916 gMC->Gsvolu("I670", "TUBE", idtmed[212], dits, 3); //set freon as cooling fluid
1917 // was I170 in old geom.
1918 }
1919
1920 if (fluid == 1) {
1921 dits[0] = 3.7;
1922 dits[1] = 5.4;
1923 dits[2] = 0.35;
1924 dits[3] = 2;
1925 dits[4] = 36;
1926 gMC->Gsvolu("I668", "TUBS", idtmed[211], dits, 5); //set water as cooling fluid
1927 // was I168 in old geom.
1928 } else {
1929 dits[0] = 3.7;
1930 dits[1] = 5.4;
1931 dits[2] = 0.35;
1932 dits[3] = 2;
1933 dits[4] = 36;
1934 gMC->Gsvolu("I668", "TUBS", idtmed[212], dits, 5); //set freon as cooling fluid
1935 // was I168 in old geom.
1936 }
1937
db915fea 1938
9d2da7b3 1939 }
db915fea 1940
1941 // --- Define SDD volumes ------------------------------------------
1942
9d2da7b3 1943
1944 cos30 = cos(30.*3.14159/180.);
1945 sin30 = sin(30.*3.14159/180.);
1946
1947
db915fea 1948 dits[0] = 0;
1949 dits[1] = 360;
1950 dits[2] = 6;
e4f08ac3 1951 dits[3] = -34.6;
1952 dits[4] = 23.49;
1953 dits[5] = 28;
1954 dits[6] = -23.65;
1955 dits[7] = 23.49;
1956 dits[8] = 28;
1957 dits[9] = -23.65;
1958 dits[10] = 14.59;
1959 dits[11] = 28;
1960 dits[12] = 23.65;
1961 dits[13] = 14.59;
1962 dits[14] = 28;
1963 dits[15] = 23.65;
1964 dits[16] = 23.49;
1965 dits[17] = 28;
1966 dits[18] = 34.6;
1967 dits[19] = 23.49;
1968 dits[20] = 28;
9d2da7b3 1969 gMC->Gsvolu("IT34", "PCON", idtmed[209], dits, 21);
1970
1971 // block of the SDD electronics and related ladder frame
1972 I018dits[0] = 3.2;
1973 I018dits[1] = 2;
1974 I018dits[2] = 3.65;
1975 gMC->Gsvolu("I018", "BOX ", idtmed[209], I018dits, 3);
1976
1977 // block of the SDD end ladder
1978 I024dits[0] = 3.2;
1979 I024dits[1] = 2;
1980 I024dits[2] = 2.725;
1981 gMC->Gsvolu("I024", "BOX ", idtmed[209], I024dits, 3);
1982
1983 // ladder frame of layer 3 - F.T. March,7-2001
1984 I047dits[0] = I018dits[0];
1985 I047dits[1] = I018dits[1];
1986 I047dits[2] = 6*I018dits[2] + 2*I024dits[2];
1987 gMC->Gsvolu("I047", "BOX ", idtmed[209], I047dits, 3);
1988
1989 // ladder frame of layer 4 - F.T. March,7-2001
1990 I048dits[0] = I018dits[0];
1991 I048dits[1] = I018dits[1];
1992 I048dits[2] = 8*I018dits[2] + 2*I024dits[2];
1993 gMC->Gsvolu("I048", "BOX ", idtmed[209], I048dits, 3);
1994
1995
1996 // global SDD volume (sensitive + insensitive)
1997 I302dits[0] = 3.6250;
1998 I302dits[1] = 0.0150;
1999 I302dits[2] = 4.3794;
2000 gMC->Gsvolu("I302", "BOX ", idtmed[278], I302dits, 3);
2001
2002 // Like for I302 - F.T. March,7-2001
2003 I402dits[0] = 3.6250;
2004 I402dits[1] = 0.0150;
2005 I402dits[2] = 4.3794;
2006 gMC->Gsvolu("I402", "BOX ", idtmed[278], I402dits, 3);
2007
2008 // SDD ladder of layer 3 - F.T. March,7-2001
2009 I004dits[0] = I302dits[0]+0.005;
2010 I004dits[1] = 2*I302dits[1]+Y_SDD_sep/2.;
767187dd 2011 I004dits[2] = TMath::Abs(Z_SDD_lay3[0]);
2012 if (I004dits[2] < TMath::Abs(Z_SDD_lay3[5])) {
2013 I004dits[2] = TMath::Abs(Z_SDD_lay3[5]);
9d2da7b3 2014 }
2015 I004dits[2] = I004dits[2] + I302dits[2];
2016 gMC->Gsvolu("I004", "BOX ", idtmed[209], I004dits, 3);
2017
2018 // SDD ladder of layer 4 - F.T. March,7-2001
2019 I005dits[0] = I402dits[0]+0.005;
2020 I005dits[1] = 2*I402dits[1]+Y_SDD_sep/2.;
767187dd 2021 I005dits[2] = TMath::Abs(Z_SDD_lay4[0]);
2022 if (I005dits[2] < TMath::Abs(Z_SDD_lay4[7])) {
2023 I005dits[2] = TMath::Abs(Z_SDD_lay4[7]);
9d2da7b3 2024 }
2025 I005dits[2] = I005dits[2] + I402dits[2];
2026 gMC->Gsvolu("I005", "BOX ", idtmed[209], I005dits, 3);
2027
2028
2029 // -- block of the SDD ladder foot and end ladder
2030
2031 // ladder foot mother volume
2032 I028dits[0] = 3.0000;
2033 I028dits[1] = 0.4000;
2034 I028dits[2] = 0.9000;
2035 gMC->Gsvolu("I028", "BOX ", idtmed[224], I028dits, 3);
2036
2037 // positioning-box #1 at SDD end-ladder - F.T. March,7-2001
2038 I420dits[0] = 0.4500;
2039 I420dits[1] = 0.4000;
2040 I420dits[2] = 0.4500;
2041 gMC->Gsvolu("I420", "BOX ", idtmed[264], I420dits, 3);
2042
2043 // positioning-box #2 at SDD end-ladder - F.T. March,7-2001
e4f08ac3 2044 I421dits[0] = 0.;
2045 I421dits[1] = 0.25;
2046 I421dits[2] = I420dits[1];
2047 gMC->Gsvolu("I421", "TUBE", idtmed[209], I421dits, 3);
9d2da7b3 2048
2049 // reference ruby-sphere at SDD end-ladder - F.T. March,7-2001
2050 I422dits[0] = 0.0000;
2051 I422dits[1] = 0.2000;
2052 I422dits[2] = 0.0000;
2053 I422dits[3] = 180.00;
2054 I422dits[4] = 0.0000;
2055 I422dits[5] = 360.00;
2056 gMC->Gsvolu("I422", "SPHE", idtmed[277], I422dits, 6);
2057
2058 // support for ruby-sphere (I422) - F.T. March,7-2001
2059 I423dits[0] = 0.0000;
2060 I423dits[1] = 0.1000;
e4f08ac3 2061 I423dits[2] = (I420dits[1]-I422dits[1])/2.;
9d2da7b3 2062 gMC->Gsvolu("I423", "TUBE", idtmed[264], I423dits, 3);
2063
2064 // passage for HV microcables - F.T. March,7-2001
2065 I424dits[0] = 1.5000;
2066 I424dits[1] = 0.1500;
2067 I424dits[2] = I421dits[2];
2068 gMC->Gsvolu("I424", "BOX ", idtmed[209], I424dits, 3);
2069
2070 // HV microcables segment at the end ladder - F.T. March,7-2001
2071 I425dits[0] = 1.350000;
2072 I425dits[1] = 0.015250;
2073 I425dits[2] = I024dits[2];
2074 gMC->Gsvolu("I425", "BOX ", idtmed[279], I425dits, 3);
2075
2076 // lower edge of SDD ladder frame at end-ladder - part 1
db915fea 2077 dits[0] = 0.2;
2078 dits[1] = 0.1815;
9d2da7b3 2079 dits[2] = I024dits[2];
db915fea 2080 dits[3] = 0.015;
9d2da7b3 2081 gMC->Gsvolu("I025", "TRD1", idtmed[208], dits, 4);
db915fea 2082
9d2da7b3 2083 // lower edge of SDD ladder frame at end-ladder - part 2
db915fea 2084 dits[0] = 0.183;
2085 dits[1] = 0.165;
9d2da7b3 2086 dits[2] = I024dits[2];
2087 dits[3] = 0.015;
2088 gMC->Gsvolu("I026", "TRD1", idtmed[208], dits, 4);
2089
2090 // new: for the 1st top rod of the structure
2091 // at the end-ladder - F.T. March,7-2001
2092 I029dits[0] = 0.2;
2093 I029dits[1] = 0.1815;
2094 I029dits[2] = 1.0100;
2095 I029dits[3] = 0.015;
2096 gMC->Gsvolu("I029", "TRD1", idtmed[208], I029dits, 4);
2097
2098 // new: for the 2nd top rod of the structure
2099 // at the end-ladder - F.T. March,7-2001
2100 I030dits[0] = 0.1830;
2101 I030dits[1] = 0.1650;
2102 I030dits[2] = 1.0100;
2103 I030dits[3] = 0.0150;
2104 gMC->Gsvolu("I030", "TRD1", idtmed[208], I030dits, 4);
2105
2106 // inox cooling tubes for the end ladder - F.T. March,7-2001
2107 I031dits[0] = 0.093;
2108 I031dits[1] = 0.1;
2109 I031dits[2] = I024dits[2];
2110 gMC->Gsvolu("I031", "TUBE", idtmed[264], I031dits, 3);
2111
e4f08ac3 2112 if (fluid == 1) {
2113 // cooling water for the end ladder - F.T. March,7-2001
2114 I032dits[0] = 0;
2115 I032dits[1] = I031dits[0];
2116 I032dits[2] = I024dits[2];
2117 gMC->Gsvolu("I032", "TUBE", idtmed[211], I032dits, 3);
2118 } else {
2119 // cooling freon for the end ladder - R.B. March,21-2001
2120 I032dits[0] = 0;
2121 I032dits[1] = I031dits[0];
2122 I032dits[2] = I024dits[2];
2123 gMC->Gsvolu("I032", "TUBE", idtmed[212], I032dits, 3);
2124 }
2125
9d2da7b3 2126 // -- block of the SDD ladder frame holding the electronics
2127
2128 // edge of the ladder frame - part 1
2129 dits[0] = 0.2;
2130 dits[1] = 0.182;
2131 dits[2] = 3.65;
db915fea 2132 dits[3] = 0.015;
9d2da7b3 2133 gMC->Gsvolu("I019", "TRD1", idtmed[208], dits, 4);
db915fea 2134
9d2da7b3 2135 // edge of the ladder frame - part 2
2136 dits[0] = 0.183;
2137 dits[1] = 0.165;
2138 dits[2] = 3.65;
2139 dits[3] = 0.015;
2140 gMC->Gsvolu("I020", "TRD1", idtmed[208], dits, 4);
2141
2142 // inclined segments of the ladder frame
db915fea 2143 dits[0] = 2.23;
2144 dits[1] = 2.1;
2145 dits[2] = 0.05;
2146 dits[3] = 0.03;
9d2da7b3 2147 gMC->Gsvolu("I021", "TRD1", idtmed[208], dits, 4);
db915fea 2148
9d2da7b3 2149 // horiz.segments of the ladders, normal to ladder edges
db915fea 2150 dits[0] = 2.1;
2151 dits[1] = 2;
2152 dits[2] = 0.06;
2153 dits[3] = 0.04;
9d2da7b3 2154 gMC->Gsvolu("I022", "TRD1", idtmed[208], dits, 4);
db915fea 2155
9d2da7b3 2156 // horiz.segments of the ladders, at 45 deg. to ladder edges
2157 dits[0] = 2.615;
2158 dits[1] = 2.465;
2159 dits[2] = 0.06;
2160 dits[3] = 0.04;
2161 gMC->Gsvolu("I023", "TRD1", idtmed[208], dits, 4);
db915fea 2162
9d2da7b3 2163 // supports of the ceramic pins holding the detectors
db915fea 2164 dits[0] = 0.3;
2165 dits[1] = 0.05;
2166 dits[2] = 0.15;
9d2da7b3 2167 gMC->Gsvolu("I033", "BOX ", idtmed[208], dits, 3);
db915fea 2168
9d2da7b3 2169 // ceramic pins holding the detectors
db915fea 2170 dits[0] = 0;
2171 dits[1] = 0.05;
2172 dits[2] = 0.225;
9d2da7b3 2173 gMC->Gsvolu("I034", "TUBE", idtmed[277], dits, 3);
db915fea 2174
9d2da7b3 2175 // holders of cooling tubes
2176 I035dits[0] = 0.1;
2177 I035dits[1] = 0.15;
2178 I035dits[2] = 0.2;
2179 gMC->Gsvolu("I035", "TUBE", idtmed[208], I035dits, 3);
db915fea 2180
9d2da7b3 2181 // top holders of microcables
2182 dits[0] = 0.2;
db915fea 2183 dits[1] = 0.01;
9d2da7b3 2184 dits[2] = 0.05;
2185 gMC->Gsvolu("I036", "BOX ", idtmed[208], dits, 3);
db915fea 2186
9d2da7b3 2187 // inox cooling tubes - F.T. March,7-2001
2188 I037dits[0] = 0.093;
2189 I037dits[1] = 0.1;
2190 I037dits[2] = I018dits[2];
2191 gMC->Gsvolu("I037", "TUBE", idtmed[264], I037dits, 3);
db915fea 2192
e4f08ac3 2193 if (fluid == 1) {
2194 // cooling water - F.T. March,7-2001
2195 I038dits[0] = 0;
2196 I038dits[1] = I037dits[0];
2197 I038dits[2] = I018dits[2];
2198 gMC->Gsvolu("I038", "TUBE", idtmed[211], I038dits, 3);
2199 } else {
2200 // cooling freon - R.B. March,21-2001
2201 I038dits[0] = 0;
2202 I038dits[1] = I037dits[0];
2203 I038dits[2] = I018dits[2];
2204 gMC->Gsvolu("I038", "TUBE", idtmed[212], I038dits, 3);
2205 }
9d2da7b3 2206 // -- block of the SDD electronics (heat bridge, chips, hybrid, anode microcable)
db915fea 2207
9d2da7b3 2208 // SDD heat bridge - F.T. March,7-2001
2209 I039dits[0] = 1.1000;
2210 I039dits[1] = 0.0087;
2211 I039dits[2] = 3.2500;
2212 gMC->Gsvolu("I039", "BOX ", idtmed[268], I039dits, 3);
db915fea 2213
9d2da7b3 2214 // SDD clip part 1
2215 dits[0] = 0.25;
2216 dits[1] = 0.01;
2217 dits[2] = I039dits[2];
2218 gMC->Gsvolu("I040", "BOX ", idtmed[268], dits, 3);
2219
2220 // SDD clip part 2
2221 I041dits[0] = 0.1;
2222 I041dits[1] = 0.12;
2223 I041dits[2] = I039dits[2];
2224 I041dits[3] = 90;
2225 I041dits[4] = 320;
2226 gMC->Gsvolu("I041", "TUBS", idtmed[268], I041dits, 5);
2227
2228
2229 // SDD PASCAL - F.T. March,7-2001
2230 I042dits[0] = 0.5000;
2231 I042dits[1] = 0.0175;
2232 I042dits[2] = 0.5000;
2233 gMC->Gsvolu("I042", "BOX ", idtmed[206], I042dits, 3);
2234
2235 // SDD AMBRA - F.T. March,7-2001
2236 I043dits[0] = 0.3500;
2237 I043dits[1] = 0.0175;
2238 I043dits[2] = 0.5000;
2239 gMC->Gsvolu("I043", "BOX ", idtmed[206], I043dits, 3);
2240
2241 // SDD capacitors - F.T. March,7-2001
2242 I051dits[0] = 0.1400;
2243 I051dits[1] = 0.0350;
2244 I051dits[2] = 0.0625;
2245 gMC->Gsvolu("I051", "BOX ", idtmed[276], I051dits, 3);
2246
2247 // SDD hybrid circuit - F.T. March,7-2001
2248 I052dits[0] = 1.725000;
2249 I052dits[1] = 0.003743;
2250 I052dits[2] = I039dits[2];
e4f08ac3 2251 gMC->Gsvolu("I052", "BOX ", idtmed[281], I052dits, 3);
9d2da7b3 2252
2253 // SDD anode microcable : changed - F.T. March,7-2001
2254 I044dits[0] = I018dits[2];
2255 I044dits[1] = I039dits[2];
2256 I044dits[2] = 0.00084;
2257 I044dits[3] = (15.189149/(I044dits[0]+I044dits[1]))/2;
2258 gMC->Gsvolu("I044", "TRD1", idtmed[282], I044dits, 4);
2259 volI044 = ((2*I044dits[0] + 2*I044dits[1]) * 2*I044dits[2])/2 * 2*I044dits[3];
2260
2261 // SDD electronics box - F.T. March,7-2001
2262 I050dits[1] = I039dits[1]+I052dits[1]+I051dits[1]+I044dits[2];
2263 I050dits[0] = I018dits[1]/cos(30.*3.14159/180.)-I050dits[1]*sin(30.*3.14159/180.);
2264 I050dits[2] = I018dits[2];
2265 gMC->Gsvolu("I050", "BOX ", idtmed[209], I050dits, 3);
2266
2267 // SDD sensitive volume
2268 dits[0] = 3.50850;
2269 dits[1] = 0.01499; // not 0.015 because it is included into I302 which is 0.015
2270 dits[2] = 3.76320;
db915fea 2271 gMC->Gsvolu("ITS3", "BOX ", idtmed[200], dits, 3);
2272
9d2da7b3 2273 // Like for ITS3 - F.T. March,7-2001
2274 dits[0] = 3.50850;
2275 dits[1] = 0.01499; // not 0.015 because it is included into I402 which is 0.015
2276 dits[2] = 3.76320;
db915fea 2277 gMC->Gsvolu("ITS4", "BOX ", idtmed[200], dits, 3);
2278
2279
2280 // --- Define SSD volumes ------------------------------------------
2281
2282
2283 dits[0] = 0;
2284 dits[1] = 360;
2285 dits[2] = 6;
e4f08ac3 2286 dits[3] = -57.45;
2287 dits[4] = 43.6;
db915fea 2288 dits[5] = 48;
e4f08ac3 2289 dits[6] = -49.15;
2290 dits[7] = 43.6;
db915fea 2291 dits[8] = 48;
e4f08ac3 2292 dits[9] = -49.15;
2293 dits[10] = 36.9;
db915fea 2294 dits[11] = 48;
e4f08ac3 2295 dits[12] = 50.55;
2296 dits[13] = 36.9;
db915fea 2297 dits[14] = 48;
e4f08ac3 2298 dits[15] = 50.55;
2299 dits[16] = 43.6;
db915fea 2300 dits[17] = 48;
e4f08ac3 2301 dits[18] = 57.45;
2302 dits[19] = 43.6;
db915fea 2303 dits[20] = 48;
9d2da7b3 2304 gMC->Gsvolu("IT56", "PCON", idtmed[220], dits, 21);
db915fea 2305
2306 dits[0] = 3.4;
2307 dits[1] = 1.955;
9d2da7b3 2308 dits[2] = 56.5;
2309 gMC->Gsvolu("I570", "BOX ", idtmed[204], dits, 3);
db915fea 2310
2311 dits[0] = 3.75;
2312 dits[1] = 0.045;
2313 dits[2] = 50.975;
9d2da7b3 2314 gMC->Gsvolu("I569", "BOX ", idtmed[204], dits, 3);
db915fea 2315
2316 dits[0] = 3.4;
2317 dits[1] = 1.955;
9d2da7b3 2318 dits[2] = 47;
2319 gMC->Gsvolu("I571", "BOX ", idtmed[204], dits, 3);
db915fea 2320
2321 dits[0] = 3.75;
2322 dits[1] = 0.045;
9d2da7b3 2323 dits[2] = 43.3;
2324 gMC->Gsvolu("I565", "BOX ", idtmed[204], dits, 3);
db915fea 2325
2326 dits[0] = 3.4;
2327 dits[1] = 1.955;
2328 dits[2] = 3.15;
9d2da7b3 2329 gMC->Gsvolu("I553", "BOX ", idtmed[204], dits, 3);
db915fea 2330
2331 dits[0] = 3.405;
2332 dits[1] = 1.955;
2333 dits[2] = 1.955;
9d2da7b3 2334 gMC->Gsvolu("I523", "BOX ", idtmed[204], dits, 3);
db915fea 2335
2336 dits[0] = 3.75;
2337 dits[1] = 0.015;
2338 dits[2] = 2.1;
9d2da7b3 2339 gMC->Gsvolu("I566", "BOX ", idtmed[206], dits, 3);
db915fea 2340
2341 dits[0] = 3.4;
2342 dits[1] = 1.955;
2343 dits[2] = 3.15;
9d2da7b3 2344 gMC->Gsvolu("I544", "BOX ", idtmed[204], dits, 3);
db915fea 2345
2346 dits[0] = 3.41;
2347 dits[1] = 1.955;
2348 dits[2] = 1.955;
9d2da7b3 2349 gMC->Gsvolu("I516", "BOX ", idtmed[204], dits, 3);
db915fea 2350
2351 dits[0] = 3.75;
2352 dits[1] = 0.015;
2353 dits[2] = 2.1;
9d2da7b3 2354 gMC->Gsvolu("I562", "BOX ", idtmed[206], dits, 3);
db915fea 2355
e4f08ac3 2356 if (fluid == 1) {
2357 dits[0] = 0;
2358 dits[1] = 0.07;
2359 dits[2] = 3.15;
2360 gMC->Gsvolu("I559", "TUBE", idtmed[211], dits, 3); // set water as cooling fluid
2361 } else {
2362 dits[0] = 0;
2363 dits[1] = 0.07;
2364 dits[2] = 3.15;
2365 gMC->Gsvolu("I559", "TUBE", idtmed[212], dits, 3); // set freon as cooling fluid
2366 }
db915fea 2367
2368 dits[0] = 0.07;
2369 dits[1] = 0.1;
2370 dits[2] = 3.15;
9d2da7b3 2371 gMC->Gsvolu("I560", "TUBE", idtmed[210], dits, 3);
db915fea 2372
2373 dits[0] = 0.225;
2374 dits[1] = 0.195;
2375 dits[2] = 3.15;
2376 dits[3] = 0.025;
9d2da7b3 2377 gMC->Gsvolu("I558", "TRD1", idtmed[203], dits, 4);
db915fea 2378
2379 dits[0] = 0.25;
2380 dits[1] = 0.22;
2381 dits[2] = 3.15;
2382 dits[3] = 0.025;
9d2da7b3 2383 gMC->Gsvolu("I557", "TRD1", idtmed[203], dits, 4);
db915fea 2384
2385 dits[0] = 2.17;
2386 dits[1] = 0.035;
2387 dits[2] = 0.05;
9d2da7b3 2388 gMC->Gsvolu("I556", "BOX ", idtmed[203], dits, 3);
db915fea 2389
2390 dits[0] = 2 ;
2391 dits[1] = 0.035;
2392 dits[2] = 0.05;
9d2da7b3 2393 gMC->Gsvolu("I554", "BOX ", idtmed[203], dits, 3);
db915fea 2394
2395 dits[0] = 2.675;
2396 dits[1] = 0.035;
2397 dits[2] = 0.05;
9d2da7b3 2398 gMC->Gsvolu("I555", "BOX ", idtmed[203], dits, 3);
db915fea 2399
2400 dits[0] = 0.3;
2401 dits[1] = 0.15;
2402 dits[2] = 0.15;
9d2da7b3 2403 gMC->Gsvolu("I561", "BOX ", idtmed[203], dits, 3);
db915fea 2404
2405 dits[0] = 0.025;
2406 dits[1] = 0.025;
2407 dits[2] = 0.05;
9d2da7b3 2408 gMC->Gsvolu("I519", "BOX ", idtmed[214], dits, 3);
db915fea 2409
2410 dits[0] = 0.304;
2411 dits[1] = 0.0275;
2412 dits[2] = 0.432;
9d2da7b3 2413 gMC->Gsvolu("I521", "BOX ", idtmed[206], dits, 3);
db915fea 2414
2415 dits[0] = 0.16;
2416 dits[1] = 0.08;
2417 dits[2] = 0.08;
9d2da7b3 2418 gMC->Gsvolu("I520", "BOX ", idtmed[214], dits, 3);
db915fea 2419
2420 dits[0] = 3.4;
2421 dits[1] = 0.015;
2422 dits[2] = 0.525;
9d2da7b3 2423 gMC->Gsvolu("I518", "BOX ", idtmed[203], dits, 3);
db915fea 2424
2425 dits[0] = 0.15;
2426 dits[1] = 0.105;
2427 dits[2] = 0.29;
2428 dits[3] = 0.08;
9d2da7b3 2429 gMC->Gsvolu("I522", "TRD1", idtmed[203], dits, 4);
db915fea 2430
2431 dits[0] = 0.07;
2432 dits[1] = 0.1;
2433 dits[2] = 1.955;
9d2da7b3 2434 gMC->Gsvolu("I542", "TUBE", idtmed[210], dits, 3);
db915fea 2435
e4f08ac3 2436 if (fluid == 1) {
2437 dits[0] = 0;
2438 dits[1] = 0.07;
2439 dits[2] = 1.955;
2440 gMC->Gsvolu("I541", "TUBE", idtmed[211], dits, 3); // set water as cooling fluid
2441 } else {
2442 dits[0] = 0;
2443 dits[1] = 0.07;
2444 dits[2] = 1.955;
2445 gMC->Gsvolu("I541", "TUBE", idtmed[212], dits, 3); // set freon as cooling fluid
2446 }
db915fea 2447
2448 dits[0] = 0.3;
2449 dits[1] = 0.15;
2450 dits[2] = 0.15;
9d2da7b3 2451 gMC->Gsvolu("I543", "BOX ", idtmed[203], dits, 3);
db915fea 2452
2453 dits[0] = 0.25;
2454 dits[1] = 0.22;
2455 dits[2] = 1.955;
2456 dits[3] = 0.025;
9d2da7b3 2457 gMC->Gsvolu("I537", "TRD1", idtmed[203], dits, 4);
db915fea 2458
2459 dits[0] = 0.225;
2460 dits[1] = 0.195;
2461 dits[2] = 1.955;
2462 dits[4] = 0.025;
9d2da7b3 2463 gMC->Gsvolu("I538", "TRD1", idtmed[203], dits, 4);
db915fea 2464
2465 dits[0] = 2.17;
2466 dits[1] = 0.035;
2467 dits[2] = 0.05;
9d2da7b3 2468 gMC->Gsvolu("I536", "BOX ", idtmed[203], dits, 3);
db915fea 2469
2470 dits[0] = 2.675;
2471 dits[1] = 0.035;
2472 dits[2] = 0.05;
9d2da7b3 2473 gMC->Gsvolu("I535", "BOX ", idtmed[203], dits, 3);
db915fea 2474
2475 dits[0] = 2;
2476 dits[1] = 0.035;
2477 dits[2] = 0.05;
9d2da7b3 2478 gMC->Gsvolu("I534", "BOX ", idtmed[203], dits, 3);
db915fea 2479
2480 dits[0] = 0;
2481 dits[1] = 0.05;
2482 dits[2] = 0.17;
9d2da7b3 2483 gMC->Gsvolu("I540", "TUBE", idtmed[203], dits, 3);
db915fea 2484
2485 dits[0] = 0;
2486 dits[1] = 0.05;
2487 dits[2] = 0.205;
9d2da7b3 2488 gMC->Gsvolu("I539", "TUBE", idtmed[203], dits, 3);
db915fea 2489
2490 dits[0] = 3.65;
2491 dits[1] = 0.015;
2492 dits[2] = 2;
2493 gMC->Gsvolu("ITS6", "BOX ", idtmed[200], dits, 3);
2494
e4f08ac3 2495 if (fluid == 1) {
2496 dits[0] = 0;
2497 dits[1] = 0.07;
2498 dits[2] = 3.15;
2499 gMC->Gsvolu("I550", "TUBE", idtmed[211], dits, 3); // set water as cooling fluid
2500 } else {
2501 dits[0] = 0;
2502 dits[1] = 0.07;
2503 dits[2] = 3.15;
2504 gMC->Gsvolu("I550", "TUBE", idtmed[212], dits, 3); // set freon as cooling fluid
2505 }
db915fea 2506
2507 dits[0] = 0.07;
2508 dits[1] = 0.1;
2509 dits[2] = 3.15;
9d2da7b3 2510 gMC->Gsvolu("I551", "TUBE", idtmed[210], dits, 3);
db915fea 2511
2512 dits[0] = 0.225;
2513 dits[1] = 0.195;
2514 dits[2] = 3.15;
2515 dits[3] = 0.025;
9d2da7b3 2516 gMC->Gsvolu("I549", "TRD1", idtmed[203], dits, 4);
db915fea 2517
2518 dits[0] = 0.25;
2519 dits[1] = 0.22;
2520 dits[2] = 3.15;
2521 dits[3] = 0.025;
9d2da7b3 2522 gMC->Gsvolu("I548", "TRD1", idtmed[203], dits, 4);
db915fea 2523
2524 dits[0] = 2.17;
2525 dits[1] = 0.035;
2526 dits[2] = 0.05;
9d2da7b3 2527 gMC->Gsvolu("I547", "BOX ", idtmed[203], dits, 3);
db915fea 2528
2529 dits[0] = 2;
2530 dits[1] = 0.035;
2531 dits[2] = 0.05;
9d2da7b3 2532 gMC->Gsvolu("I545", "BOX ", idtmed[203], dits, 3);
db915fea 2533
2534 dits[0] = 2.675;
2535 dits[1] = 0.035;
2536 dits[2] = 0.05;
9d2da7b3 2537 gMC->Gsvolu("I546", "BOX ", idtmed[203], dits, 3);
db915fea 2538
2539 dits[0] = 0.3;
2540 dits[1] = 0.15;
2541 dits[2] = 0.15;
9d2da7b3 2542 gMC->Gsvolu("I552", "BOX ", idtmed[203], dits, 3);
db915fea 2543
2544 dits[0] = 0.304;
2545 dits[1] = 0.0275;
2546 dits[2] = 0.4322;
9d2da7b3 2547 gMC->Gsvolu("I515", "BOX ", idtmed[206], dits, 3);
db915fea 2548
2549 dits[0] = 0.025;
2550 dits[1] = 0.025;
2551 dits[2] = 0.05;
9d2da7b3 2552 gMC->Gsvolu("I513", "BOX ", idtmed[214], dits, 3);
db915fea 2553
2554 dits[0] = 0.16;
2555 dits[1] = 0.08;
2556 dits[2] = 0.08;
9d2da7b3 2557 gMC->Gsvolu("I514", "BOX ", idtmed[214], dits, 3);
db915fea 2558
2559 dits[0] = 3.4;
2560 dits[1] = 0.015;
2561 dits[2] = 0.525;
9d2da7b3 2562 gMC->Gsvolu("I512", "BOX ", idtmed[203], dits, 3);
db915fea 2563
2564 dits[0] = 0.225;
2565 dits[1] = 0.195;
2566 dits[2] = 1.955;
2567 dits[3] = 0.025;
9d2da7b3 2568 gMC->Gsvolu("I528", "TRD1", idtmed[203], dits, 4);
db915fea 2569
2570 dits[0] = 0.25;
2571 dits[1] = 0.22;
2572 dits[2] = 1.955;
2573 dits[3] = 0.025;
9d2da7b3 2574 gMC->Gsvolu("I527", "TRD1", idtmed[203], dits, 4);
db915fea 2575
2576 dits[0] = 2.17;
2577 dits[1] = 0.035;
2578 dits[2] = 0.05;
9d2da7b3 2579 gMC->Gsvolu("I526", "BOX ", idtmed[203], dits, 3);
db915fea 2580
2581 dits[0] = 2.675;
2582 dits[1] = 0.035;
2583 dits[2] = 0.05;
9d2da7b3 2584 gMC->Gsvolu("I525", "BOX ", idtmed[203], dits, 3);
db915fea 2585
2586 dits[0] = 2;
2587 dits[1] = 0.035;
2588 dits[2] = 0.05;
9d2da7b3 2589 gMC->Gsvolu("I524", "BOX ", idtmed[203], dits, 3);
db915fea 2590
2591 dits[0] = 0;
2592 dits[1] = 0.05;
2593 dits[2] = 0.205;
9d2da7b3 2594 gMC->Gsvolu("I529", "TUBE", idtmed[203], dits, 3);
db915fea 2595
2596 dits[0] = 0;
2597 dits[1] = 0.05;
2598 dits[2] = 0.17;
9d2da7b3 2599 gMC->Gsvolu("I530", "TUBE", idtmed[203], dits, 3);
db915fea 2600
2601 dits[0] = 0.15;
2602 dits[1] = 0.105;
2603 dits[2] = 0.29;
2604 dits[3] = 0.08;
9d2da7b3 2605 gMC->Gsvolu("I517", "TRD1", idtmed[203], dits, 4);
db915fea 2606
e4f08ac3 2607 if (fluid == 1) {
2608 dits[0] = 0;
2609 dits[1] = 0.07;
2610 dits[2] = 1.955;
2611 gMC->Gsvolu("I531", "TUBE", idtmed[211], dits, 3); // set water as cooling fluid
2612 } else {
2613 dits[0] = 0;
2614 dits[1] = 0.07;
2615 dits[2] = 1.955;
2616 gMC->Gsvolu("I531", "TUBE", idtmed[212], dits, 3); // set freon as cooling fluid
2617 }
db915fea 2618
2619 dits[0] = 0.07;
2620 dits[1] = 0.1;
2621 dits[2] = 1.955;
9d2da7b3 2622 gMC->Gsvolu("I532", "TUBE", idtmed[210], dits, 3);
db915fea 2623
2624 dits[0] = 0.3;
2625 dits[1] = 0.15;
2626 dits[2] = 0.15;
9d2da7b3 2627 gMC->Gsvolu("I533", "BOX ", idtmed[203], dits, 3);
db915fea 2628
2629 dits[0] = 3.65;
2630 dits[1] = 0.015;
2631 dits[2] = 2;
2632 gMC->Gsvolu("ITS5", "BOX ", idtmed[200], dits, 3);
2633
2634
e4f08ac3 2635
2636 // --- Define volumes of shield of SPD ----------------
9d2da7b3 2637
2638
2639 dits[0] = 8.37;
2640 dits[1] = 9.93;
2641 dits[2] = 25;
2642 gMC->Gsvolu("IC01", "TUBE", idtmed[289], dits, 3);
2643
2644 dits[0] = 8.3;
e4f08ac3 2645 dits[1] = 9.995;
9d2da7b3 2646 dits[2] = 17.5/2.;
2647 gMC->Gsvolu("IC02", "TUBE", idtmed[289], dits, 3);
2648
2649
e4f08ac3 2650 // --- Define volume of first cylinder between SPD and SDD --------------
9d2da7b3 2651
e4f08ac3 2652 dits[0] = (21.-0.128)/2.;
2653 dits[1] = 21./2.;
2654 dits[2] = 39.4;
2655 gMC->Gsvolu("ICY1", "TUBE", idtmed[208], dits, 3);
9d2da7b3 2656
e4f08ac3 2657 // --- Define volume of second cylinder between SDD and SSD --------------
9d2da7b3 2658
e4f08ac3 2659 dits[0] = (59.5-0.128)/2.;
2660 dits[1] = 59.5/2.;
2661 dits[2] = 56.2; // was 57
2662 gMC->Gsvolu("ICY2", "TUBE", idtmed[208], dits, 3);
9d2da7b3 2663
2664 // --- Define volumes of SDD cone ----------------------------------
2665
2666 dits[0] = 0;
2667 dits[1] = 360;
2668 dits[2] = 12;
2669 dits[3] = -59.7;
2670 dits[4] = 27;
e4f08ac3 2671 dits[5] = 28.6;
9d2da7b3 2672 dits[6] = -42.7;
2673 dits[7] = 10;
e4f08ac3 2674 dits[8] = 28.6;
9d2da7b3 2675 dits[9] = -34.65;
2676 dits[10] = 10;
e4f08ac3 2677 dits[11] = 28.6;
9d2da7b3 2678 dits[12] = -34.65;
2679 dits[13] = 10;
2680 dits[14] = 23.495;
2681 dits[15] = -23.7;
2682 dits[16] = 10;
2683 dits[17] = 23.495;
2684 dits[18] = -23.7;
2685 dits[19] = 10;
2686 dits[20] = 14.595;
2687 dits[21] = 23.7;
2688 dits[22] = 10;
2689 dits[23] = 14.595;
2690 dits[24] = 23.7;
2691 dits[25] = 10;
2692 dits[26] = 23.495;
2693 dits[27] = 34.65;
2694 dits[28] = 10;
2695 dits[29] = 23.495;
2696 dits[30] = 34.65;
2697 dits[31] = 10;
e4f08ac3 2698 dits[32] = 28.6;
2699 dits[33] = 42.7;
9d2da7b3 2700 dits[34] = 10;
e4f08ac3 2701 dits[35] = 28.6;
9d2da7b3 2702 dits[36] = 59.7;
2703 dits[37] = 27.2637;
e4f08ac3 2704 dits[38] = 28.6;
9d2da7b3 2705 gMC->Gsvolu("IS02", "PCON", idtmed[204], dits, 39);
2706
2707 dits[0] = 0;
2708 dits[1] = 360;
2709 dits[2] = 6;
e4f08ac3 2710 dits[3] = 38.65;
2711 dits[4] = 10.75;
2712 dits[5] = 12.25;
2713 dits[6] = 40.15;
2714 dits[7] = 10.75;
2715 dits[8] = 13.96;
2716 dits[9] = 40.15;
2717 dits[10] = 12.46;
9d2da7b3 2718 dits[11] = 13.96;
e4f08ac3 2719 dits[12] = 55.75;
2720 dits[13] = 27;
2721 dits[14] = 28.5;
2722 dits[15] = 55.75;
2723 dits[16] = 27;
2724 dits[17] = 28.5;
2725 dits[18] = 57.25;
2726 dits[19] = 27;
2727 dits[20] = 28.5;
9d2da7b3 2728 gMC->Gsvolu("I093", "PCON", idtmed[272], dits, 21); // SDD cone
2729
2730 dits[0] = 0;
2731 dits[1] = 50;
2732 dits[2] = 3;
e4f08ac3 2733 dits[3] = 39;
9d2da7b3 2734 dits[4] = 14;
2735 dits[5] = 18.75;
2736 dits[6] = 46.7-3;
2737 dits[7] = 14;
2738 dits[8] = 18.75;
2739 dits[9] = 51.45-3;
2740 dits[10] = 18.75;
2741 dits[11] = 18.75;
e4f08ac3 2742 gMC->Gsvolu("I099", "PCON", idtmed[204], dits, 12); // SDD 3 cone hole
9d2da7b3 2743
2744 dits[0] = 0;
2745 dits[1] = 25;
2746 dits[2] = 3;
e4f08ac3 2747 dits[3] = 49;
9d2da7b3 2748 dits[4] = 23.4;
2749 dits[5] = 26.4;
2750 dits[6] = 56.1-3;
2751 dits[7] = 23.4;
2752 dits[8] = 26.4;
2753 dits[9] = 59.1-3;
2754 dits[10] = 26.4;
2755 dits[11] = 26.4;
e4f08ac3 2756 gMC->Gsvolu("I200", "PCON", idtmed[204], dits, 12); // SDD 4 cone hole
9d2da7b3 2757
e4f08ac3 2758 dits[0] = 10.0;
2759 dits[1] = 10.5;
9d2da7b3 2760 dits[2] = 0.25;
e4f08ac3 2761 gMC->Gsvolu("I090", "TUBE", idtmed[224], dits, 3); // SDD cylinder flange
9d2da7b3 2762
2763 dits[0] = 21.95;
e4f08ac3 2764 dits[1] = 22.95;
9d2da7b3 2765 dits[2] = 1;
e4f08ac3 2766 gMC->Gsvolu("I098", "TUBE", idtmed[283], dits, 3); // ladder support on layer 4
9d2da7b3 2767
e4f08ac3 2768 dits[0] = 13.1;
2769 dits[1] = 14.1;
9d2da7b3 2770 dits[2] = 1;
e4f08ac3 2771 gMC->Gsvolu("I097", "TUBE", idtmed[283], dits, 3); // ladder support on layer 3
9d2da7b3 2772
2773 dits[0] = 1;
2774 dits[1] = 1;
2775 dits[2] = 7.74;
2776 gMC->Gsvolu("I202", "BOX ", idtmed[272], dits, 3);
2777
2778 dits[0] = 1;
2779 dits[1] = 1;
2780 dits[2] = 9.14;
2781 gMC->Gsvolu("I203", "BOX ", idtmed[272], dits, 3);
2782
2783 dits[0] = 21.95;
2784 dits[1] = 22.95;
2785 dits[2] = 1;
2786 gMC->Gsvolu("I095", "TUBE", idtmed[224], dits, 3);
2787
2788 dits[0] = 3;
2789 dits[1] = 2.7;
2790 dits[2] = 1;
2791 dits[3] = 0.63;
2792 gMC->Gsvolu("I096", "TRD1", idtmed[264], dits, 4);
2793
2794 dits[0] = 13.1;
2795 dits[1] = 14.1;
2796 dits[2] = 1;
2797 gMC->Gsvolu("I094", "TUBE", idtmed[224], dits, 3);
2798
2799
2800 // --- Define volumes of SSD cone ----------------------------------
2801
2802
2803 dits[0] = 0;
2804 dits[1] = 360;
2805 dits[2] = 12;
e4f08ac3 2806 dits[3] = -zmax;
2807 dits[4] = 46;
2808 dits[5] = 49.25;
9d2da7b3 2809 dits[6] = -61.2;
e4f08ac3 2810 dits[7] = 28.7;
2811 dits[8] = 49.25;
9d2da7b3 2812 dits[9] = -57.5;
e4f08ac3 2813 dits[10] = 28.7;
2814 dits[11] = 49.25;
9d2da7b3 2815 dits[12] = -57.5;
e4f08ac3 2816 dits[13] = 28.7;
9d2da7b3 2817 dits[14] = 43.5;
e4f08ac3 2818 dits[15] = -49.2;
2819 dits[16] = 28.7;
9d2da7b3 2820 dits[17] = 43.5;
e4f08ac3 2821 dits[18] = -49.2;
2822 dits[19] = 28.7;
2823 dits[20] = 36.85;
2824 dits[21] = 50.6;
2825 dits[22] = 28.7;
2826 dits[23] = 36.85;
2827 dits[24] = 50.6;
2828 dits[25] = 28.7;
9d2da7b3 2829 dits[26] = 43.5;
e4f08ac3 2830 dits[27] = 57.5;
2831 dits[28] = 28.7;
9d2da7b3 2832 dits[29] = 43.5;
e4f08ac3 2833 dits[30] = 57.5;
2834 dits[31] = 28.7;
2835 dits[32] = 49.25;
2836 dits[33] = 61.2;
2837 dits[34] = 28.7;
2838 dits[35] = 49.25;
2839 dits[36] = zmax;
2840 dits[37] = 46;
2841 dits[38] = 49.25;
2842 gMC->Gsvolu("IS01", "PCON", idtmed[204], dits, 39); // SSD cone mother volume
9d2da7b3 2843
2844 dits[0] = 0;
2845 dits[1] = 360;
2846 dits[2] = 6;
e4f08ac3 2847 dits[3] = -zmax;
2848 dits[4] = 47.75;
2849 dits[5] = 49.25;
2850 dits[6] = -zmax+2.;
2851 dits[7] = 47.75;
2852 dits[8] = 49.25;
2853 dits[9] = -71.2819;
2854 dits[10] = 46.75;
2855 dits[11] = 49.0319;
2856 dits[12] = -57.25; // was 58.5
2857 dits[13] = 32.9681;
2858 dits[14] = 34.75;
2859 dits[15] = -57.25; // was 58.5
2860 dits[16] = 30;
2861 dits[17] = 34.75;
2862 dits[18] = -55.75; // was 57
2863 dits[19] = 30;
2864 dits[20] = 32.25; // was 31.5
9d2da7b3 2865 gMC->Gsvolu("I212", "PCON", idtmed[272], dits, 21); // SSD cone
2866
e4f08ac3 2867 dits[0] = 28.75;
2868 dits[1] = 29.75;
9d2da7b3 2869 dits[2] = 0.5;
e4f08ac3 2870 gMC->Gsvolu("I211", "TUBE", idtmed[224], dits, 3); // SSD cylinder flange
9d2da7b3 2871
e4f08ac3 2872 dits[0] = 35.8;
2873 dits[1] = 36.8;
9d2da7b3 2874 dits[2] = 1;
e4f08ac3 2875 gMC->Gsvolu("I217", "TUBE", idtmed[283], dits, 3); // ladder support on layer 5
9d2da7b3 2876
e4f08ac3 2877 dits[0] = 41.4;
2878 dits[1] = 42.4;
9d2da7b3 2879 dits[2] = 1;
e4f08ac3 2880 gMC->Gsvolu("I219", "TUBE", idtmed[283], dits, 3); // ladder support on layer 6
2881
2882 dits[0] = 42.05+5.;
2883 dits[1] = 42.55+5.;
9d2da7b3 2884 dits[2] = 1.25;
e4f08ac3 2885 gMC->Gsvolu("I214", "TUBE", idtmed[224], dits, 3); // layer 6 electronic support
2886 // this will change after PPR
2887 dits[0] = 37.05+5.;
2888 dits[1] = 37.55+5.;
9d2da7b3 2889 dits[2] = 1.25;
e4f08ac3 2890 gMC->Gsvolu("I213", "TUBE", idtmed[224], dits, 3); // layer 5 electronic support
2891 // this will change after PPR
9d2da7b3 2892 dits[0] = 0;
2893 dits[1] = 25;
2894 dits[2] = 5;
e4f08ac3 2895 dits[3] = -zmax+3;
2896 dits[4] = 45.5;
2897 dits[5] = 45.5;
9d2da7b3 2898 dits[6] = -69.7+3;
2899 dits[7] = 37;
e4f08ac3 2900 dits[8] = 45.5;
9d2da7b3 2901 dits[9] = -68.5+3;
2902 dits[10] = 37;
e4f08ac3 2903 dits[11] = 45.5;
9d2da7b3 2904 dits[12] = -68.5+4.8;
2905 dits[13] = 37;
e4f08ac3 2906 dits[14] = 45.5;
9d2da7b3 2907 dits[15] = -63.5+4.8;
2908 dits[16] = 37;
e4f08ac3 2909 dits[17] = 45.5;
2910 gMC->Gsvolu("I215", "PCON", idtmed[204], dits, 18); // SSD cone hole
9d2da7b3 2911
2912 dits[0] = 0;
2913 dits[1] = 3.2;
2914 dits[2] = 9;
e4f08ac3 2915 dits[3] = -14;
9d2da7b3 2916 dits[4] = 30.5;
2917 dits[5] = 33.5;
e4f08ac3 2918 dits[6] = -9.85;
9d2da7b3 2919 dits[7] = 30.5;
2920 dits[8] = 33.5;
e4f08ac3 2921 dits[9] = -9.85;
9d2da7b3 2922 dits[10] = 30.5;
e4f08ac3 2923 dits[11] = 43.45;
2924 dits[12] = -7.85;
9d2da7b3 2925 dits[13] = 30.5;
e4f08ac3 2926 dits[14] = 43.45;
2927 dits[15] = -7.85;
9d2da7b3 2928 dits[16] = 30.5;
2929 dits[17] = 36.5;
e4f08ac3 2930 dits[18] = -7;
9d2da7b3 2931 dits[19] = 30.5;
2932 dits[20] = 36.5;
e4f08ac3 2933 dits[21] = -4;
9d2da7b3 2934 dits[22] = 33.0173;
2935 dits[23] = 36.5;
e4f08ac3 2936 dits[24] = -4;
9d2da7b3 2937 dits[25] = 33.0173;
e4f08ac3 2938 dits[26] = 36.80;
2939 dits[27] = -2;
9d2da7b3 2940 dits[28] = 34.6955;
e4f08ac3 2941 dits[29] = 36.80;
2942 gMC->Gsvolu("I216", "PCON", idtmed[272], dits, 30); // supports (1-6) of the ladders
9d2da7b3 2943
2944
2945 // --- Place SPD (option 'a') volumes into their mother volume IT12
2946
2947 // SPD - option 'a'
2948 // (this is NOT the default)
2949
2950 if (option == 1) {
2951
2952 gMC->Gspos("I12A",5,"IT12",0.0,0.0,0.0,idrotm[238],"MANY");
2953 gMC->Gspos("I12A",6,"IT12",0.0,0.0,0.0,idrotm[236],"MANY");
2954 gMC->Gspos("I12A",7,"IT12",0.0,0.0,0.0,idrotm[239],"MANY");
2955 gMC->Gspos("I12A",8,"IT12",0.0,0.0,0.0,idrotm[233],"MANY");
2956 gMC->Gspos("I12A",9,"IT12",0.0,0.0,0.0,idrotm[240],"MANY");
2957 gMC->Gspos("I12A",10,"IT12",0.0,0.0,0.0,idrotm[241],"MANY");
2958 gMC->Gspos("I12A",2,"IT12",0.0,0.0,0.0,idrotm[242],"MANY");
2959 gMC->Gspos("I12A",3,"IT12",0.0,0.0,0.0,idrotm[234],"MANY");
2960 gMC->Gspos("I12A",4,"IT12",0.0,0.0,0.0,idrotm[243],"MANY");
2961 gMC->Gspos("I12A",1,"IT12",0.0,0.0,0.0,0,"MANY");
2962 deltax=((ddet1-0.01/2.)+(dchip1-0.015/2.))*TMath::Cos(270.*TMath::Pi()/180.); // see definition of idrotm[244]
2963 deltay=((ddet1-0.01/2.)+(dchip1-0.015/2.))*TMath::Sin(270.*TMath::Pi()/180.); // see definition of idrotm[244]
2964 gMC->Gspos("I10A",2,"I12A",0.203+deltax,3.8206+deltay,0.0,idrotm[244],"ONLY");
2965 deltax=((ddet1-0.01/2.)+(dchip1-0.015/2.))*TMath::Cos(252.*TMath::Pi()/180.); // see definition of idrotm[245]
2966 deltay=((ddet1-0.01/2.)+(dchip1-0.015/2.))*TMath::Sin(252.*TMath::Pi()/180.); // see definition of idrotm[245]
2967 gMC->Gspos("I10A",1,"I12A",1.4531+deltax,3.8152+deltay,0.0,idrotm[245],"ONLY");
2968 deltax=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Cos(40.*TMath::Pi()/180.); // see definition of idrotm[246]
2969 deltay=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Sin(40.*TMath::Pi()/180.); // see definition of idrotm[246]
2970 gMC->Gspos("I20A",1,"I12A",3.0174+deltax,6.5143+deltay,0.0,idrotm[246],"ONLY");
2971 deltax=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Cos(49.*TMath::Pi()/180.); // see definition of idrotm[247]
2972 deltay=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Sin(49.*TMath::Pi()/180.); // see definition of idrotm[247]
2973 gMC->Gspos("I20A",2,"I12A",1.9612+deltax,6.9062+deltay,0.0,idrotm[247],"ONLY");
2974 deltax=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Cos(58.*TMath::Pi()/180.); // see definition of idrotm[248]
2975 deltay=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Sin(58.*TMath::Pi()/180.); // see definition of idrotm[248]
2976 gMC->Gspos("I20A",3,"I12A",0.8567+deltax,7.1279+deltay,0.0,idrotm[248],"ONLY");
2977 deltax=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Cos(67.*TMath::Pi()/180.); // see definition of idrotm[249]
2978 deltay=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Sin(67.*TMath::Pi()/180.); // see definition of idrotm[249]
2979 gMC->Gspos("I20A",4,"I12A",-0.2689+deltax,7.1742+deltay,0.0,idrotm[249],"ONLY");
2980 gMC->Gspos("I123",2,"I12A",-0.2978,5.5196,0.0,idrotm[214],"ONLY");
2981 gMC->Gspos("I121",2,"I12A",-0.2385,4.1518,0.0,idrotm[213],"ONLY");
2982 gMC->Gspos("I122",2,"I12A",-0.2968,4.0207,0.0,idrotm[212],"ONLY");
2983 gMC->Gspos("I120",2,"I12A",-0.3672,3.9056,0.0,0,"ONLY");
2984 gMC->Gspos("I144",1,"I12A",-0.2538,3.8556,0.0,0,"ONLY");
2985 gMC->Gspos("I113",3,"I12A",0.1095,3.9056,0.0,0,"ONLY");
2986 gMC->Gspos("I143",1,"I12A",0.4365,3.8556,0.0,idrotm[236],"ONLY");
2987 gMC->Gspos("I142",1,"I12A",0.5136,3.9056,0.0,idrotm[235],"ONLY");
2988 gMC->Gspos("I141",1,"I12A",0.5636,3.9752,0.0,idrotm[201],"ONLY");
2989 gMC->Gspos("I140",1,"I12A",0.6336,4.0447,0.0,idrotm[234],"ONLY");
2990 gMC->Gspos("I139",1,"I12A",0.8297,4.0545,0.0,idrotm[207],"ONLY");
2991 gMC->Gspos("I113",5,"I12A",1.2575,3.9681,0.0,idrotm[207],"ONLY");
2992 gMC->Gspos("I138",1,"I12A",1.66,3.7848,0.0,idrotm[207],"ONLY");
2993 gMC->Gspos("I137",1,"I12A",1.8556,3.7738,0.0,idrotm[233],"ONLY");
2994 gMC->Gspos("I136",1,"I12A",2.6224,4.874,0.0,idrotm[232],"ONLY");
2995 gMC->Gspos("I135",1,"I12A",3.2967,6.0337,0.0,idrotm[231],"ONLY");
2996 gMC->Gspos("I134",1,"I12A",3.266,6.1636,0.0,idrotm[230],"ONLY");
2997 gMC->Gspos("I113",1,"I12A",2.9903,6.4144,0.0,idrotm[211],"ONLY");
2998 gMC->Gspos("I133",3,"I12A",2.7631,6.7627,0.0,idrotm[230],"ONLY");
2999 gMC->Gspos("I132",3,"I12A",2.62,6.8555,0.0,idrotm[229],"ONLY");
3000 gMC->Gspos("I131",3,"I12A",2.648,6.6023,0.0,idrotm[228],"ONLY");
3001 gMC->Gspos("I130",3,"I12A",2.6569,6.3431,0.0,idrotm[227],"ONLY");
3002 gMC->Gspos("I129",3,"I12A",2.3906,6.4819,0.0,idrotm[226],"ONLY");
3003 gMC->Gspos("I113",2,"I12A",1.9488,6.7998,0.0,idrotm[210],"ONLY");
3004 gMC->Gspos("I133",2,"I12A",1.6699,7.1085,0.0,idrotm[226],"ONLY");
3005 gMC->Gspos("I132",2,"I12A",1.5142,7.1777,0.0,idrotm[225],"ONLY");
3006 gMC->Gspos("I131",2,"I12A",1.5814,6.932,0.0,idrotm[224],"ONLY");
3007 gMC->Gspos("I130",2,"I12A",1.6308,6.6774,0.0,idrotm[223],"ONLY");
3008 gMC->Gspos("I129",2,"I12A",1.346,6.7728,0.0,idrotm[222],"ONLY");
3009 gMC->Gspos("I113",6,"I12A",0.8599,7.0176,0.0,idrotm[209],"ONLY");
3010 gMC->Gspos("I133",1,"I12A",0.5362,7.2789,0.0,idrotm[222],"ONLY");
3011 gMC->Gspos("I132",1,"I12A",0.3715,7.3228,0.0,idrotm[221],"ONLY");
3012 gMC->Gspos("I131",1,"I12A",0.4763,7.0907,0.0,idrotm[220],"ONLY");
3013 gMC->Gspos("I130",1,"I12A",0.5649,6.8469,0.0,idrotm[219],"ONLY");
3014 gMC->Gspos("I129",1,"I12A",0.2688,6.8966,0.0,idrotm[218],"ONLY");
3015 gMC->Gspos("I113",4,"I12A",-0.2497,7.0624,0.0,idrotm[208],"ONLY");
3016 gMC->Gspos("I128",1,"I12A",-0.6103,7.2698,0.0,idrotm[218],"ONLY");
3017 gMC->Gspos("I126",2,"I12A",-0.7799,7.2874,0.0,idrotm[217],"ONLY");
3018 gMC->Gspos("I125",2,"I12A",-0.6315,7.0883,0.0,idrotm[216],"ONLY");
3019 gMC->Gspos("I124",2,"I12A",-0.4965,6.8742,0.0,idrotm[215],"ONLY");
9bf5e8ff 3020 gMC->Gspos("I103",3,"I10A",-0.05,-di10a[1]+2.*di104[1]+di103[1],-3.536,0,"ONLY");
3021 gMC->Gspos("I103",4,"I10A",-0.05,-di10a[1]+2.*di104[1]+di103[1],-10.708,0,"ONLY");
9d2da7b3 3022 gMC->Gspos("I103",1,"I10A",-0.05,-di10a[1]+2.*di104[1]+di103[1],10.708,0,"ONLY");
3023 gMC->Gspos("I103",2,"I10A",-0.05,-di10a[1]+2.*di104[1]+di103[1],3.536,0,"ONLY");
3024 gMC->Gspos("I105",1,"I10A",-0.05,0.01,-16.844,idrotm[237],"ONLY");
3025 gMC->Gspos("I105",2,"I10A",-0.05,0.01,16.844,0,"ONLY");
3026 gMC->Gspos("I104",1,"I10A",0.0,-di10a[1]+di104[1],0.0,0,"ONLY");
9bf5e8ff 3027 gMC->Gspos("I1D3",3,"I20A",-0.05,-di20a[1]+2.*di104[1]+di1d3[1],-3.536,0,"ONLY");
3028 gMC->Gspos("I1D3",4,"I20A",-0.05,-di20a[1]+2.*di104[1]+di1d3[1],-10.708,0,"ONLY");
9d2da7b3 3029 gMC->Gspos("I1D3",1,"I20A",-0.05,-di20a[1]+2.*di104[1]+di1d3[1],10.708,0,"ONLY");
3030 gMC->Gspos("I1D3",2,"I20A",-0.05,-di20a[1]+2.*di104[1]+di1d3[1],3.536,0,"ONLY");
3031 gMC->Gspos("I105",3,"I20A",-0.05,0.01,-16.844,idrotm[237],"ONLY");
3032 gMC->Gspos("I105",4,"I20A",-0.05,0.01,16.844,0,"ONLY");
3033 gMC->Gspos("I104",2,"I20A",0.0,-di20a[1]+di104[1],0.0,0,"ONLY");
3034 gMC->Gspos("I112",2,"I113",0.25,0.02,0.0,idrotm[206],"ONLY");
3035 gMC->Gspos("I111",2,"I113",0.1318,-0.0008,0.0,idrotm[205],"ONLY");
3036 gMC->Gspos("I118",1,"I113",0.0,-0.0454,0.0,0,"ONLY");
3037 gMC->Gspos("I110",1,"I113",0.0,0.0492,0.0,0,"ONLY");
3038 gMC->Gspos("I114",1,"I113",0.063,0.0042,0.0,idrotm[202],"ONLY");
3039 gMC->Gspos("I115",1,"I113",0.063,0.0042,0.0,idrotm[202],"ONLY");
3040 gMC->Gspos("I115",2,"I113",-0.063,0.0042,0.0,idrotm[201],"ONLY");
3041 gMC->Gspos("I114",2,"I113",-0.063,0.0042,0.0,idrotm[201],"ONLY");
3042 gMC->Gspos("I116",1,"I113",0.0,0.0042,0.0,0,"ONLY");
3043 gMC->Gspos("I111",1,"I113",-0.1318,-0.0008,0.0,idrotm[204],"ONLY");
3044 gMC->Gspos("I112",1,"I113",-0.25,0.02,0.0,idrotm[203],"ONLY");
3045 gMC->Gspos("I101",1,"I103",-0.088,ddet1,0.0,0,"ONLY");
3046 gMC->Gspos("I102",1,"I103",0.0,-dchip1,-2.8,0,"ONLY");
3047 gMC->Gspos("I102",2,"I103",0.0,-dchip1,-1.4,0,"ONLY");
3048 gMC->Gspos("I102",3,"I103",0.0,-dchip1,0.0,0,"ONLY");
3049 gMC->Gspos("I102",4,"I103",0.0,-dchip1,1.4,0,"ONLY");
3050 gMC->Gspos("I102",5,"I103",0.0,-dchip1,2.8,0,"ONLY");
3051 gMC->Gspos("I1D1",1,"I1D3",-0.088,ddet2,0.0,0,"ONLY");
3052 gMC->Gspos("I1D2",1,"I1D3",0.0,-dchip2,-2.8,0,"ONLY");
3053 gMC->Gspos("I1D2",2,"I1D3",0.0,-dchip2,-1.4,0,"ONLY");
3054 gMC->Gspos("I1D2",3,"I1D3",0.0,-dchip2,0.0,0,"ONLY");
3055 gMC->Gspos("I1D2",4,"I1D3",0.0,-dchip2,1.4,0,"ONLY");
3056 gMC->Gspos("I1D2",5,"I1D3",0.0,-dchip2,2.8,0,"ONLY");
3057 gMC->Gspos("I117",1,"I116",0.0,0.0,0.0,0,"ONLY");
3058 gMC->Gspos("ITS1",1,"I101",0.0,0.0,0.0,0,"ONLY");
3059 gMC->Gspos("ITS2",1,"I1D1",0.0,0.0,0.0,0,"ONLY");
3060 gMC->Gspos("I650",16,"IT12",0.0,0.0,22.0,idrotm[1104],"MANY");
3061 gMC->Gspos("I650",20,"IT12",0.0,0.0,22.0,idrotm[1130],"MANY");
3062 gMC->Gspos("I650",18,"IT12",0.0,0.0,22.0,idrotm[1117],"MANY");
3063 gMC->Gspos("I650",1,"IT12",0.0,0.0,22.0,0,"MANY");
3064 gMC->Gspos("I650",4,"IT12",0.0,0.0,22.0,idrotm[1106],"MANY");
3065 gMC->Gspos("I650",6,"IT12",0.0,0.0,22.0,idrotm[1039],"MANY");
3066 gMC->Gspos("I650",8,"IT12",0.0,0.0,22.0,idrotm[1107],"MANY");
3067 gMC->Gspos("I650",10,"IT12",0.0,0.0,22.0,idrotm[1065],"MANY");
3068 gMC->Gspos("I650",12,"IT12",0.0,0.0,22.0,idrotm[1078],"MANY");
3069 gMC->Gspos("I650",14,"IT12",0.0,0.0,22.0,idrotm[1091],"MANY");
3070 gMC->Gspos("I650",19,"IT12",0.0,0.0,-22.0,idrotm[1108],"MANY");
3071 gMC->Gspos("I650",2,"IT12",0.0,0.0,-22.0,idrotm[1109],"MANY");
3072 gMC->Gspos("I650",3,"IT12",0.0,0.0,-22.0,idrotm[1110],"MANY");
3073 gMC->Gspos("I650",5,"IT12",0.0,0.0,-22.0,idrotm[1111],"MANY");
3074 gMC->Gspos("I650",7,"IT12",0.0,0.0,-22.0,idrotm[1112],"MANY");
3075 gMC->Gspos("I650",9,"IT12",0.0,0.0,-22.0,idrotm[1113],"MANY");
3076 gMC->Gspos("I650",11,"IT12",0.0,0.0,-22.0,idrotm[1114],"MANY");
3077 gMC->Gspos("I650",13,"IT12",0.0,0.0,-22.0,idrotm[1115],"MANY");
3078 gMC->Gspos("I650",15,"IT12",0.0,0.0,-22.0,idrotm[1116],"MANY");
3079 gMC->Gspos("I650",17,"IT12",0.0,0.0,-22.0,idrotm[1118],"MANY");
3080 gMC->Gspos("I666",1,"I650",0.0,0.0,0.25,idrotm[1003],"MANY");
3081 gMC->Gspos("I667",1,"I650",0.1102,0.9945,0.45,idrotm[1088],"ONLY");
3082 gMC->Gspos("I669",3,"I650",0.1883,4.0372,-3.2,0,"ONLY");
3083 gMC->Gspos("I671",3,"I650",0.1883,4.0372,0.6,0,"ONLY");
3084 gMC->Gspos("I669",2,"I650",1.3343,4.0609,-3.2,0,"ONLY");
3085 gMC->Gspos("I671",2,"I650",1.3343,4.0609,0.6,0,"ONLY");
3086 gMC->Gspos("I669",6,"I650",2.9567,6.1959,-3.2,idrotm[1089],"ONLY");
3087 gMC->Gspos("I671",6,"I650",2.9567,6.1959,0.6,idrotm[1089],"ONLY");
3088 gMC->Gspos("I669",5,"I650",1.9511,6.5822,-3.2,idrotm[1011],"ONLY");
3089 gMC->Gspos("I671",5,"I650",1.9511,6.5822,0.6,idrotm[1011],"ONLY");
3090 gMC->Gspos("I669",4,"I650",0.8974,6.8064,-3.2,idrotm[1090],"ONLY");
3091 gMC->Gspos("I671",4,"I650",0.8974,6.8064,0.6,idrotm[1090],"ONLY");
3092 gMC->Gspos("I669",1,"I650",-0.1784,6.863,-3.2,0,"ONLY");
3093 gMC->Gspos("I671",1,"I650",-0.1784,6.863,0.6,0,"ONLY");
3094 gMC->Gspos("I673",1,"I650",0.2173,4.8037,1.8,0,"ONLY");
3095 gMC->Gspos("I673",6,"I650",1.5093,4.5605,1.8,0,"ONLY");
3096 gMC->Gspos("I673",4,"I650",-0.173,6.2531,1.8,idrotm[1092],"ONLY");
3097 gMC->Gspos("I673",3,"I650",0.8073,6.2032,1.8,idrotm[1093],"ONLY");
3098 gMC->Gspos("I673",2,"I650",1.7678,6.0005,1.8,idrotm[1094],"ONLY");
3099 gMC->Gspos("I673",5,"I650",2.6847,5.6501,1.8,0,"ONLY");
3100 gMC->Gspos("I676",2,"I650",1.7618,5.2269,2.5,0,"ONLY");
3101 gMC->Gspos("I676",1,"I650",0.4018,5.5869,2.5,0,"ONLY");
3102 gMC->Gspos("I668",1,"I667",0.0,0.0,0.0,0,"ONLY");
3103 gMC->Gspos("I670",1,"I669",0.0,0.0,0.0,0,"ONLY");
3104 gMC->Gspos("I672",1,"I671",0.0,0.0,0.0,0,"ONLY");
3105 gMC->Gspos("I674",1,"I673",0.0,0.0,0.0,0,"MANY");
3106 gMC->Gspos("I675",1,"I673",0.0,0.0,-0.5,0,"ONLY");
3107 gMC->Gspos("I677",1,"I676",0.0,0.0,0.0,0,"MANY");
3108 gMC->Gspos("I678",1,"I676",0.0,0.0,-0.95,0,"ONLY");
3109
3110 }
3111
3112
3113 // --- Place SPD (option 'b') volumes into their mother volume IT12
3114
3115 // SPD - option 'b'
3116 // (this is the default)
3117
3118 if (option == 2) {
3119
3120 gMC->Gspos("I12B",1,"IT12",0.0,0.0,0.0,0,"MANY");
3121 gMC->Gspos("I12B",8,"IT12",0.0,0.0,0.0,idrotm[233],"MANY");
3122 gMC->Gspos("I12B",7,"IT12",0.0,0.0,0.0,idrotm[244],"MANY");
3123 gMC->Gspos("I12B",6,"IT12",0.0,0.0,0.0,idrotm[236],"MANY");
3124 gMC->Gspos("I12B",2,"IT12",0.0,0.0,0.0,idrotm[245],"MANY");
3125 gMC->Gspos("I12B",3,"IT12",0.0,0.0,0.0,idrotm[234],"MANY");
3126 gMC->Gspos("I12B",4,"IT12",0.0,0.0,0.0,idrotm[246],"MANY");
3127 gMC->Gspos("I12B",5,"IT12",0.0,0.0,0.0,idrotm[247],"MANY");
3128 gMC->Gspos("I12B",9,"IT12",0.0,0.0,0.0,idrotm[248],"MANY");
3129 gMC->Gspos("I12B",10,"IT12",0.0,0.0,0.0,idrotm[249],"MANY");
3130 deltax=((ddet1-0.01/2.)+(dchip1-0.015/2.))*TMath::Cos(270.*TMath::Pi()/180.); // see definition of idrotm[238]
3131 deltay=((ddet1-0.01/2.)+(dchip1-0.015/2.))*TMath::Sin(270.*TMath::Pi()/180.); // see definition of idrotm[238]
3132 gMC->Gspos("I10B",2,"I12B",0.203+deltax,3.8206+deltay,0.0,idrotm[238],"ONLY");
3133 deltax=((ddet1-0.01/2.)+(dchip1-0.015/2.))*TMath::Cos(252.*TMath::Pi()/180.); // see definition of idrotm[239]
3134 deltay=((ddet1-0.01/2.)+(dchip1-0.015/2.))*TMath::Sin(252.*TMath::Pi()/180.); // see definition of idrotm[239]
3135 gMC->Gspos("I10B",1,"I12B",1.4531+deltax,3.8152+deltay,0.0,idrotm[239],"ONLY");
3136 deltax=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Cos(40.*TMath::Pi()/180.); // see definition of idrotm[240]
3137 deltay=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Sin(40.*TMath::Pi()/180.); // see definition of idrotm[240]
3138 gMC->Gspos("I20B",1,"I12B",3.0174+deltax,6.5143+deltay,0.0,idrotm[240],"ONLY");
3139 deltax=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Cos(49.*TMath::Pi()/180.); // see definition of idrotm[241]
3140 deltay=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Sin(49.*TMath::Pi()/180.); // see definition of idrotm[241]
3141 gMC->Gspos("I20B",2,"I12B",1.9612+deltax,6.9062+deltay,0.0,idrotm[241],"ONLY");
3142 deltax=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Cos(58.*TMath::Pi()/180.); // see definition of idrotm[242]
3143 deltay=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Sin(58.*TMath::Pi()/180.); // see definition of idrotm[242]
3144 gMC->Gspos("I20B",3,"I12B",0.8567+deltax,7.1279+deltay,0.0,idrotm[242],"ONLY");
3145 deltax=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Cos(67.*TMath::Pi()/180.); // see definition of idrotm[243]
3146 deltay=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Sin(67.*TMath::Pi()/180.); // see definition of idrotm[243]
3147 gMC->Gspos("I20B",4,"I12B",-0.2689+deltax,7.1742+deltay,0.0,idrotm[243],"ONLY");
3148 gMC->Gspos("I123",1,"I12B",-0.2978,5.5196,0.0,idrotm[214],"ONLY");
3149 gMC->Gspos("I121",1,"I12B",-0.2385,4.1518,0.0,idrotm[213],"ONLY");
3150 gMC->Gspos("I122",1,"I12B",-0.2968,4.0207,0.0,idrotm[212],"ONLY");
3151 gMC->Gspos("I120",1,"I12B",-0.3672,3.9056,0.0,0,"ONLY");
3152 gMC->Gspos("I144",1,"I12B",-0.2538,3.8556,0.0,0,"ONLY");
3153 gMC->Gspos("I113",3,"I12B",0.1095,3.9056,0.0,0,"ONLY");
3154 gMC->Gspos("I143",1,"I12B",0.4365,3.8556,0.0,idrotm[236],"ONLY");
3155 gMC->Gspos("I142",1,"I12B",0.5136,3.9056,0.0,idrotm[235],"ONLY");
3156 gMC->Gspos("I141",1,"I12B",0.5636,3.9752,0.0,idrotm[237],"ONLY");
3157 gMC->Gspos("I140",1,"I12B",0.6336,4.0447,0.0,idrotm[234],"ONLY");
3158 gMC->Gspos("I139",1,"I12B",0.8297,4.0545,0.0,idrotm[207],"ONLY");
3159 gMC->Gspos("I113",5,"I12B",1.2575,3.9681,0.0,idrotm[207],"ONLY");
3160 gMC->Gspos("I138",1,"I12B",1.66,3.7848,0.0,idrotm[207],"ONLY");
3161 gMC->Gspos("I137",1,"I12B",1.8556,3.7738,0.0,idrotm[233],"ONLY");
3162 gMC->Gspos("I136",1,"I12B",2.6224,4.874,0.0,idrotm[232],"ONLY");
3163 gMC->Gspos("I135",1,"I12B",3.2967,6.0337,0.0,idrotm[231],"ONLY");
3164 gMC->Gspos("I134",1,"I12B",3.266,6.1636,0.0,idrotm[230],"ONLY");
3165 gMC->Gspos("I113",1,"I12B",2.9903,6.4144,0.0,idrotm[211],"ONLY");
3166 gMC->Gspos("I133",3,"I12B",2.7631,6.7627,0.0,idrotm[230],"ONLY");
3167 gMC->Gspos("I132",3,"I12B",2.62,6.8555,0.0,idrotm[229],"ONLY");
3168 gMC->Gspos("I131",3,"I12B",2.648,6.6023,0.0,idrotm[228],"ONLY");
3169 gMC->Gspos("I130",3,"I12B",2.6569,6.3431,0.0,idrotm[227],"ONLY");
3170 gMC->Gspos("I129",3,"I12B",2.3906,6.4819,0.0,idrotm[226],"ONLY");
3171 gMC->Gspos("I113",2,"I12B",1.9488,6.7998,0.0,idrotm[210],"ONLY");
3172 gMC->Gspos("I133",2,"I12B",1.6699,7.1085,0.0,idrotm[226],"ONLY");
3173 gMC->Gspos("I132",2,"I12B",1.5142,7.1777,0.0,idrotm[225],"ONLY");
3174 gMC->Gspos("I131",2,"I12B",1.5814,6.932,0.0,idrotm[224],"ONLY");
3175 gMC->Gspos("I130",2,"I12B",1.6308,6.6774,0.0,idrotm[223],"ONLY");
3176 gMC->Gspos("I129",2,"I12B",1.346,6.7728,0.0,idrotm[222],"ONLY");
3177 gMC->Gspos("I113",6,"I12B",0.8599,7.0176,0.0,idrotm[209],"ONLY");
3178 gMC->Gspos("I133",1,"I12B",0.5362,7.2789,0.0,idrotm[222],"ONLY");
3179 gMC->Gspos("I132",1,"I12B",0.3715,7.3228,0.0,idrotm[221],"ONLY");
3180 gMC->Gspos("I131",1,"I12B",0.4763,7.0907,0.0,idrotm[220],"ONLY");
3181 gMC->Gspos("I130",1,"I12B",0.5649,6.8469,0.0,idrotm[219],"ONLY");
3182 gMC->Gspos("I129",1,"I12B",0.2688,6.8966,0.0,idrotm[218],"ONLY");
3183 gMC->Gspos("I113",4,"I12B",-0.2497,7.0624,0.0,idrotm[208],"ONLY");
3184 gMC->Gspos("I128",1,"I12B",-0.6103,7.2698,0.0,idrotm[218],"ONLY");
3185 gMC->Gspos("I126",1,"I12B",-0.7799,7.2874,0.0,idrotm[217],"ONLY");
3186 gMC->Gspos("I125",1,"I12B",-0.6315,7.0883,0.0,idrotm[216],"ONLY");
3187 gMC->Gspos("I124",1,"I12B",-0.4965,6.8742,0.0,idrotm[215],"ONLY");
3188 gMC->Gspos("I105",3,"I10B",-0.05,-0.01,-16.844,idrotm[201],"ONLY");
3189 gMC->Gspos("I105",4,"I10B",-0.05,-0.01,16.844,0,"ONLY");
3190 gMC->Gspos("I107",2,"I10B",-0.0455,-di10b[1]+di107[1],3.536,0,"ONLY");
3191 gMC->Gspos("I107",1,"I10B",-0.0455,-di10b[1]+di107[1],10.708,0,"ONLY");
9bf5e8ff 3192 gMC->Gspos("I107",4,"I10B",-0.0455,-di10b[1]+di107[1],-10.708,0,"ONLY");
3193 gMC->Gspos("I107",3,"I10B",-0.0455,-di10b[1]+di107[1],-3.536,0,"ONLY");
9d2da7b3 3194 gMC->Gspos("I109",1,"I10B",-0.138,0.015,-16.844,idrotm[201],"ONLY");
3195 gMC->Gspos("I109",2,"I10B",-0.138,0.015,16.844,0,"ONLY");
3196 gMC->Gspos("I108",1,"I10B",-0.138,-di10b[1]+2.*di107[1]+di108[1],0.0,0,"ONLY");
3197 gMC->Gspos("I105",1,"I20B",-0.05,-0.01,-16.844,idrotm[201],"ONLY");
3198 gMC->Gspos("I105",2,"I20B",-0.05,-0.01,16.844,0,"ONLY");
3199 gMC->Gspos("I1D7",2,"I20B",-0.0455,-di20b[1]+di1d7[1],3.536,0,"ONLY");
3200 gMC->Gspos("I1D7",1,"I20B",-0.0455,-di20b[1]+di1d7[1],10.708,0,"ONLY");
3201 gMC->Gspos("I1D7",4,"I20B",-0.0455,-di20b[1]+di1d7[1],-10.708,idrotm[201],"ONLY");
3202 gMC->Gspos("I1D7",3,"I20B",-0.0455,-di20b[1]+di1d7[1],-3.536,idrotm[201],"ONLY");
3203 gMC->Gspos("I109",3,"I20B",-0.138,0.015,-16.844,idrotm[201],"ONLY");
3204 gMC->Gspos("I109",4,"I20B",-0.138,0.015,16.844,0,"ONLY");
3205 gMC->Gspos("I108",2,"I20B",-0.138,-di20b[1]+2.*di1d7[1]+di108[1],0.0,0,"ONLY");
3206 gMC->Gspos("I112",2,"I113",0.25,0.02,0.0,idrotm[206],"ONLY");
3207 gMC->Gspos("I111",2,"I113",0.1318,-0.0008,0.0,idrotm[205],"ONLY");
3208 gMC->Gspos("I118",1,"I113",0.0,-0.0454,0.0,0,"ONLY");
3209 gMC->Gspos("I110",1,"I113",0.0,0.0492,0.0,0,"ONLY");
3210 gMC->Gspos("I114",1,"I113",0.063,0.0042,0.0,idrotm[202],"ONLY");
3211 gMC->Gspos("I115",1,"I113",0.063,0.0042,0.0,idrotm[202],"ONLY");
3212 gMC->Gspos("I115",2,"I113",-0.063,0.0042,0.0,idrotm[237],"ONLY");
3213 gMC->Gspos("I114",2,"I113",-0.063,0.0042,0.0,idrotm[237],"ONLY");
3214 gMC->Gspos("I116",1,"I113",0.0,0.0042,0.0,0,"ONLY");
3215 gMC->Gspos("I111",1,"I113",-0.1318,-0.0008,0.0,idrotm[204],"ONLY");
3216 gMC->Gspos("I112",1,"I113",-0.25,0.02,0.0,idrotm[203],"ONLY");
3217 gMC->Gspos("I106",1,"I107",0.0,-dchip1,-1.4,0,"ONLY");
3218 gMC->Gspos("I106",2,"I107",0.0,-dchip1,0.0,0,"ONLY");
3219 gMC->Gspos("I106",3,"I107",0.0,-dchip1,1.4,0,"ONLY");
3220 gMC->Gspos("I106",4,"I107",0.0,-dchip1,2.8,0,"ONLY");
3221 gMC->Gspos("I106",5,"I107",0.0,-dchip1,-2.8,0,"ONLY");
3222 gMC->Gspos("I101",1,"I107",0.0,ddet1,0.0,0,"ONLY");
3223 gMC->Gspos("I1D6",1,"I1D7",0.0,-dchip2,-1.4,0,"ONLY");
3224 gMC->Gspos("I1D6",2,"I1D7",0.0,-dchip2,0.0,0,"ONLY");
3225 gMC->Gspos("I1D6",3,"I1D7",0.0,-dchip2,1.4,0,"ONLY");
3226 gMC->Gspos("I1D6",4,"I1D7",0.0,-dchip2,2.8,0,"ONLY");
3227 gMC->Gspos("I1D6",5,"I1D7",0.0,-dchip2,-2.8,0,"ONLY");
3228 gMC->Gspos("I1D1",1,"I1D7",0.0,ddet2,0.0,0,"ONLY");
3229 gMC->Gspos("I117",1,"I116",0.0,0.0,0.0,0,"ONLY");
3230 gMC->Gspos("ITS1",1,"I101",0.0,0.0,0.0,0,"ONLY");
3231 gMC->Gspos("ITS2",1,"I1D1",0.0,0.0,0.0,0,"ONLY");
3232 gMC->Gspos("I650",16,"IT12",0.0,0.0,22.0,idrotm[1104],"MANY");
3233 gMC->Gspos("I650",20,"IT12",0.0,0.0,22.0,idrotm[1130],"MANY");
3234 gMC->Gspos("I650",18,"IT12",0.0,0.0,22.0,idrotm[1117],"MANY");
3235 gMC->Gspos("I650",1,"IT12",0.0,0.0,22.0,0,"MANY");
3236 gMC->Gspos("I650",4,"IT12",0.0,0.0,22.0,idrotm[1106],"MANY");
3237 gMC->Gspos("I650",6,"IT12",0.0,0.0,22.0,idrotm[1039],"MANY");
3238 gMC->Gspos("I650",8,"IT12",0.0,0.0,22.0,idrotm[1107],"MANY");
3239 gMC->Gspos("I650",10,"IT12",0.0,0.0,22.0,idrotm[1065],"MANY");
3240 gMC->Gspos("I650",12,"IT12",0.0,0.0,22.0,idrotm[1078],"MANY");
3241 gMC->Gspos("I650",14,"IT12",0.0,0.0,22.0,idrotm[1091],"MANY");
3242 gMC->Gspos("I650",19,"IT12",0.0,0.0,-22.0,idrotm[1108],"MANY");
3243 gMC->Gspos("I650",2,"IT12",0.0,0.0,-22.0,idrotm[1109],"MANY");
3244 gMC->Gspos("I650",3,"IT12",0.0,0.0,-22.0,idrotm[1110],"MANY");
3245 gMC->Gspos("I650",5,"IT12",0.0,0.0,-22.0,idrotm[1111],"MANY");
3246 gMC->Gspos("I650",7,"IT12",0.0,0.0,-22.0,idrotm[1112],"MANY");
3247 gMC->Gspos("I650",9,"IT12",0.0,0.0,-22.0,idrotm[1113],"MANY");
3248 gMC->Gspos("I650",11,"IT12",0.0,0.0,-22.0,idrotm[1114],"MANY");
3249 gMC->Gspos("I650",13,"IT12",0.0,0.0,-22.0,idrotm[1115],"MANY");
3250 gMC->Gspos("I650",15,"IT12",0.0,0.0,-22.0,idrotm[1116],"MANY");
3251 gMC->Gspos("I650",17,"IT12",0.0,0.0,-22.0,idrotm[1118],"MANY");
3252 gMC->Gspos("I666",1,"I650",0.0,0.0,0.25,idrotm[1003],"MANY");
3253 gMC->Gspos("I667",1,"I650",0.1102,0.9945,0.45,idrotm[1088],"ONLY");
3254 gMC->Gspos("I669",3,"I650",0.1883,4.0372,-3.2,0,"ONLY");
3255 gMC->Gspos("I671",3,"I650",0.1883,4.0372,0.6,0,"ONLY");
3256 gMC->Gspos("I669",2,"I650",1.3343,4.0609,-3.2,0,"ONLY");
3257 gMC->Gspos("I671",2,"I650",1.3343,4.0609,0.6,0,"ONLY");
3258 gMC->Gspos("I669",6,"I650",2.9567,6.1959,-3.2,idrotm[1089],"ONLY");
3259 gMC->Gspos("I671",6,"I650",2.9567,6.1959,0.6,idrotm[1089],"ONLY");
3260 gMC->Gspos("I669",5,"I650",1.9511,6.5822,-3.2,idrotm[1011],"ONLY");
3261 gMC->Gspos("I671",5,"I650",1.9511,6.5822,0.6,idrotm[1011],"ONLY");
3262 gMC->Gspos("I669",4,"I650",0.8974,6.8064,-3.2,idrotm[1090],"ONLY");
3263 gMC->Gspos("I671",4,"I650",0.8974,6.8064,0.6,idrotm[1090],"ONLY");
3264 gMC->Gspos("I669",1,"I650",-0.1784,6.863,-3.2,0,"ONLY");
3265 gMC->Gspos("I671",1,"I650",-0.1784,6.863,0.6,0,"ONLY");
3266 gMC->Gspos("I673",1,"I650",0.2173,4.8037,1.8,0,"ONLY");
3267 gMC->Gspos("I673",6,"I650",1.5093,4.5605,1.8,0,"ONLY");
3268 gMC->Gspos("I673",4,"I650",-0.173,6.2531,1.8,idrotm[1092],"ONLY");
3269 gMC->Gspos("I673",3,"I650",0.8073,6.2032,1.8,idrotm[1093],"ONLY");
3270 gMC->Gspos("I673",2,"I650",1.7678,6.0005,1.8,idrotm[1094],"ONLY");
3271 gMC->Gspos("I673",5,"I650",2.6847,5.6501,1.8,0,"ONLY");
3272 gMC->Gspos("I676",2,"I650",1.7618,5.2269,2.5,0,"ONLY");
3273 gMC->Gspos("I676",1,"I650",0.4018,5.5869,2.5,0,"ONLY");
3274 gMC->Gspos("I668",1,"I667",0.0,0.0,0.0,0,"ONLY");
3275 gMC->Gspos("I670",1,"I669",0.0,0.0,0.0,0,"ONLY");
3276 gMC->Gspos("I672",1,"I671",0.0,0.0,0.0,0,"ONLY");
3277 gMC->Gspos("I674",1,"I673",0.0,0.0,0.0,0,"MANY");
3278 gMC->Gspos("I675",1,"I673",0.0,0.0,-0.5,0,"ONLY");
3279 gMC->Gspos("I677",1,"I676",0.0,0.0,0.0,0,"MANY");
3280 gMC->Gspos("I678",1,"I676",0.0,0.0,-0.95,0,"ONLY");
3281
3282 }
db915fea 3283
3284 // --- Place SDD volumes into their mother volume IT34
9d2da7b3 3285
db915fea 3286
9d2da7b3 3287 // -- position SDD detectors of ladder 3 / layer 3
3288
3289 gMC->Gspos("ITS3", 1,"I302", 0.0, 0.0, 0.0, 0, "ONLY");
3290 ySDD = Y_SDD_sep/2.+I302dits[1];
3291 for (iSDD=0; iSDD<6; iSDD++) {
3292 gMC->Gspos("I302", iSDD+1, "I004", 0.0, ySDD, Z_SDD_lay3[iSDD], 0, "ONLY");
3293 ySDD = -ySDD;
3294 }
3295
3296 gMC->Gspos("I004", 1,"IT34", -3.2777, 14.3607, 0.0, idrotm[321],"ONLY");
3297 gMC->Gspos("I004", 2,"IT34", -9.5581, 11.9855, 0.0, idrotm[333],"ONLY");
3298 gMC->Gspos("I004", 3,"IT34",-13.2713, 6.3911, 0.0, idrotm[336],"ONLY");
3299 gMC->Gspos("I004", 4,"IT34",-15.33, 0.0, 0.0, idrotm[350],"ONLY");
3300 gMC->Gspos("I004", 5,"IT34",-13.2713, -6.3911, 0.0, idrotm[313],"ONLY");
3301 gMC->Gspos("I004", 6,"IT34", -9.5581, -11.9855, 0.0, idrotm[311],"ONLY");
3302 gMC->Gspos("I004", 7,"IT34", -3.2777, -14.3607, 0.0, idrotm[310],"ONLY");
3303 gMC->Gspos("I004", 8,"IT34", 3.4112, -14.9456, 0.0, idrotm[386],"ONLY");
3304 gMC->Gspos("I004", 9,"IT34", 9.184, -11.5164, 0.0, idrotm[309],"ONLY");
3305 gMC->Gspos("I004",10,"IT34", 13.8119, -6.6514, 0.0, idrotm[308],"ONLY");
3306 gMC->Gspos("I004",11,"IT34", 14.73, 0.0, 0.0, idrotm[356],"ONLY");
3307 gMC->Gspos("I004",12,"IT34", 13.8119, 6.6514, 0.0, idrotm[307],"ONLY");
3308 gMC->Gspos("I004",13,"IT34", 9.184, 11.5164, 0.0, idrotm[306],"ONLY");
3309 gMC->Gspos("I004",14,"IT34", 3.4113, 14.9456, 0.0, idrotm[305],"ONLY");
3310
3311
3312 // -- position SDD detectors of ladder 4 / layer 4
3313
3314 gMC->Gspos("ITS4", 1,"I402", 0.0, 0.000, 0.0, 0,"ONLY");
3315 ySDD = -(Y_SDD_sep/2.+I402dits[1]);
3316 for (iSDD=0; iSDD<8; iSDD++) {
3317 gMC->Gspos("I402", iSDD+1, "I005", 0.0, ySDD, Z_SDD_lay4[iSDD], 0, "ONLY");
3318 ySDD = -ySDD;
3319 }
db915fea 3320
9d2da7b3 3321 gMC->Gspos("I005", 1,"IT34", -3.3629, 23.3895,-0.15, idrotm[335],"ONLY");
3322 gMC->Gspos("I005", 2,"IT34",-10.0447, 21.9949,-0.15, idrotm[332],"ONLY");
3323 gMC->Gspos("I005", 3,"IT34",-15.4744, 17.8584,-0.15, idrotm[331],"ONLY");
3324 gMC->Gspos("I005", 4,"IT34",-20.3415, 13.0727,-0.15, idrotm[366],"ONLY");
3325 gMC->Gspos("I005", 5,"IT34",-22.6728, 6.6573,-0.15, idrotm[330],"ONLY");
3326 gMC->Gspos("I005", 6,"IT34",-24.18, 0.0, -0.15, idrotm[350],"ONLY");
3327 gMC->Gspos("I005", 7,"IT34",-22.6728, -6.6573,-0.15, idrotm[329],"ONLY");
3328 gMC->Gspos("I005", 8,"IT34",-20.3415, -13.0727,-0.15, idrotm[328],"ONLY");
3329 gMC->Gspos("I005", 9,"IT34",-15.4744, -17.8584,-0.15, idrotm[327],"ONLY");
3330 gMC->Gspos("I005",10,"IT34",-10.0447, -21.9949,-0.15, idrotm[326],"ONLY");
3331 gMC->Gspos("I005",11,"IT34", -3.3629, -23.3895,-0.15, idrotm[325],"ONLY");
3332 gMC->Gspos("I005",12,"IT34", 3.4412, -23.9339,-0.15, idrotm[324],"ONLY");
3333 gMC->Gspos("I005",13,"IT34", 9.8163, -21.4946,-0.15, idrotm[323],"ONLY");
3334 gMC->Gspos("I005",14,"IT34", 15.8345, -18.274, -0.15, idrotm[322],"ONLY");
3335 gMC->Gspos("I005",15,"IT34", 19.8788, -12.7753,-0.15, idrotm[320],"ONLY");
3336 gMC->Gspos("I005",16,"IT34", 23.2005, -6.8123,-0.15, idrotm[319],"ONLY");
3337 gMC->Gspos("I005",17,"IT34", 23.63, 0.0, -0.15, idrotm[318],"ONLY");
3338 gMC->Gspos("I005",18,"IT34", 23.2005, 6.8123,-0.15, idrotm[317],"ONLY");
3339 gMC->Gspos("I005",19,"IT34", 19.8788, 12.7753,-0.15, idrotm[316],"ONLY");
3340 gMC->Gspos("I005",20,"IT34", 15.8345, 18.274, -0.15, idrotm[315],"ONLY");
3341 gMC->Gspos("I005",21,"IT34", 9.8163, 21.4946,-0.15, idrotm[314],"ONLY");
3342 gMC->Gspos("I005",22,"IT34", 3.4412, 23.9339,-0.15, idrotm[334],"ONLY");
3343
3344
3345 // -- build block of the SDD ladder frame holding the electronics
3346
3347 gMC->Gspos("I019", 1,"I018", -1.9, -1.735, 0.0, idrotm[344], "ONLY");
3348 gMC->Gspos("I019", 2,"I018", 1.987, -1.5843, 0.0, idrotm[343], "ONLY");
3349 gMC->Gspos("I019", 3,"I018", -0.087, 1.7066, 0.0, idrotm[342], "ONLY");
3350
3351 gMC->Gspos("I020", 1,"I018", -1.9782, -1.569, 0.0, idrotm[342], "ONLY");
3352 gMC->Gspos("I020", 2,"I018", 1.8824, -1.735, 0.0, idrotm[344], "ONLY");
3353 gMC->Gspos("I020", 3,"I018", 0.0958, 1.6913, 0.0, idrotm[343], "ONLY");
3354
3355 gMC->Gspos("I021", 1,"I018", 1.0761, 0.0835, 2.6008, idrotm[340], "ONLY");
3356 gMC->Gspos("I021", 2,"I018", -1.0761, 0.0835,-2.8008, idrotm[339], "ONLY");
3357 gMC->Gspos("I021", 3,"I018", -1.0761, 0.0835,-1.0492, idrotm[338], "ONLY");
3358 gMC->Gspos("I021", 4,"I018", 1.0761, 0.0835,-2.8008, idrotm[337], "ONLY");
3359 gMC->Gspos("I021", 5,"I018", 1.0761, 0.0835,-1.0492, idrotm[340], "ONLY");
3360 gMC->Gspos("I021", 6,"I018", -1.0761, 0.0835, 0.8492, idrotm[339], "ONLY");
3361 gMC->Gspos("I021", 7,"I018", -1.0761, 0.0835, 2.6008, idrotm[338], "ONLY");
3362 gMC->Gspos("I021", 8,"I018", 1.0761, 0.0835, 0.8492, idrotm[337], "ONLY");
3363
3364 gMC->Gspos("I022", 1,"I018", 0.0, -1.79, 3.55, idrotm[312], "ONLY");
3365 gMC->Gspos("I022", 2,"I018", 0.0, -1.79, -0.1, idrotm[312], "ONLY");
3366
3367 gMC->Gspos("I023", 1,"I018", 0.0, -1.79, 1.725, idrotm[341], "ONLY");
3368 gMC->Gspos("I023", 2,"I018", 0.0, -1.79, -1.925, idrotm[341], "ONLY");
3369
3370 gMC->Gspos("I033", 1,"I018", 1.8, -1.75, 1.35, 0, "MANY");
3371 gMC->Gspos("I033", 2,"I018", -1.8, -1.75, -2.65, idrotm[345], "MANY");
3372 gMC->Gspos("I033", 3,"I018", -1.8, -1.75, 1.35, idrotm[345], "MANY");
3373 gMC->Gspos("I033", 4,"I018", 1.8, -1.75, -2.65, 0, "MANY");
3374
3375 gMC->Gspos("I034", 1,"I018", 1.6, -1.775, 1.35, idrotm[312], "ONLY");
3376 gMC->Gspos("I034", 2,"I018", -1.6, -1.775, -2.65, idrotm[348], "ONLY");
3377 gMC->Gspos("I034", 3,"I018", -1.6, -1.775, 1.35, idrotm[348], "ONLY");
3378 gMC->Gspos("I034", 4,"I018", 1.6, -1.775, -2.65, idrotm[312], "ONLY");
3379
3380 gMC->Gspos("I035", 1,"I018", 1.7, -0.55, I018dits[2]-I035dits[2], 0, "MANY");
3381 gMC->Gspos("I035", 2,"I018", -1.7, -0.55, I018dits[2]-I035dits[2], 0, "MANY");
3382
3383 gMC->Gspos("I036", 1,"I018", 0.3087, 1.7191, 3.56, idrotm[346], "ONLY");
3384 gMC->Gspos("I036", 2,"I018", 0.3087, 1.7191,-0.11, idrotm[346], "ONLY");
3385 gMC->Gspos("I036", 3,"I018", -0.3087, 1.7191,-0.11, idrotm[347], "ONLY");
3386 gMC->Gspos("I036", 4,"I018", -0.3087, 1.7191, 3.56, idrotm[347], "ONLY");
3387
3388 gMC->Gspos("I037", 1,"I018", SDD_CoolPipe[0], SDD_CoolPipe[1], SDD_CoolPipe[2], 0 , "ONLY");
3389 gMC->Gspos("I037", 2,"I018", -SDD_CoolPipe[0], SDD_CoolPipe[1], SDD_CoolPipe[2], 0 , "ONLY");
3390
3391 gMC->Gspos("I038", 1,"I018", SDD_CoolPipe[0], SDD_CoolPipe[1], SDD_CoolPipe[2], 0 , "ONLY");
3392 gMC->Gspos("I038", 2,"I018", -SDD_CoolPipe[0], SDD_CoolPipe[1], SDD_CoolPipe[2], 0 , "ONLY");
3393
3394 gMC->Gspos("I040", 1,"I018", 1.9204, -0.7118, 0.0, idrotm[346],"ONLY");
3395 gMC->Gspos("I040", 2,"I018", -1.9204, -0.7118, 0.0, idrotm[347],"ONLY");
3396 gMC->Gspos("I041", 1,"I018", SDD_CoolPipe[0], SDD_CoolPipe[1], SDD_CoolPipe[2], idrotm[346], "ONLY");
3397 gMC->Gspos("I041", 2,"I018", -SDD_CoolPipe[0], SDD_CoolPipe[1], SDD_CoolPipe[2], idrotm[347], "ONLY");
3398
3399
3400 // -- build block of the SDD electronics (heat bridge, chips, hybrid, anode microcable)
3401
3402 xI050 = SDD_CoolPipe[0]+SDD_CoolPipe[1]*sin30+I050dits[1]/cos30+I041dits[1];
3403 yI050 = 0;
3404 xI039 = -SDD_CoolPipe[1]/cos30;
3405 yI039 = -I050dits[1]+I039dits[1];
3406 gMC->Gspos("I039", 1,"I050", xI039, yI039, 0.0, 0, "ONLY");
3407 xI042 = xI039+I039dits[0]-xI042space-I042dits[0];
3408 yI042 = yI039+I039dits[1]+I042dits[1];
3409 xI043 = xI039-I039dits[0]+xI043space+I043dits[0];
3410 yI043 = yI039+I039dits[1]+I043dits[1];
3411 zChipSpace = I042dits[2];
3412 if (zChipSpace < I043dits[2]) {
3413 zChipSpace = I043dits[2];
3414 }
3415 zChipSpace = zChipSpace * 2;
3416 yI051space = (2*I039dits[2] - 4*zChipSpace)/5;
3417 zchip = -I039dits[2] + yI051space + zChipSpace/2.;
3418 for (ichip=0; ichip<4; ichip++) {
3419 gMC->Gspos("I042", ichip+1, "I050", xI042, yI042, zchip, 0, "ONLY");
3420 gMC->Gspos("I043", ichip+1, "I050", xI043, yI043, zchip, 0, "ONLY");
3421 zchip += zChipSpace + yI051space;
3422 }
3423 xcap = 2*I039dits[0]/5.;
3424 yI051 = yI039+I039dits[1]+I051dits[1];
3425 zI051 = -I039dits[2] + yI051space/3.;
3426 icap = 1;
3427 for (ichip=0; ichip<5; ichip++) {
3428 xI051 = xI039-I039dits[0]+xcap;
3429 gMC->Gspos("I051", icap++,"I050", xI051, yI051, zI051, 0, "ONLY");
3430 zI051 += yI051space/3.;
3431 gMC->Gspos("I051", icap++,"I050", xI051, yI051, zI051, 0, "ONLY");
3432 xI051 += xcap;
3433 gMC->Gspos("I051", icap++,"I050", xI051, yI051, zI051, 0, "ONLY");
3434 xI051 += xcap;
3435 gMC->Gspos("I051", icap++,"I050", xI051, yI051, zI051, 0, "ONLY");
3436 xI051 += xcap;
3437 gMC->Gspos("I051", icap++,"I050", xI051, yI051, zI051, 0, "ONLY");
3438 zI051 -= yI051space/3.;
3439 if (ichip == 0) {
3440 gMC->Gspos("I051", icap++,"I050", xI051, yI051, zI051, 0, "ONLY");
3441 }
3442 zI051 += zChipSpace + yI051space;
3443 }
3444 xI052 = -I050dits[0]+I052dits[0];
3445 yI052 = yI051+I051dits[1]+I052dits[1];
3446 gMC->Gspos("I052", 1,"I050", xI052, yI052, 0.0, 0, "ONLY");
3447 xI044 = I050dits[0]-I044dits[3];
3448 yI044 = yI052+I052dits[1]+I044dits[2];
3449 gMC->Gspos("I044", 1,"I050", xI044, yI044, 0.0, idrotm[301], "ONLY");
3450 gMC->Gspos("I050", 1,"I018", xI050, yI050, 0.0, idrotm[346],"ONLY");
3451 gMC->Gspos("I050", 2,"I018", -xI050, yI050, 0.0, idrotm[347],"ONLY");
3452
3453
3454 // -- build block of the SDD ladder frame at the end ladders
3455
3456 gMC->Gspos("I021",12,"I024", 1.0761, 0.0836,-0.1242, idrotm[340], "ONLY");
3457 gMC->Gspos("I021",11,"I024", -1.0761, 0.0836,-0.1242, idrotm[338], "ONLY");
3458 gMC->Gspos("I021",13,"I024", -1.0761, 0.0836,-1.8758, idrotm[339], "ONLY");
3459 gMC->Gspos("I021",14,"I024", 1.0761, 0.0836,-1.8758, idrotm[337], "ONLY");
3460
3461 gMC->Gspos("I022", 3,"I024", 0.0, -1.7899, 0.825, idrotm[312], "ONLY");
3462
3463 gMC->Gspos("I023", 3,"I024", 0.0, -1.7899,-1.0, idrotm[341], "ONLY");
3464
3465 gMC->Gspos("I025", 1,"I024", -1.9, -1.7349, 0.0, idrotm[344], "ONLY");
3466 gMC->Gspos("I025", 2,"I024", 1.987, -1.5842, 0.0, idrotm[343], "ONLY");
3467
3468 gMC->Gspos("I026", 1,"I024", -1.9782, -1.5689, 0.0, idrotm[342], "ONLY");
3469 gMC->Gspos("I026", 2,"I024", 1.8824, -1.7349, 0.0, idrotm[344], "ONLY");
3470
3471 gMC->Gspos("I029", 1,"I024", -0.087, 1.7067, I029dits[2]-I024dits[2], idrotm[342], "ONLY");
3472
3473 gMC->Gspos("I030", 1,"I024", 0.0958, 1.6914, I030dits[2]-I024dits[2], idrotm[343], "ONLY");
3474
3475 gMC->Gspos("I031", 1,"I024", SDD_CoolPipe[0], SDD_CoolPipe[1], SDD_CoolPipe[2], 0 ,"ONLY");
3476 gMC->Gspos("I031", 2,"I024", -SDD_CoolPipe[0], SDD_CoolPipe[1], SDD_CoolPipe[2], 0 ,"ONLY");
3477
3478 gMC->Gspos("I032", 1,"I024", SDD_CoolPipe[0], SDD_CoolPipe[1], SDD_CoolPipe[2], 0 ,"ONLY");
3479 gMC->Gspos("I032", 2,"I024", -SDD_CoolPipe[0], SDD_CoolPipe[1], SDD_CoolPipe[2], 0 ,"ONLY");
3480
3481
3482 xI424 = I028dits[0]/3.;
3483 yI424 = -I028dits[1]+I424dits[1];
3484 gMC->Gspos("I422", 1,"I421", 0.0, 0.0, 0.0, 0, "ONLY");
e4f08ac3 3485 gMC->Gspos("I423", 1,"I421", 0.0, 0.0, I421dits[2]-I423dits[2], 0, "ONLY");
3486 gMC->Gspos("I421", 1,"I420", 0.0, 0.0, 0.0, idrotm[312], "ONLY");
9d2da7b3 3487 gMC->Gspos("I420", 1,"I028", -I028dits[0]/3., I028dits[1]-I420dits[1], 0.0, 0, "ONLY");
3488 gMC->Gspos("I424", 1,"I028", xI424, yI424, 0.0, 0, "ONLY");
3489 gMC->Gspos("I028", 1,"I024", 0.0, I028dits[1]-I024dits[1], I024dits[2]-I028dits[2], 0, "MANY");
3490
3491
3492 // -- build the SDD ladder 3
3493
3494 indI425 = 1;
3495 gMC->Gspos("I024", 1,"I047", 0.0, 0.0, 24.625, 0, "ONLY");
3496 gMC->Gspos("I018", 1,"I047", 0.0, 0.0, 3.65, 0, "ONLY");
3497 gMC->Gspos("I018", 2,"I047", 0.0, 0.0, 10.95, 0, "ONLY");
3498 gMC->Gspos("I018", 3,"I047", 0.0, 0.0, 18.25, 0, "ONLY");
3499 gMC->Gspos("I018", 4,"I047", 0.0, 0.0, -3.65, 0, "ONLY");
3500 gMC->Gspos("I018", 5,"I047", 0.0, 0.0, -10.95, 0, "ONLY");
3501 gMC->Gspos("I018", 6,"I047", 0.0, 0.0, -18.25, 0, "ONLY");
3502 gMC->Gspos("I024", 2,"I047", 0.0, 0.0, -24.625, idrotm[355], "ONLY");
3503 HVname[0] = 'I';
3504 HVname[1] = '3';
3505 HVname[2] = '1';
3506 HVname[4] = '\0';
3507 for (iSDD=0; iSDD<3; iSDD++) {
3508 HVname[3] = (Char_t)(48+iSDD+5);
3509 dits[0] = 1.350000;
3510 dits[1] = I425dits[1];
3511 dits[2] = (I047dits[2] - 2*I024dits[2] - Z_SDD_lay3[iSDD])/2.;
3512 gMC->Gsvolu(HVname, "BOX ", idtmed[279], dits, 3);
3513 xHV = 0.0;
3514 yHV = -I047dits[1] + (2*iSDD+1)*dits[1];
3515 zHV = I047dits[2] - 2*I024dits[2] - dits[2];
3516 gMC->Gspos(HVname, 1,"I047", xHV, yHV, zHV, 0, "ONLY");
3517 gMC->Gspos(HVname, 2,"I047", xHV, yHV, -zHV, 0, "ONLY");
3518 gMC->Gspos("I425", indI425++,"I047", xI424, yHV, 24.625, 0, "ONLY");
3519 gMC->Gspos("I425", indI425++,"I047", -xI424, yHV, -24.625, 0, "ONLY");
3520 }
3521 LVname[0] = 'I';
3522 LVname[1] = '3';
3523 LVname[2] = '1';
3524 LVname[4] = '\0';
3525 for (iSDD=0; iSDD<3; iSDD++) {
3526 LVname[3] = (Char_t)(48+iSDD+1);
3527 dits[0] = 1.350000;
3528 dits[1] = 0.004423;
3529 dits[2] = (I047dits[2] - (2*iSDD+1)*I018dits[2] - I039dits[2])/2.;
3530 gMC->Gsvolu(LVname, "BOX ", idtmed[280], dits, 3);
3531 yLV = I018dits[1] - dits[0]*cos30 - dits[1]*sin30;
3532 xLV = xI050 -
3533 fabs(yI050-yLV)*sin30/cos30 +
3534 (I050dits[1]+(2*iSDD+1)*dits[1])/cos30;
3535 zLV = I047dits[2] - dits[2];
3536 gMC->Gspos(LVname, 1,"I047", xLV, yLV, zLV, idrotm[346], "ONLY");
3537 gMC->Gspos(LVname, 2,"I047", xLV, yLV, -zLV, idrotm[346], "ONLY");
3538 gMC->Gspos(LVname, 3,"I047", -xLV, yLV, zLV, idrotm[347], "ONLY");
3539 gMC->Gspos(LVname, 4,"I047", -xLV, yLV, -zLV, idrotm[347], "ONLY");
3540 }
3541
3542
3543 // -- build the SDD ladder 4
3544
3545
3546 gMC->Gspos("I024", 3,"I048", -0.0001, 0.0, 31.925, 0, "ONLY");
3547 gMC->Gspos("I018", 7,"I048", -0.0001, 0.0, -3.65, 0, "ONLY");
3548 gMC->Gspos("I018", 8,"I048", -0.0001, 0.0, 3.65, 0, "ONLY");
3549 gMC->Gspos("I018", 9,"I048", -0.0001, 0.0, 10.95, 0, "ONLY");
3550 gMC->Gspos("I018",10,"I048", -0.0001, 0.0, 18.25, 0, "ONLY");
3551 gMC->Gspos("I018",11,"I048", -0.0001, 0.0, 25.55, 0, "ONLY");
3552 gMC->Gspos("I018",12,"I048", -0.0001, 0.0, -10.95, 0, "ONLY");
3553 gMC->Gspos("I018",13,"I048", -0.0001, 0.0, -18.25, 0, "ONLY");
3554 gMC->Gspos("I018",14,"I048", -0.0001, 0.0, -25.55, 0, "ONLY");
3555 gMC->Gspos("I024", 4,"I048", -0.0001, 0.0, -31.925, idrotm[355], "ONLY");
3556 HVname[0] = 'I';
3557 HVname[1] = '4';
3558 HVname[2] = '1';
3559 HVname[4] = '\0';
3560 for (iSDD=0; iSDD<4; iSDD++) {
3561 HVname[3] = (Char_t)(48+iSDD+5);
3562 dits[0] = 1.350000;
3563 dits[1] = I425dits[1];
3564 dits[2] = (I048dits[2] - 2*I024dits[2] - Z_SDD_lay4[iSDD])/2.;
3565 gMC->Gsvolu(HVname, "BOX ", idtmed[279], dits, 3);
3566 xHV = -0.0001;
3567 yHV = -I048dits[1] + (2*iSDD+1)*dits[1];
3568 zHV = I048dits[2] - 2*I024dits[2] - dits[2];
3569 gMC->Gspos(HVname, 1,"I048", xHV, yHV, zHV, 0, "ONLY");
3570 gMC->Gspos(HVname, 2,"I048", xHV, yHV, -zHV, 0, "ONLY");
3571 gMC->Gspos("I425", indI425++,"I048", xI424, yHV, 31.925, 0, "ONLY");
3572 gMC->Gspos("I425", indI425++,"I048", -xI424, yHV, -31.925, 0, "ONLY");
3573 }
3574 LVname[0] = 'I';
3575 LVname[1] = '4';
3576 LVname[2] = '1';
3577 LVname[4] = '\0';
3578 for (iSDD=0; iSDD<4; iSDD++) {
3579 LVname[3] = (Char_t)(48+iSDD+1);
3580 dits[0] = 1.350000;
3581 dits[1] = 0.004423;
3582 dits[2] = (I048dits[2] - (2*iSDD+1)*I018dits[2] - I039dits[2])/2.;
3583 gMC->Gsvolu(LVname, "BOX ", idtmed[280], dits, 3);
3584 yLV = I018dits[1] - dits[0]*cos30 - dits[1]*sin30;
3585 xLV = xI050 -
3586 fabs(yI050-yLV)*sin30/cos30 +
3587 (I050dits[1]+(2*iSDD+1)*dits[1])/cos30;
3588 zLV = I048dits[2] - dits[2];
3589 gMC->Gspos(LVname, 1,"I048", xLV, yLV, zLV, idrotm[346], "ONLY");
3590 gMC->Gspos(LVname, 2,"I048", xLV, yLV, -zLV, idrotm[346], "ONLY");
3591 gMC->Gspos(LVname, 3,"I048", -xLV, yLV, zLV, idrotm[347], "ONLY");
3592 gMC->Gspos(LVname, 4,"I048", -xLV, yLV, -zLV, idrotm[347], "ONLY");
3593 }
3594
db915fea 3595
9d2da7b3 3596 // -- build the SDD barrel (layers 3 and 4)
3597
3598 gMC->Gspos("I047", 1,"IT34", -3.7528, 16.4422, 0.0, idrotm[321], "ONLY");
3599 gMC->Gspos("I047", 2,"IT34",-10.8892, 13.6547, 0.0, idrotm[333], "ONLY");
3600 gMC->Gspos("I047", 3,"IT34",-15.1948, 7.3175, 0.0, idrotm[336], "ONLY");
3601 gMC->Gspos("I047", 4,"IT34",-17.465, 0.0, 0.0, idrotm[350], "ONLY");
3602 gMC->Gspos("I047", 5,"IT34",-15.1948, -7.3174, 0.0, idrotm[313], "ONLY");
3603 gMC->Gspos("I047", 6,"IT34",-10.8893, -13.6547, 0.0, idrotm[311], "ONLY");
3604 gMC->Gspos("I047", 7,"IT34", -3.7528, -16.4422, 0.0, idrotm[310], "ONLY");
3605 gMC->Gspos("I047", 8,"IT34", 3.8863, -17.0271, 0.0, idrotm[386], "ONLY");
3606 gMC->Gspos("I047", 9,"IT34", 10.5152, -13.1856, 0.0, idrotm[309], "ONLY");
3607 gMC->Gspos("I047",10,"IT34", 15.7354, -7.5778, 0.0, idrotm[308], "ONLY");
3608 gMC->Gspos("I047",11,"IT34", 16.865, 0.0, 0.0, idrotm[356], "ONLY");
3609 gMC->Gspos("I047",12,"IT34", 15.7354, 7.5778, 0.0, idrotm[307], "ONLY");
3610 gMC->Gspos("I047",13,"IT34", 10.5152, 13.1856, 0.0, idrotm[306], "ONLY");
3611 gMC->Gspos("I047",14,"IT34", 3.8863, 17.0271, 0.0, idrotm[305], "ONLY");
3612
3613 gMC->Gspos("I048", 1,"IT34", -3.6667, 25.5027, 0.0, idrotm[335], "ONLY");
3614 gMC->Gspos("I048", 2,"IT34",-10.9317, 23.937, 0.0, idrotm[332], "ONLY");
3615 gMC->Gspos("I048", 3,"IT34",-16.8725, 19.4719, 0.0, idrotm[331], "ONLY");
3616 gMC->Gspos("I048", 4,"IT34",-22.1376, 14.227, 0.0, idrotm[366], "ONLY");
3617 gMC->Gspos("I048", 5,"IT34",-24.7213, 7.2588, 0.0, idrotm[330], "ONLY");
3618 gMC->Gspos("I048", 6,"IT34",-26.315, 0.0, 0.0, idrotm[350], "ONLY");
3619 gMC->Gspos("I048", 7,"IT34",-24.7213, -7.2588, 0.0, idrotm[329], "ONLY");
3620 gMC->Gspos("I048", 8,"IT34",-22.1376, -14.227, 0.0, idrotm[328], "ONLY");
3621 gMC->Gspos("I048", 9,"IT34",-16.8725, -19.4719, 0.0, idrotm[327], "ONLY");
3622 gMC->Gspos("I048",10,"IT34",-10.9316, -23.937, 0.0, idrotm[326], "ONLY");
3623 gMC->Gspos("I048",11,"IT34", -3.6667, -25.5027, 0.0, idrotm[325], "ONLY");
3624 gMC->Gspos("I048",12,"IT34", 3.745, -26.0472, 0.0, idrotm[324], "ONLY");
3625 gMC->Gspos("I048",13,"IT34", 10.7032, -23.4367, 0.0, idrotm[323], "ONLY");
3626 gMC->Gspos("I048",14,"IT34", 17.2327, -19.8876, 0.0, idrotm[322], "ONLY");
3627 gMC->Gspos("I048",15,"IT34", 21.6749, -13.9296, 0.0, idrotm[320], "ONLY");
3628 gMC->Gspos("I048",16,"IT34", 25.2491, -7.4138, 0.0, idrotm[319], "ONLY");
3629 gMC->Gspos("I048",17,"IT34", 25.765, 0.0, 0.0, idrotm[318], "ONLY");
3630 gMC->Gspos("I048",18,"IT34", 25.2491, 7.4138, 0.0, idrotm[317], "ONLY");
3631 gMC->Gspos("I048",19,"IT34", 21.6749, 13.9296, 0.0, idrotm[316], "ONLY");
3632 gMC->Gspos("I048",20,"IT34", 17.2327, 19.8876, 0.0, idrotm[315], "ONLY");
3633 gMC->Gspos("I048",21,"IT34", 10.7032, 23.4367, 0.0, idrotm[314], "ONLY");
3634 gMC->Gspos("I048",22,"IT34", 3.745, 26.0472, 0.0, idrotm[334], "ONLY");
3635
3636
3637 // --- Place SSD volumes into their mother volume IT56
db915fea 3638
3639
9d2da7b3 3640 gMC->Gspos("I570",14,"IT56",-28.0681,-36.0619,-0.27,idrotm[566],"ONLY");
db915fea 3641 gMC->Gspos("I570",15,"IT56",-21.677,-40.0556,-0.27,idrotm[567],"ONLY");
3642 gMC->Gspos("I570",16,"IT56",-14.838,-43.2217,-0.27,idrotm[568],"ONLY");
3643 gMC->Gspos("I570",17,"IT56",-7.4965,-44.9238,-0.27,idrotm[569],"ONLY");
9d2da7b3 3644 gMC->Gspos("I570",18,"IT56",-0.27,-45.6977,-0.27,idrotm[533],"ONLY");
db915fea 3645 gMC->Gspos("I570",19,"IT56",7.4965,-44.9238,-0.27,idrotm[534],"ONLY");
3646 gMC->Gspos("I570",20,"IT56",14.838,-43.2217,-0.27,idrotm[535],"ONLY");
3647 gMC->Gspos("I570",21,"IT56",21.677,-40.0556,-0.27,idrotm[623],"ONLY");
3648 gMC->Gspos("I570",22,"IT56",28.0681,-36.0619,-0.27,idrotm[537],"ONLY");
3649 gMC->Gspos("I570",23,"IT56",33.5085,-30.8468,-0.27,idrotm[538],"ONLY");
3650 gMC->Gspos("I570",24,"IT56",38.2566,-24.9943,-0.27,idrotm[539],"ONLY");
3651 gMC->Gspos("I570",25,"IT56",41.7089,-18.2952,-0.27,idrotm[540],"ONLY");
3652 gMC->Gspos("I570",26,"IT56",44.2994,-11.2181,-0.27,idrotm[541],"ONLY");
3653 gMC->Gspos("I570",27,"IT56",45.3894,-3.7611,-0.27,idrotm[542],"ONLY");
3654 gMC->Gspos("I570",28,"IT56",45.5416,3.7737,-0.27,idrotm[543],"ONLY");
3655 gMC->Gspos("I570",29,"IT56",44.1513,11.1806,-0.27,idrotm[544],"ONLY");
3656 gMC->Gspos("I570",30,"IT56",41.8487,18.3566,-0.27,idrotm[545],"ONLY");
3657 gMC->Gspos("I570",31,"IT56",38.1287,24.9107,-0.27,idrotm[546],"ONLY");
3658 gMC->Gspos("I570",32,"IT56",33.6209,30.9502,-0.27,idrotm[547],"ONLY");
3659 gMC->Gspos("I570",33,"IT56",27.9743,35.9414,-0.27,idrotm[548],"ONLY");
3660 gMC->Gspos("I570",34,"IT56",21.7497,40.1899,-0.27,idrotm[549],"ONLY");
3661 gMC->Gspos("I570",35,"IT56",14.7884,43.0772,-0.27,idrotm[550],"ONLY");
3662 gMC->Gspos("I570",36,"IT56",7.5216,45.0744,-0.27,idrotm[551],"ONLY");
9d2da7b3 3663 gMC->Gspos("I570",37,"IT56",-0.27,45.545,-0.27,0,"ONLY");
db915fea 3664 gMC->Gspos("I570",38,"IT56",-7.5216,45.0744,-0.27,idrotm[552],"ONLY");
3665 gMC->Gspos("I570",1,"IT56",-14.7884,43.0772,-0.27,idrotm[553],"ONLY");
3666 gMC->Gspos("I570",2,"IT56",-21.7497,40.1899,-0.27,idrotm[620],"ONLY");
3667 gMC->Gspos("I570",3,"IT56",-27.9743,35.9414,-0.27,idrotm[555],"ONLY");
3668 gMC->Gspos("I570",4,"IT56",-33.6209,30.9502,-0.27,idrotm[556],"ONLY");
3669 gMC->Gspos("I570",5,"IT56",-38.1287,24.9108,-0.27,idrotm[557],"ONLY");
3670 gMC->Gspos("I570",6,"IT56",-41.8487,18.3566,-0.27,idrotm[558],"ONLY");
3671 gMC->Gspos("I570",7,"IT56",-44.1513,11.1806,-0.27,idrotm[559],"ONLY");
3672 gMC->Gspos("I570",8,"IT56",-45.5416,3.7737,-0.27,idrotm[560],"ONLY");
3673 gMC->Gspos("I570",9,"IT56",-45.3894,-3.7611,-0.27,idrotm[561],"ONLY");
3674 gMC->Gspos("I570",10,"IT56",-44.2994,-11.2181,-0.27,idrotm[562],"ONLY");
3675 gMC->Gspos("I570",11,"IT56",-41.7089,-18.2952,-0.27,idrotm[563],"ONLY");
3676 gMC->Gspos("I570",12,"IT56",-38.2566,-24.9943,-0.27,idrotm[564],"ONLY");
3677 gMC->Gspos("I570",13,"IT56",-33.5086,-30.8468,-0.27,idrotm[565],"ONLY");
3678 gMC->Gspos("I569",8,"IT56",-43.5484,3.6085,0.0,idrotm[560],"ONLY");
3679 gMC->Gspos("I569",9,"IT56",-43.3963,-3.5959,0.0,idrotm[561],"ONLY");
3680 gMC->Gspos("I569",10,"IT56",-42.3606,-10.7271,0.0,idrotm[562],"ONLY");
3681 gMC->Gspos("I569",11,"IT56",-39.8773,-17.4918,0.0,idrotm[563],"ONLY");
3682 gMC->Gspos("I569",12,"IT56",-36.5823,-23.9004,0.0,idrotm[564],"ONLY");
3683 gMC->Gspos("I569",13,"IT56",-32.0371,-29.4922,0.0,idrotm[565],"ONLY");
3684 gMC->Gspos("I569",14,"IT56",-26.8397,-34.4836,0.0,idrotm[566],"ONLY");
3685 gMC->Gspos("I569",15,"IT56",-20.7251,-38.2967,0.0,idrotm[567],"ONLY");
3686 gMC->Gspos("I569",16,"IT56",-14.1886,-41.33,0.0,idrotm[568],"ONLY");
3687 gMC->Gspos("I569",17,"IT56",-7.1673,-42.9511,0.0,idrotm[569],"ONLY");
3688 gMC->Gspos("I569",18,"IT56",0.0,-43.6977,0.0,idrotm[533],"ONLY");
3689 gMC->Gspos("I569",19,"IT56",7.1673,-42.9511,0.0,idrotm[534],"ONLY");
3690 gMC->Gspos("I569",20,"IT56",14.1886,-41.33,0.0,idrotm[535],"ONLY");
3691 gMC->Gspos("I569",21,"IT56",20.7251,-38.2967,0.0,idrotm[623],"ONLY");
3692 gMC->Gspos("I569",22,"IT56",26.8397,-34.4836,0.0,idrotm[537],"ONLY");
3693 gMC->Gspos("I569",23,"IT56",32.0371,-29.4922,0.0,idrotm[538],"ONLY");
3694 gMC->Gspos("I569",24,"IT56",36.5822,-23.9004,0.0,idrotm[539],"ONLY");
3695 gMC->Gspos("I569",25,"IT56",39.8773,-17.4918,0.0,idrotm[540],"ONLY");
3696 gMC->Gspos("I569",26,"IT56",42.3606,-10.7272,0.0,idrotm[541],"ONLY");
3697 gMC->Gspos("I569",27,"IT56",43.3963,-3.5959,0.0,idrotm[542],"ONLY");
3698 gMC->Gspos("I569",28,"IT56",43.5484,3.6085,0.0,idrotm[543],"ONLY");
3699 gMC->Gspos("I569",29,"IT56",42.2125,10.6897,0.0,idrotm[544],"ONLY");
3700 gMC->Gspos("I569",30,"IT56",40.0172,17.5532,0.0,idrotm[545],"ONLY");
3701 gMC->Gspos("I569",31,"IT56",36.4544,23.8169,0.0,idrotm[546],"ONLY");
3702 gMC->Gspos("I569",32,"IT56",32.1494,29.5956,0.0,idrotm[547],"ONLY");
3703 gMC->Gspos("I569",33,"IT56",26.7459,34.3631,0.0,idrotm[548],"ONLY");
3704 gMC->Gspos("I569",34,"IT56",20.7978,38.431,0.0,idrotm[549],"ONLY");
3705 gMC->Gspos("I569",35,"IT56",14.139,41.1856,0.0,idrotm[550],"ONLY");
3706 gMC->Gspos("I569",36,"IT56",7.1924,43.1017,0.0,idrotm[551],"ONLY");
3707 gMC->Gspos("I569",37,"IT56",0.0,43.545,0.0,0,"ONLY");
3708 gMC->Gspos("I569",38,"IT56",-7.1924,43.1017,0.0,idrotm[552],"ONLY");
3709 gMC->Gspos("I569",1,"IT56",-14.139,41.1856,0.0,idrotm[553],"ONLY");
3710 gMC->Gspos("I569",2,"IT56",-20.7978,38.431,0.0,idrotm[620],"ONLY");
3711 gMC->Gspos("I569",3,"IT56",-26.7459,34.3631,0.0,idrotm[555],"ONLY");
3712 gMC->Gspos("I569",4,"IT56",-32.1494,29.5956,0.0,idrotm[556],"ONLY");
3713 gMC->Gspos("I569",5,"IT56",-36.4544,23.8169,0.0,idrotm[557],"ONLY");
3714 gMC->Gspos("I569",6,"IT56",-40.0172,17.5532,0.0,idrotm[558],"ONLY");
3715 gMC->Gspos("I569",7,"IT56",-42.2125,10.6897,0.0,idrotm[559],"ONLY");
3716 gMC->Gspos("I571",15,"IT56",-21.2916,-34.387,0.0,idrotm[501],"ONLY");
3717 gMC->Gspos("I571",14,"IT56",-27.351,-30.0026,0.0,idrotm[503],"ONLY");
3718 gMC->Gspos("I571",13,"IT56",-32.2758,-24.3735,0.0,idrotm[504],"ONLY");
3719 gMC->Gspos("I571",12,"IT56",-36.3422,-18.0963,0.0,idrotm[505],"ONLY");
3720 gMC->Gspos("I571",11,"IT56",-38.901,-11.0683,0.0,idrotm[506],"ONLY");
3721 gMC->Gspos("I571",10,"IT56",-40.4252,-3.7459,0.0,idrotm[507],"ONLY");
3722 gMC->Gspos("I571",9,"IT56",-40.2725,3.7318,0.0,idrotm[508],"ONLY");
3723 gMC->Gspos("I571",8,"IT56",-39.0486,11.1103,0.0,idrotm[509],"ONLY");
3724 gMC->Gspos("I571",7,"IT56",-36.2049,18.0279,0.0,idrotm[510],"ONLY");
3725 gMC->Gspos("I571",6,"IT56",-32.3982,24.466,0.0,idrotm[511],"ONLY");
3726 gMC->Gspos("I571",5,"IT56",-27.2476,29.8892,0.0,idrotm[512],"ONLY");
3727 gMC->Gspos("I571",4,"IT56",-21.3723,34.5175,0.0,idrotm[513],"ONLY");
3728 gMC->Gspos("I571",3,"IT56",-14.6104,37.7138,0.0,idrotm[653],"ONLY");
3729 gMC->Gspos("I571",2,"IT56",-7.4599,39.9072,0.0,idrotm[514],"ONLY");
3730 gMC->Gspos("I571",1,"IT56",0.0,40.445,0.0,0,"ONLY");
3731 gMC->Gspos("I571",34,"IT56",7.46,39.9071,0.0,idrotm[515],"ONLY");
3732 gMC->Gspos("I571",33,"IT56",14.6104,37.7138,0.0,idrotm[516],"ONLY");
3733 gMC->Gspos("I571",32,"IT56",21.3723,34.5175,0.0,idrotm[517],"ONLY");
3734 gMC->Gspos("I571",31,"IT56",27.2476,29.8892,0.0,idrotm[518],"ONLY");
3735 gMC->Gspos("I571",30,"IT56",32.3983,24.466,0.0,idrotm[519],"ONLY");
3736 gMC->Gspos("I571",29,"IT56",36.2049,18.0279,0.0,idrotm[520],"ONLY");
3737 gMC->Gspos("I571",28,"IT56",39.0486,11.1103,0.0,idrotm[521],"ONLY");
3738 gMC->Gspos("I571",27,"IT56",40.2725,3.7318,0.0,idrotm[522],"ONLY");
3739 gMC->Gspos("I571",26,"IT56",40.4252,-3.746,0.0,idrotm[523],"ONLY");
3740 gMC->Gspos("I571",25,"IT56",38.901,-11.0683,0.0,idrotm[524],"ONLY");
3741 gMC->Gspos("I571",24,"IT56",36.3422,-18.0963,0.0,idrotm[525],"ONLY");
3742 gMC->Gspos("I571",23,"IT56",32.2758,-24.3736,0.0,idrotm[526],"ONLY");
3743 gMC->Gspos("I571",22,"IT56",27.351,-30.0026,0.0,idrotm[527],"ONLY");
3744 gMC->Gspos("I571",21,"IT56",21.2915,-34.387,0.0,idrotm[528],"ONLY");
3745 gMC->Gspos("I571",20,"IT56",14.6658,-37.8569,0.0,idrotm[618],"ONLY");
3746 gMC->Gspos("I571",19,"IT56",7.4317,-39.7563,0.0,idrotm[529],"ONLY");
3747 gMC->Gspos("I571",18,"IT56",0.0,-40.5984,0.0,idrotm[533],"ONLY");
3748 gMC->Gspos("I571",17,"IT56",-7.4318,-39.7563,0.0,idrotm[530],"ONLY");
3749 gMC->Gspos("I571",16,"IT56",-14.6659,-37.8569,0.0,idrotm[531],"ONLY");
3750 gMC->Gspos("I565",13,"IT56",-30.6798,-23.1683,0.0,idrotm[504],"ONLY");
3751 gMC->Gspos("I565",12,"IT56",-34.5519,-17.2048,0.0,idrotm[505],"ONLY");
3752 gMC->Gspos("I565",11,"IT56",-36.9774,-10.521,0.0,idrotm[506],"ONLY");
3753 gMC->Gspos("I565",10,"IT56",-38.4338,-3.5614,0.0,idrotm[507],"ONLY");
3754 gMC->Gspos("I565",9,"IT56",-38.281,3.5473,0.0,idrotm[508],"ONLY");
3755 gMC->Gspos("I565",8,"IT56",-37.1249,10.563,0.0,idrotm[509],"ONLY");
3756 gMC->Gspos("I565",7,"IT56",-34.4146,17.1364,0.0,idrotm[510],"ONLY");
3757 gMC->Gspos("I565",6,"IT56",-30.8022,23.2608,0.0,idrotm[511],"ONLY");
3758 gMC->Gspos("I565",5,"IT56",-25.9002,28.4112,0.0,idrotm[512],"ONLY");
3759 gMC->Gspos("I565",4,"IT56",-20.3195,32.817,0.0,idrotm[513],"ONLY");
3760 gMC->Gspos("I565",3,"IT56",-13.8879,35.8489,0.0,idrotm[653],"ONLY");
3761 gMC->Gspos("I565",2,"IT56",-7.0924,37.9412,0.0,idrotm[514],"ONLY");
3762 gMC->Gspos("I565",1,"IT56",0.0,38.445,0.0,0,"ONLY");
3763 gMC->Gspos("I565",34,"IT56",7.0925,37.9412,0.0,idrotm[515],"ONLY");
3764 gMC->Gspos("I565",33,"IT56",13.888,35.8489,0.0,idrotm[516],"ONLY");
3765 gMC->Gspos("I565",32,"IT56",20.3195,32.817,0.0,idrotm[517],"ONLY");
3766 gMC->Gspos("I565",31,"IT56",25.9002,28.4112,0.0,idrotm[518],"ONLY");
3767 gMC->Gspos("I565",30,"IT56",30.8022,23.2607,0.0,idrotm[519],"ONLY");
3768 gMC->Gspos("I565",29,"IT56",34.4146,17.1364,0.0,idrotm[520],"ONLY");
3769 gMC->Gspos("I565",28,"IT56",37.125,10.5629,0.0,idrotm[521],"ONLY");
3770 gMC->Gspos("I565",27,"IT56",38.281,3.5472,0.0,idrotm[522],"ONLY");
3771 gMC->Gspos("I565",26,"IT56",38.4338,-3.5614,0.0,idrotm[523],"ONLY");
3772 gMC->Gspos("I565",25,"IT56",36.9774,-10.521,0.0,idrotm[524],"ONLY");
3773 gMC->Gspos("I565",24,"IT56",34.5519,-17.2048,0.0,idrotm[525],"ONLY");
3774 gMC->Gspos("I565",23,"IT56",30.6798,-23.1683,0.0,idrotm[526],"ONLY");
3775 gMC->Gspos("I565",22,"IT56",26.0036,-28.5246,0.0,idrotm[527],"ONLY");
3776 gMC->Gspos("I565",21,"IT56",20.2387,-32.6866,0.0,idrotm[528],"ONLY");
3777 gMC->Gspos("I565",20,"IT56",13.9433,-35.992,0.0,idrotm[618],"ONLY");
3778 gMC->Gspos("I565",19,"IT56",7.0642,-37.7904,0.0,idrotm[529],"ONLY");
3779 gMC->Gspos("I565",18,"IT56",0.0,-38.5984,0.0,idrotm[533],"ONLY");
3780 gMC->Gspos("I565",17,"IT56",-7.0643,-37.7904,0.0,idrotm[530],"ONLY");
3781 gMC->Gspos("I565",16,"IT56",-13.9434,-35.992,0.0,idrotm[531],"ONLY");
3782 gMC->Gspos("I565",15,"IT56",-20.2387,-32.6866,0.0,idrotm[501],"ONLY");
3783 gMC->Gspos("I565",14,"IT56",-26.0036,-28.5246,0.0,idrotm[503],"ONLY");
9d2da7b3 3784 gMC->Gspos("I553",1,"I570",0.005,0.0,52.8453,0,"ONLY");
3785 gMC->Gspos("I523",1,"I570",0.0,0.0,46.9203+0.82,0,"ONLY");
3786 gMC->Gspos("I523",2,"I570",0.0,0.0,43.0103+0.82,0,"ONLY");
3787 gMC->Gspos("I523",3,"I570",0.0,0.0,39.1003+0.82,0,"ONLY");
3788 gMC->Gspos("I523",4,"I570",0.0,0.0,35.1903+0.82,0,"ONLY");
3789 gMC->Gspos("I523",5,"I570",0.0,0.0,31.2803+0.82,0,"ONLY");
3790 gMC->Gspos("I523",6,"I570",0.0,0.0,27.3703+0.82,0,"ONLY");
3791 gMC->Gspos("I523",7,"I570",0.0,0.0,23.4603+0.82,0,"ONLY");
3792 gMC->Gspos("I523",8,"I570",0.0,0.0,19.5503+0.82,0,"ONLY");
3793 gMC->Gspos("I523",9,"I570",0.0,0.0,15.6403+0.82,0,"ONLY");
3794 gMC->Gspos("I523",10,"I570",0.0,0.0,11.7303+0.82,0,"ONLY");
3795 gMC->Gspos("I523",11,"I570",0.0,0.0,7.8203+0.82,0,"ONLY");
3796 gMC->Gspos("I523",12,"I570",0.0,0.0,3.9103+0.82,0,"ONLY");
3797 gMC->Gspos("I523",13,"I570",0.0,0.0,0.0003+0.82,0,"ONLY");
3798 gMC->Gspos("I523",14,"I570",0.0,0.0,-3.9097+0.82,0,"ONLY");
3799 gMC->Gspos("I523",15,"I570",0.0,0.0,-7.8197+0.82,0,"ONLY");
3800 gMC->Gspos("I523",16,"I570",0.0,0.0,-11.7297+0.82,0,"ONLY");
3801 gMC->Gspos("I523",17,"I570",0.0,0.0,-15.6397+0.82,0,"ONLY");
3802 gMC->Gspos("I523",18,"I570",0.0,0.0,-19.5497+0.82,0,"ONLY");
3803 gMC->Gspos("I523",19,"I570",0.0,0.0,-23.4597+0.82,0,"ONLY");
3804 gMC->Gspos("I523",20,"I570",0.0,0.0,-27.3697+0.82,0,"ONLY");
3805 gMC->Gspos("I523",21,"I570",0.0,0.0,-31.2797+0.82,0,"ONLY");
3806 gMC->Gspos("I523",22,"I570",0.0,0.0,-35.1897+0.82,0,"ONLY");
3807 gMC->Gspos("I523",23,"I570",0.0,0.0,-39.0997+0.82,0,"ONLY");
3808 gMC->Gspos("I523",24,"I570",0.0,0.0,-43.0097+0.82,0,"ONLY");
3809 gMC->Gspos("I523",25,"I570",0.0,0.0,-46.9197+0.82,0,"ONLY");
3810 gMC->Gspos("I553",2,"I570",-0.005,0.0,-51.2047,idrotm[570],"ONLY");
db915fea 3811 gMC->Gspos("I566",1,"I569",0.0,-0.03,46.9203,idrotm[532],"ONLY");
3812 gMC->Gspos("I566",2,"I569",0.0,0.03,43.0103,0,"ONLY");
3813 gMC->Gspos("I566",3,"I569",0.0,-0.03,39.1003,idrotm[532],"ONLY");
3814 gMC->Gspos("I566",4,"I569",0.0,0.03,35.1903,0,"ONLY");
3815 gMC->Gspos("I566",5,"I569",0.0,-0.03,31.2803,idrotm[532],"ONLY");
3816 gMC->Gspos("I566",6,"I569",0.0,0.03,27.3703,0,"ONLY");
3817 gMC->Gspos("I566",7,"I569",0.0,-0.03,23.4603,idrotm[532],"ONLY");
3818 gMC->Gspos("I566",8,"I569",0.0,0.03,19.5503,0,"ONLY");
3819 gMC->Gspos("I566",9,"I569",0.0,-0.03,15.6403,idrotm[532],"ONLY");
3820 gMC->Gspos("I566",10,"I569",0.0,0.03,11.7303,0,"ONLY");
3821 gMC->Gspos("I566",11,"I569",0.0,-0.03,7.8203,idrotm[532],"ONLY");
3822 gMC->Gspos("I566",12,"I569",0.0,0.03,3.9103,0,"ONLY");
3823 gMC->Gspos("I566",13,"I569",0.0,-0.03,0.0003,0,"ONLY");
3824 gMC->Gspos("I566",14,"I569",0.0,0.03,-3.9097,0,"ONLY");
3825 gMC->Gspos("I566",15,"I569",0.0,-0.03,-7.8197,idrotm[532],"ONLY");
3826 gMC->Gspos("I566",16,"I569",0.0,0.03,-11.7297,0,"ONLY");
3827 gMC->Gspos("I566",17,"I569",0.0,-0.03,-15.6397,0,"ONLY");
3828 gMC->Gspos("I566",18,"I569",0.0,0.03,-19.5497,0,"ONLY");
3829 gMC->Gspos("I566",19,"I569",0.0,-0.03,-23.4597,idrotm[532],"ONLY");
3830 gMC->Gspos("I566",20,"I569",0.0,0.03,-27.3697,0,"ONLY");
3831 gMC->Gspos("I566",21,"I569",0.0,-0.03,-31.2797,idrotm[532],"ONLY");
3832 gMC->Gspos("I566",22,"I569",0.0,0.03,-35.1897,0,"ONLY");
3833 gMC->Gspos("I566",23,"I569",0.0,-0.03,-39.0997,0,"ONLY");
3834 gMC->Gspos("I566",24,"I569",0.0,0.03,-43.0097,0,"ONLY");
3835 gMC->Gspos("I566",25,"I569",0.0,-0.03,-46.9197,idrotm[532],"ONLY");
9d2da7b3 3836 gMC->Gspos("I544",1,"I571",0.0101,0.0,43.125,0,"ONLY");
3837 gMC->Gspos("I516",20,"I571",0.0001,0.0,39.1-1.08,0,"ONLY");
3838 gMC->Gspos("I516",19,"I571",0.0001,0.0,35.19-1.08,0,"ONLY");
3839 gMC->Gspos("I516",18,"I571",0.0001,0.0,31.28-1.08,0,"ONLY");
3840 gMC->Gspos("I516",17,"I571",0.0001,0.0,27.37-1.08,0,"ONLY");
3841 gMC->Gspos("I516",16,"I571",0.0001,0.0,23.46-1.08,0,"ONLY");
3842 gMC->Gspos("I516",15,"I571",0.0001,0.0,19.55-1.08,0,"ONLY");
3843 gMC->Gspos("I516",14,"I571",0.0001,0.0,15.64-1.08,0,"ONLY");
3844 gMC->Gspos("I516",13,"I571",0.0001,0.0,11.73-1.08,0,"ONLY");
3845 gMC->Gspos("I516",12,"I571",0.0001,0.0,7.82-1.08,0,"ONLY");
3846 gMC->Gspos("I516",11,"I571",0.0001,0.0,3.91-1.08,0,"ONLY");
3847 gMC->Gspos("I516",10,"I571",0.0001,0.0,0.0-1.08,0,"ONLY");
3848 gMC->Gspos("I516",9,"I571",0.0001,0.0,-3.91-1.08,0,"ONLY");
3849 gMC->Gspos("I516",8,"I571",0.0001,0.0,-7.82-1.08,0,"ONLY");
3850 gMC->Gspos("I516",7,"I571",0.0001,0.0,-11.73-1.08,0,"ONLY");
3851 gMC->Gspos("I516",6,"I571",0.0001,0.0,-15.64-1.08,0,"ONLY");
3852 gMC->Gspos("I516",5,"I571",0.0001,0.0,-19.55-1.08,0,"ONLY");
3853 gMC->Gspos("I516",4,"I571",0.0001,0.0,-23.46-1.08,0,"ONLY");
3854 gMC->Gspos("I516",3,"I571",0.0001,0.0,-27.37-1.08,0,"ONLY");
3855 gMC->Gspos("I516",2,"I571",0.0001,0.0,-31.28-1.08,0,"ONLY");
3856 gMC->Gspos("I516",1,"I571",0.0001,0.0,-35.19-1.08,0,"ONLY");
3857 gMC->Gspos("I544",2,"I571",-0.0099,0.0,-41.375,idrotm[570],"ONLY");
db915fea 3858 gMC->Gspos("I562",1,"I565",0.0,0.03,41.1546,0,"ONLY");
3859 gMC->Gspos("I562",2,"I565",0.0,-0.03,37.2246,0,"ONLY");
3860 gMC->Gspos("I562",3,"I565",0.0,0.03,33.3146,0,"ONLY");
3861 gMC->Gspos("I562",4,"I565",0.0,-0.03,29.3846,0,"ONLY");
3862 gMC->Gspos("I562",5,"I565",0.0,0.03,25.4746,0,"ONLY");
3863 gMC->Gspos("I562",6,"I565",0.0,-0.03,21.5446,0,"ONLY");
3864 gMC->Gspos("I562",7,"I565",0.0,0.03,17.6346,0,"ONLY");
3865 gMC->Gspos("I562",8,"I565",0.0,-0.03,13.7046,0,"ONLY");
3866 gMC->Gspos("I562",9,"I565",0.0,0.03,9.7946,0,"ONLY");
3867 gMC->Gspos("I562",10,"I565",0.0,-0.03,5.8645,0,"ONLY");
3868 gMC->Gspos("I562",11,"I565",0.0,0.03,1.9546,0,"ONLY");
3869 gMC->Gspos("I562",12,"I565",0.0,-0.03,-1.9754,0,"ONLY");
3870 gMC->Gspos("I562",13,"I565",0.0,0.03,-5.8855,0,"ONLY");
3871 gMC->Gspos("I562",14,"I565",0.0,-0.03,-9.8154,0,"ONLY");
3872 gMC->Gspos("I562",15,"I565",0.0,0.03,-13.7254,0,"ONLY");
3873 gMC->Gspos("I562",16,"I565",0.0,-0.03,-17.6555,0,"ONLY");
3874 gMC->Gspos("I562",17,"I565",0.0,0.03,-21.5655,0,"ONLY");
3875 gMC->Gspos("I562",18,"I565",0.0,-0.03,-25.4954,0,"ONLY");
3876 gMC->Gspos("I562",19,"I565",0.0,0.03,-29.4054,0,"ONLY");
3877 gMC->Gspos("I562",20,"I565",0.0,-0.03,-33.3354,0,"ONLY");
3878 gMC->Gspos("I562",21,"I565",0.0,0.03,-37.2454,0,"ONLY");
3879 gMC->Gspos("I562",22,"I565",0.0,-0.03,-41.1554,0,"ONLY");
3880 gMC->Gspos("I559",1,"I553",2.25,-1.615,0.0,0,"ONLY");
3881 gMC->Gspos("I560",1,"I553",2.25,-1.615,0.0,0,"ONLY");
3882 gMC->Gspos("I560",2,"I553",-2.25,-1.615,0.0,idrotm[573],"ONLY");
3883 gMC->Gspos("I558",1,"I553",-1.7167,-1.52,0.0,idrotm[583],"ONLY");
3884 gMC->Gspos("I557",1,"I553",-1.8533,-1.341,0.0,idrotm[581],"ONLY");
3885 gMC->Gspos("I558",2,"I553",1.8367,-1.3122,0.0,idrotm[575],"ONLY");
3886 gMC->Gspos("I557",2,"I553",1.75,-1.52,0.0,idrotm[583],"ONLY");
3887 gMC->Gspos("I558",3,"I553",-0.12,1.6613,0.0,idrotm[581],"ONLY");
3888 gMC->Gspos("I557",3,"I553",0.1034,1.6901,0.0,idrotm[575],"ONLY");
3889 gMC->Gspos("I556",3,"I553",-1.031,0.2033,-2.203,idrotm[580],"ONLY");
3890 gMC->Gspos("I556",1,"I553",1.0311,0.2033,-0.287,idrotm[576],"ONLY");
3891 gMC->Gspos("I554",1,"I553",0.0,-1.58,0.71,0,"ONLY");
3892 gMC->Gspos("I555",1,"I553",-0.0072,-1.58,-1.2311,idrotm[633],"ONLY");
3893 gMC->Gspos("I556",2,"I553",1.0311,0.2033,-2.203,idrotm[577],"ONLY");
3894 gMC->Gspos("I556",4,"I553",-1.031,0.2033,-0.287,idrotm[579],"ONLY");
3895 gMC->Gspos("I559",2,"I553",-2.25,-1.615,0.0,idrotm[573],"ONLY");
3896 gMC->Gspos("I561",1,"I553",2.1,-1.615,-0.24,0,"MANY");
3897 gMC->Gspos("I561",2,"I553",-2.1,-1.615,-0.24,idrotm[573],"MANY");
3898 gMC->Gspos("I519",37,"I523",0.0001,-1.79,-0.99,idrotm[586],"ONLY");
3899 gMC->Gspos("I519",36,"I523",-3.2986,-1.79,-1.2943,0,"ONLY");
3900 gMC->Gspos("I519",35,"I523",-3.2986,-1.71,-1.2943,0,"ONLY");
3901 gMC->Gspos("I519",34,"I523",-3.2286,-1.71,-1.2943,0,"ONLY");
3902 gMC->Gspos("I519",33,"I523",-3.2286,-1.79,-1.2943,0,"ONLY");
3903 gMC->Gspos("I519",32,"I523",-3.1586,-1.79,-1.2943,0,"ONLY");
3904 gMC->Gspos("I519",31,"I523",-3.1586,-1.71,-1.2943,0,"ONLY");
3905 gMC->Gspos("I519",30,"I523",-1.3436,-1.71,-1.2943,0,"ONLY");
3906 gMC->Gspos("I519",29,"I523",-1.3436,-1.79,-1.2943,0,"ONLY");
3907 gMC->Gspos("I519",28,"I523",-1.2736,-1.79,-1.2943,0,"ONLY");
3908 gMC->Gspos("I519",27,"I523",-1.2736,-1.71,-1.2943,0,"ONLY");
3909 gMC->Gspos("I519",26,"I523",-1.2036,-1.71,-1.2943,0,"ONLY");
3910 gMC->Gspos("I519",25,"I523",-1.2036,-1.79,-1.2943,0,"ONLY");
3911 gMC->Gspos("I519",24,"I523",-1.0458,-1.79,-1.2943,0,"ONLY");
3912 gMC->Gspos("I519",23,"I523",-1.0458,-1.71,-1.2943,0,"ONLY");
3913 gMC->Gspos("I519",22,"I523",-0.9758,-1.71,-1.2943,0,"ONLY");
3914 gMC->Gspos("I519",21,"I523",-0.9758,-1.79,-1.2943,0,"ONLY");
3915 gMC->Gspos("I519",20,"I523",-0.9058,-1.79,-1.2943,0,"ONLY");
3916 gMC->Gspos("I519",19,"I523",-0.9058,-1.71,-1.2943,0,"ONLY");
3917 gMC->Gspos("I519",18,"I523",0.9092,-1.71,-1.2943,0,"ONLY");
3918 gMC->Gspos("I519",17,"I523",0.9092,-1.79,-1.2943,0,"ONLY");
3919 gMC->Gspos("I519",16,"I523",0.9792,-1.79,-1.2943,0,"ONLY");
3920 gMC->Gspos("I519",15,"I523",0.9792,-1.71,-1.2943,0,"ONLY");
3921 gMC->Gspos("I519",14,"I523",1.0492,-1.71,-1.2943,0,"ONLY");
3922 gMC->Gspos("I519",13,"I523",1.0492,-1.79,-1.2943,0,"ONLY");
3923 gMC->Gspos("I519",12,"I523",1.207,-1.79,-1.2943,0,"ONLY");
3924 gMC->Gspos("I519",11,"I523",1.207,-1.71,-1.2943,0,"ONLY");
3925 gMC->Gspos("I519",10,"I523",1.277,-1.71,-1.2943,0,"ONLY");
3926 gMC->Gspos("I519",9,"I523",1.277,-1.79,-1.2943,0,"ONLY");
3927 gMC->Gspos("I519",8,"I523",1.347,-1.79,-1.2943,0,"ONLY");
3928 gMC->Gspos("I519",7,"I523",1.347,-1.71,-1.2943,0,"ONLY");
3929 gMC->Gspos("I519",6,"I523",3.162,-1.71,-1.2943,0,"ONLY");
3930 gMC->Gspos("I519",5,"I523",3.162,-1.79,-1.2943,0,"ONLY");
3931 gMC->Gspos("I519",4,"I523",3.232,-1.79,-1.2943,0,"ONLY");
3932 gMC->Gspos("I519",3,"I523",3.232,-1.71,-1.2943,0,"ONLY");
3933 gMC->Gspos("I521",12,"I523",-2.8209,-1.7925,-0.982,0,"ONLY");
3934 gMC->Gspos("I521",11,"I523",-1.6895,-1.7925,-0.982,0,"ONLY");
3935 gMC->Gspos("I521",10,"I523",-0.5631,-1.7925,-0.982,0,"ONLY");
3936 gMC->Gspos("I521",9,"I523",0.5633,-1.7925,-0.982,0,"ONLY");
3937 gMC->Gspos("I521",8,"I523",1.6861,-1.7925,-0.982,0,"ONLY");
3938 gMC->Gspos("I521",7,"I523",2.8161,-1.7925,-0.982,0,"ONLY");
3939 gMC->Gspos("I519",2,"I523",3.302,-1.79,-1.2943,0,"ONLY");
3940 gMC->Gspos("I520",3,"I523",0.0001,-1.845,-1.19,0,"ONLY");
3941 gMC->Gspos("I520",2,"I523",-2.2499,-1.845,-1.19,0,"ONLY");
3942 gMC->Gspos("I521",6,"I523",-2.8209,-1.7075,-0.982,0,"ONLY");
3943 gMC->Gspos("I521",5,"I523",-1.6895,-1.7075,-0.982,0,"ONLY");
3944 gMC->Gspos("I521",4,"I523",-0.5631,-1.7075,-0.982,0,"ONLY");
3945 gMC->Gspos("I521",3,"I523",0.5633,-1.7075,-0.982,0,"ONLY");
3946 gMC->Gspos("I521",2,"I523",1.6861,-1.7075,-0.982,0,"ONLY");
3947 gMC->Gspos("I518",1,"I523",0.0001,-1.75,-1.065,0,"ONLY");
3948 gMC->Gspos("I519",1,"I523",3.302,-1.71,-1.2943,0,"ONLY");
3949 gMC->Gspos("I520",1,"I523",2.2501,-1.845,-1.19,0,"ONLY");
3950 gMC->Gspos("I521",1,"I523",2.8161,-1.7075,-0.982,0,"ONLY");
3951 gMC->Gspos("I522",1,"I523",2.2501,-1.655,-1.3,idrotm[583],"MANY");
3952 gMC->Gspos("I522",2,"I523",-2.2499,-1.655,-1.3,idrotm[583],"MANY");
3953 gMC->Gspos("I542",2,"I523",-2.2499,-1.615,0.0,idrotm[573],"ONLY");
3954 gMC->Gspos("I541",2,"I523",-2.2499,-1.615,0.0,idrotm[573],"ONLY");
3955 gMC->Gspos("I541",1,"I523",2.2501,-1.615,0.0,0,"ONLY");
3956 gMC->Gspos("I542",1,"I523",2.2501,-1.615,0.0,0,"ONLY");
3957 gMC->Gspos("I543",1,"I523",2.1001,-1.615,0.955,0,"MANY");
3958 gMC->Gspos("I543",2,"I523",-2.0999,-1.615,0.955,idrotm[573],"MANY");
3959 gMC->Gspos("I537",2,"I523",1.7501,-1.52,0.0,idrotm[583],"ONLY");
3960 gMC->Gspos("I538",2,"I523",1.8368,-1.3122,0.0,idrotm[575],"ONLY");
3961 gMC->Gspos("I537",3,"I523",0.1035,1.6901,0.0,idrotm[575],"ONLY");
3962 gMC->Gspos("I538",3,"I523",-0.1199,1.6612,0.0,idrotm[581],"ONLY");
3963 gMC->Gspos("I538",1,"I523",-1.7166,-1.52,0.0,idrotm[583],"ONLY");
3964 gMC->Gspos("I537",1,"I523",-1.8532,-1.341,0.0,idrotm[581],"ONLY");
3965 gMC->Gspos("I536",3,"I523",-1.031,0.2033,-1.008,idrotm[580],"ONLY");
3966 gMC->Gspos("I536",4,"I523",-1.031,0.2033,0.908,idrotm[579],"ONLY");
3967 gMC->Gspos("I535",1,"I523",-0.0072,-1.58,-0.0361,idrotm[633],"ONLY");
3968 gMC->Gspos("I536",2,"I523",1.0312,0.2033,-1.008,idrotm[577],"ONLY");
3969 gMC->Gspos("I536",1,"I523",1.0312,0.2033,0.908,idrotm[576],"ONLY");
3970 gMC->Gspos("I534",1,"I523",0.0001,-1.58,1.905,0,"ONLY");
3971 gMC->Gspos("I540",1,"I523",0.0001,-1.785,1.905,idrotm[571],"ONLY");
3972 gMC->Gspos("I539",1,"I523",1.8001,-1.75,-0.195,idrotm[571],"ONLY");
3973 gMC->Gspos("I539",2,"I523",-1.7999,-1.75,-0.195,idrotm[572],"ONLY");
3974 gMC->Gspos("ITS6",1,"I566",0.0,0.0,0.0,0,"ONLY");
3975 gMC->Gspos("I550",1,"I544",2.25,-1.615,0.0,0,"ONLY");
3976 gMC->Gspos("I551",1,"I544",2.25,-1.615,0.0,0,"ONLY");
3977 gMC->Gspos("I551",2,"I544",-2.25,-1.615,0.0,idrotm[573],"ONLY");
3978 gMC->Gspos("I550",2,"I544",-2.25,-1.615,0.0,idrotm[573],"ONLY");
3979 gMC->Gspos("I549",1,"I544",1.7167,-1.52,0.0,idrotm[583],"ONLY");
3980 gMC->Gspos("I548",1,"I544",1.8533,-1.341,0.0,idrotm[575],"ONLY");
3981 gMC->Gspos("I547",1,"I544",1.0311,0.2033,-0.287,idrotm[576],"ONLY");
3982 gMC->Gspos("I545",1,"I544",0.0,-1.58,0.71,0,"ONLY");
3983 gMC->Gspos("I547",2,"I544",1.0311,0.2033,-2.203,idrotm[577],"ONLY");
3984 gMC->Gspos("I546",1,"I544",-0.0073,-1.58,-1.2311,idrotm[633],"ONLY");
3985 gMC->Gspos("I547",4,"I544",-1.0311,0.2033,-0.287,idrotm[579],"ONLY");
3986 gMC->Gspos("I547",3,"I544",-1.0311,0.2033,-2.203,idrotm[580],"ONLY");
3987 gMC->Gspos("I548",2,"I544",-0.1033,1.6901,0.0,idrotm[581],"O]NLY");
3988 gMC->Gspos("I549",2,"I544",0.12,1.6613,0.0,idrotm[575],"ONLY");
3989 gMC->Gspos("I549",3,"I544",-1.8367,-1.3122,0.0,idrotm[581],"ONLY");
3990 gMC->Gspos("I548",3,"I544",-1.75,-1.52,0.0,idrotm[583],"ONLY");
3991 gMC->Gspos("I552",1,"I544",2.1,-1.615,-0.24,0,"MANY");
3992 gMC->Gspos("I552",2,"I544",-2.1,-1.615,-0.24,idrotm[573],"MANY");
3993 gMC->Gspos("I515",12,"I516",-1.6896,-1.7075,-0.9822,0,"ONLY");
3994 gMC->Gspos("I515",11,"I516",-1.6896,-1.7925,-0.9822,0,"ONLY");
3995 gMC->Gspos("I513",37,"I516",0.0,-1.79,-1.035,idrotm[586],"ONLY");
3996 gMC->Gspos("I513",1,"I516",-3.2987,-1.71,-1.2943,0,"ONLY");
3997 gMC->Gspos("I515",1,"I516",-2.816,-1.7075,-0.9822,0,"ONLY");
3998 gMC->Gspos("I514",1,"I516",-2.25,-1.845,-1.19,0,"ONLY");
3999 gMC->Gspos("I514",2,"I516",0.0,-1.845,-1.19,0,"ONLY");
4000 gMC->Gspos("I514",3,"I516",2.25,-1.845,-1.19,0,"ONLY");
4001 gMC->Gspos("I515",2,"I516",-2.816,-1.7925,-0.9822,0,"ONLY");
4002 gMC->Gspos("I513",2,"I516",-3.2987,-1.79,-1.2943,0,"ONLY");
4003 gMC->Gspos("I515",3,"I516",-0.5632,-1.7075,-0.9822,0,"ONLY");
4004 gMC->Gspos("I515",4,"I516",-0.5632,-1.7925,-0.9822,0,"ONLY");
4005 gMC->Gspos("I515",5,"I516",0.5632,-1.7925,-0.9822,0,"ONLY");
4006 gMC->Gspos("I515",6,"I516",0.5632,-1.7075,-0.9822,0,"ONLY");
4007 gMC->Gspos("I515",7,"I516",1.6896,-1.7075,-0.9822,0,"ONLY");
4008 gMC->Gspos("I515",8,"I516",1.6896,-1.7925,-0.9822,0,"ONLY");
4009 gMC->Gspos("I515",9,"I516",2.816,-1.7925,-0.9822,0,"ONLY");
4010 gMC->Gspos("I515",10,"I516",2.816,-1.7075,-0.9822,0,"ONLY");
4011 gMC->Gspos("I513",3,"I516",-3.2287,-1.79,-1.2943,0,"ONLY");
4012 gMC->Gspos("I513",4,"I516",-3.2287,-1.71,-1.2943,0,"ONLY");
4013 gMC->Gspos("I513",5,"I516",-3.1587,-1.71,-1.2943,0,"ONLY");
4014 gMC->Gspos("I513",6,"I516",-3.1587,-1.79,-1.2943,0,"ONLY");
4015 gMC->Gspos("I513",7,"I516",-1.3437,-1.79,-1.2943,0,"ONLY");
4016 gMC->Gspos("I513",8,"I516",-1.3437,-1.71,-1.2943,0,"ONLY");
4017 gMC->Gspos("I513",9,"I516",-1.2737,-1.71,-1.2943,0,"ONLY");
4018 gMC->Gspos("I513",10,"I516",-1.2737,-1.79,-1.2943,0,"ONLY");
4019 gMC->Gspos("I513",11,"I516",-1.2037,-1.79,-1.2943,0,"ONLY");
4020 gMC->Gspos("I513",12,"I516",-1.2037,-1.71,-1.2943,0,"ONLY");
4021 gMC->Gspos("I513",13,"I516",-1.046,-1.71,-1.2943,0,"ONLY");
4022 gMC->Gspos("I513",14,"I516",-1.046,-1.79,-1.2943,0,"ONLY");
4023 gMC->Gspos("I513",15,"I516",-0.976,-1.79,-1.2943,0,"ONLY");
4024 gMC->Gspos("I513",16,"I516",-0.976,-1.71,-1.2943,0,"ONLY");
4025 gMC->Gspos("I513",17,"I516",-0.906,-1.71,-1.2943,0,"ONLY");
4026 gMC->Gspos("I513",18,"I516",-0.906,-1.79,-1.2943,0,"ONLY");
4027 gMC->Gspos("I513",19,"I516",0.9091,-1.79,-1.2943,0,"ONLY");
4028 gMC->Gspos("I513",20,"I516",0.9091,-1.71,-1.2943,0,"ONLY");
4029 gMC->Gspos("I513",21,"I516",0.9791,-1.71,-1.2943,0,"ONLY");
4030 gMC->Gspos("I513",22,"I516",0.9791,-1.79,-1.2943,0,"ONLY");
4031 gMC->Gspos("I513",23,"I516",1.0491,-1.79,-1.2943,0,"ONLY");
4032 gMC->Gspos("I513",24,"I516",1.0491,-1.71,-1.2943,0,"ONLY");
4033 gMC->Gspos("I513",25,"I516",1.2068,-1.71,-1.2943,0,"ONLY");
4034 gMC->Gspos("I513",26,"I516",1.2068,-1.79,-1.2943,0,"ONLY");
4035 gMC->Gspos("I513",27,"I516",1.2768,-1.79,-1.2943,0,"ONLY");
4036 gMC->Gspos("I513",28,"I516",1.2768,-1.71,-1.2943,0,"ONLY");
4037 gMC->Gspos("I513",29,"I516",1.3469,-1.71,-1.2943,0,"ONLY");
4038 gMC->Gspos("I513",30,"I516",1.3469,-1.79,-1.2943,0,"ONLY");
4039 gMC->Gspos("I513",31,"I516",3.1619,-1.79,-1.2943,0,"ONLY");
4040 gMC->Gspos("I513",32,"I516",3.1619,-1.71,-1.2943,0,"ONLY");
4041 gMC->Gspos("I513",33,"I516",3.2319,-1.71,-1.2943,0,"ONLY");
4042 gMC->Gspos("I513",34,"I516",3.2319,-1.79,-1.2943,0,"ONLY");
4043 gMC->Gspos("I513",35,"I516",3.3019,-1.79,-1.2943,0,"ONLY");
4044 gMC->Gspos("I513",36,"I516",3.3019,-1.71,-1.2943,0,"ONLY");
4045 gMC->Gspos("I512",1,"I516",0.0,-1.75,-1.065,0,"ONLY");
4046 gMC->Gspos("I528",1,"I516",1.7167,-1.52,0.0,idrotm[583],"ONLY");
4047 gMC->Gspos("I527",1,"I516",1.8534,-1.341,0.0,idrotm[575],"ONLY");
4048 gMC->Gspos("I528",2,"I516",0.12,1.6613,0.0,idrotm[575],"ONLY");
4049 gMC->Gspos("I527",2,"I516",-0.1033,1.6901,0.0,idrotm[581],"ONLY");
4050 gMC->Gspos("I527",3,"I516",-1.75,-1.52,0.0,idrotm[583],"ONLY");
4051 gMC->Gspos("I528",3,"I516",-1.8367,-1.3122,0.0,idrotm[581],"ONLY");
4052 gMC->Gspos("I526",2,"I516",1.0311,0.2033,-1.008,idrotm[577],"ONLY");
4053 gMC->Gspos("I525",1,"I516",-0.0073,-1.58,-0.0361,idrotm[633],"ONLY");
4054 gMC->Gspos("I524",1,"I516",0.0,-1.58,1.905,0,"ONLY");
4055 gMC->Gspos("I526",1,"I516",1.0311,0.2033,0.908,idrotm[576],"ONLY");
4056 gMC->Gspos("I526",3,"I516",-1.0311,0.2033,0.908,idrotm[579],"ONLY");
4057 gMC->Gspos("I526",4,"I516",-1.0311,0.2033,-1.008,idrotm[580],"ONLY");
4058 gMC->Gspos("I529",1,"I516",1.8,-1.75,-0.195,idrotm[571],"ONLY");
4059 gMC->Gspos("I530",1,"I516",0.0,-1.785,1.905,idrotm[571],"ONLY");
4060 gMC->Gspos("I529",2,"I516",-1.8,-1.75,-0.195,idrotm[572],"ONLY");
4061 gMC->Gspos("I517",1,"I516",2.25,-1.655,-1.3,idrotm[583],"MANY");
4062 gMC->Gspos("I517",2,"I516",-2.25,-1.655,-1.3,idrotm[584],"MANY");
4063 gMC->Gspos("I531",2,"I516",-2.25,-1.615,0.0,idrotm[573],"ONLY");
4064 gMC->Gspos("I531",1,"I516",2.25,-1.615,0.0,0,"ONLY");
4065 gMC->Gspos("I532",1,"I516",2.25,-1.615,0.0,0,"ONLY");
4066 gMC->Gspos("I532",2,"I516",-2.25,-1.615,0.0,idrotm[573],"ONLY");
4067 gMC->Gspos("I533",1,"I516",2.1,-1.615,0.955,0,"MANY");
4068 gMC->Gspos("I533",2,"I516",-2.1,-1.615,0.955,idrotm[573],"MANY");
4069 gMC->Gspos("ITS5",1,"I562",0.0,0.0,0.0,0,"ONLY");
db915fea 4070
4071
9d2da7b3 4072 // --- Place volumes of shield between SPD and SDD
4073
4074
4075 gMC->Gspos("IC01",1,"ITSD",0.0,0.0,0.0,0,"ONLY");
4076 gMC->Gspos("IC02",1,"ITSD",0.0,0.0,25.+8.75,0,"ONLY");
4077 gMC->Gspos("IC02",2,"ITSD",0.0,0.0,-25.-8.75,idrotm[200],"ONLY");
4078 //gMC->Gspos("IC03",1,"ITSD",0.0,0.0,25.+17.5+7.875,0,"ONLY");
4079 //gMC->Gspos("IC03",2,"ITSD",0.0,0.0,-25.-17.5-7.875,idrotm[200],"ONLY");
4080
4081
e4f08ac3 4082 // --- Place volumes of cylinders between SPD and SDD and SDD and SSD
9d2da7b3 4083
c2685204 4084 gMC->Gspos("ICY1",1,"IS02",0.0,0.0,0.,0,"ONLY");
4085 gMC->Gspos("ICY2",1,"IS01",0.0,0.0,0.,0,"ONLY");
9d2da7b3 4086
4087
4088 // --- Place volumes of SDD cone ----------------------------------
4089
4090
4091 gMC->Gspos("I093",1,"IS02",0.0,0.0,0.0,0,"MANY");
4092 gMC->Gspos("I093",2,"IS02",0.0,0.0,0.0,idrotm[856],"MANY");
e4f08ac3 4093 gMC->Gspos("I099",4,"IS02",0.0,0.0,0.0,idrotm[857],"MANY");
4094 gMC->Gspos("I099",3,"IS02",0.0,0.0,0.0,idrotm[858],"MANY");
4095 gMC->Gspos("I099",5,"IS02",0.0,0.0,0.0,idrotm[859],"MANY");
4096 gMC->Gspos("I099",6,"IS02",0.0,0.0,0.0,idrotm[860],"MANY");
4097 gMC->Gspos("I099",7,"IS02",0.0,0.0,0.0,idrotm[861],"MANY");
4098 gMC->Gspos("I099",2,"IS02",0.0,0.0,0.0,idrotm[862],"MANY");
4099 gMC->Gspos("I200",4,"IS02",0.0,0.0,0.0,idrotm[863],"MANY");
4100 gMC->Gspos("I200",3,"IS02",0.0,0.0,0.0,idrotm[864],"MANY");
4101 gMC->Gspos("I200",2,"IS02",0.0,0.0,0.0,idrotm[865],"MANY");
4102 gMC->Gspos("I200",13,"IS02",0.0,0.0,0.0,idrotm[867],"MANY");
4103 gMC->Gspos("I200",12,"IS02",0.0,0.0,0.0,idrotm[869],"MANY");
4104 gMC->Gspos("I200",11,"IS02",0.0,0.0,0.0,idrotm[870],"MANY");
4105 gMC->Gspos("I200",10,"IS02",0.0,0.0,0.0,idrotm[871],"MANY");
4106 gMC->Gspos("I200",9,"IS02",0.0,0.0,0.0,idrotm[872],"MANY");
4107 gMC->Gspos("I200",8,"IS02",0.0,0.0,0.0,idrotm[873],"MANY");
4108 gMC->Gspos("I200",7,"IS02",0.0,0.0,0.0,idrotm[874],"MANY");
4109 gMC->Gspos("I200",6,"IS02",0.0,0.0,0.0,idrotm[875],"MANY");
4110 gMC->Gspos("I200",5,"IS02",0.0,0.0,0.0,idrotm[876],"MANY");
4111 gMC->Gspos("I090",2,"IS02",0.0,0.0,-39.4,0,"ONLY");
4112 gMC->Gspos("I090",1,"IS02",0.0,0.0,39.4,idrotm[856],"ONLY");
9d2da7b3 4113 gMC->Gspos("I099",9,"IS02",0.0,0.0,0.0,idrotm[877],"ONLY");
4114 gMC->Gspos("I099",8,"IS02",0.0,0.0,0.0,idrotm[879],"ONLY");
4115 gMC->Gspos("I099",1,"IS02",0.0,0.0,0.0,idrotm[880],"ONLY");
4116 gMC->Gspos("I099",12,"IS02",0.0,0.0,0.0,idrotm[881],"ONLY");
4117 gMC->Gspos("I099",11,"IS02",0.0,0.0,0.0,idrotm[851],"ONLY");
4118 gMC->Gspos("I099",10,"IS02",0.0,0.0,0.0,idrotm[882],"ONLY");
4119 gMC->Gspos("I200",23,"IS02",0.0,0.0,0.0,idrotm[898],"ONLY");
4120 gMC->Gspos("I200",24,"IS02",0.0,0.0,0.0,idrotm[883],"ONLY");
4121 gMC->Gspos("I200",1,"IS02",0.0,0.0,0.0,idrotm[884],"ONLY");
4122 gMC->Gspos("I200",14,"IS02",0.0,0.0,0.0,idrotm[885],"ONLY");
4123 gMC->Gspos("I200",15,"IS02",0.0,0.0,0.0,idrotm[887],"ONLY");
4124 gMC->Gspos("I200",16,"IS02",0.0,0.0,0.0,idrotm[888],"ONLY");
4125 gMC->Gspos("I200",17,"IS02",0.0,0.0,0.0,idrotm[889],"ONLY");
4126 gMC->Gspos("I200",18,"IS02",0.0,0.0,0.0,idrotm[890],"ONLY");
4127 gMC->Gspos("I200",22,"IS02",0.0,0.0,0.0,idrotm[891],"ONLY");
4128 gMC->Gspos("I200",21,"IS02",0.0,0.0,0.0,idrotm[892],"ONLY");
4129 gMC->Gspos("I200",20,"IS02",0.0,0.0,0.0,idrotm[868],"ONLY");
4130 gMC->Gspos("I200",19,"IS02",0.0,0.0,0.0,idrotm[893],"ONLY");
e4f08ac3 4131 gMC->Gspos("I098",1,"IS02",0.0,0.0,33.6,0,"ONLY");
4132 gMC->Gspos("I097",1,"IS02",0.0,0.0,26.6,0,"ONLY");
4133 gMC->Gspos("I097",2,"IS02",0.0,0.0,-26.6,idrotm[856],"ONLY");
4134 gMC->Gspos("I098",2,"IS02",0.0,0.0,-33.6,idrotm[856],"ONLY");
9d2da7b3 4135 gMC->Gspos("I202",1,"IS02",12.1,0.0,33.84,0,"ONLY");
4136 gMC->Gspos("I202",6,"IS02",-6.05,-10.4789,33.84,idrotm[930],"ONLY");
4137 gMC->Gspos("I202",5,"IS02",-6.05,10.4789,33.84,idrotm[929],"ONLY");
4138 gMC->Gspos("I202",2,"IS02",12.1,0.0,-33.84,idrotm[856],"ONLY");
4139 gMC->Gspos("I202",3,"IS02",-6.05,10.4789,-33.84,idrotm[932],"ONLY");
4140 gMC->Gspos("I202",4,"IS02",-6.05,-10.4789,-33.84,idrotm[934],"ONLY");
4141 gMC->Gspos("I203",12,"IS02",21.8453,0.0,-42.24,idrotm[856],"ONLY");
4142 gMC->Gspos("I203",11,"IS02",10.9227,-18.9186,-42.24,idrotm[935],"ONLY");
4143 gMC->Gspos("I203",10,"IS02",10.9227,-18.9186,42.24,idrotm[846],"ONLY");
4144 gMC->Gspos("I203",9,"IS02",-10.9227,-18.9186,-42.24,idrotm[934],"ONLY");
4145 gMC->Gspos("I203",8,"IS02",-10.9227,-18.9186,42.24,idrotm[930],"ONLY");
4146 gMC->Gspos("I203",7,"IS02",-21.8453,0.0,-42.24,idrotm[933],"ONLY");
4147 gMC->Gspos("I203",6,"IS02",-21.8453,0.0,42.24,idrotm[878],"ONLY");
4148 gMC->Gspos("I203",5,"IS02",-10.9227,18.9186,-42.24,idrotm[932],"ONLY");
4149 gMC->Gspos("I203",4,"IS02",-10.9227,18.9186,42.24,idrotm[929],"ONLY");
4150 gMC->Gspos("I203",3,"IS02",10.9227,18.9186,-42.24,idrotm[931],"ONLY");
4151 gMC->Gspos("I203",2,"IS02",10.9227,18.9186,42.24,idrotm[853],"ONLY");
4152 gMC->Gspos("I203",1,"IS02",21.8453,0.0,42.24,0,"ONLY");
4153 gMC->Gspos("I095",1,"I098",0.0,0.0,0.0,0,"ONLY");
4154 gMC->Gspos("I096",23,"I098",22.77,0.0,0.0,idrotm[894],"MANY");
4155 gMC->Gspos("I096",14,"I098",22.3754,6.57,0.0,idrotm[895],"MANY");
4156 gMC->Gspos("I096",3,"I098",19.1553,12.3104,0.0,idrotm[896],"MANY");
4157 gMC->Gspos("I096",16,"I098",15.2714,17.6241,0.0,idrotm[897],"MANY");
4158 gMC->Gspos("I096",5,"I098",9.459,20.7123,0.0,idrotm[899],"MANY");
4159 gMC->Gspos("I096",18,"I098",3.3188,23.0826,0.0,idrotm[900],"MANY");
4160 gMC->Gspos("I096",7,"I098",-3.2405,22.5382,0.0,idrotm[901],"MANY");
4161 gMC->Gspos("I096",20,"I098",-9.6875,21.2126,0.0,idrotm[902],"MANY");
4162 gMC->Gspos("I096",9,"I098",-14.9112,17.2084,0.0,idrotm[903],"MANY");
4163 gMC->Gspos("I096",22,"I098",-19.618,12.6077,0.0,idrotm[904],"MANY");
4164 gMC->Gspos("I096",11,"I098",-21.8477,6.4151,0.0,idrotm[905],"MANY");
4165 gMC->Gspos("I096",24,"I098",-23.32,0.0,0.0,idrotm[906],"MANY");
4166 gMC->Gspos("I096",13,"I098",-21.8477,-6.4151,0.0,idrotm[907],"MANY");
4167 gMC->Gspos("I096",4,"I098",-19.618,-12.6077,0.0,idrotm[908],"MANY");
4168 gMC->Gspos("I096",15,"I098",-14.9112,-17.2084,0.0,idrotm[909],"MANY");
4169 gMC->Gspos("I096",6,"I098",-9.6875,-21.2126,0.0,idrotm[910],"MANY");
4170 gMC->Gspos("I096",17,"I098",-3.2405,-22.5382,0.0,idrotm[911],"MANY");
4171 gMC->Gspos("I096",8,"I098",3.3188,-23.0826,0.0,idrotm[912],"MANY");
4172 gMC->Gspos("I096",19,"I098",9.459,-20.7123,0.0,idrotm[913],"MANY");
4173 gMC->Gspos("I096",10,"I098",15.2714,-17.6241,0.0,idrotm[914],"MANY");
4174 gMC->Gspos("I096",21,"I098",19.1553,-12.3104,0.0,idrotm[915],"MANY");
4175 gMC->Gspos("I096",12,"I098",22.3754,-6.57,0.0,idrotm[916],"MANY");
4176 gMC->Gspos("I094",1,"I097",0.0,0.0,0.0,0,"ONLY");
4177 gMC->Gspos("I096",1,"I097",13.87,0.0,0.0,idrotm[894],"MANY");
4178 gMC->Gspos("I096",32,"I097",13.037,6.2783,0.0,idrotm[917],"MANY");
4179 gMC->Gspos("I096",25,"I097",8.6478,10.844,0.0,idrotm[918],"MANY");
4180 gMC->Gspos("I096",34,"I097",3.2199,14.1072,0.0,idrotm[919],"MANY");
4181 gMC->Gspos("I096",27,"I097",-3.0864,13.5223,0.0,idrotm[920],"MANY");
4182 gMC->Gspos("I096",36,"I097",-9.0219,11.3131,0.0,idrotm[921],"MANY");
4183 gMC->Gspos("I096",29,"I097",-12.4964,6.018,0.0,idrotm[922],"MANY");
4184 gMC->Gspos("I096",2,"I097",-14.47,0.0,0.0,idrotm[906],"MANY");
4185 gMC->Gspos("I096",31,"I097",-12.4964,-6.018,0.0,idrotm[923],"MANY");
4186 gMC->Gspos("I096",26,"I097",-9.0219,-11.3131,0.0,idrotm[924],"MANY");
4187 gMC->Gspos("I096",33,"I097",-3.0864,-13.5223,0.0,idrotm[925],"MANY");
4188 gMC->Gspos("I096",28,"I097",3.2199,-14.1072,0.0,idrotm[926],"MANY");
4189 gMC->Gspos("I096",35,"I097",8.6478,-10.844,0.0,idrotm[927],"MANY");
4190 gMC->Gspos("I096",30,"I097",13.037,-6.2783,0.0,idrotm[928],"MANY");
4191
4192
4193 // --- Place volumes of SSD cone ----------------------------------
db915fea 4194
9d2da7b3 4195
e4f08ac3 4196 gMC->Gspos("I212",2,"IS01",0.0,0.0,0.0,idrotm[701],"MANY");
9d2da7b3 4197 gMC->Gspos("I212",1,"IS01",0.0,0.0,0.0,0,"MANY");
9d2da7b3 4198 gMC->Gspos("I211",1,"IS01",0.0,0.0,-56.5,0,"ONLY");
e4f08ac3 4199 gMC->Gspos("I217",1,"IS01",0.0,0.0,-44.4,0,"ONLY"); // this will change after PPR to be symmetric
4200 gMC->Gspos("I219",1,"IS01",0.0,0.0,-50.25,0,"ONLY"); // this will change after PPR to be symmetric
4201 gMC->Gspos("I211",2,"IS01",0.0,0.0,56.5,idrotm[701],"ONLY");
4202 gMC->Gspos("I219",2,"IS01",0.0,0.0,51.65,idrotm[701],"ONLY"); // this will change after PPR to be symmetric
4203 gMC->Gspos("I217",2,"IS01",0.0,0.0,45.8,idrotm[701],"ONLY"); // this will change after PPR to be symmetric
4204 gMC->Gspos("I214",2,"IS01",0.0,0.0,67.25,idrotm[701],"ONLY");
4205 gMC->Gspos("I213",2,"IS01",0.0,0.0,62.25,idrotm[701],"ONLY");
4206 gMC->Gspos("I213",1,"IS01",0.0,0.0,-62.25,0,"ONLY");
4207 gMC->Gspos("I214",1,"IS01",0.0,0.0,-67.25,0,"ONLY");
4208 gMC->Gspos("I215",19,"IS01",0.0,0.0,0.0,idrotm[702],"MANY");
4209 gMC->Gspos("I215",21,"IS01",0.0,0.0,0.0,idrotm[703],"MANY");
4210 gMC->Gspos("I215",23,"IS01",0.0,0.0,0.0,idrotm[704],"MANY");
4211 gMC->Gspos("I215",24,"IS01",0.0,0.0,0.0,idrotm[705],"MANY");
4212 gMC->Gspos("I215",3,"IS01",0.0,0.0,0.0,idrotm[706],"MANY");
4213 gMC->Gspos("I215",5,"IS01",0.0,0.0,0.0,idrotm[707],"MANY");
4214 gMC->Gspos("I215",7,"IS01",0.0,0.0,0.0,idrotm[708],"MANY");
4215 gMC->Gspos("I215",9,"IS01",0.0,0.0,0.0,idrotm[709],"MANY");
4216 gMC->Gspos("I215",11,"IS01",0.0,0.0,0.0,idrotm[710],"MANY");
4217 gMC->Gspos("I215",13,"IS01",0.0,0.0,0.0,idrotm[711],"MANY");
4218 gMC->Gspos("I215",15,"IS01",0.0,0.0,0.0,idrotm[712],"MANY");
4219 gMC->Gspos("I215",17,"IS01",0.0,0.0,0.0,idrotm[713],"MANY");
4220 gMC->Gspos("I216",9,"IS01",0.0,0.0,45.5,idrotm[714],"ONLY");
4221 gMC->Gspos("I216",11,"IS01",0.0,0.0,45.5,idrotm[715],"ONLY");
4222 gMC->Gspos("I216",12,"IS01",0.0,0.0,45.5,idrotm[716],"ONLY");
4223 gMC->Gspos("I216",3,"IS01",0.0,0.0,45.5,idrotm[717],"ONLY");
4224 gMC->Gspos("I216",5,"IS01",0.0,0.0,45.5,idrotm[718],"ONLY");
4225 gMC->Gspos("I216",7,"IS01",0.0,0.0,45.5,idrotm[719],"ONLY");
4226 gMC->Gspos("I216",10,"IS01",0.0,0.0,-44,idrotm[720],"ONLY");
4227 gMC->Gspos("I216",1,"IS01",0.0,0.0,-44,idrotm[721],"ONLY");
4228 gMC->Gspos("I216",2,"IS01",0.0,0.0,-44,idrotm[722],"ONLY");
4229 gMC->Gspos("I216",4,"IS01",0.0,0.0,-44,idrotm[723],"ONLY");
4230 gMC->Gspos("I216",6,"IS01",0.0,0.0,-44,idrotm[724],"ONLY");
4231 gMC->Gspos("I216",8,"IS01",0.0,0.0,-44,idrotm[725],"ONLY");
4232 gMC->Gspos("I215",1,"IS01",0.0,0.0,0.0,idrotm[726],"MANY");
4233 gMC->Gspos("I215",2,"IS01",0.0,0.0,0.0,idrotm[727],"MANY");
4234 gMC->Gspos("I215",4,"IS01",0.0,0.0,0.0,idrotm[728],"MANY");
4235 gMC->Gspos("I215",6,"IS01",0.0,0.0,0.0,idrotm[729],"MANY");
4236 gMC->Gspos("I215",8,"IS01",0.0,0.0,0.0,idrotm[733],"MANY");
4237 gMC->Gspos("I215",10,"IS01",0.0,0.0,0.0,idrotm[730],"MANY");
4238 gMC->Gspos("I215",12,"IS01",0.0,0.0,0.0,idrotm[731],"MANY");
4239 gMC->Gspos("I215",14,"IS01",0.0,0.0,0.0,idrotm[768],"MANY");
4240 gMC->Gspos("I215",16,"IS01",0.0,0.0,0.0,idrotm[732],"MANY");
4241 gMC->Gspos("I215",18,"IS01",0.0,0.0,0.0,idrotm[734],"MANY");
4242 gMC->Gspos("I215",20,"IS01",0.0,0.0,0.0,idrotm[798],"MANY");
4243 gMC->Gspos("I215",22,"IS01",0.0,0.0,0.0,idrotm[735],"MANY");
9d2da7b3 4244
4245
4246 // --- Place subdetectors' mother volumes and supports' mother volumes
4247 // into ITS mother volume ITSD
4248
4249 gMC->Gspos("IT12",1,"ITSD",0.0,0.0,0.0,0,"ONLY"); // SPD mother volume
4250 gMC->Gspos("IT34",1,"ITSD",0.0,0.0,0.0,0,"ONLY"); // SDD mother volume
4251 gMC->Gspos("IT56",1,"ITSD",0.0,0.0,0.0,0,"ONLY"); // SSD mother volume
4252 gMC->Gspos("IS02",1,"ITSD",0.0,0.0,0.0,0,"ONLY"); // SDD cones/supports
4253 gMC->Gspos("IS01",1,"ITSD",0.0,0.0,0.0,0,"ONLY"); // SSD cones/supports
4254
db915fea 4255
9d2da7b3 4256 // **************************** SERVICES *********************************
db915fea 4257
05a91552 4258 // --- DEFINE CABLES AT THE END OF THE ITS CONES - COPPER PART
4259 // UPPER PART
4260
4261 dgh[0] = 46.;
4262 dgh[1] = 46.+1.0;
4263 dgh[2] = 9.5;
4264 dgh[3] = 12.;
4265 dgh[4] = 168.;
4266
4267 gMC->Gsvolu("I1CU", "TUBS", idtmed[213], dgh, 5);
4268 gMC->Gspos("I1CU", 1, "ITSV", 0., 0., 83.5, 0, "ONLY");
4269 gMC->Gspos("I1CU", 2, "ITSV", 0., 0., -83.5, idrotm[200], "ONLY");
db915fea 4270
4271 // --- DEFINE CABLES AT THE END OF THE ITS CONES - COPPER PART
05a91552 4272 // LOWER PART
4273
4274 dgh[0] = 46.;
4275 dgh[1] = 46.+1.0;
4276 dgh[2] = 9.5;
4277 dgh[3] = 192.;
4278 dgh[4] = 348.;
4279
4280 gMC->Gsvolu("I2CU", "TUBS", idtmed[213], dgh, 5);
4281 gMC->Gspos("I2CU", 1, "ITSV", 0., 0., 83.5, 0, "ONLY");
4282 gMC->Gspos("I2CU", 2, "ITSV", 0., 0., -83.5, idrotm[200], "ONLY");
4283
4284
4285 // --- DEFINE CABLES AT THE END OF THE ITS CONES - CARBON PART
4286 // UPPER PART
db915fea 4287
05a91552 4288 dgh[0] = 46.+1.0;
4289 dgh[1] = 46.+1.0+1.5;
db915fea 4290 dgh[2] = 9.5;
05a91552 4291 dgh[3] = 12.;
4292 dgh[4] = 168.;
db915fea 4293
05a91552 4294 gMC->Gsvolu("I1CC", "TUBS", idtmed[225], dgh, 5);
4295 gMC->Gspos("I1CC", 1, "ITSV", 0., 0., 83.5, 0, "ONLY");
4296 gMC->Gspos("I1CC", 2, "ITSV", 0., 0., -83.5, idrotm[200], "ONLY");
db915fea 4297
4298 // --- DEFINE CABLES AT THE END OF THE ITS CONES - CARBON PART
05a91552 4299 // LOWER PART
db915fea 4300
05a91552 4301 dgh[0] = 46.+1.0;
4302 dgh[1] = 46.+1.0+1.5;
db915fea 4303 dgh[2] = 9.5;
05a91552 4304 dgh[3] = 192.;
4305 dgh[4] = 348.;
db915fea 4306
05a91552 4307 gMC->Gsvolu("I2CC", "TUBS", idtmed[225], dgh, 5);
4308 gMC->Gspos("I2CC", 1, "ITSV", 0., 0., 83.5, 0, "ONLY");
4309 gMC->Gspos("I2CC", 2, "ITSV", 0., 0., -83.5, idrotm[200], "ONLY");
4310
4311
4312 // --- DEFINE PATCH PANELS AT THE END OF THE ITS CONES
4313 // UPPER PART
4314
4315 dgh[0] = 46.;
4316 dgh[1] = 56.;
4317 dgh[2] = 2.25;
4318 dgh[3] = 12.;
4319 dgh[4] = 168.;
4320
4321 gMC->Gsvolu("IPA1", "TUBS", idtmed[210], dgh, 5);
4322 gMC->Gspos("IPA1", 1, "ITSV", 0., 0., 95.25, 0, "ONLY");
4323 gMC->Gspos("IPA1", 2, "ITSV", 0., 0., -95.25, idrotm[200], "ONLY");
db915fea 4324
4325 // --- DEFINE PATCH PANELS AT THE END OF THE ITS CONES
05a91552 4326 // LOWER PART
db915fea 4327
05a91552 4328 dgh[0] = 46.;
db915fea 4329 dgh[1] = 56.;
4330 dgh[2] = 2.25;
05a91552 4331 dgh[3] = 192.;
4332 dgh[4] = 348.;
db915fea 4333
05a91552 4334 gMC->Gsvolu("IPA2", "TUBS", idtmed[210], dgh, 5);
4335 gMC->Gspos("IPA2", 1, "ITSV", 0., 0., 95.25, 0, "ONLY");
4336 gMC->Gspos("IPA2", 2, "ITSV", 0., 0., -95.25, idrotm[200], "ONLY");
4337
db915fea 4338
4339 // --- DEFINE CABLES/COOLING BELOW THE TPC - COPPER PART - UPPER PART
4340
e4f08ac3 4341 dgh[0] = (ztpc-97.5)/2.;
45725ec9 4342 dgh[1] = 46.2;
4343 dgh[2] = 46.2+1.0;
4344 dgh[3] = 62.3;
4345 dgh[4] = 62.3+1.0;
db915fea 4346 dgh[5] = 12.;
4347 dgh[6] = 168.;
9d2da7b3 4348 gMC->Gsvolu("ICU1", "CONS", idtmed[213], dgh, 7);
e4f08ac3 4349 gMC->Gspos("ICU1", 1, "ITSV", 0., 0., 97.5+dgh[0], 0, "ONLY");
4350 gMC->Gspos("ICU1", 2, "ITSV", 0., 0., -(97.5+dgh[0]), idrotm[200], "ONLY");
db915fea 4351
4352 // --- DEFINE CABLES/COOLING BELOW THE TPC - COPPER PART - LOWER PART
4353
e4f08ac3 4354 dgh[0] = (ztpc-97.5)/2.;
45725ec9 4355 dgh[1] = 46.2;
4356 dgh[2] = 46.2+1.0;
4357 dgh[3] = 62.3;
4358 dgh[4] = 62.3+1.0;
db915fea 4359 dgh[5] = 192.;
4360 dgh[6] = 348.;
9d2da7b3 4361 gMC->Gsvolu("ICU2", "CONS", idtmed[213], dgh, 7);
e4f08ac3 4362 gMC->Gspos("ICU2", 1, "ITSV", 0., 0., 97.5+dgh[0], 0, "ONLY");
4363 gMC->Gspos("ICU2", 2, "ITSV", 0., 0., -(97.5+dgh[0]), idrotm[200], "ONLY");
db915fea 4364
4365 // --- DEFINE CABLES/COOLING BELOW THE TPC - CARBON PART - UPPER PART
4366
e4f08ac3 4367 dgh[0] = (ztpc-97.5)/2.;
45725ec9 4368 dgh[1] = 46.2+1.0;
4369 dgh[2] = 46.2+1.0+1.5;
4370 dgh[3] = 62.3+1.0;
4371 dgh[4] = 62.3+1.0+1.5;
db915fea 4372 dgh[5] = 12.;
4373 dgh[6] = 168.;
9d2da7b3 4374 gMC->Gsvolu("ICC1", "CONS", idtmed[225], dgh, 7);
e4f08ac3 4375 gMC->Gspos("ICC1", 1, "ITSV", 0., 0., 97.5+dgh[0], 0, "ONLY");
4376 gMC->Gspos("ICC1", 2, "ITSV", 0., 0., -(97.5+dgh[0]), idrotm[200], "ONLY");
db915fea 4377
4378 // --- DEFINE CABLES/COOLING BELOW THE TPC - CARBON PART - LOWER PART
4379
e4f08ac3 4380 dgh[0] = (ztpc-97.5)/2.;
45725ec9 4381 dgh[1] = 46.2+1.0;
4382 dgh[2] = 46.2+1.0+1.5;
4383 dgh[3] = 62.3+1.0;
4384 dgh[4] = 62.3+1.0+1.5;
db915fea 4385 dgh[5] = 192.;
4386 dgh[6] = 348.;
9d2da7b3 4387 gMC->Gsvolu("ICC2", "CONS", idtmed[225], dgh, 7);
e4f08ac3 4388 gMC->Gspos("ICC2", 1, "ITSV", 0., 0., 97.5+dgh[0], 0, "ONLY");
4389 gMC->Gspos("ICC2", 2, "ITSV", 0., 0., -(97.5+dgh[0]), idrotm[200], "ONLY");
db915fea 4390
4391 // --- DEFINE CABLES/COOLING BEHIND THE TPC - COPPER PART - UPPER PART
4392
45725ec9 4393 dgh[0] = 62.1;
db915fea 4394 dgh[1] = 74.5;
4395 dgh[2] = 0.5;
4396 dgh[3] = 12.;
4397 dgh[4] = 168.;
9d2da7b3 4398 gMC->Gsvolu("ICU3", "TUBS", idtmed[213], dgh, 5);
e4f08ac3 4399 gMC->Gspos("ICU3", 1, "ITSV", 0., 0., ztpc+1.5+dgh[2], 0, "ONLY");
4400 gMC->Gspos("ICU3", 2, "ITSV", 0., 0., -(ztpc+1.5+dgh[2]), idrotm[200], "ONLY");
db915fea 4401
4402 // --- DEFINE CABLES/COOLING BEHIND THE TPC - COPPER PART - LOWER PART
4403
45725ec9 4404 dgh[0] = 62.1;
db915fea 4405 dgh[1] = 74.5;
4406 dgh[2] = 0.5;
4407 dgh[3] = 192.;
4408 dgh[4] = 348.;
9d2da7b3 4409 gMC->Gsvolu("ICU4", "TUBS", idtmed[213], dgh, 5);
e4f08ac3 4410 gMC->Gspos("ICU4", 1, "ITSV", 0., 0., ztpc+1.5+dgh[2], 0, "ONLY");
4411 gMC->Gspos("ICU4", 2, "ITSV", 0., 0., -(ztpc+1.5+dgh[2]), idrotm[200], "ONLY");
db915fea 4412
4413 // --- DEFINE CABLES/COOLING BEHIND THE TPC - CARBON PART - UPPER PART
4414
45725ec9 4415 dgh[0] = 62.1;
db915fea 4416 dgh[1] = 74.5;
4417 dgh[2] = 0.75;
4418 dgh[3] = 12.;
4419 dgh[4] = 168.;
9d2da7b3 4420 gMC->Gsvolu("ICC3", "TUBS", idtmed[225], dgh, 5);
e4f08ac3 4421 gMC->Gspos("ICC3", 1, "ITSV", 0., 0., ztpc+dgh[2], 0, "ONLY");
4422 gMC->Gspos("ICC3", 2, "ITSV", 0., 0., -(ztpc+dgh[2]), idrotm[200], "ONLY");
db915fea 4423
4424 // --- DEFINE CABLES/COOLING BEHIND THE TPC - CARBON PART - LOWER PART
4425
45725ec9 4426 dgh[0] = 62.1;
db915fea 4427 dgh[1] = 74.5;
4428 dgh[2] = 0.75;
4429 dgh[3] = 192.;
4430 dgh[4] = 348.;
9d2da7b3 4431 gMC->Gsvolu("ICC4", "TUBS", idtmed[225], dgh, 5);
e4f08ac3 4432 gMC->Gspos("ICC4", 1, "ITSV", 0., 0., ztpc+dgh[2], 0, "ONLY");
4433 gMC->Gspos("ICC4", 2, "ITSV", 0., 0., -(ztpc+dgh[2]), idrotm[200], "ONLY");
db915fea 4434
4435 // --- DEFINE HOOK TO THE TPC ON OTHER SIDE W.R.T. THE ABSORBER - UPPER PART
4436
4437 dgh[0] = 74.5;
4438 dgh[1] = 79.5;
4439 dgh[2] = 2.5;
4440 dgh[3] = 12.;
4441 dgh[4] = 168.;
9d2da7b3 4442 gMC->Gsvolu("IHK1", "TUBS", idtmed[264], dgh, 5);
e4f08ac3 4443 gMC->Gspos("IHK1", 1, "ITSV", 0., 0., -ztpc-dgh[2], 0, "ONLY");
db915fea 4444
4445 // --- DEFINE HOOK TO THE TPC ON OTHER SIDE W.R.T. THE ABSORBER - LOWER PART
4446
4447 dgh[0] = 74.5;
4448 dgh[1] = 79.5;
4449 dgh[2] = 2.5;
4450 dgh[3] = 192.;
4451 dgh[4] = 348.;
9d2da7b3 4452 gMC->Gsvolu("IHK2", "TUBS", idtmed[264], dgh, 5);
e4f08ac3 4453 gMC->Gspos("IHK2", 1, "ITSV", 0., 0., -ztpc-dgh[2], 0, "ONLY");
db915fea 4454
4455 // --- DEFINE RAILS BETWEEN THE ITS AND THE TPC
4456
e4f08ac3 4457 if (rails == 1) {
4458
4459 dgh[0] = 2.;
4460 dgh[1] = 8.;
4461 dgh[2] = 190.;
31683195 4462 gMC->Gsvolu("IRA1", "BOX ", idtmed[268], dgh, 3);
e4f08ac3 4463 gMC->Gspos("IRA1", 1, "ITSV", 53.5, 0., -69.5, 0, "ONLY");
31683195 4464 gMC->Gsvolu("IRA2", "BOX ", idtmed[268], dgh, 3);
e4f08ac3 4465 gMC->Gspos("IRA2", 1, "ITSV", -53.5, 0., -69.5, 0, "ONLY");
4466
31683195 4467 dgh[0] = 2.-0.5; // 0.5 was determined in such a way that the aluminum area is 20.9 cm^2
4468 dgh[1] = 8.-0.5; // 0.5 was determined in such a way that the aluminum area is 20.9 cm^2
e4f08ac3 4469 dgh[2] = 190.;
4470 gMC->Gsvolu("IRA3", "BOX ", idtmed[205], dgh, 3);
4471 gMC->Gspos("IRA3", 1, "IRA1", 0., 0., 0., 0, "ONLY");
4472 gMC->Gsvolu("IRA4", "BOX ", idtmed[205], dgh, 3);
4473 gMC->Gspos("IRA4", 1, "IRA2", 0., 0., 0., 0, "ONLY");
4474
4475 }
db915fea 4476
4477 // --- DEFINE CYLINDERS HOLDING RAILS BETWEEN THE ITS AND THE TPC
4478
e4f08ac3 4479 dgh[0] = 56.9;
db915fea 4480 dgh[1] = 59.;
e4f08ac3 4481 dgh[2] = 0.6;
9d2da7b3 4482 gMC->Gsvolu("ICYL", "TUBE", idtmed[210], dgh, 3);
27c5763c 4483 gMC->Gspos("ICYL", 1, "ALIC", 0., 0., 74.1, 0, "ONLY");
4484 gMC->Gspos("ICYL", 2, "ALIC", 0., 0., -74.1, idrotm[200], "ONLY");
e4f08ac3 4485
4486 // --- DEFINE SUPPORTS FOR RAILS ATTACHED TO THE CYLINDERS
4487
4488 dgh[0] = 0.;
4489 dgh[1] = 3.;
4490 dgh[2] = 5.; // 5. comes from the fact that the volume has to be 567.6/2 cm^3
4491 gMC->Gsvolu("ISR1", "TUBE", idtmed[284], dgh, 3);
c2685204 4492 gMC->Gspos("ISR1", 1, "ITSV", 53.4292, 10.7053, 79.75, 0, "ONLY");
4493 gMC->Gspos("ISR1", 2, "ITSV", 53.4292, -10.7053, 79.75, 0, "ONLY");
4494 gMC->Gspos("ISR1", 3, "ITSV", -53.4292, 10.7053, 79.75, 0, "ONLY");
4495 gMC->Gspos("ISR1", 4, "ITSV", -53.4292, -10.7053, 79.75, 0, "ONLY");
4496 gMC->Gspos("ISR1", 5, "ITSV", 53.4292, 10.7053, -79.75, 0, "ONLY");
4497 gMC->Gspos("ISR1", 6, "ITSV", 53.4292, -10.7053, -79.75, 0, "ONLY");
4498 gMC->Gspos("ISR1", 7, "ITSV", -53.4292, 10.7053, -79.75, 0, "ONLY");
4499 gMC->Gspos("ISR1", 8, "ITSV", -53.4292, -10.7053, -79.75, 0, "ONLY");
e4f08ac3 4500
4501 // --- DEFINE SUPPORTS FOR RAILS ATTACHED TO THE ABSORBER
4502
4503 dgh[0] = 5.;
4504 dgh[1] = 12.;
4505 dgh[2] = 5.;
4506 gMC->Gsvolu("ISR2", "BOX ", idtmed[210], dgh, 3);
4507 gMC->Gspos("ISR2", 1, "ALIC", 53.5, 0., 125.5, 0, "ONLY");
4508 gMC->Gsvolu("ISR3", "BOX ", idtmed[210], dgh, 3);
4509 gMC->Gspos("ISR3", 1, "ALIC", -53.5, 0., 125.5, 0, "ONLY");
4510
4511 dgh[0] = 5.-2.;
4512 dgh[1] = 12.-2.;
4513 dgh[2] = 5.;
4514 gMC->Gsvolu("ISR4", "BOX ", idtmed[205], dgh, 3);
4515 gMC->Gspos("ISR4", 1, "ISR2", 0., 0., 0., 0, "ONLY");
4516 gMC->Gsvolu("ISR5", "BOX ", idtmed[205], dgh, 3);
4517 gMC->Gspos("ISR5", 1, "ISR3", 0., 0., 0., 0, "ONLY");
4518
4519 // --- DEFINE SUPPORTS TO ATTACH THE ITS TO THE TPC
4520
4521 dgh[0] = 0.;
4522 dgh[1] = 5.;
4523 dgh[2] = 2.;
4524 gMC->Gsvolu("ISR6", "TUBE", idtmed[210], dgh, 3);
4525 gMC->Gspos("ISR6", 1, "ALIC", 0., 54., 77., 0, "ONLY");
4526 gMC->Gspos("ISR6", 2, "ALIC", 0., 54., -77., 0, "ONLY");
4527 gMC->Gspos("ISR6", 3, "ALIC", 0., -54., -77., 0, "ONLY");
db915fea 4528
4529 // --- Outputs the geometry tree in the EUCLID/CAD format
4530
4531 if (fEuclidOut) {
4532 gMC->WriteEuclid("ITSgeometry", "ITSV", 1, 5);
4533 }
4534}
4535//_____________________________________________________________________________
4536void AliITSvPPRsymm::CreateMaterials(){
4537////////////////////////////////////////////////////////////////////////
4538 //
4539 // Create ITS materials
4540 // This function defines the default materials used in the Geant
4541 // Monte Carlo simulations for the geometries AliITSv1, AliITSv3,
9d2da7b3 4542 // AliITSvPPRsymm.
db915fea 4543 // In general it is automatically replaced by
4544 // the CreatMaterials routine defined in AliITSv?. Should the function
4545 // CreateMaterials not exist for the geometry version you are using this
4546 // one is used. See the definition found in AliITSv5 or the other routine
4547 // for a complete definition.
4548 //
e4f08ac3 4549
db915fea 4550 Int_t isxfld = gAlice->Field()->Integ();
4551 Float_t sxmgmx = gAlice->Field()->Max();
e4f08ac3 4552
4553 // Freon
4554 Float_t afre[2] = { 12.011,18.9984032 };
4555 Float_t zfre[2] = { 6.,9. };
4556 Float_t wfre[2] = { 5.,12. };
4557 Float_t densfre = 1.5;
4558
9d2da7b3 4559 // --- Define the various materials and media for GEANT ---
db915fea 4560
9d2da7b3 4561 AliMaterial(1,"SI$",0.28086E+02,0.14000E+02,0.23300E+01,0.93600E+01,0.99900E+03);
4562 AliMedium(1,"SI$",1,0,isxfld,sxmgmx,.10000E+01,.10000E+01,0.30000E02,.10000E+01,0);
4563
4564 AliMaterial(2,"SPD SI CHIP$",0.28086E+02,0.14000E+02,0.23300E+01,0.93600E+01,0.99900E+03);
4565 AliMedium(2,"SPD SI CHIP$",2,0,isxfld,sxmgmx,.10000E+01,.10000E+01,0.30000E02,.10000E+01, 0);
4566
4567 AliMaterial(3,"SPD SI BUS$",0.28086E+02,0.14000E+02,0.23300E+01,0.93600E+01,0.99900E+03);
4568 AliMedium(3,"SPD SI BUS$",3,0,isxfld,sxmgmx,.10000E+01,.10000E+01,0.30000E02,.10000E+01,0);
4569
4570 AliMaterial(4,"C (M55J)$",0.12011E+02,0.60000E+01,0.1930E+01,0.22100E+02,0.99900E+03);
4571 AliMedium(4,"C (M55J)$",4,0,isxfld,sxmgmx,.10000E+01,.10000E+01,0.30000E02,.10000E+01,0);
4572
4573 AliMaterial(5,"AIR$",0.14610E+02,0.73000E+01,0.12050E-02,0.30423E+05,0.99900E+03);
4574 AliMedium(5,"AIR$",5,0,isxfld,sxmgmx,.10000E+01,.10000E+01,0.30000E-02,.10000E+01,0);
4575
4576 AliMaterial(6,"GEN AIR$",0.14610E+02,0.73000E+01,0.12050E-02,0.30423E+05,0.99900E+03);
4577 AliMedium(6,"GEN AIR$",6,0,isxfld,sxmgmx,.10000E+01,.10000E+01,0.30000E-02,.10000E+01,0);
4578
4579 AliMaterial(7,"SDD SI CHIP$",0.374952E+02,0.178184E+02,0.24485E+01,0.76931E+01,0.99900E+03);
4580 AliMedium(7,"SDD SI CHIP$",7,0,isxfld,sxmgmx,.10000E+01,.10000E+01,0.30000E02,.10000E+01,0);
4581
4582 AliMaterial(9,"SDD C (M55J)$",0.123565E+02,0.64561E+01,0.18097E+01,0.229570E+02,0.99900E+03);
4583 AliMedium(9,"SDD C (M55J)$",9,0,isxfld,sxmgmx,.10000E+01,.10000E+01,0.30000E02,.10000E+01,0);
4584
4585 AliMaterial(10,"SDD AIR$",0.14610E+02,0.73000E+01,0.12050E-02,0.30423E+05,0.99900E+03);
4586 AliMedium(10,"SDD AIR$",10,0,isxfld,sxmgmx,.10000E+01,.10000E+01,0.30000E-02,.10000E+01,0);
4587
4588 AliMaterial(11,"AL$",0.26982E+02,0.13000E+02,0.26989E+01,0.89000E+01,0.99900E+03);
4589 AliMedium(11,"AL$",11,0,isxfld,sxmgmx,.10000E+01,.10000E+01,0.30000E02,.10000E+01,0);
4590
4591 AliMaterial(12,"WATER$",0.14322E+02,0.72167E+01,0.10000E+01,0.35759E+02,0.94951E+02);
4592 AliMedium(12,"WATER$",12,0,isxfld,sxmgmx,.10000E+01,.10000E+01,0.30000E02,.10000E+01,0);
4593
e4f08ac3 4594 AliMixture(13,"Freon$",afre,zfre,densfre,-2,wfre);
4595 AliMedium(13,"Freon$",13,0,isxfld,sxmgmx,.10000E+01,.10000E+01,0.30000E02,.10000E+01,0);
4596
9d2da7b3 4597 AliMaterial(14,"COPPER$",0.63546E+02,0.29000E+02,0.89600E+01,0.14300E+01,0.99900E+03);
4598 AliMedium(14,"COPPER$",14,0,isxfld,sxmgmx,.10000E+01,.10000E+01,0.30000E02,.10000E+01,0);
4599
4600 AliMaterial(15,"CERAMICS$",0.22314E+02,0.10856E+02,0.36000E+01,0.76200E+01,0.31901E+02);
4601 AliMedium(15,"CERAMICS$",15,0,isxfld,sxmgmx,.10000E+01,.10000E+01,0.30000E02,.10000E+01,0);
4602
4603 AliMaterial(20,"SSD C (M55J)$",0.12011E+02,0.60000E+01,0.1930E+01,0.22100E+02,0.99900E+03);
4604 AliMedium(20,"SSD C (M55J)$",20,0,isxfld,sxmgmx,.10000E+01,.10000E+01,0.30000E02,.10000E+01,0);
4605
4606 AliMaterial(21,"SSD AIR$",0.14610E+02,0.73000E+01,0.12050E-02,0.30423E+05,0.99900E+03);
4607 AliMedium(21,"SSD AIR$",21,0,isxfld,sxmgmx,.10000E+01,.10000E+01,0.30000E-02,.10000E+01,0);
4608
4609 AliMaterial(25,"G10FR4$",0.17749E+02,0.88750E+01,0.18000E+01,0.21822E+02,0.99900E+03);
4610 AliMedium(25,"G10FR4$",25,0,isxfld,sxmgmx,.10000E+01,.10000E+01,0.30000E02,.10000E+01,0);
4611
4612 AliMaterial(26,"GEN C (M55J)$",0.12011E+02,0.60000E+01,0.1930E+01,0.22100E+02,0.99900E+03);
4613 AliMedium(26,"GEN C (M55J)$",26,0,isxfld,sxmgmx,.10000E+01,.10000E+01,0.30000E02,.10000E+01,0);
4614
4615 AliMaterial(27,"GEN Air$",0.14610E+02,0.73000E+01,0.12050E-02,0.30423E+05,0.99900E+03);
4616 AliMedium(27,"GEN Air$",27,0,isxfld,sxmgmx,.10000E+01,.10000E+01,0.30000E-02,.10000E+01,0);
4617
4618 AliMaterial(51,"SPD SI$",0.28086E+02,0.14000E+02,0.23300E+01,0.93600E+01,0.99900E+03);
4619 AliMedium(51,"SPD SI$",51,0,isxfld,sxmgmx,.10000E+01,.10000E+01,0.30000E02,.10000E+01,0);
4620
4621 AliMaterial(52,"SPD SI CHIP$",0.28086E+02,0.14000E+02,0.23300E+01,0.93600E+01,0.99900E+03);
4622 AliMedium(52,"SPD SI CHIP$",52,0,isxfld,sxmgmx,.10000E+01,.10000E+01,0.30000E02,.10000E+01,0);
4623
4624 AliMaterial(53,"SPD SI BUS$",0.28086E+02,0.14000E+02,0.23300E+01,0.93600E+01,0.99900E+03);
4625 AliMedium(53,"SPD SI BUS$",53,0,isxfld,sxmgmx,.10000E+01,.10000E+01,0.30000E02,.10000E+01,0);
4626
4627 AliMaterial(54,"SPD C (M55J)$",0.12011E+02,0.60000E+01,0.1930E+01,0.22100E+02,0.99900E+03);
4628 AliMedium(54,"SPD C (M55J)$",54,0,isxfld,sxmgmx,.10000E+01,.10000E+01,0.30000E02,.10000E+01,0);
4629
4630 AliMaterial(55,"SPD AIR$",0.14610E+02,0.73000E+01,0.12050E-02,0.30423E+05,0.99900E+03);
4631 AliMedium(55,"SPD AIR$",55,0,isxfld,sxmgmx,.10000E+01,.10000E+01,0.30000E-02,.10000E+01,0);
4632
4633 AliMaterial(56,"SPD KAPTON(POLYCH2)$",0.14000E+02,0.71770E+01,0.13000E+01,0.31270E+02,0.99900E+03);
4634 AliMedium(56,"SPD KAPTON(POLYCH2)$",56,0,isxfld,sxmgmx,.10000E+01,.10000E+01,0.30000E02,.10000E+01,0);
4635
4636 AliMaterial(61,"EPOXY$",0.17749E+02,0.88750E+01,0.18000E+01,0.21822E+02,0.99900E+03);
4637 AliMedium(61,"EPOXY$",61,0,isxfld,sxmgmx,.10000E+01,.10000E+01,0.30000E02,.10000E+01,0);
4638
4639 AliMaterial(62,"SILICON$",0.28086E+02,0.14000E+02,0.23300E+01,0.93600E+01,0.99900E+03);
4640 AliMedium(62,"SILICON$",62,0,isxfld,sxmgmx,.10000E+01,.10000E+01,0.30000E02,.10000E+01,0);
4641
4642 AliMaterial(63,"KAPTONH(POLYCH2)$",0.14000E+02,0.71770E+01,0.13000E+01,0.31270E+02,0.99900E+03);
4643 AliMedium(63,"KAPTONH(POLYCH2)$",63,0,isxfld,sxmgmx,.10000E+01,.10000E+01,0.30000E02,.10000E+01,0);
4644
4645 AliMaterial(64,"ALUMINUM$",0.26982E+02,0.13000E+02,0.26989E+01,0.89000E+01,0.99900E+03);
4646 AliMedium(64,"ALUMINUM$",64,0,isxfld,sxmgmx,.10000E+01,.10000E+01,0.30000E02,.10000E+01,0);
4647
4648 AliMaterial(65,"INOX$",0.55098E+02,0.2572E+02,0.7900E+01,0.17800E+01,0.99900E+03);
4649 AliMedium(65,"INOX$",65,0,isxfld,sxmgmx,.10000E+01,.10000E+01,0.30000E02,.10000E+01,0);
4650
e4f08ac3 4651 AliMaterial(68,"ROHACELL$",0.123974E+02,0.62363E+01,0.500E-01,0.80986E+03,0.99900E+03);
9d2da7b3 4652 AliMedium(68,"ROHACELL$",68,0,isxfld,sxmgmx,.10000E+01,.10000E+01,0.30000E02,.10000E+01,0);
4653
4654 AliMaterial(69,"SDD C AL (M55J)$",0.138802E+02,0.71315E+01,0.19837E+01,0.176542E+02,0.99900E+03);
4655 AliMedium(69,"SDD C AL (M55J)$",69,0,isxfld,sxmgmx,.10000E+01,.10000E+01,0.30000E02,.10000E+01,0);
4656
4657 AliMaterial(70,"SDDKAPTON (POLYCH2)$",0.14000E+02,0.71770E+01,0.13000E+01,0.31270E+02,0.99900E+03);
4658 AliMedium(70,"SDDKAPTON (POLYCH2)$",70,0,isxfld,sxmgmx,.10000E+01,.10000E+01,0.30000E02,.10000E+01,0);
4659
4660 AliMaterial(71,"ITS SANDW A$",0.12011E+02,0.60000E+01,0.2115E+00,0.17479E+03,0.99900E+03);
4661 AliMedium(71,"ITS SANDW A$",71,0,isxfld,sxmgmx,.10000E+01,.10000E+01,0.30000E02,.10000E+01,0);
4662
4663 AliMaterial(72,"ITS SANDW B$",0.12011E+02,0.60000E+01,0.27000E+00,0.18956E+03,0.99900E+03);
4664 AliMedium(72,"ITS SANDW B$",72,0,isxfld,sxmgmx,.10000E+01,.10000E+01,0.30000E02,.10000E+01,0);
4665
4666 AliMaterial(73,"ITS SANDW C$",0.12011E+02,0.60000E+01,0.41000E+00,0.90868E+02,0.99900E+03);
4667 AliMedium(73,"ITS SANDW C$",73,0,isxfld,sxmgmx,.10000E+01,.10000E+01,0.30000E02,.10000E+01,0);
4668
4669 AliMaterial(74,"HEAT COND GLUE$",0.12011E+02,0.60000E+01,0.1930E+01,0.22100E+02,0.99900E+03);
4670 AliMedium(74,"HEAT COND GLUE$",74,0,isxfld,sxmgmx,.10000E+01,.10000E+01,0.30000E02,.10000E+01,0);
4671
4672 AliMaterial(75,"ELASTO SIL$",0.28086E+02,0.14000E+02,0.23300E+01,0.93600E+01,0.99900E+03);
4673 AliMedium(75,"ELASTO SIL$",75,0,isxfld,sxmgmx,.10000E+01,.10000E+01,0.30000E02,.10000E+01,0);
4674
4675 AliMaterial(76,"SPDBUS(AL+KPT+EPOX)$",0.19509E+02,0.96502E+01,0.19060E+01,0.15413E+02,0.99900E+03);
4676 AliMedium(76,"SPDBUS(AL+KPT+EPOX)$",76,0,isxfld,sxmgmx,.10000E+01,.10000E+01,0.30000E02,.10000E+01,0);
4677
4678 AliMaterial(77,"SDD X7R capacitors$",0.1157516E+03,0.477056E+02,0.67200E+01,0.14236E+01,0.99900E+03);
4679 AliMedium(77,"SDD X7R capacitors$",77,0,isxfld,sxmgmx,.10000E+01,.10000E+01,0.30000E02,.10000E+01,0);
4680
4681 AliMaterial(78,"SDD ruby sph. Al2O3$",0.218101E+02,0.106467E+02,0.39700E+01,0.48539E+01,0.99900E+03);
4682 AliMedium(78,"SDD ruby sph. Al2O3$",78,0,isxfld,sxmgmx,.10000E+01,.10000E+01,0.30000E02,.10000E+01,0);
4683
4684 AliMaterial(79,"SDD SI insensitive$",0.28086E+02,0.14000E+02,0.23300E+01,0.93600E+01,0.99900E+03);
4685 AliMedium(79,"SDD SI insensitive$",79,0,isxfld,sxmgmx,.10000E+01,.10000E+01,0.30000E02,.10000E+01,0);
4686
4687 AliMaterial(80,"SDD HV microcable$",0.159379E+02,0.78598E+01,0.16087E+01,0.217906E+02,0.99900E+03);
4688 AliMedium(80,"SDD HV microcable$",80,0,isxfld,sxmgmx,.10000E+01,.10000E+01,0.30000E02,.10000E+01,0);
4689
4690 AliMaterial(81,"SDD LV+signal cable$",0.223689E+02,0.108531+02,0.21035E+01,0.13440E+02,0.99900E+03);
4691 AliMedium(81,"SDD LV+signal cable$",81,0,isxfld,sxmgmx,.10000E+01,.10000E+01,0.30000E02,.10000E+01,0);
4692
4693 AliMaterial(82,"SDD hybrid microcab$",0.218254E+02,0.106001E+02,0.20502E+01,0.137308E+02,0.99900E+03);
4694 AliMedium(82,"SDD hybrid microcab$",82,0,isxfld,sxmgmx,.10000E+01,.10000E+01,0.30000E02,.10000E+01,0);
4695
4696 AliMaterial(83,"SDD anode microcab$",0.186438E+02,0.91193E+01,0.17854E+01,0.176451E+02,0.99900E+03);
4697 AliMedium(83,"SDD anode microcab$",83,0,isxfld,sxmgmx,.10000E+01,.10000E+01,0.30000E02,.10000E+01,0);
4698
e4f08ac3 4699 AliMaterial(84,"SDD/SSD rings$",0.123565E+02,0.64561E+01,0.18097E+01,0.229570E+02,0.99900E+03);
4700 AliMedium(84,"SDD/SSD rings$",84,0,isxfld,sxmgmx,.10000E+01,.10000E+01,0.30000E02,.10000E+01,0);
4701
4702 AliMaterial(85,"inox/alum$",0.321502E+02,0.153383E+02,0.30705E+01,0.69197E+01,0.99900E+03);
4703 AliMedium(85,"inox/alum$",85,0,isxfld,sxmgmx,.10000E+01,.10000E+01,0.30000E02,.10000E+01,0);
4704
4705
9d2da7b3 4706 // Special media
4707
4708 AliMaterial(90,"SPD shield$", 12.011, 6., 1.93/10. , 22.1*10., 999);
4709 AliMedium(90,"SPD shield$",90, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
4710
fc44ab90 4711 AliMaterial(91, "SPD End ladder$", 47.0447, 21.7963, 3.6374, 4.4711, 999);
9d2da7b3 4712 AliMedium(91, "SPD End ladder$",91, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
4713
4714 AliMaterial(92, "SPD cone$",28.0855, 14., 2.33, 9.36, 999);
4715 AliMedium(92, "SPD cone$", 92, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
4716
4717 AliMaterial(93, "SDD End ladder$", 69.9298, 29.8246, 0.3824, 36.5103, 999);
4718 AliMedium(93, "SDD End ladder$",93, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
4719
4720 AliMaterial(94, "SDD cone$",63.546, 29., 1.15, 1.265, 999);
4721 AliMedium(94, "SDD cone$", 94, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
4722
4723 AliMaterial(95, "SSD End ladder$", 32.0988, 15.4021, 0.68, 35.3238, 999);
4724 AliMedium(95, "SSD End ladder$",95, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
4725
4726 AliMaterial(96, "SSD cone$",63.546, 29., 1.15, 1.265, 999);
4727 AliMedium(96, "SSD cone$", 96, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003);
4728
db915fea 4729
4730}
bae7e562 4731//______________________________________________________________________
4732void AliITSvPPRsymm::InitAliITSgeom(){
4733// Based on the geometry tree defined in Geant 3.21, this
4734// routine initilizes the Class AliITSgeom from the Geant 3.21 ITS geometry
4735// sturture.
cbfdea0d 4736 if(gMC->IsA()!=AliGeant3::Class()) {
bae7e562 4737 Error("InitAliITSgeom",
4738 "Wrong Monte Carlo. InitAliITSgeom uses TGeant3 calls");
4739 return;
4740 } // end if
4741 cout << "Reading Geometry transformation directly from Geant 3." << endl;
4742 const Int_t nlayers = 6;
9d2da7b3 4743 const Int_t ndeep = 9;
bae7e562 4744 Int_t itsGeomTreeNames[nlayers][ndeep],lnam[20],lnum[20];
4745 Int_t nlad[nlayers],ndet[nlayers];
4746 Double_t t[3],r[10];
4747 Float_t par[20],att[20];
4748 Int_t npar,natt,idshape,imat,imed;
4749 AliITSGeant3Geometry *ig = new AliITSGeant3Geometry();
4750 Int_t mod,lay,lad,det,i,j,k;
9d2da7b3 4751 Char_t names[nlayers][ndeep][4];
4752 Int_t itsGeomTreeCopys[nlayers][ndeep];
4753 if(fMinorVersion == 1){ // Option A
4754 Char_t *namesA[nlayers][ndeep] = {
4755 {"ALIC","ITSV","ITSD","IT12","I12A","I10A","I103","I101","ITS1"}, // lay=1
4756 {"ALIC","ITSV","ITSD","IT12","I12A","I20A","I1D3","I1D1","ITS2"}, // lay=2
4757 {"ALIC","ITSV","ITSD","IT34","I004","I302","ITS3"," "," "}, // lay=3
4758 {"ALIC","ITSV","ITSD","IT34","I005","I402","ITS4"," "," "}, // lay=4
4759 {"ALIC","ITSV","ITSD","IT56","I565","I562","ITS5"," "," "}, // lay=5
4760 {"ALIC","ITSV","ITSD","IT56","I569","I566","ITS6"," "," "}};// lay=6
4761 Int_t itsGeomTreeCopysA[nlayers][ndeep]= {{1,1,1,1,10, 2, 4,1,1},// lay=1
4762 {1,1,1,1,10, 4, 4,1,1},// lay=2
4763 {1,1,1,1,14, 6, 1,0,0},// lay=3
4764 {1,1,1,1,22, 8, 1,0,0},// lay=4
4765 {1,1,1,1,34,22, 1,0,0},// lay=5
4766 {1,1,1,1,38,25, 1,0,0}};//lay=6
4767 for(i=0;i<nlayers;i++)for(j=0;j<ndeep;j++){
4768 for(k=0;k<4;k++) names[i][j][k] = namesA[i][j][k];
4769 itsGeomTreeCopys[i][j] = itsGeomTreeCopysA[i][j];
4770 } // end for i,j
4771 }else if(fMinorVersion == 2){ // Option B
4772 Char_t *namesB[nlayers][ndeep] = {
4773 {"ALIC","ITSV","ITSD","IT12","I12B","I10B","I107","I101","ITS1"}, // lay=1
4774 {"ALIC","ITSV","ITSD","IT12","I12B","I20B","I1D7","I1D1","ITS2"}, // lay=2
4775 {"ALIC","ITSV","ITSD","IT34","I004","I302","ITS3"," "," "}, // lay=3
4776 {"ALIC","ITSV","ITSD","IT34","I005","I402","ITS4"," "," "}, // lay=4
4777 {"ALIC","ITSV","ITSD","IT56","I565","I562","ITS5"," "," "}, // lay=5
4778 {"ALIC","ITSV","ITSD","IT56","I569","I566","ITS6"," "," "}};// lay=6
4779 Int_t itsGeomTreeCopysB[nlayers][ndeep]= {{1,1,1,1,10, 2, 4,1,1},// lay=1
4780 {1,1,1,1,10, 4, 4,1,1},// lay=2
4781 {1,1,1,1,14, 6, 1,0,0},// lay=3
4782 {1,1,1,1,22, 8, 1,0,0},// lay=4
4783 {1,1,1,1,34,22, 1,0,0},// lay=5
4784 {1,1,1,1,38,25, 1,0,0}};//lay=6
4785 for(i=0;i<nlayers;i++)for(j=0;j<ndeep;j++){
4786 for(k=0;k<4;k++) names[i][j][k] = namesB[i][j][k];
4787 itsGeomTreeCopys[i][j] = itsGeomTreeCopysB[i][j];
4788 } // end for i,j
4789 } // end if fMinorVersion
bae7e562 4790 // Sorry, but this is not very pritty code. It should be replaced
4791 // at some point with a version that can search through the geometry
4792 // tree its self.
4793 cout << "Reading Geometry informaton from Geant3 common blocks" << endl;
4794 for(i=0;i<20;i++) lnam[i] = lnum[i] = 0;
4795 for(i=0;i<nlayers;i++)for(j=0;j<ndeep;j++)
4796 itsGeomTreeNames[i][j] = ig->StringToInt(names[i][j]);
4797 mod = 0;
4798 for(i=0;i<nlayers;i++){
4799 k = 1;
4800 for(j=0;j<ndeep;j++) if(itsGeomTreeCopys[i][j]!=0)
4801 k *= TMath::Abs(itsGeomTreeCopys[i][j]);
4802 mod += k;
4803 } // end for i
4804
4805 if(fITSgeom!=0) delete fITSgeom;
4806 nlad[0]=20;nlad[1]=40;nlad[2]=14;nlad[3]=22;nlad[4]=34;nlad[5]=38;
9d2da7b3 4807 ndet[0]=4;ndet[1]=4;ndet[2]=6;ndet[3]=8;ndet[4]=22;ndet[5]=25;
bae7e562 4808 fITSgeom = new AliITSgeom(0,6,nlad,ndet,mod);
4809 mod = -1;
4810 for(lay=1;lay<=nlayers;lay++){
4811 for(j=0;j<ndeep;j++) lnam[j] = itsGeomTreeNames[lay-1][j];
4812 for(j=0;j<ndeep;j++) lnum[j] = itsGeomTreeCopys[lay-1][j];
4813 switch (lay){
4814 case 1: case 2: // layers 1 and 2 are a bit special
4815 lad = 0;
4816 for(j=1;j<=itsGeomTreeCopys[lay-1][4];j++){
4817 lnum[4] = j;
4818 for(k=1;k<=itsGeomTreeCopys[lay-1][5];k++){
4819 lad++;
4820 lnum[5] = k;
4821 for(det=1;det<=itsGeomTreeCopys[lay-1][6];det++){
4822 lnum[6] = det;
4823 mod++;
4824 ig->GetGeometry(ndeep,lnam,lnum,t,r,idshape,npar,natt,
4825 par,att,imat,imed);
4826 fITSgeom->CreatMatrix(mod,lay,lad,det,kSPD,t,r);
4827 if(!(fITSgeom->IsShapeDefined((Int_t)kSPD)))
bae7e562 4828 fITSgeom->ReSetShape(kSPD,
e99dbc71 4829 new AliITSgeomSPD425Short(npar,par));
bae7e562 4830 } // end for det
4831 } // end for k
4832 } // end for j
4833 break;
4834 case 3: case 4: case 5: case 6: // layers 3-6
4835 lnum[6] = 1;
4836 for(lad=1;lad<=itsGeomTreeCopys[lay-1][4];lad++){
4837 lnum[4] = lad;
4838 for(det=1;det<=itsGeomTreeCopys[lay-1][5];det++){
4839 lnum[5] = det;
4840 mod++;
4841 ig->GetGeometry(7,lnam,lnum,t,r,idshape,npar,natt,
4842 par,att,imat,imed);
4843 switch (lay){
4844 case 3: case 4:
4845 fITSgeom->CreatMatrix(mod,lay,lad,det,kSDD,t,r);
4846 if(!(fITSgeom->IsShapeDefined(kSDD)))
e99dbc71 4847 fITSgeom->ReSetShape(kSDD,
4848 new AliITSgeomSDD256(npar,par));
bae7e562 4849 break;
4850 case 5:
4851 fITSgeom->CreatMatrix(mod,lay,lad,det,kSSD,t,r);
4852 if(!(fITSgeom->IsShapeDefined(kSSD)))
9d2da7b3 4853 fITSgeom->ReSetShape(kSSD,
e99dbc71 4854 new AliITSgeomSSD275and75(npar,par));
bae7e562 4855 break;
4856 case 6:
1570d46d 4857 fITSgeom->CreatMatrix(mod,lay,lad,det,kSSD,t,r);
4858 if(!(fITSgeom->IsShapeDefined(kSSD)))
4859 fITSgeom->ReSetShape(kSSD,
e99dbc71 4860 new AliITSgeomSSD75and275(npar,par));
bae7e562 4861 break;
4862 } // end switch
4863 } // end for det
4864 } // end for lad
4865 break;
4866 } // end switch
4867 } // end for lay
4868 return;
4869}
db915fea 4870//_____________________________________________________________________________
4871void AliITSvPPRsymm::Init(){
4872////////////////////////////////////////////////////////////////////////
4873// Initialise the ITS after it has been created.
4874////////////////////////////////////////////////////////////////////////
bae7e562 4875 Int_t i;
db915fea 4876
bae7e562 4877 cout << endl;
9d2da7b3 4878 for(i=0;i<26;i++) cout << "*";
4879 cout << " ITSvPPRsymm" << fMinorVersion << "_Init ";
4880 for(i=0;i<25;i++) cout << "*";cout << endl;
bae7e562 4881//
4882 if(fRead[0]=='\0') strncpy(fRead,fEuclidGeomDet,60);
4883 if(fWrite[0]=='\0') strncpy(fWrite,fEuclidGeomDet,60);
4884 if(fITSgeom!=0) delete fITSgeom;
4885 fITSgeom = new AliITSgeom();
4886 if(fGeomDetIn) fITSgeom->ReadNewFile(fRead);
4887 if(!fGeomDetIn) this->InitAliITSgeom();
4888 if(fGeomDetOut) fITSgeom->WriteNewFile(fWrite);
db915fea 4889 AliITS::Init();
bae7e562 4890//
4891 for(i=0;i<72;i++) cout << "*";
4892 cout << endl;
4893}
db915fea 4894//_____________________________________________________________________________
2c198b76 4895void AliITSvPPRsymm::SetDefaults(){
4896 // sets the default segmentation, response, digit and raw cluster classes
4897 const Float_t kconv = 1.0e+04; // convert cm to microns
4898
4899 cout << "AliITSvPPRasymm::SetDefaults" << endl;
4900
4901 AliITSDetType *iDetType;
4902 AliITSgeomSPD *s0;
4903 AliITSgeomSDD *s1;
4904 AliITSgeomSSD *s2;
4905 Int_t i;
4906 Float_t bx[256],bz[280];
4907
4908 //SPD
82873bc1 4909 iDetType=DetType(kSPD);
2c198b76 4910 s0 = (AliITSgeomSPD*) fITSgeom->GetShape(kSPD);// Get shape info. Do it this way for now.
4911 AliITSresponse *resp0=new AliITSresponseSPD();
82873bc1 4912 SetResponseModel(kSPD,resp0);
2c198b76 4913 AliITSsegmentationSPD *seg0=new AliITSsegmentationSPD(fITSgeom);
4914 seg0->SetDetSize(s0->GetDx()*2.*kconv, // base this on AliITSgeomSPD
4915 s0->GetDz()*2.*kconv, // for now.
4916 s0->GetDy()*2.*kconv); // x,z,y full width in microns.
c11a498e 4917 seg0->SetNPads(256,160);// Number of Bins in x and z
2c198b76 4918 for(i=000;i<256;i++) bx[i] = 50.0; // in x all are 50 microns.
4919 for(i=000;i<160;i++) bz[i] = 425.0; // most are 425 microns except below
4920 for(i=160;i<280;i++) bz[i] = 0.0; // Outside of detector.
4921 bz[ 31] = bz[ 32] = 625.0; // first chip boundry
4922 bz[ 63] = bz[ 64] = 625.0; // first chip boundry
4923 bz[ 95] = bz[ 96] = 625.0; // first chip boundry
4924 bz[127] = bz[128] = 625.0; // first chip boundry
c11a498e 4925 bz[160] = 425.0; // Set so that there is no zero pixel size for fNz.
2c198b76 4926 seg0->SetBinSize(bx,bz); // Based on AliITSgeomSPD for now.
82873bc1 4927 SetSegmentationModel(kSPD,seg0);
2c198b76 4928 // set digit and raw cluster classes to be used
4929 const char *kData0=(iDetType->GetResponseModel())->DataType();
4930 if (strstr(kData0,"real")) iDetType->ClassNames("AliITSdigit",
4931 "AliITSRawClusterSPD");
4932 else iDetType->ClassNames("AliITSdigitSPD","AliITSRawClusterSPD");
82873bc1 4933 SetSimulationModel(kSPD,new AliITSsimulationSPD(seg0,resp0));
4934// iDetType->ReconstructionModel(new AliITSClusterFinderSPD());
2c198b76 4935
4936 // SDD
82873bc1 4937 iDetType=DetType(kSDD);
2c198b76 4938 s1 = (AliITSgeomSDD*) fITSgeom->GetShape(kSDD);// Get shape info. Do it this way for now.
c11a498e 4939 AliITSresponseSDD *resp1=new AliITSresponseSDD();
e99dbc71 4940 resp1->SetDriftSpeed(7.3); // set drift speed to 7.3 microns/ns.
82873bc1 4941 SetResponseModel(kSDD,resp1);
2c198b76 4942 AliITSsegmentationSDD *seg1=new AliITSsegmentationSDD(fITSgeom,resp1);
4943 seg1->SetDetSize(s1->GetDx()*kconv, // base this on AliITSgeomSDD
4944 s1->GetDz()*2.*kconv, // for now.
4945 s1->GetDy()*2.*kconv); // x,z,y full width in microns.
4946 bx[0] = 1000./((s1->GetDx()*kconv/seg1->Dpx(0))/resp1->DriftSpeed()); // clock in Mhz
4947 seg1->SetNPads(256,bx[0]);// Use AliITSgeomSDD for now
82873bc1 4948 SetSegmentationModel(kSDD,seg1);
2c198b76 4949 const char *kData1=(iDetType->GetResponseModel())->DataType();
4950 const char *kopt=iDetType->GetResponseModel()->ZeroSuppOption();
4951 if((!strstr(kopt,"2D")) && (!strstr(kopt,"1D")) || strstr(kData1,"real") ){
4952 iDetType->ClassNames("AliITSdigit","AliITSRawClusterSDD");
4953 } else iDetType->ClassNames("AliITSdigitSDD","AliITSRawClusterSDD");
82873bc1 4954 SetSimulationModel(kSDD,new AliITSsimulationSDD(seg1,resp1));
4955// iDetType->ReconstructionModel(new AliITSClusterFinderSDD());
2c198b76 4956
4957 // SSD Layer 5
82873bc1 4958 iDetType=DetType(kSSD);
2c198b76 4959 s2 = (AliITSgeomSSD*) fITSgeom->GetShape(kSSD);// Get shape info. Do it this way for now.
4960 AliITSresponse *resp2=new AliITSresponseSSD();
82873bc1 4961 SetResponseModel(kSSD,resp2);
2c198b76 4962 AliITSsegmentationSSD *seg2=new AliITSsegmentationSSD(fITSgeom);
4963 seg2->SetDetSize(s2->GetDx()*2.*kconv, // base this on AliITSgeomSSD
4964 s2->GetDz()*2.*kconv, // for now.
4965 s2->GetDy()*2.*kconv); // x,z,y full width in microns.
4966 seg2->SetPadSize(95.,0.); // strip x pitch in microns
4967 seg2->SetNPads(768,0); // number of strips on each side.
4968 seg2->SetAngles(0.0075,0.0275); // strip angels rad P and N side.
92cc4da1 4969 seg2->SetAnglesLay5(0.0075,0.0275); // strip angels rad P and N side.
4970 seg2->SetAnglesLay6(0.0275,0.0075); // strip angels rad P and N side.
82873bc1 4971 SetSegmentationModel(kSSD,seg2);
2c198b76 4972 const char *kData2=(iDetType->GetResponseModel())->DataType();
4973 if(strstr(kData2,"real") ) iDetType->ClassNames("AliITSdigit",
4974 "AliITSRawClusterSSD");
4975 else iDetType->ClassNames("AliITSdigitSSD","AliITSRawClusterSSD");
82873bc1 4976 SetSimulationModel(kSSD,new AliITSsimulationSSD(seg2,resp2));
4977// iDetType->ReconstructionModel(new AliITSClusterFinderSSD());
92cc4da1 4978
4979 if(kNTYPES>3){
2c198b76 4980 Warning("SetDefaults",
4981 "Only the four basic detector types are initialised!");
4982 }// end if
4983 return;
4984}
4985//_____________________________________________________________________________
db915fea 4986void AliITSvPPRsymm::DrawModule(){
4987////////////////////////////////////////////////////////////////////////
4988// Draw a shaded view of the FMD version 9.
4989////////////////////////////////////////////////////////////////////////
4990
4991 // Set everything unseen
4992 gMC->Gsatt("*", "seen", -1);
4993 //
4994 // Set ALIC mother visible
4995 gMC->Gsatt("ALIC","SEEN",0);
4996 //
4997 // Set the volumes visible
4998 gMC->Gsatt("ITSD","SEEN",0);
4999 gMC->Gsatt("ITS1","SEEN",1);
5000 gMC->Gsatt("ITS2","SEEN",1);
5001 gMC->Gsatt("ITS3","SEEN",1);
5002 gMC->Gsatt("ITS4","SEEN",1);
5003 gMC->Gsatt("ITS5","SEEN",1);
5004 gMC->Gsatt("ITS6","SEEN",1);
5005
5006 gMC->Gsatt("IPCB","SEEN",1);
5007 gMC->Gsatt("ICO2","SEEN",1);
5008 gMC->Gsatt("ICER","SEEN",0);
5009 gMC->Gsatt("ISI2","SEEN",0);
5010 gMC->Gsatt("IPLA","SEEN",0);
5011 gMC->Gsatt("ICO3","SEEN",0);
5012 gMC->Gsatt("IEPX","SEEN",0);
5013 gMC->Gsatt("ISI3","SEEN",1);
5014 gMC->Gsatt("ISUP","SEEN",0);
5015 gMC->Gsatt("ICHO","SEEN",0);
5016 gMC->Gsatt("ICMO","SEEN",0);
5017 gMC->Gsatt("ICMD","SEEN",0);
5018 gMC->Gsatt("ICCO","SEEN",1);
5019 gMC->Gsatt("ICCM","SEEN",0);
5020 gMC->Gsatt("ITMD","SEEN",0);
5021 gMC->Gsatt("ITTT","SEEN",1);
5022
5023 //
5024 gMC->Gdopt("hide", "on");
5025 gMC->Gdopt("shad", "on");
5026 gMC->Gsatt("*", "fill", 7);
5027 gMC->SetClipBox(".");
5028 gMC->SetClipBox("*", 0, 300, -300, 300, -300, 300);
5029 gMC->DefaultRange();
5030 gMC->Gdraw("alic", 40, 30, 0, 11, 10, .07, .07);
5031 gMC->Gdhead(1111, "Inner Tracking System Version 1");
5032 gMC->Gdman(17, 6, "MAN");
5033}
5034//_____________________________________________________________________________
5035void AliITSvPPRsymm::StepManager(){
5036////////////////////////////////////////////////////////////////////////
9d2da7b3 5037// Called for every step in the ITS, then calles the AliITShit class
db915fea 5038// creator with the information to be recoreded about that hit.
9d2da7b3 5039// The value of the macro ALIITSPRINTGEOM if set to 1 will allow the
5040// printing of information to a file which can be used to create a .det
5041// file read in by the routine CreateGeometry(). If set to 0 or any other
5042// value except 1, the default behavior, then no such file is created nor
5043// it the extra variables and the like used in the printing allocated.
db915fea 5044////////////////////////////////////////////////////////////////////////
db915fea 5045 Int_t copy, id;
9d2da7b3 5046 Int_t copy1,copy2;
db915fea 5047 Float_t hits[8];
5048 Int_t vol[4];
5049 TLorentzVector position, momentum;
9d2da7b3 5050 TClonesArray &lhits = *fHits;
db915fea 5051 //
5052 // Track status
5053 vol[3] = 0;
5054 if(gMC->IsTrackInside()) vol[3] += 1;
5055 if(gMC->IsTrackEntering()) vol[3] += 2;
5056 if(gMC->IsTrackExiting()) vol[3] += 4;
5057 if(gMC->IsTrackOut()) vol[3] += 8;
5058 if(gMC->IsTrackDisappeared()) vol[3] += 16;
5059 if(gMC->IsTrackStop()) vol[3] += 32;
5060 if(gMC->IsTrackAlive()) vol[3] += 64;
5061 //
5062 // Fill hit structure.
9d2da7b3 5063 if(!(gMC->TrackCharge())) return;
5064 //
5065 // Only entering charged tracks
5066 if((id = gMC->CurrentVolID(copy)) == fIdSens[0]) {
5067 vol[0] = 1;
e99dbc71 5068 id = gMC->CurrentVolOffID(2,copy);
9d2da7b3 5069 //detector copy in the ladder = 1<->4 (ITS1 < I101 < I103 < I10A)
5070 vol[1] = copy;
e99dbc71 5071 gMC->CurrentVolOffID(3,copy1);
9d2da7b3 5072 //ladder copy in the module = 1<->2 (I10A < I12A)
e99dbc71 5073 gMC->CurrentVolOffID(4,copy2);
9d2da7b3 5074 //module copy in the layer = 1<->10 (I12A < IT12)
5075 vol[2] = copy1+(copy2-1)*2;//# of ladders in one module = 2
5076 } else if(id == fIdSens[1]){
5077 vol[0] = 2;
e99dbc71 5078 id = gMC->CurrentVolOffID(2,copy);
9d2da7b3 5079 //detector copy in the ladder = 1<->4 (ITS2 < I1D1 < I1D3 < I20A)
5080 vol[1] = copy;
e99dbc71 5081 gMC->CurrentVolOffID(3,copy1);
9d2da7b3 5082 //ladder copy in the module = 1<->4 (I20A < I12A)
e99dbc71 5083 gMC->CurrentVolOffID(4,copy2);
9d2da7b3 5084 //module copy in the layer = 1<->10 (I12A < IT12)
5085 vol[2] = copy1+(copy2-1)*4;//# of ladders in one module = 4
5086 } else if(id == fIdSens[2]){
5087 vol[0] = 3;
5088 id = gMC->CurrentVolOffID(1,copy);
5089 //detector copy in the ladder = 1<->6 (ITS3 < I302 < I004)
5090 vol[1] = copy;
5091 id = gMC->CurrentVolOffID(2,copy);
5092 //ladder copy in the layer = 1<->14 (I004 < IT34)
5093 vol[2] = copy;
5094 } else if(id == fIdSens[3]){
5095 vol[0] = 4;
5096 id = gMC->CurrentVolOffID(1,copy);
5097 //detector copy in the ladder = 1<->8 (ITS4 < I402 < I005)
5098 vol[1] = copy;
5099 id = gMC->CurrentVolOffID(2,copy);
5100 //ladder copy in the layer = 1<->22 (I005 < IT34))
5101 vol[2] = copy;
5102 }else if(id == fIdSens[4]){
5103 vol[0] = 5;
5104 id = gMC->CurrentVolOffID(1,copy);
5105 //detector copy in the ladder = 1<->22 (ITS5 < I562 < I565)
5106 vol[1] = copy;
5107 id = gMC->CurrentVolOffID(2,copy);
5108 //ladder copy in the layer = 1<->34 (I565 < IT56)
5109 vol[2] = copy;
5110 }else if(id == fIdSens[5]){
5111 vol[0] = 6;
5112 id = gMC->CurrentVolOffID(1,copy);
5113 //detector copy in the ladder = 1<->25 (ITS6 < I566 < I569)
5114 vol[1] = copy;
5115 id = gMC->CurrentVolOffID(2,copy);
5116 //ladder copy in the layer = 1<->38 (I569 < IT56)
5117 vol[2] = copy;
5118 } else {
5119 return; // not an ITS volume?
5120 } // end if/else if (gMC->CurentVolID(copy) == fIdSens[i])
db915fea 5121//
9d2da7b3 5122 gMC->TrackPosition(position);
5123 gMC->TrackMomentum(momentum);
5124 hits[0]=position[0];
5125 hits[1]=position[1];
5126 hits[2]=position[2];
5127 hits[3]=momentum[0];
5128 hits[4]=momentum[1];
5129 hits[5]=momentum[2];
5130 hits[6]=gMC->Edep();
5131 hits[7]=gMC->TrackTime();
5132 // Fill hit structure with this new hit.
5133 new(lhits[fNhits++]) AliITShit(fIshunt,gAlice->CurrentTrack(),vol,hits);
5134
5135 return;
5136
db915fea 5137}