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