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