Now symm is derived from asymm. This minimizes duplicated code because
[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$
6fd3393a 18Revision 1.38 2001/11/28 01:35:47 nilsen
19Using standard constructors instead of default constructors for Clusterfinder,
20Response, and FastSimulator.
21
aa044888 22Revision 1.37 2001/10/22 11:00:54 hristov
23New naming schema of the rotation matrices in BuildGeometry() to avoid redefinition in other detectors (R.Barbera)
24
1266e9b4 25Revision 1.36 2001/10/19 21:32:35 nilsen
26Minor changes to remove compliation warning on gcc 2.92.2 compiler, and
27cleanded up a little bit of code.
28
b48af428 29Revision 1.35 2001/10/19 10:16:28 barbera
30A bug corrected in the definition of a TPCON
31
e0195f23 32Revision 1.34 2001/10/18 12:25:07 barbera
33Detailed 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
34
ac9c285e 35Revision 1.33 2001/10/18 03:09:21 barbera
36The method BuildGeometry() has been completely rewritten. Now display.C can display the detailed ITS geometry instead of the old six dummy cylunders.
37
1f99c14b 38Revision 1.32 2001/10/17 04:35:32 barbera
39Checks 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
40
a8c83dcb 41Revision 1.31 2001/10/04 22:33:39 nilsen
42Fixed bugs in SetDefaults.
43
82873bc1 44Revision 1.30 2001/10/01 19:34:09 nilsen
45Fixed a bug in asigning detector types in SetDefaults under SSD layer 6.
46
1570d46d 47Revision 1.29 2001/06/07 14:42:14 barbera
48Both chip and det thicknesses set to [100,300]
49
214030ed 50Revision 1.28 2001/05/31 19:24:47 barbera
51Default values of SPD detector and chip thickness set to 200 microns as defined by the Technical Board
52
46d7680e 53Revision 1.27 2001/05/30 16:15:47 fca
54Correct comparison wiht AliGeant3::Class() introduced. Thanks to I.Hrivnacova
55
cbfdea0d 56Revision 1.26 2001/05/30 15:55:35 hristov
57Strings compared instead of pointers
58
268b9c60 59Revision 1.25 2001/05/30 14:04:31 hristov
60Dynamic cast replaced (F.Carminati)
61
4154d3d8 62Revision 1.24 2001/05/25 15:59:59 morsch
63Overlaps corrected. (R. Barbera)
64
9bf5e8ff 65Revision 1.22 2001/05/16 08:17:49 hristov
66Bug 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)
67
e99dbc71 68Revision 1.21 2001/05/10 00:12:59 nilsen
69Finished fixing up the default segmentation for the PPR geometry.
70
c11a498e 71Revision 1.20 2001/05/09 01:02:22 nilsen
72Finished fixing SetDefaults for the segmentation of SPD, SDD, and SSD.
73
92cc4da1 74Revision 1.19 2001/05/03 08:40:15 barbera
75Volume ITSD slightly modified to be consistent with v5. Some improvement in the printouts. The last commit did not complete successfully.
76
1e9111db 77Revision 1.17 2001/05/01 22:40:42 nilsen
78Partical update of SetDefault.
79
2c198b76 80Revision 1.16 2001/04/22 13:48:09 barbera
81New values of media parameters and thickness of SPD end-ladder electronics as given by Fabio Formenti
82
fc44ab90 83Revision 1.15 2001/04/04 07:02:16 barbera
84Position of the cylinders holding rails corrected
85
27c5763c 86Revision 1.14 2001/03/29 22:02:30 barbera
87Some changes to the services due to the new drawings from the engineers.
88
05a91552 89Revision 1.13 2001/03/29 05:28:56 barbera
90Rails material changed from aluminum to carbon fiber according with the decision of the last Technical Board
91
31683195 92Revision 1.12 2001/03/28 06:40:20 barbera
93Central and services mother volumes made consistenf for detailed and coarse geometry. Switch for rails added to the coarse geometries
94
e4f08ac3 95Revision 1.11 2001/03/23 00:12:23 nilsen
96Set Reading of AliITSgeom data from Geant3 common blocks as the default and
97not a .det file. Removed redundent calls to BuildGeometry.
98
0646a0e8 99Revision 1.10 2001/03/15 13:47:55 barbera
100Some service mother volumes modified
101
6d62fed9 102Revision 1.9 2001/03/13 18:13:30 barbera
103Some mother volumes sligthly modified to eliminate an overlap with the absorber
104
45725ec9 105Revision 1.8 2001/03/13 08:36:24 hristov
106fabsf replaced by TMath::Abs
107
767187dd 108Revision 1.7 2001/03/13 00:43:43 barbera
109Updated 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
110
9d2da7b3 111Revision 1.6 2001/02/13 16:53:35 nilsen
112Fixed a but when trying to use GEANT4. Needed to replace
113if(!((TGeant3*)gMC)) with if(!(dynamic_casst<TGeant3*>(gMC)))
114because just casting gMC to be TGeant3* even when it realy is a TGeant3 pointer
115did not result in a zero value. For AliITSv5asymm and AliITSv5symm, needed
116to fix a bug in the initilizers and a bug in BuildGeometry. This is now done
117in the same way as in AliITSv5.cxx.
118
9a4c6ea3 119Revision 1.5 2001/02/09 20:06:26 nilsen
120Fixed bug in distructor. Can't distroy fixxed length arrays. Thanks Peter.
121
58e13d99 122Revision 1.4 2001/02/09 00:05:31 nilsen
123Added fMajor/MinorVersion variables and made other changes to better make
124use of the new code changes in AliITSgeom related classes.
125
bae7e562 126Revision 1.3 2001/01/30 09:23:13 hristov
127Streamers removed (R.Brun)
128
a8a6107b 129Revision 1.2 2001/01/26 20:01:19 hristov
130Major upgrade of AliRoot code
131
2ab0c725 132Revision 1.1.2.1 2001/01/15 13:38:32 barbera
133New ITS detailed geometry to be used for the PPR
134
db915fea 135Revision 1.12 2000/12/10 16:00:44 barbera
136Added last definition of special media like end-ladder boxes and cones
137
138Revision 1.11 2000/10/30 08:02:25 barbera
139PCON's changed into simpler CONS and TUBS. Services now allow for the rails to go through them.
140
141Revision 1.3.2.7 2000/10/27 17:20:00 barbera
142Position of rails w.r.t. the interaction point corrected.
143
144Revision 1.9 2000/10/27 13:31:29 barbera
145Rails between ITS and TPC added.
146
147Revision 1.8 2000/10/27 13:03:08 barbera
148Small changes in the SPD volumes and materials
149
150Revision 1.6 2000/10/16 14:45:37 barbera
151Mother volume ITSD modified to avoid some overlaps
152
153Revision 1.5 2000/10/16 13:49:15 barbera
154Services volumes slightly modified and material added following Pierluigi Barberis' information
155
156Revision 1.4 2000/10/07 15:33:07 barbera
157Small corrections to the ITSV mother volume
158
159Revision 1.3 2000/10/07 13:06:50 barbera
160Some new materials and media defined
161
162Revision 1.2 2000/10/07 10:42:43 barbera
163Mother volume ITSV corrected
164
165Revision 1.1 2000/10/06 23:09:12 barbera
166New geometry (symmetric services
167
168Revision 1.20 2000/10/02 21:28:08 fca
169Removal of useless dependecies via forward declarations
170
171Revision 1.19 2000/07/10 16:07:19 fca
172Release version of ITS code
173
174Revision 1.14.2.2 2000/05/19 10:09:21 nilsen
175fix for bug with HP and Sun unix + fix for event display in ITS-working branch
176
177Revision 1.14.2.1 2000/03/04 23:45:19 nilsen
178Fixed up the comments/documentation.
179
180Revision 1.14 1999/11/25 06:52:56 fca
181Correct value of drca
182
183Revision 1.13.2.1 1999/11/25 06:52:21 fca
184Correct value of drca
185
186Revision 1.13 1999/10/27 11:16:26 fca
187Correction of problem in geometry
188
189Revision 1.12 1999/10/22 08:25:25 fca
190remove double definition of destructors
191
192Revision 1.11 1999/10/22 08:16:49 fca
193Correct destructors, thanks to I.Hrivnacova
194
195Revision 1.10 1999/10/06 19:56:50 fca
196Add destructor
197
198Revision 1.9 1999/10/05 08:05:09 fca
199Minor corrections for uninitialised variables.
200
201Revision 1.8 1999/09/29 09:24:20 fca
202Introduction of the Copyright and cvs Log
203
204*/
205
bae7e562 206//////////////////////////////////////////////////////////////////////////////
207// //
208// Inner Traking System version PPR symmetric //
209// This class contains the base procedures for the Inner Tracking System //
210// //
211// Authors: R. Barbera //
212// version 6. //
213// Created 2000. //
214// //
215// NOTE: THIS IS THE SYMMETRIC PPR geometry of the ITS. //
216// THIS WILL NOT WORK //
217// with the geometry or module classes or any analysis classes. You are //
218// strongly encouraged to uses AliITSv5. //
219// //
220//////////////////////////////////////////////////////////////////////////////
9d2da7b3 221// See AliITSvPPRsymm::StepManager().
bae7e562 222#include <iostream.h>
223#include <iomanip.h>
9d2da7b3 224#include <stdio.h>
225#include <stdlib.h>
db915fea 226#include <TMath.h>
db915fea 227#include <TGeometry.h>
228#include <TNode.h>
229#include <TTUBE.h>
1f99c14b 230#include <TTUBS.h>
231#include <TPCON.h>
db915fea 232#include <TFile.h> // only required for Tracking function?
233#include <TCanvas.h>
234#include <TObjArray.h>
9d2da7b3 235#include <TLorentzVector.h>
236#include <TObjString.h>
db915fea 237#include <TClonesArray.h>
9d2da7b3 238#include <TBRIK.h>
239#include <TSystem.h>
db915fea 240
241#include "AliMC.h"
9d2da7b3 242#include "AliRun.h"
db915fea 243#include "AliMagF.h"
244#include "AliConst.h"
cbfdea0d 245#include "AliGeant3.h"
bae7e562 246#include "AliITSGeant3Geometry.h"
db915fea 247#include "AliITShit.h"
9d2da7b3 248#include "AliITS.h"
db915fea 249#include "AliITSvPPRsymm.h"
bae7e562 250#include "AliITSgeom.h"
251#include "AliITSgeomSPD.h"
252#include "AliITSgeomSDD.h"
253#include "AliITSgeomSSD.h"
2c198b76 254#include "AliITSDetType.h"
255#include "AliITSresponseSPD.h"
256#include "AliITSresponseSDD.h"
257#include "AliITSresponseSSD.h"
258#include "AliITSsegmentationSPD.h"
259#include "AliITSsegmentationSDD.h"
260#include "AliITSsegmentationSSD.h"
82873bc1 261#include "AliITSsimulationSPD.h"
262#include "AliITSsimulationSDD.h"
263#include "AliITSsimulationSSD.h"
2c198b76 264#include "AliITSClusterFinderSPD.h"
265#include "AliITSClusterFinderSDD.h"
266#include "AliITSClusterFinderSSD.h"
db915fea 267
268
269ClassImp(AliITSvPPRsymm)
270
271//_____________________________________________________________________________
6fd3393a 272AliITSvPPRsymm::AliITSvPPRsymm() : AliITSvPPRasymm() {
db915fea 273////////////////////////////////////////////////////////////////////////
274// Standard default constructor for the ITS version 9.
275////////////////////////////////////////////////////////////////////////
db915fea 276}
277//_____________________________________________________________________________
6fd3393a 278AliITSvPPRsymm::AliITSvPPRsymm(const char *name, const char *title) : AliITSvPPRasymm(name, title){
db915fea 279////////////////////////////////////////////////////////////////////////
280// Standard constructor for the ITS version 9.
281////////////////////////////////////////////////////////////////////////
db915fea 282}
283//_____________________________________________________________________________
284AliITSvPPRsymm::~AliITSvPPRsymm() {
285////////////////////////////////////////////////////////////////////////
9d2da7b3 286// Standard destructor for the ITS version 9.
db915fea 287////////////////////////////////////////////////////////////////////////
db915fea 288}
289//_____________________________________________________________________________
290void AliITSvPPRsymm::CreateGeometry(){
291////////////////////////////////////////////////////////////////////////
292// This routine defines and Creates the geometry for version 9 of the ITS.
293////////////////////////////////////////////////////////////////////////
294
295 //INNER RADII OF THE SILICON LAYERS
e4f08ac3 296 // Float_t rl[6] = { 3.8095,7.,15.,24.,38.1,43.5765 };
db915fea 297 //THICKNESSES OF LAYERS (in % radiation length)
298 Float_t drl[6] = { 1.03,1.03,0.94,0.95,0.91,0.87 };
299 //HALF LENGTHS OF LAYERS
e4f08ac3 300 // Float_t dzl[6] = { 14.35,14.35,25.1,32.1,49.405,55.27 };
db915fea 301 //LENGTHS OF END-LADDER BOXES (ALL INCLUDED)
e4f08ac3 302 // Float_t dzb[6] = { 12.4,12.4,13.5,15.,7.5,7.5 };
db915fea 303 //THICKNESSES OF END-LADDER BOXES (ALL INCLUDED)
e4f08ac3 304 // Float_t drb[6] = { rl[1]-rl[0],0.2,5.,5.,4.,4. };
9d2da7b3 305
db915fea 306
e4f08ac3 307 Float_t dits[100], rlim, zmax;
9d2da7b3 308 // Float_t zpos;
309 // Float_t pcits[50]
e4f08ac3 310 Float_t ztpc;
9d2da7b3 311 Int_t idrotm[1999], i;
e4f08ac3 312 Float_t dgh[100];
9d2da7b3 313
314
315 // Define some variables for SPD
316
317 Float_t dits1[3], di101[3], di107[3], di10b[3], di106[3]; // for layer 1
318 Float_t di103[3], di10a[3], di102[3]; // for layer 1
319 Float_t dits2[3], di1d1[3], di1d7[3], di20b[3], di1d6[3]; // for layer 2
320 Float_t di1d3[3], di20a[3], di1d2[3]; // for layer 2
321 Float_t di108[3], di104[3]; // for both layers
322
a8c83dcb 323 Float_t ddet1=200.; // total detector thickness on layer 1 (micron)
324 Float_t dchip1=200.; // total chip thickness on layer 1 (micron)
9d2da7b3 325
a8c83dcb 326 Float_t ddet2=200.; // total detector thickness on layer 2 (micron)
327 Float_t dchip2=200.; // total chip thickness on layer 2 (micron)
9d2da7b3 328
214030ed 329 Float_t dbus=300.; // total bus thickness on both layers (micron)
9d2da7b3 330
331 ddet1 = GetThicknessDet1();
332 ddet2 = GetThicknessDet2();
333 dchip1 = GetThicknessChip1();
334 dchip2 = GetThicknessChip2();
335
9d2da7b3 336 if(ddet1 < 100. || ddet1 > 300.) {
1e9111db 337 cout << "ITS - WARNING: the detector thickness for layer 1 is outside the range of [100,300] microns."
a8c83dcb 338 " The default value of 200 microns will be used." << endl;
339 ddet1=200.;
9d2da7b3 340 }
341
342 if(ddet2 < 100. || ddet2 > 300.) {
1e9111db 343 cout << "ITS - WARNING: the detector thickness for layer 2 is outside the range of [100,300] microns."
a8c83dcb 344 " The default value of 200 microns will be used." << endl;
345 ddet2=200.;
9d2da7b3 346 }
347
214030ed 348 if(dchip1 < 100. || dchip1 > 300.) {
349 cout << "ITS - WARNING: the chip thickness for layer 1 is outside the range of [100,300] microns."
a8c83dcb 350 " The default value of 200 microns will be used." << endl;
351 dchip1=200.;
9d2da7b3 352 }
353
214030ed 354 if(dchip2 < 100. || dchip2 > 300.) {
355 cout << "ITS - WARNING: the chip thickness for layer 2 is outside the range of [100,300] microns."
a8c83dcb 356 " The default value of 200 microns will be used." << endl;
357 dchip2=200.;
9d2da7b3 358 }
e4f08ac3 359
360 Int_t rails = 1; // flag for rails (1 --> rails in; 0 --> rails out)
9d2da7b3 361
e4f08ac3 362 Int_t fluid = 1; // flag for the cooling fluid (1 --> water; 0 --> freon)
363
364 rails = GetRails();
365
366 fluid = GetCoolingFluid();
367
368 if(rails != 0 && rails != 1) {
1e9111db 369 cout << "ITS - WARNING: the switch for rails is not set neither to 0 (rails out) nor to 1 (rails in)."
e4f08ac3 370 " The default value of 1 (rails in) will be used." << endl;
371
372 }
373
374 if(fluid != 0 && fluid != 1) {
1e9111db 375 cout << "ITS - WARNING: the switch for cooling fluid is not set neither to 0 (freon) nor to 1 (water)."
e4f08ac3 376 " The default value of 1 (water) will be used." << endl;
377 }
378
1e9111db 379 cout << "ITS: Detector thickness on layer 1 is set to " << ddet1 << " microns." << endl;
380 cout << "ITS: Chip thickness on layer 1 is set to " << dchip1 << " microns." << endl;
381 cout << "ITS: Detector thickness on layer 2 is set to " << ddet2 << " microns." << endl;
382 cout << "ITS: Chip thickness on layer 2 is set to " << dchip2 << " microns." << endl;
e4f08ac3 383 if(rails == 0 ) {
1e9111db 384 cout << "ITS: Rails are out." << endl;
e4f08ac3 385 } else {
1e9111db 386 cout << "ITS: Rails are in." << endl;
e4f08ac3 387 }
388 if(fluid == 0 ) {
1e9111db 389 cout << "ITS: The cooling fluid is freon." << endl;
e4f08ac3 390 } else {
1e9111db 391 cout << "ITS: The cooling fluid is water." << endl;
e4f08ac3 392 }
393
9d2da7b3 394 ddet1 = ddet1*0.0001/2.; // conversion from tot length in um to half in cm
395 ddet2 = ddet2*0.0001/2.; // conversion from tot length in um to half in cm
396 dchip1 = dchip1*0.0001/2.;// conversion from tot length in um to half in cm
397 dchip2 = dchip2*0.0001/2.;// conversion from tot length in um to half in cm
e4f08ac3 398 dbus = dbus*0.0001/2.; // conversion from tot length in um to half in cm
9d2da7b3 399
400 Float_t deltax, deltay;
401
6fd3393a 402 Int_t thickness = GetMinorVersion()/10;
403 Int_t option = GetMinorVersion() - 10*thickness;
9d2da7b3 404
405
406 // Define some variables for SDD
407
408
409 Float_t sin30, cos30;
410
411 // SDD electronics+services main volumes
412 Float_t I018dits[3], I024dits[3], I047dits[3], I048dits[3];
413
414 // SDD detector ladder
415
416 Float_t I302dits[3], I402dits[3], I004dits[3], I005dits[3];
417 Float_t Y_SDD_sep = 0.20;
418 Float_t ySDD;
419 Int_t iSDD;
420 Float_t Z_SDD_lay3[6] = {18.55, 10.95, 3.70, -3.70, -11.20, -18.35};
421 Float_t Z_SDD_lay4[8] = {25.75, 18.60, 11.00, 3.70, -3.70, -11.20, -18.45, -26.05};
422
423 // ladder foot and end-ladder (frame and cooling)
424 Float_t I028dits[3], I420dits[3], I421dits[3], I422dits[6], I423dits[3];
425 Float_t I424dits[3], xI424, yI424;
426 Float_t I425dits[3];
427 Int_t indI425;
428 Float_t I029dits[4], I030dits[4], I031dits[3], I032dits[3];
429
430 // SDD ladder frame and cooling
431 Float_t SDD_CoolPipe[3] = {1.7000, -0.5500, 0.0000};
432 Float_t I035dits[3], I037dits[3], I038dits[3];
433 Float_t I039dits[3], xI039, yI039;
434 Float_t I041dits[5];
435
436 // SDD hybrid, chips and capacitors
437 Float_t I050dits[3], xI050, yI050;
438 Float_t I052dits[3], xI052, yI052;
439 Float_t I042dits[3], xI042, yI042;
440 Float_t xI042space = 0.17;
441 Float_t I043dits[3], xI043, yI043;
442 Float_t xI043space = 0.17;
443 Float_t zchip, zChipSpace;
444 Float_t I051dits[3], xI051, yI051, zI051, yI051space, xcap;
445 Int_t ichip, icap;
446
447 // SDD microcables
448 Float_t I044dits[4], xI044, yI044, volI044;
449 Float_t xHV, yHV, zHV, xLV, yLV, zLV;
450 Char_t HVname[5], LVname[5];
451
452
453 // Define media off-set
db915fea 454
455 Int_t *idtmed = fIdtmed->GetArray()-199;
9d2da7b3 456
db915fea 457
458 // Rotation matrices
459
9d2da7b3 460 // SPD - option 'a' (this is NOT the default so leave commented)
461
462
463 if (option == 1) {
464
465 AliMatrix(idrotm[201],90.0,90.0,90.0,180.0,0.0,0.0);
466 AliMatrix(idrotm[202],90.0,90.0,90.0,0.0,0.0,0.0);
467 AliMatrix(idrotm[203],90.0,350.0,90.0,260.0,0.0,0.0);
468 AliMatrix(idrotm[204],90.0,170.0,90.0,80.0,0.0,0.0);
469 AliMatrix(idrotm[205],90.0,10.0,90.0,100.0,0.0,0.0);
470 AliMatrix(idrotm[206],90.0,190.0,90.0,280.0,0.0,0.0);
471 AliMatrix(idrotm[207],90.0,342.0,90.0,72.0,0.0,0.0);
472 AliMatrix(idrotm[208],90.0,156.999893,90.0,246.999893,0.0,0.0);
473 AliMatrix(idrotm[209],90.0,147.999802,90.0,237.999893,0.0,0.0);
474 AliMatrix(idrotm[210],90.0,138.999802,90.0,228.999802,0.0,0.0);
475 AliMatrix(idrotm[211],90.0,129.999802,90.0,219.999802,0.0,0.0);
476 AliMatrix(idrotm[212],90.0,36.7896,90.0,126.789597,0.0,0.0);
477 AliMatrix(idrotm[213],90.0,343.579712,90.0,73.579697,0.0,0.0);
478 AliMatrix(idrotm[214],90.0,95.413696,90.0,185.413696,0.0,0.0);
479 AliMatrix(idrotm[215],90.0,5.4141,90.0,95.414101,0.0,0.0);
480 AliMatrix(idrotm[216],90.0,318.296906,90.0,48.296902,0.0,0.0);
481 AliMatrix(idrotm[217],90.0,67.000099,90.0,157.000107,0.0,0.0);
482 AliMatrix(idrotm[218],90.0,337.003998,90.0,67.003998,0.0,0.0);
483 AliMatrix(idrotm[219],90.0,247.000305,90.0,337.000305,0.0,0.0);
484 AliMatrix(idrotm[220],90.0,305.633514,90.0,35.633499,0.0,0.0);
485 AliMatrix(idrotm[221],90.0,58.000198,90.0,148.000198,0.0,0.0);
486 AliMatrix(idrotm[222],90.0,327.997101,90.0,57.997101,0.0,0.0 );
487 AliMatrix(idrotm[223],90.0,237.994202,90.0,327.994202,0.0,0.0);
488 AliMatrix(idrotm[224],90.0,296.627502,90.0,26.627399,0.0,0.0);
489 AliMatrix(idrotm[225],90.0,48.994099,90.0,138.994095,0.0,0.0);
490 AliMatrix(idrotm[226],90.0,318.990997,90.0,48.991001,0.0,0.0);
491 AliMatrix(idrotm[227],90.0,228.988205,90.0,318.98819,0.0,0.0);
492 AliMatrix(idrotm[228],90.0,287.621399,90.0,17.621401,0.0,0.0);
493 AliMatrix(idrotm[229],90.0,39.988098,90.0,129.988098,0.0,0.0);
494 AliMatrix(idrotm[230],90.0,309.984985,90.0,39.985001,0.0,0.0);
495 AliMatrix(idrotm[231],90.0,327.2612,90.0,57.2612,0.0,0.0);
496 AliMatrix(idrotm[232],90.0,237.261398,90.0,327.261414,0.0,0.0);
497 AliMatrix(idrotm[233],90.0,252.000504,90.0,342.000488,0.0,0.0 );
498 AliMatrix(idrotm[234],90.0,71.9991,90.0,161.9991,0.0,0.0);
499 AliMatrix(idrotm[235],90.0,270.0,90.0,0.0,0.0,0.0);
500 AliMatrix(idrotm[236],90.0,180.013702,90.0,270.013702,0.0,0.0);
9bf5e8ff 501 AliMatrix(idrotm[237],90.0,180.0,90.0,90.0,0.0,0.0);
9d2da7b3 502 AliMatrix(idrotm[238],90.0,144.0,90.0,234.0,0.0,0.0);
503 AliMatrix(idrotm[239],90.0,216.0,90.0,306.0,0.0,0.0);
504 AliMatrix(idrotm[240],90.0,288.0,90.0,18.0,0.0,0.0);
505 AliMatrix(idrotm[241],90.0,324.0,90.0,54.0,0.0,0.0);
506 AliMatrix(idrotm[242],90.0,36.0,90.0,126.0,0.0,0.0);
507 AliMatrix(idrotm[243],90.0,108.0,90.0,198.0,0.0,0.0);
9bf5e8ff 508 AliMatrix(idrotm[244],90.0,180.0,90.0,270.0,0.0,0.0);
509 AliMatrix(idrotm[245],90.0,162.0,90.0,252.0,0.0,0.0);
510 AliMatrix(idrotm[246],90.0,310.0,90.0,40.0,0.0,0.0);
511 AliMatrix(idrotm[247],90.0,319.0,90.0,49.0,0.0,0.0);
512 AliMatrix(idrotm[248],90.0,328.0,90.0,58.0,0.0,0.0);
513 AliMatrix(idrotm[249],90.0,337.0,90.0,67.0,0.0,0.0);
9d2da7b3 514 AliMatrix(idrotm[1003],90.0,73.5,90.0,163.5,0.0,0.0);
515 AliMatrix(idrotm[1011],90.0,342.0,90.0,72.0,0.0,0.0);
516 AliMatrix(idrotm[1039],90.0,72.0,90.0,162.0,0.0,0.0);
517 AliMatrix(idrotm[1043],90.0,66.91,90.0,156.91,0.0,0.0);
518 AliMatrix(idrotm[1065],90.0,144.0,90.0,234.0,0.0,0.0);
519 AliMatrix(idrotm[1078],90.0,180.0,90.0,270.0,0.0,0.0);
520 AliMatrix(idrotm[1088],90.0,57.41,90.0,147.41,0.0,0.0);
521 AliMatrix(idrotm[1089],90.0,333.0,90.0,63.0,0.0,0.0);
522 AliMatrix(idrotm[1090],90.0,351.0,90.0,81.0,0.0,0.0);
523 AliMatrix(idrotm[1091],90.0,216.0,90.0,306.0,0.0,0.0);
524 AliMatrix(idrotm[1092],90.0,27.0,90.0,117.0,0.0,0.0);
525 AliMatrix(idrotm[1093],90.0,18.0,90.0,108.0,0.0,0.0);
526 AliMatrix(idrotm[1094],90.0,9.0,90.0,99.0,0.0,0.0);
527 AliMatrix(idrotm[1104],90.0,252.0,90.0,342.0,0.0,0.0);
528 AliMatrix(idrotm[1106],90.0,36.0,90.0,126.0,0.0,0.0);
529 AliMatrix(idrotm[1107],90.0,108.0,90.0,198.0,0.0,0.0);
530 AliMatrix(idrotm[1108],90.0,324.0,90.0,54.0,180.0,0.0);
531 AliMatrix(idrotm[1109],90.0,0.0,90.0,90.0,180.0,0.0);
532 AliMatrix(idrotm[1110],90.0,36.0,90.0,126.0,180.0,0.0);
533 AliMatrix(idrotm[1111],90.0,72.0,90.0,162.0,180.0,0.0);
534 AliMatrix(idrotm[1112],90.0,108.0,90.0,198.0,180.0,0.0);
535 AliMatrix(idrotm[1113],90.0,144.0,90.0,234.0,180.0,0.0);
536 AliMatrix(idrotm[1114],90.0,180.0,90.0,270.0,180.0,0.0);
537 AliMatrix(idrotm[1115],90.0,216.0,90.0,306.0,180.0,0.0);
538 AliMatrix(idrotm[1116],90.0,252.0,90.0,342.0,180.0,0.0);
539 AliMatrix(idrotm[1117],90.0,288.0,90.0,18.0,0.0,0.0);
540 AliMatrix(idrotm[1118],90.0,288.0,90.0,18.0,180.0,0.0);
541 AliMatrix(idrotm[1130],90.0,324.0,90.0,54.0,0.0,0.0);
542
543 }
db915fea 544
9d2da7b3 545 // SPD - option 'b' (this is the default)
546
547 if (option == 2) {
548
9bf5e8ff 549 AliMatrix(idrotm[201],90.0,0.0,90.0,90.0,0.0,0.0);
9d2da7b3 550 AliMatrix(idrotm[202],90.0,90.0,90.0,0.0,0.0,0.0);
551 AliMatrix(idrotm[203],90.0,350.0,90.0,260.0,0.0,0.0);
552 AliMatrix(idrotm[204],90.0,170.0,90.0,80.0,0.0,0.0);
553 AliMatrix(idrotm[205],90.0,10.0,90.0,100.0,0.0,0.0);
554 AliMatrix(idrotm[206],90.0,190.0,90.0,280.0,0.0,0.0);
555 AliMatrix(idrotm[207],90.0,342.0,90.0,72.0,0.0,0.0);
556 AliMatrix(idrotm[208],90.0,156.999893,90.0,246.999893,0.0,0.0);
557 AliMatrix(idrotm[209],90.0,147.999802,90.0,237.999893,0.0,0.0);
558 AliMatrix(idrotm[210],90.0,138.999802,90.0,228.999802,0.0,0.0);
559 AliMatrix(idrotm[211],90.0,129.999802,90.0,219.999802,0.0,0.0);
560 AliMatrix(idrotm[212],90.0,36.7896,90.0,126.789597,0.0,0.0);
561 AliMatrix(idrotm[213],90.0,343.579712,90.0,73.579697,0.0,0.0);
562 AliMatrix(idrotm[214],90.0,95.413696,90.0,185.413696,0.0,0.0);
563 AliMatrix(idrotm[215],90.0,5.4141,90.0,95.414101,0.0,0.0);
564 AliMatrix(idrotm[216],90.0,318.296906,90.0,48.296902,0.0,0.0);
565 AliMatrix(idrotm[217],90.0,67.000099,90.0,157.000107,0.0,0.0);
566 AliMatrix(idrotm[218],90.0,337.003998,90.0,67.003998,0.0,0.0);
567 AliMatrix(idrotm[219],90.0,247.000305,90.0,337.000305,0.0,0.0);
568 AliMatrix(idrotm[220],90.0,305.633514,90.0,35.633499,0.0,0.0);
569 AliMatrix(idrotm[221],90.0,58.000198,90.0,148.000198,0.0,0.0);
570 AliMatrix(idrotm[222],90.0,327.997101,90.0,57.997101,0.0,0.0);
571 AliMatrix(idrotm[223],90.0,237.994202,90.0,327.994202,0.0,0.0);
572 AliMatrix(idrotm[224],90.0,296.627502,90.0,26.627399,0.0,0.0);
573 AliMatrix(idrotm[225],90.0,48.994099,90.0,138.994095,0.0,0.0);
574 AliMatrix(idrotm[226],90.0,318.990997,90.0,48.991001,0.0,0.0);
575 AliMatrix(idrotm[227],90.0,228.988205,90.0,318.98819,0.0,0.0);
576 AliMatrix(idrotm[228],90.0,287.621399,90.0,17.621401,0.0,0.0);
577 AliMatrix(idrotm[229],90.0,39.988098,90.0,129.988098,0.0,0.0);
578 AliMatrix(idrotm[230],90.0,309.984985,90.0,39.985001,0.0,0.0);
579 AliMatrix(idrotm[231],90.0,327.2612,90.0,57.2612,0.0,0.0);
580 AliMatrix(idrotm[232],90.0,237.261398,90.0,327.261414,0.0,0.0);
581 AliMatrix(idrotm[233],90.0,252.000504,90.0,342.000488,0.0,0.0);
582 AliMatrix(idrotm[234],90.0,71.9991,90.0,161.9991,0.0,0.0);
583 AliMatrix(idrotm[235],90.0,270.0,90.0,0.0,0.0,0.0);
584 AliMatrix(idrotm[236],90.0,180.013702,90.0,270.013702,0.0,0.0);
585 AliMatrix(idrotm[237],90.0,90.0,90.0,180.0,0.0,0.0);
9bf5e8ff 586 AliMatrix(idrotm[238],90.0,180.0,90.0,270.0,0.0,0.0);
587 AliMatrix(idrotm[239],90.0,162.0,90.0,252.0,0.0,0.0);
588 AliMatrix(idrotm[240],90.0,310.0,90.0,40.0,0.0,0.0);
589 AliMatrix(idrotm[241],90.0,319.0,90.0,49.0,0.0,0.0);
590 AliMatrix(idrotm[242],90.0,328.0,90.0,58.0,0.0,0.0);
591 AliMatrix(idrotm[243],90.0,337.0,90.0,67.0,0.0,0.0);
9d2da7b3 592 AliMatrix(idrotm[244],90.0,216.0,90.0,306.0,0.0,0.0);
593 AliMatrix(idrotm[245],90.0,36.0,90.0,126.0,0.0,0.0);
594 AliMatrix(idrotm[246],90.0,108.0,90.0,198.0,0.0,0.0);
595 AliMatrix(idrotm[247],90.0,144.0,90.0,234.0,0.0,0.0);
596 AliMatrix(idrotm[248],90.0,288.0,90.0,18.0,0.0,0.0);
597 AliMatrix(idrotm[249],90.0,324.0,90.0,54.0,0.0,0.0);
598 AliMatrix(idrotm[1003],90.0,73.5,90.0,163.5,0.0,0.0);
599 AliMatrix(idrotm[1011],90.0,342.0,90.0,72.0,0.0,0.0);
600 AliMatrix(idrotm[1039],90.0,72.0,90.0,162.0,0.0,0.0);
601 AliMatrix(idrotm[1043],90.0,66.91,90.0,156.91,0.0,0.0);
602 AliMatrix(idrotm[1065],90.0,144.0,90.0,234.0,0.0,0.0);
603 AliMatrix(idrotm[1078],90.0,180.0,90.0,270.0,0.0,0.0);
604 AliMatrix(idrotm[1088],90.0,57.41,90.0,147.41,0.0,0.0);
605 AliMatrix(idrotm[1089],90.0,333.0,90.0,63.0,0.0,0.0);
606 AliMatrix(idrotm[1090],90.0,351.0,90.0,81.0,0.0,0.0);
607 AliMatrix(idrotm[1091],90.0,216.0,90.0,306.0,0.0,0.0);
608 AliMatrix(idrotm[1092],90.0,27.0,90.0,117.0,0.0,0.0);
609 AliMatrix(idrotm[1093],90.0,18.0,90.0,108.0,0.0,0.0);
610 AliMatrix(idrotm[1094],90.0,9.0,90.0,99.0,0.0,0.0);
611 AliMatrix(idrotm[1104],90.0,252.0,90.0,342.0,0.0,0.0);
612 AliMatrix(idrotm[1106],90.0,36.0,90.0,126.0,0.0,0.0);
613 AliMatrix(idrotm[1107],90.0,108.0,90.0,198.0,0.0,0.0);
614 AliMatrix(idrotm[1108],90.0,324.0,90.0,54.0,180.0,0.0);
615 AliMatrix(idrotm[1109],90.0,0.0,90.0,90.0,180.0,0.0);
616 AliMatrix(idrotm[1110],90.0,36.0,90.0,126.0,180.0,0.0);
617 AliMatrix(idrotm[1111],90.0,72.0,90.0,162.0,180.0,0.0);
618 AliMatrix(idrotm[1112],90.0,108.0,90.0,198.0,180.0,0.0);
619 AliMatrix(idrotm[1113],90.0,144.0,90.0,234.0,180.0,0.0);
620 AliMatrix(idrotm[1114],90.0,180.0,90.0,270.0,180.0,0.0);
621 AliMatrix(idrotm[1115],90.0,216.0,90.0,306.0,180.0,0.0);
622 AliMatrix(idrotm[1116],90.0,252.0,90.0,342.0,180.0,0.0);
623 AliMatrix(idrotm[1117],90.0,288.0,90.0,18.0,0.0,0.0);
624 AliMatrix(idrotm[1118],90.0,288.0,90.0,18.0,180.0,0.0);
625 AliMatrix(idrotm[1130],90.0,324.0,90.0,54.0,0.0,0.0);
626
627 }
628
db915fea 629 // SDD
630
631 AliMatrix(idrotm[301],0.0,0.0,90.0,90.0,90.0,180.0);
632 AliMatrix(idrotm[302],0.0,0.0,90.0,90.0,90.0,0.0);
633 AliMatrix(idrotm[303],180.0,0.0,90.0,90.0,90.0,0.0);
634 AliMatrix(idrotm[304],180.0,0.0,90.0,90.0,90.0,180.0);
635 AliMatrix(idrotm[305],90.0,347.14,90.0,77.14,0.0,0.0);
636 AliMatrix(idrotm[306],90.0,321.43,90.0,51.43,0.0,0.0);
637 AliMatrix(idrotm[307],90.0,295.71,90.0,25.71,0.0,0.0);
638 AliMatrix(idrotm[308],90.0,244.29,90.0,334.29,0.0,0.0);
639 AliMatrix(idrotm[309],90.0,218.57,90.0,308.57,0.0,0.0);
640 AliMatrix(idrotm[310],90.0,167.14,90.0,257.14,0.0,0.0);
641 AliMatrix(idrotm[311],90.0,141.43,90.0,231.43,0.0,0.0);
642 AliMatrix(idrotm[312],90.0,0.0,0.0,0.0,90.0,270.0);
643 AliMatrix(idrotm[313],90.0,115.71,90.0,205.71,0.0,0.0);
644 AliMatrix(idrotm[314],90.0,335.45,90.0,65.45,0.0,0.0);
645 AliMatrix(idrotm[315],90.0,319.09,90.0,49.09,0.0,0.0);
646 AliMatrix(idrotm[316],90.0,302.73,90.0,32.73,0.0,0.0);
647 AliMatrix(idrotm[317],90.0,286.36,90.0,16.36,0.0,0.0);
648 AliMatrix(idrotm[318],90.0,270.0,90.0,360.0,0.0,0.0);
649 AliMatrix(idrotm[319],90.0,253.64,90.0,343.64,0.0,0.0);
650 AliMatrix(idrotm[320],90.0,237.27,90.0,327.27,0.0,0.0);
651 AliMatrix(idrotm[321],90.0,12.86,90.0,102.86,0.0,0.0);
652 AliMatrix(idrotm[322],90.0,220.91,90.0,310.91,0.0,0.0);
653 AliMatrix(idrotm[323],90.0,204.55,90.0,294.55,0.0,0.0);
654 AliMatrix(idrotm[324],90.0,188.18,90.0,278.18,0.0,0.0);
655 AliMatrix(idrotm[325],90.0,171.82,90.0,261.82,0.0,0.0);
656 AliMatrix(idrotm[326],90.0,155.45,90.0,245.45,0.0,0.0);
657 AliMatrix(idrotm[327],90.0,139.09,90.0,229.09,0.0,0.0);
658 AliMatrix(idrotm[328],90.0,122.73,90.0,212.73,0.0,0.0);
659 AliMatrix(idrotm[329],90.0,106.36,90.0,196.36,0.0,0.0);
660 AliMatrix(idrotm[330],90.0,73.64,90.0,163.64,0.0,0.0);
661 AliMatrix(idrotm[331],90.0,40.91,90.0,130.91,0.0,0.0);
662 AliMatrix(idrotm[332],90.0,24.55,90.0,114.55,0.0,0.0);
663 AliMatrix(idrotm[333],90.0,38.57,90.0,128.57,0.0,0.0);
664 AliMatrix(idrotm[334],90.0,351.82,90.0,81.82,0.0,0.0);
665 AliMatrix(idrotm[335],90.0,8.18,90.0,98.18,0.0,0.0);
666 AliMatrix(idrotm[336],90.0,64.29,90.0,154.29,0.0,0.0);
667 AliMatrix(idrotm[337],111.0,300.0,21.0,300.0,90.0,30.0);
668 AliMatrix(idrotm[338],69.0,240.0,159.0,240.0,90.0,150.0);
669 AliMatrix(idrotm[339],111.0,240.0,21.0,240.0,90.0,150.0);
670 AliMatrix(idrotm[340],69.0,300.0,159.0,300.0,90.0,30.0);
671 AliMatrix(idrotm[341],128.0,0.0,38.0,0.0,90.0,270.0);
672 AliMatrix(idrotm[342],90.0,240.0,180.0,0.0,90.0,330.);
673 AliMatrix(idrotm[343],90.0,120.0,180.0,0.0,90.0,210.0);
674 AliMatrix(idrotm[344],90.0,0.0,180.0,0.0,90.0,90.0);
675 AliMatrix(idrotm[345],90.0,180.0,90.0,90.0,0.0,0.0);
676 AliMatrix(idrotm[346],90.0,300.0,90.0,30.0,0.0,0.0);
677 AliMatrix(idrotm[347],90.0,240.0,90.0,150.0,0.0,0.0);
678 AliMatrix(idrotm[348],90.0,180.0,0.0,0.0,90.0,270.0);
679 AliMatrix(idrotm[349],90.0,235.0,90.0,145.0,0.0,0.0);
680 AliMatrix(idrotm[350],90.0,90.0,90.0,180.0,0.0,0.0);
681 AliMatrix(idrotm[351],90.0,305.0,90.0,35.0,0.0,0.0);
682 AliMatrix(idrotm[352],0.0,0.0,90.0,0.0,90.0,90.0);
683 AliMatrix(idrotm[353],90.0,60.0,90.0,150.0,0.0,0.0);
684 AliMatrix(idrotm[354],90.0,120.0,90.0,30.0,0.0,0.0);
685 AliMatrix(idrotm[355],90.0,180.0,90.0,90.0,180.0,0.0);
686 AliMatrix(idrotm[356],90.0,270.0,90.0,0.0,0.0,0.0);
687 AliMatrix(idrotm[366],90.0,57.27,90.0,147.27,0.0,0.0);
688 AliMatrix(idrotm[386],90.0,192.86,90.0,282.86,0.0,0.0);
689
690 // SSD
691
692 AliMatrix(idrotm[501],90.0,148.24,90.0,238.24,0.0,0.0);
693 AliMatrix(idrotm[503],90.0,137.65,90.0,227.65,0.0,0.0);
694 AliMatrix(idrotm[504],90.0,127.06,90.0,217.06,0.0,0.0);
695 AliMatrix(idrotm[505],90.0,116.47,90.0,206.47,0.0,0.0);
696 AliMatrix(idrotm[506],90.0,105.88,90.0,195.88,0.0,0.0);
697 AliMatrix(idrotm[507],90.0,95.29,90.0,185.29,0.0,0.0);
698 AliMatrix(idrotm[508],90.0,84.71,90.0,174.71,0.0,0.0);
699 AliMatrix(idrotm[509],90.0,74.12,90.0,164.12,0.0,0.0);
700 AliMatrix(idrotm[510],90.0,63.53,90.0,153.53,0.0,0.0);
701 AliMatrix(idrotm[511],90.0,52.94,90.0,142.94,0.0,0.0);
702 AliMatrix(idrotm[512],90.0,42.35,90.0,132.35,0.0,0.0);
703 AliMatrix(idrotm[513],90.0,31.76,90.0,121.76,0.0,0.0);
704 AliMatrix(idrotm[514],90.0,10.59,90.0,100.59,0.0,0.0);
705 AliMatrix(idrotm[515],90.0,349.41,90.0,79.41,0.0,0.0);
706 AliMatrix(idrotm[516],90.0,338.82,90.0,68.82,0.0,0.0);
707 AliMatrix(idrotm[517],90.0,328.24,90.0,58.24,0.0,0.0);
708 AliMatrix(idrotm[518],90.0,317.65,90.0,47.65,0.0,0.0);
709 AliMatrix(idrotm[519],90.0,307.06,90.0,37.06,0.0,0.0);
710 AliMatrix(idrotm[520],90.0,296.47,90.0,26.47,0.0,0.0);
711 AliMatrix(idrotm[521],90.0,285.88,90.0,15.88,0.0,0.0);
712 AliMatrix(idrotm[522],90.0,275.29,90.0,5.29,0.0,0.0);
713 AliMatrix(idrotm[523],90.0,264.71,90.0,354.71,0.0,0.0);
714 AliMatrix(idrotm[524],90.0,254.12,90.0,344.12,0.0,0.0);
715 AliMatrix(idrotm[525],90.0,243.53,90.0,333.53,0.0,0.0);
716 AliMatrix(idrotm[526],90.0,232.94,90.0,322.94,0.0,0.0);
717 AliMatrix(idrotm[527],90.0,222.35,90.0,312.35,0.0,0.0);
718 AliMatrix(idrotm[528],90.0,211.76,90.0,301.76,0.0,0.0);
719 AliMatrix(idrotm[529],90.0,190.59,90.0,280.59,0.0,0.0);
720 AliMatrix(idrotm[530],90.0,169.41,90.0,259.41,0.0,0.0);
721 AliMatrix(idrotm[531],90.0,158.82,90.0,248.82,0.0,0.0);
722 AliMatrix(idrotm[532],90.0,360.0,90.0,90.0,0.0,0.0);
723 AliMatrix(idrotm[533],90.0,180.0,90.0,270.0,0.0,0.0);
724 AliMatrix(idrotm[534],90.0,189.47,90.0,279.47,0.0,0.0);
9d2da7b3 725 AliMatrix(idrotm[535],90.0,198.95,90.0,288.95,0.0,0.0);
db915fea 726 AliMatrix(idrotm[537],90.0,217.89,90.0,307.89,0.0,0.0);
727 AliMatrix(idrotm[538],90.0,227.37,90.0,317.37,0.0,0.0);
728 AliMatrix(idrotm[539],90.0,236.84,90.0,326.84,0.0,0.0);
729 AliMatrix(idrotm[540],90.0,246.32,90.0,336.32,0.0,0.0);
730 AliMatrix(idrotm[541],90.0,255.79,90.0,345.79,0.0,0.0);
731 AliMatrix(idrotm[542],90.0,265.26,90.0,355.26,0.0,0.0);
732 AliMatrix(idrotm[543],90.0,274.74,90.0,4.74,0.0,0.0);
733 AliMatrix(idrotm[544],90.0,284.21,90.0,14.21,0.0,0.0);
734 AliMatrix(idrotm[545],90.0,293.68,90.0,23.68,0.0,0.0);
735 AliMatrix(idrotm[546],90.0,303.16,90.0,33.16,0.0,0.0);
736 AliMatrix(idrotm[547],90.0,312.63,90.0,42.63,0.0,0.0);
737 AliMatrix(idrotm[548],90.0,322.11,90.0,52.11,0.0,0.0);
738 AliMatrix(idrotm[549],90.0,331.58,90.0,61.58,0.0,0.0);
739 AliMatrix(idrotm[550],90.0,341.05,90.0,71.05,0.0,0.0);
740 AliMatrix(idrotm[551],90.0,350.53,90.0,80.53,0.0,0.0);
741 AliMatrix(idrotm[552],90.0,9.47,90.0,99.47,0.0,0.0);
9d2da7b3 742 AliMatrix(idrotm[553],90.0,18.95,90.0,108.95,0.0,0.0);
db915fea 743 AliMatrix(idrotm[555],90.0,37.89,90.0,127.89,0.0,0.0);
744 AliMatrix(idrotm[556],90.0,47.37,90.0,137.37,0.0,0.0);
745 AliMatrix(idrotm[557],90.0,56.84,90.0,146.84,0.0,0.0);
746 AliMatrix(idrotm[558],90.0,66.32,90.0,156.32,0.0,0.0);
747 AliMatrix(idrotm[559],90.0,75.79,90.0,165.79,0.0,0.0);
748 AliMatrix(idrotm[560],90.0,85.26,90.0,175.26,0.0,0.0);
749 AliMatrix(idrotm[561],90.0,94.74,90.0,184.74,0.0,0.0);
750 AliMatrix(idrotm[562],90.0,104.21,90.0,194.21,0.0,0.0);
751 AliMatrix(idrotm[563],90.0,113.68,90.0,203.68,0.0,0.0);
752 AliMatrix(idrotm[564],90.0,123.16,90.0,213.16,0.0,0.0);
753 AliMatrix(idrotm[565],90.0,132.63,90.0,222.63,0.0,0.0);
754 AliMatrix(idrotm[566],90.0,142.11,90.0,232.11,0.0,0.0);
755 AliMatrix(idrotm[567],90.0,151.58,90.0,241.58,0.0,0.0);
756 AliMatrix(idrotm[568],90.0,161.05,90.0,251.05,0.0,0.0);
757 AliMatrix(idrotm[569],90.0,170.53,90.0,260.53,0.0,0.0);
758 AliMatrix(idrotm[570],90.0,180.0,90.0,90.0,180.0,0.0);
759 AliMatrix(idrotm[571],90.0,0.0,0.0,0.0,90.0,270.0);
760 AliMatrix(idrotm[572],90.0,180.0,0.0,0.0,90.0,270.0);
761 AliMatrix(idrotm[573],90.0,180.0,90.0,90.0,0.0,0.0);
762 AliMatrix(idrotm[575],90.0,120.0,180.0,0.0,90.0,210.0);
763 AliMatrix(idrotm[576],65.71,300.0,90.0,30.0,24.29,120.0);
764 AliMatrix(idrotm[577],114.29,300.0,90.0,30.0,155.71,120.0);
765 AliMatrix(idrotm[579],65.71,240.0,90.0,150.0,24.29,60.0);
766 AliMatrix(idrotm[580],114.29,240.0,90.0,150.0,155.71,60.0);
767 AliMatrix(idrotm[581],90.0,240.0,180.0,0.0,90.0,330.0);
768 AliMatrix(idrotm[583],90.0,0.0,180.0,0.0,90.0,90.0);
769 AliMatrix(idrotm[584],90.0,180.0,180.0,0.0,90.0,90.0);
770 AliMatrix(idrotm[586],180.0,0.0,90.0,90.0,90.0,0.0);
771 AliMatrix(idrotm[618],90.0,201.18,90.0,291.18,0.0,0.0);
772 AliMatrix(idrotm[620],90.0,28.42,90.0,118.42,0.0,0.0);
773 AliMatrix(idrotm[623],90.0,208.42,90.0,298.42,0.0,0.0);
774 AliMatrix(idrotm[633],132.46,0.0,90.0,90.0,42.46,360.0);
775 AliMatrix(idrotm[653],90.0,21.18,90.0,111.18,0.0,0.0);
776
9d2da7b3 777
778 // SDD cone
779
780 AliMatrix(idrotm[846],90.0,300.0,90.0,30.0,0.0,0.0);
781 AliMatrix(idrotm[851],90.0,305.0,90.0,35.0,0.0,0.0);
782 AliMatrix(idrotm[853],90.0,60.0,90.0,150.0,0.0,0.0);
783 AliMatrix(idrotm[856],90.0,0.0,90.0,90.0,180.0,0.0);
784 AliMatrix(idrotm[857],90.0,5.0,90.0,95.0,180.0,0.0);
785 AliMatrix(idrotm[858],90.0,65.0,90.0,155.0,180.0,0.0);
786 AliMatrix(idrotm[859],90.0,305.0,90.0,35.0,180.0,0.0);
787 AliMatrix(idrotm[860],90.0,245.0,90.0,335.0,180.0,0.0);
788 AliMatrix(idrotm[861],90.0,185.0,90.0,275.0,180.0,0.0);
789 AliMatrix(idrotm[862],90.0,125.0,90.0,215.0,180.0,0.0);
790 AliMatrix(idrotm[863],90.0,257.5,90.0,347.5,180.0,0.0);
791 AliMatrix(idrotm[864],90.0,227.5,90.0,317.5,180.0,0.0);
792 AliMatrix(idrotm[865],90.0,197.5,90.0,287.5,180.0,0.0);
793 AliMatrix(idrotm[867],90.0,167.5,90.0,257.5,180.0,0.0);
794 AliMatrix(idrotm[868],90.0,287.5,90.0,17.5,0.0,0.0);
795 AliMatrix(idrotm[869],90.0,137.5,90.0,227.5,180.0,0.0);
796 AliMatrix(idrotm[870],90.0,107.5,90.0,197.5,180.0,0.0);
797 AliMatrix(idrotm[871],90.0,77.5,90.0,167.5,180.0,0.0);
798 AliMatrix(idrotm[872],90.0,47.5,90.0,137.5,180.0,0.0);
799 AliMatrix(idrotm[873],90.0,17.5,90.0,107.5,180.0,0.0);
800 AliMatrix(idrotm[874],90.0,347.5,90.0,77.5,180.0,0.0);
801 AliMatrix(idrotm[875],90.0,317.5,90.0,47.5,180.0,0.0);
802 AliMatrix(idrotm[876],90.0,287.5,90.0,17.5,180.0,0.0);
803 AliMatrix(idrotm[877],90.0,185.0,90.0,275.0,0.0,0.0);
804 AliMatrix(idrotm[878],90.0,180.0,90.0,270.0,0.0,0.0);
805 AliMatrix(idrotm[879],90.0,125.0,90.0,215.0,0.0,0.0);
806 AliMatrix(idrotm[880],90.0,65.0,90.0,155.0,0.0,0.0);
807 AliMatrix(idrotm[881],90.0,5.0,90.0,95.0,0.0,0.0);
808 AliMatrix(idrotm[882],90.0,245.0,90.0,335.0,0.0,0.0);
809 AliMatrix(idrotm[883],90.0,47.5,90.0,137.5,0.0,0.0);
810 AliMatrix(idrotm[884],90.0,77.5,90.0,167.5,0.0,0.0);
811 AliMatrix(idrotm[885],90.0,107.5,90.0,197.5,0.0,0.0);
812 AliMatrix(idrotm[887],90.0,137.5,90.0,227.5,0.0,0.0);
813 AliMatrix(idrotm[888],90.0,167.5,90.0,257.5,0.0,0.0);
814 AliMatrix(idrotm[889],90.0,197.5,90.0,287.5,0.0,0.0);
815 AliMatrix(idrotm[890],90.0,227.5,90.0,317.5,0.0,0.0);
816 AliMatrix(idrotm[891],90.0,347.5,90.0,77.5,0.0,0.0);
817 AliMatrix(idrotm[892],90.0,317.5,90.0,47.5,0.0,0.0);
818 AliMatrix(idrotm[893],90.0,257.5,90.0,347.5,0.0,0.0);
819 AliMatrix(idrotm[894],90.0,270.0,0.0,0.0,90.0,180.0);
820 AliMatrix(idrotm[895],90.0,286.36,0.0,0.0,90.0,196.36);
821 AliMatrix(idrotm[896],90.0,302.73,0.0,0.0,90.0,212.73);
822 AliMatrix(idrotm[897],90.0,319.09,0.0,0.0,90.0,229.09);
823 AliMatrix(idrotm[898],90.0,17.5,90.0,107.5,0.0,0.0);
824 AliMatrix(idrotm[899],90.0,335.45,0.0,0.0,90.0,245.45);
825 AliMatrix(idrotm[900],90.0,351.82,0.0,0.0,90.0,261.82);
826 AliMatrix(idrotm[901],90.0,8.18,0.0,0.0,90.0,278.18);
827 AliMatrix(idrotm[902],90.0,24.55,0.0,0.0,90.0,294.55);
828 AliMatrix(idrotm[903],90.0,40.91,0.0,0.0,90.0,310.91);
829 AliMatrix(idrotm[904],90.0,57.27,0.0,0.0,90.0,327.27);
830 AliMatrix(idrotm[905],90.0,73.64,0.0,0.0,90.0,343.64);
831 AliMatrix(idrotm[906],90.0,90.0,0.0,0.0,90.0,360.0);
832 AliMatrix(idrotm[907],90.0,106.36,0.0,0.0,90.0,16.36);
833 AliMatrix(idrotm[908],90.0,122.73,0.0,0.0,90.0,32.73);
834 AliMatrix(idrotm[909],90.0,139.09,0.0,0.0,90.0,49.09);
835 AliMatrix(idrotm[910],90.0,155.45,0.0,0.0,90.0,65.45);
836 AliMatrix(idrotm[911],90.0,171.82,0.0,0.0,90.0,81.82);
837 AliMatrix(idrotm[912],90.0,188.18,0.0,0.0,90.0,98.18);
838 AliMatrix(idrotm[913],90.0,204.55,0.0,0.0,90.0,114.55);
839 AliMatrix(idrotm[914],90.0,220.91,0.0,0.0,90.0,130.91);
840 AliMatrix(idrotm[915],90.0,237.27,0.0,0.0,90.0,147.27);
841 AliMatrix(idrotm[916],90.0,253.64,0.0,0.0,90.0,163.64);
842 AliMatrix(idrotm[917],90.0,295.71,0.0,0.0,90.0,205.71);
843 AliMatrix(idrotm[918],90.0,321.43,0.0,0.0,90.0,231.43);
844 AliMatrix(idrotm[919],90.0,347.14,0.0,0.0,90.0,257.14);
845 AliMatrix(idrotm[920],90.0,12.86,0.0,0.0,90.0,282.86);
846 AliMatrix(idrotm[921],90.0,38.57,0.0,0.0,90.0,308.57);
847 AliMatrix(idrotm[922],90.0,64.29,0.0,0.0,90.0,334.29);
848 AliMatrix(idrotm[923],90.0,115.71,0.0,0.0,90.0,25.71);
849 AliMatrix(idrotm[924],90.0,141.43,0.0,0.0,90.0,51.43);
850 AliMatrix(idrotm[925],90.0,167.14,0.0,0.0,90.0,77.14);
851 AliMatrix(idrotm[926],90.0,192.86,0.0,0.0,90.0,102.86);
852 AliMatrix(idrotm[927],90.0,218.57,0.0,0.0,90.0,128.57);
853 AliMatrix(idrotm[928],90.0,244.29,0.0,0.0,90.0,154.29);
854 AliMatrix(idrotm[929],90.0,120.0,90.0,210.0,0.0,0.0);
855 AliMatrix(idrotm[930],90.0,240.0,90.0,330.0,0.0,0.0);
856 AliMatrix(idrotm[931],90.0,60.0,90.0,150.0,180.0,0.0);
857 AliMatrix(idrotm[932],90.0,120.0,90.0,210.0,180.0,0.0);
858 AliMatrix(idrotm[933],90.0,180.0,90.0,270.0,180.0,0.0);
859 AliMatrix(idrotm[934],90.0,240.0,90.0,330.0,180.0,0.0);
860 AliMatrix(idrotm[935],90.0,300.0,90.0,30.0,180.0,0.0);
861
862 // SSD cone
863
864 AliMatrix(idrotm[701],90.0,0.0,90.0,90.0,180.0,0.0);
865 AliMatrix(idrotm[702],90.0,347.5,90.0,77.5,180.0,0.0);
866 AliMatrix(idrotm[703],90.0,17.5,90.0,107.5,180.0,0.0);
867 AliMatrix(idrotm[704],90.0,47.5,90.0,137.5,180.0,0.0);
868 AliMatrix(idrotm[705],90.0,77.5,90.0,167.5,180.0,0.0);
869 AliMatrix(idrotm[706],90.0,107.5,90.0,197.5,180.0,0.0);
870 AliMatrix(idrotm[707],90.0,137.5,90.0,227.5,180.0,0.0);
871 AliMatrix(idrotm[708],90.0,167.5,90.0,257.5,180.0,0.0);
872 AliMatrix(idrotm[709],90.0,197.5,90.0,287.5,180.0,0.0);
873 AliMatrix(idrotm[710],90.0,227.5,90.0,317.5,180.0,0.0);
874 AliMatrix(idrotm[711],90.0,257.5,90.0,347.5,180.0,0.0);
875 AliMatrix(idrotm[712],90.0,287.5,90.0,17.5,180.0,0.0);
876 AliMatrix(idrotm[713],90.0,317.5,90.0,47.5,180.0,0.0);
877 AliMatrix(idrotm[714],90.0,328.4,90.0,58.4,180.0,0.0);
878 AliMatrix(idrotm[715],90.0,28.4,90.0,118.4,180.0,0.0);
879 AliMatrix(idrotm[716],90.0,88.4,90.0,178.4,180.0,0.0);
880 AliMatrix(idrotm[717],90.0,148.4,90.0,238.4,180.0,0.0);
881 AliMatrix(idrotm[718],90.0,208.4,90.0,298.4,180.0,0.0);
882 AliMatrix(idrotm[719],90.0,268.4,90.0,358.4,180.0,0.0);
883 AliMatrix(idrotm[720],90.0,28.4,90.0,118.4,0.0,0.0);
884 AliMatrix(idrotm[721],90.0,88.4,90.0,178.4,0.0,0.0);
885 AliMatrix(idrotm[722],90.0,148.4,90.0,238.4,0.0,0.0);
886 AliMatrix(idrotm[723],90.0,208.4,90.0,298.4,0.0,0.0);
887 AliMatrix(idrotm[724],90.0,268.4,90.0,358.4,0.0,0.0);
888 AliMatrix(idrotm[725],90.0,328.4,90.0,58.4,0.0,0.0);
889 AliMatrix(idrotm[726],90.0,77.5,90.0,167.5,0.0,0.0);
890 AliMatrix(idrotm[727],90.0,107.5,90.0,197.5,0.0,0.0);
891 AliMatrix(idrotm[728],90.0,137.5,90.0,227.5,0.0,0.0);
892 AliMatrix(idrotm[729],90.0,167.5,90.0,257.5,0.0,0.0);
893 AliMatrix(idrotm[730],90.0,227.5,90.0,317.5,0.0,0.0);
894 AliMatrix(idrotm[731],90.0,257.5,90.0,347.5,0.0,0.0);
895 AliMatrix(idrotm[732],90.0,317.5,90.0,47.5,0.0,0.0);
896 AliMatrix(idrotm[733],90.0,197.5,90.0,287.5,0.0,0.0);
897 AliMatrix(idrotm[734],90.0,347.5,90.0,77.5,0.0,0.0);
898 AliMatrix(idrotm[735],90.0,47.5,90.0,137.5,0.0,0.0);
899 AliMatrix(idrotm[768],90.0,287.5,90.0,17.5,0.0,0.0);
900 AliMatrix(idrotm[798],90.0,17.5,90.0,107.5,0.0,0.0);
901
902 // Services
903
904 AliMatrix(idrotm[200], 90., 0., 90., 90., 180., 0.);
db915fea 905
906
907 // CONVERT INTO CM (RL(SI)=9.36 CM)
9d2da7b3 908
db915fea 909 for (i = 0; i < 6; ++i) {
910 drl[i] = drl[i] / 100. * 9.36;
911 }
912
913 // FIELD CAGE HALF LENGTH
914
1e9111db 915 rlim = 50.;
e4f08ac3 916 zmax = 74.;
917 ztpc = 284.;
9d2da7b3 918
db915fea 919 // --- Define ghost volume containing the whole ITS (including services)
920 // and fill it with air
921
922 dgh[0] = 0.;
923 dgh[1] = 360.;
6d62fed9 924 dgh[2] = 16.;
e4f08ac3 925 dgh[3] = -ztpc-5.-0.1;
926 dgh[4] = 62.4;
db915fea 927 dgh[5] = 85.;
e4f08ac3 928 dgh[6] = -ztpc;
929 dgh[7] = 62;
db915fea 930 dgh[8] = 85.;
e4f08ac3 931 dgh[9] = -ztpc;
932 dgh[10] = 62;
933 dgh[11] = 62+4.;
934 dgh[12] = -97.5;
935 dgh[13] = 46;
1e9111db 936 dgh[14] = rlim+6;
e4f08ac3 937 dgh[15] = -zmax;
938 dgh[16] = 46;
1e9111db 939 dgh[17] = rlim+6;
e4f08ac3 940 dgh[18] = -48;
6d62fed9 941 dgh[19] = 6;
1e9111db 942 dgh[20] = rlim+6;
e4f08ac3 943 dgh[21] = -28.6;
6d62fed9 944 dgh[22] = 6;
1e9111db 945 dgh[23] = rlim+6;
e4f08ac3 946 dgh[24] = -27.6;
6d62fed9 947 dgh[25] = 3.295;
1e9111db 948 dgh[26] = rlim+6;
e4f08ac3 949 dgh[27] = 27.6;
6d62fed9 950 dgh[28] = 3.295;
1e9111db 951 dgh[29] = rlim+6;
e4f08ac3 952 dgh[30] = 28.6;
6d62fed9 953 dgh[31] = 6;
1e9111db 954 dgh[32] = rlim+6;
e4f08ac3 955 dgh[33] = 48;
6d62fed9 956 dgh[34] = 6;
1e9111db 957 dgh[35] = rlim+6;
e4f08ac3 958 dgh[36] = zmax;
6d62fed9 959 dgh[37] = 46;
1e9111db 960 dgh[38] = rlim+6;
e4f08ac3 961 dgh[39] = 97.5;
962 dgh[40] = 46;
1e9111db 963 dgh[41] = rlim+6;
e4f08ac3 964 dgh[42] = ztpc;
965 dgh[43] = 62;
966 dgh[44] = 62+4.;
967 dgh[45] = ztpc;
968 dgh[46] = 62;
6d62fed9 969 dgh[47] = 85.;
e4f08ac3 970 dgh[48] = ztpc+4.+0.1;
6d62fed9 971 dgh[49] = 62.4;
972 dgh[50] = 85.;
973 gMC->Gsvolu("ITSV", "PCON", idtmed[205], dgh, 51);
45725ec9 974
6d62fed9 975
db915fea 976
977 // --- Place the ghost volume in its mother volume (ALIC) and make it
978 // invisible
979
980 gMC->Gspos("ITSV", 1, "ALIC", 0., 0., 0., 0, "ONLY");
981 //gMC->Gsatt("ITSV", "SEEN", 0);
9d2da7b3 982
983
db915fea 984 // --- Define ghost volume containing the six layers and fill it with air
985
986 dgh[0] = 0.;
987 dgh[1] = 360.;
6d62fed9 988 dgh[2] = 8.;
e4f08ac3 989 dgh[3] = -zmax;
45725ec9 990 dgh[4] = 46.;
e4f08ac3 991 dgh[5] = rlim;
992 dgh[6] = -47.5;
6d62fed9 993 dgh[7] = 6.005;
e4f08ac3 994 dgh[8] = rlim;
995 dgh[9] = -28.5;
6d62fed9 996 dgh[10] = 6.005;
e4f08ac3 997 dgh[11] = rlim;
998 dgh[12] = -27.5;
6d62fed9 999 dgh[13] = 3.3;
e4f08ac3 1000 dgh[14] = rlim;
1001 dgh[15] = 27.5;
6d62fed9 1002 dgh[16] = 3.3;
e4f08ac3 1003 dgh[17] = rlim;
1004 dgh[18] = 28.5;
6d62fed9 1005 dgh[19] = 6.005;
e4f08ac3 1006 dgh[20] = rlim;
1007 dgh[21] = 47.5;
6d62fed9 1008 dgh[22] = 6.005;
e4f08ac3 1009 dgh[23] = rlim;
1010 dgh[24] = zmax;
6d62fed9 1011 dgh[25] = 46.;
e4f08ac3 1012 dgh[26] = rlim;
6d62fed9 1013 gMC->Gsvolu("ITSD", "PCON", idtmed[205], dgh, 27);
db915fea 1014
9d2da7b3 1015 // --- Place the ghost volume in its mother volume (ITSV) and make it
db915fea 1016 // invisible
1017
1018 gMC->Gspos("ITSD", 1, "ITSV", 0., 0., 0., 0, "ONLY");
1019 //gMC->Gsatt("ITSD", "SEEN", 0);
db915fea 1020
9d2da7b3 1021 // --- Define SPD (option 'a') volumes ----------------------------
1022
1023 // SPD - option 'a'
1024 // (this is NOT the default)
1025
1026 if (option == 1) {
1027
1028 dits[0] = 3.7;
1029 dits[1] = 7.75;
45725ec9 1030 dits[2] = 26.1;
9d2da7b3 1031 gMC->Gsvolu("IT12", "TUBE", idtmed[254], dits, 3);
1032
1033 dits[0] = 3.7;
1034 dits[1] = 7.7;
1035 dits[2] = 24;
1036 dits[3] = 57;
1037 dits[4] = 100;
1038 gMC->Gsvolu("I12A", "TUBS", idtmed[254], dits, 5); // sector
1039
1040 di10a[0] = 0.843;
1041 di10a[1] = ddet1+dchip1+dbus+0.0025;
1042 di10a[2] = 19.344;
1043 gMC->Gsvolu("I10A", "BOX ", idtmed[254], di10a, 3); // mother volume
1044 // on layer 1
1045 di20a[0] = 0.843;
1046 di20a[1] = ddet2+dchip2+dbus+0.0025;
1047 di20a[2] = 19.344;
1048 gMC->Gsvolu("I20A", "BOX ", idtmed[254], di20a, 3); // mother volume
1049 // on layer 2
1050 dits[0] = 1.3673;
1051 dits[1] = 0.01;
1052 dits[2] = 24;
1053 gMC->Gsvolu("I123", "BOX ", idtmed[253], dits, 3);
1054
1055 dits[0] = 0.06;
1056 dits[1] = 0.08;
1057 dits[2] = 24;
1058 dits[3] = -36.79;
1059 dits[4] = 21.834;
1060 gMC->Gsvolu("I121", "TUBS", idtmed[253], dits, 5);
1061
1062 dits[0] = 0.1253;
1063 dits[1] = 0.01;
1064 dits[2] = 24;
1065 gMC->Gsvolu("I122", "BOX ", idtmed[253], dits, 3);
1066
1067 dits[0] = 0.04;
1068 dits[1] = 0.06 ;
1069 dits[2] = 24;
1070 dits[3] = 126.79;
1071 dits[4] = 270;
1072 gMC->Gsvolu("I120", "TUBS", idtmed[253], dits, 5);
1073
1074 dits[0] = 0.1134;
1075 dits[1] = 0.01;
1076 dits[2] = 24;
1077 gMC->Gsvolu("I144", "BOX ", idtmed[253], dits, 3);
1078
1079 dits[0] = 0.25;
1080 dits[1] = 0.06;
1081 dits[2] = 24;
1082 gMC->Gsvolu("I113", "BOX ", idtmed[254], dits, 3);
1083
1084 dits[0] = 0.077;
1085 dits[1] = 0.01;
1086 dits[2] = 24;
1087 gMC->Gsvolu("I143", "BOX ", idtmed[253], dits, 3);
1088
1089 dits[0] = 0.04;
1090 dits[1] = 0.06;
1091 dits[2] = 24;
1092 dits[3] = 0;
1093 dits[4] = 90;
1094 gMC->Gsvolu("I142", "TUBS", idtmed[253], dits, 5);
1095
1096 dits[0] = 0.0695;
1097 dits[1] = 0.01;
1098 dits[2] = 24;
1099 gMC->Gsvolu("I141", "BOX ", idtmed[253], dits, 3);
1100
1101 dits[0] = 0.06;
1102 dits[1] = 0.08;
1103 dits[2] = 24;
1104 dits[3] = 0;
1105 dits[4] = 108;
1106 gMC->Gsvolu("I140", "TUBS", idtmed[253], dits, 5);
1107
1108 dits[0] = 0.1835;
1109 dits[1] = 0.01;
1110 dits[2] = 24;
1111 gMC->Gsvolu("I139", "BOX ", idtmed[253], dits, 3);
1112
1113 dits[0] = 0.1894 ;
1114 dits[1] = 0.01;
1115 dits[2] = 24;
1116 gMC->Gsvolu("I138", "BOX ", idtmed[253], dits, 3);
1117
1118 dits[0] = 0.04;
1119 dits[1] = 0.06;
1120 dits[2] = 24;
1121 dits[3] = 0;
1122 dits[4] = 75.261;
1123 gMC->Gsvolu("I137", "TUBS", idtmed[253], dits, 5);
1124
1125 dits[0] = 1.3401;
1126 dits[1] = 0.01;
1127 dits[2] = 24;
1128 gMC->Gsvolu("I136", "BOX ", idtmed[253], dits, 3);
1129
1130 dits[0] = 0.05;
1131 dits[1] = 0.07;
1132 dits[2] = 24;
1133 dits[3] = 0;
1134 dits[4] = 72.739;
1135 gMC->Gsvolu("I135", "TUBS", idtmed[253], dits, 5);
1136
1137 dits[0] = 0.1193;
1138 dits[1] = 0.01;
1139 dits[2] = 24;
1140 gMC->Gsvolu("I134", "BOX ", idtmed[253], dits, 3);
1141
1142 dits[0] = 0.163;
1143 dits[1] = 0.01;
1144 dits[2] = 24;
1145 gMC->Gsvolu("I133", "BOX ", idtmed[253], dits, 3);
1146
1147 dits[0] = 0.04;
1148 dits[1] = 0.06;
1149 dits[2] = 24;
1150 dits[3] = 0;
1151 dits[4] = 157.633;
1152 gMC->Gsvolu("I132", "TUBS", idtmed[253], dits, 5);
1153
1154 dits[0] = 0.2497;
1155 dits[1] = 0.01;
1156 dits[2] = 24;
1157 gMC->Gsvolu("I131", "BOX ", idtmed[253], dits, 3);
1158
1159 dits[0] = 0.06;
1160 dits[1] = 0.08;
1161 dits[2] = 24;
1162 dits[3] = 0;
1163 dits[4] = 148.633;
1164 gMC->Gsvolu("I130", "TUBS", idtmed[253], dits, 5);
1165
1166 dits[0] = 0.292;
1167 dits[1] = 0.01;
1168 dits[2] = 24;
1169 gMC->Gsvolu("I129", "BOX ", idtmed[253], dits, 3);
1170
1171 dits[0] = 0.163;
1172 dits[1] = 0.01;
1173 dits[2] = 24;
1174 gMC->Gsvolu("I128", "BOX ", idtmed[253], dits, 3);
1175
1176 dits[0] = 0.04;
1177 dits[1] = 0.06;
1178 dits[2] = 24;
1179 dits[3] = 0;
1180 dits[4] = 161.297;
1181 gMC->Gsvolu("I126", "TUBS", idtmed[253], dits, 5);
1182
1183 dits[0] = 0.2433;
1184 dits[1] = 0.01;
1185 dits[2] = 24;
1186 gMC->Gsvolu("I125", "BOX ", idtmed[253], dits, 3);
1187
1188 dits[0] = 0.06;
1189 dits[1] = 0.08;
1190 dits[2] = 24;
1191 dits[3] = 0;
1192 dits[4] = 42.883;
1193 gMC->Gsvolu("I124", "TUBS", idtmed[253], dits, 5);
1194
1195 di103[0] = 0.793;
1196 di103[1] = ddet1+dchip1;
1197 di103[2] = 3.536;
1198 gMC->Gsvolu("I103", "BOX ", idtmed[254], di103, 3); // contains det and chip
1199 // layer 1
1200 dits[0] = 0.793;
fc44ab90 1201 dits[1] = 0.475; //0.685; 0.015
9d2da7b3 1202 dits[2] = 2.5;
fc44ab90 1203 gMC->Gsvolu("I105", "BOX ", idtmed[290], dits, 3);
9d2da7b3 1204
1205 di104[0] = 0.843;
1206 di104[1] = dbus;
1207 di104[2] = 14.344;
1208 gMC->Gsvolu("I104", "BOX ", idtmed[275], di104, 3); // bus for both layers
1209
1210 di1d3[0] = 0.793;
1211 di1d3[1] = ddet2+dchip2;
1212 di1d3[2] = 3.536;
1213 gMC->Gsvolu("I1D3", "BOX ", idtmed[254], di1d3, 3); // contains det and chip
1214 // layer 2
1215 dits[0] = 0.793;
1216 dits[0] = 0.06;
1217 dits[1] = 0.08;
1218 dits[2] = 24;
1219 dits[3] = 0;
1220 dits[4] = 80;
1221 gMC->Gsvolu("I112", "TUBS", idtmed[253], dits, 5);
1222
1223 dits[0] = 0.04;
1224 dits[1] = 0.06;
1225 dits[2] = 24;
1226 dits[3] = 0;
1227 dits[4] = 80;
1228 gMC->Gsvolu("I111", "TUBS", idtmed[253], dits, 5);
1229
1230 dits[0] = 0.15;
1231 dits[1] = 0.0146;
1232 dits[2] = 24;
1233 gMC->Gsvolu("I118", "BOX ", idtmed[273], dits, 3);
1234
1235 dits[0] = 0.1315;
1236 dits[1] = 0.01;
1237 dits[2] = 24;
1238 gMC->Gsvolu("I110", "BOX ", idtmed[253], dits, 3);
1239
1240 dits[0] = 0.025;
1241 dits[1] = 0.035;
1242 dits[2] = 24;
1243 dits[3] = 0;
1244 dits[4] = 180;
1245 gMC->Gsvolu("I114", "TUBS", idtmed[264], dits, 5);
1246
e4f08ac3 1247 if (fluid == 1) {
1248 dits[0] = 0;
1249 dits[1] = 0.025;
1250 dits[2] = 24;
1251 dits[3] = 0;
1252 dits[4] = 180;
1253 gMC->Gsvolu("I115", "TUBS", idtmed[211], dits, 5); // set water as cooling fluid
1254 } else {
1255 dits[0] = 0;
1256 dits[1] = 0.025;
1257 dits[2] = 24;
1258 dits[3] = 0;
1259 dits[4] = 180;
1260 gMC->Gsvolu("I115", "TUBS", idtmed[212], dits, 5); // set freon as cooling fluid
1261 }
1262
9d2da7b3 1263 dits[0] = 0.063;
1264 dits[1] = 0.035;
1265 dits[2] = 24;
1266 gMC->Gsvolu("I116", "BOX ", idtmed[264], dits, 3);
1267
1268 di102[0] = 0.793;
1269 di102[1] = dchip1;
1270 di102[2] = 0.68;
1271 gMC->Gsvolu("I102", "BOX ", idtmed[201], di102, 3); // chip layer 1
1272
1273 di1d2[0] = 0.793;
1274 di1d2[1] = dchip2;
1275 di1d2[2] = 0.68;
1276 gMC->Gsvolu("I1D2", "BOX ", idtmed[201], di1d2, 3); // chip layer 2
1277
1278 di101[0] = 0.705;
1279 di101[1] = ddet1;
1280 di101[2] = 3.536;
1281 gMC->Gsvolu("I101", "BOX ", idtmed[250], di101, 3); // contains detector
1282 // layer 1
1283 di1d1[0] = 0.705;
1284 di1d1[1] = ddet2;
1285 di1d1[2] = 3.536;
1286 gMC->Gsvolu("I1D1", "BOX ", idtmed[250], di1d1, 3); // contains detector
1287 // layer 2
e4f08ac3 1288 if (fluid == 1) {
1289 dits[0] = 0.063;
1290 dits[1] = 0.025;
1291 dits[2] = 24;
1292 gMC->Gsvolu("I117", "BOX ", idtmed[211], dits, 3); // set water as cooling fuid
1293 } else {
1294 dits[0] = 0.063;
1295 dits[1] = 0.025;
1296 dits[2] = 24;
1297 gMC->Gsvolu("I117", "BOX ", idtmed[212], dits, 3); // set freon as cooling fluid
1298 }
9d2da7b3 1299
1300 dits1[0] = 0.64;
1301 dits1[1] = ddet1;
1302 dits1[2] = 3.48;
1303 gMC->Gsvolu("ITS1", "BOX ", idtmed[200], dits1, 3); // detector layer 1
1304
1305 dits2[0] = 0.64;
1306 dits2[1] = ddet2;
1307 dits2[2] = 3.48;
1308 gMC->Gsvolu("ITS2", "BOX ", idtmed[200], dits2, 3); // detector layer 2
1309
1310 dits[0] = 3.701;
1311 dits[1] = 7.699;
1312 dits[2] = 4;
1313 dits[3] = 57.1;
1314 dits[4] = 99.9;
1315 gMC->Gsvolu("I650", "TUBS", idtmed[254], dits, 5); // was I150 in old geom.
1316
1317 dits[0] = 0;
1318 dits[1] = 0.5;
1319 dits[2] = 1.5;
1320 gMC->Gsvolu("I676", "TUBE", idtmed[274], dits, 3); // was I176 in old geom.
1321
1322 dits[0] = 0;
1323 dits[1] = 0.18;
1324 dits[2] = 0.8;
1325 gMC->Gsvolu("I673", "TUBE", idtmed[274], dits, 3); // was I173 in old geom.
1326
1327 dits[0] = 0;
1328 dits[1] = 0.18;
1329 dits[2] = 3;
1330 gMC->Gsvolu("I671", "TUBE", idtmed[274], dits, 3); // was I171 in old geom.
1331
1332 dits[0] = 0;
1333 dits[1] = 0.075;
1334 dits[2] = 0.8;
1335 gMC->Gsvolu("I669", "TUBE", idtmed[264], dits, 3); // was I169 in old geom.
1336
1337 dits[0] = 3.5;
1338 dits[1] = 5.6;
1339 dits[2] = 0.55;
1340 dits[3] = 0;
1341 dits[4] = 38;
1342 gMC->Gsvolu("I667", "TUBS", idtmed[263], dits, 5); // was I167 in old geom.
1343
1344 dits[0] = 6.6;
1345 dits[1] = 7.6;
1346 dits[2] = 0.5;
1347 dits[3] = 0;
1348 dits[4] = 9;
1349 gMC->Gsvolu("I666", "TUBS", idtmed[263], dits, 5); // was I166 in old geom.
1350
1351 dits[0] = 0.26;
1352 dits[1] = 0.32;
1353 dits[2] = 0.55;
1354 gMC->Gsvolu("I678", "TUBE", idtmed[263], dits, 3); // was I178 in old geom.
1355
e4f08ac3 1356 if (fluid == 1) {
1357 dits[0] = 0;
1358 dits[1] = 0.3;
1359 dits[2] = 1.5;
1360 gMC->Gsvolu("I677", "TUBE", idtmed[211], dits, 3); // set water as cooling fluid
1361 // was I177 in old geom.
1362 } else {
1363 dits[0] = 0;
1364 dits[1] = 0.3;
1365 dits[2] = 1.5;
1366 gMC->Gsvolu("I677", "TUBE", idtmed[212], dits, 3); // set freon as cooling fluid
1367 // was I177 in old geom.
1368 }
1369
9d2da7b3 1370 dits[0] = 0.07;
1371 dits[1] = 0.125;
1372 dits[2] = 0.3;
1373 gMC->Gsvolu("I675", "TUBE", idtmed[263], dits, 3); // was I175 in old geom.
1374
e4f08ac3 1375 if (fluid == 1) {
1376 dits[0] = 0;
1377 dits[1] = 0.1;
1378 dits[2] = 0.8;
1379 gMC->Gsvolu("I674", "TUBE", idtmed[211], dits, 3); // set water as cooling fluid
1380 // was I174 in old geom.
1381 } else {
1382 dits[0] = 0;
1383 dits[1] = 0.1;
1384 dits[2] = 0.8;
1385 gMC->Gsvolu("I674", "TUBE", idtmed[212], dits, 3); // set freon as cooling fluid
1386 // was I174 in old geom.
1387 }
1388
1389 if (fluid == 1) {
1390 dits[0] = 0;
1391 dits[1] = 0.1;
1392 dits[2] = 3;
1393 gMC->Gsvolu("I672", "TUBE", idtmed[211], dits, 3); // set water as cooling fluid
1394 // was I172 in old geom.
1395 } else {
1396 dits[0] = 0;
1397 dits[1] = 0.1;
1398 dits[2] = 3;
1399 gMC->Gsvolu("I672", "TUBE", idtmed[212], dits, 3); // set freon as cooling fluid
1400 // was I172 in old geom.
1401 }
1402
1403 if (fluid == 1) {
1404 dits[0] = 0;
1405 dits[1] = 0.0746;
1406 dits[2] = 0.8;
1407 gMC->Gsvolu("I670", "TUBE", idtmed[211], dits, 3); // set water as cooling fluid
1408 // was I170 in old geom.
1409 } else {
1410 dits[0] = 0;
1411 dits[1] = 0.0746;
1412 dits[2] = 0.8;
1413 gMC->Gsvolu("I670", "TUBE", idtmed[212], dits, 3); // set freon as cooling fluid
1414 // was I170 in old geom.
1415 }
1416
1417 if (fluid == 1) {
1418 dits[0] = 3.7;
1419 dits[1] = 5.4;
1420 dits[2] = 0.35;
1421 dits[3] = 2;
1422 dits[4] = 36;
1423 gMC->Gsvolu("I668", "TUBS", idtmed[211], dits, 5); // set water as cooling fluid
1424 // was I168 in old geom.
1425 } else {
1426 dits[0] = 3.7;
1427 dits[1] = 5.4;
1428 dits[2] = 0.35;
1429 dits[3] = 2;
1430 dits[4] = 36;
1431 gMC->Gsvolu("I668", "TUBS", idtmed[212], dits, 5); // set freon as cooling fluid
1432 // was I168 in old geom.
1433 }
9d2da7b3 1434
db915fea 1435
9d2da7b3 1436 }
db915fea 1437
9d2da7b3 1438 // --- Define SPD (option 'b') volumes ----------------------------
1439
1440 // SPD - option 'b'
1441 // (this is the default)
1442
1443 if (option == 2) {
1444
1445 dits[0] = 3.7;
1446 dits[1] = 7.75;
45725ec9 1447 dits[2] = 26.1;
9d2da7b3 1448 gMC->Gsvolu("IT12", "TUBE", idtmed[254], dits, 3);
1449
1450 dits[0] = 3.7;
1451 dits[1] = 7.7;
1452 dits[2] = 24;
1453 dits[3] = 57;
1454 dits[4] = 100;
1455 gMC->Gsvolu("I12B", "TUBS", idtmed[254], dits, 5); // sector
1456
1457 di10b[0] = 0.843;
1458 di10b[1] = ddet1+dchip1+dbus+0.0025;
1459 di10b[2] = 19.344;
1460 gMC->Gsvolu("I10B", "BOX ", idtmed[254], di10b, 3); // mother volume
1461 // on layer 1
1462
1463 di20b[0] = 0.843;
1464 di20b[1] = ddet2+dchip2+dbus+0.0025;
1465 di20b[2] = 19.344;
1466 gMC->Gsvolu("I20B", "BOX ", idtmed[254], di20b, 3); // mother volume
1467 // layer 2
1468
1469 dits[0] = 1.3673;
1470 dits[1] = 0.01;
1471 dits[2] = 24;
1472 gMC->Gsvolu("I123", "BOX ", idtmed[253], dits, 3);
1473
1474 dits[0] = 0.06;
1475 dits[1] = 0.08;
1476 dits[2] = 24;
1477 dits[3] = -36.79;
1478 dits[4] = 21.834;
1479 gMC->Gsvolu("I121", "TUBS", idtmed[253], dits, 5);
1480
1481 dits[0] = 0.1253;
1482 dits[1] = 0.01;
1483 dits[2] = 24;
1484 gMC->Gsvolu("I122", "BOX ", idtmed[253], dits, 3);
1485
1486 dits[0] = 0.04;
1487 dits[1] = 0.06 ;
1488 dits[2] = 24;
1489 dits[3] = 126.79;
1490 dits[4] = 270;
1491 gMC->Gsvolu("I120", "TUBS", idtmed[253], dits, 5);
1492
1493 dits[0] = 0.1134;
1494 dits[1] = 0.01;
1495 dits[2] = 24;
1496 gMC->Gsvolu("I144", "BOX ", idtmed[253], dits, 3);
1497
1498 dits[0] = 0.25;
1499 dits[1] = 0.06;
1500 dits[2] = 24;
1501 gMC->Gsvolu("I113", "BOX ", idtmed[254], dits, 3);
1502
1503 dits[0] = 0.077;
1504 dits[1] = 0.01;
1505 dits[2] = 24;
1506 gMC->Gsvolu("I143", "BOX ", idtmed[253], dits, 3);
1507
1508 dits[0] = 0.04;
1509 dits[1] = 0.06;
1510 dits[2] = 24;
1511 dits[3] = 0;
1512 dits[4] = 90;
1513 gMC->Gsvolu("I142", "TUBS", idtmed[253], dits, 5);
1514
1515 dits[0] = 0.0695;
1516 dits[1] = 0.01;
1517 dits[2] = 24;
1518 gMC->Gsvolu("I141", "BOX ", idtmed[253], dits, 3);
1519
1520 dits[0] = 0.06;
1521 dits[1] = 0.08;
1522 dits[2] = 24;
1523 dits[3] = 0;
1524 dits[4] = 108;
1525 gMC->Gsvolu("I140", "TUBS", idtmed[253], dits, 5);
1526
1527 dits[0] = 0.1835;
1528 dits[1] = 0.01;
1529 dits[2] = 24;
1530 gMC->Gsvolu("I139", "BOX ", idtmed[253], dits, 3);
1531
1532 dits[0] = 0.1894 ;
1533 dits[1] = 0.01;
1534 dits[2] = 24;
1535 gMC->Gsvolu("I138", "BOX ", idtmed[253], dits, 3);
1536
1537 dits[0] = 0.04;
1538 dits[1] = 0.06;
1539 dits[2] = 24;
1540 dits[3] = 0;
1541 dits[4] = 75.261;
1542 gMC->Gsvolu("I137", "TUBS", idtmed[253], dits, 5);
1543
1544 dits[0] = 1.3401;
1545 dits[1] = 0.01;
1546 dits[2] = 24;
1547 gMC->Gsvolu("I136", "BOX ", idtmed[253], dits, 3);
1548
1549 dits[0] = 0.05;
1550 dits[1] = 0.07;
1551 dits[2] = 24;
1552 dits[3] = 0;
1553 dits[4] = 72.739;
1554 gMC->Gsvolu("I135", "TUBS", idtmed[253], dits, 5);
1555
1556 dits[0] = 0.1193;
1557 dits[1] = 0.01;
1558 dits[2] = 24;
1559 gMC->Gsvolu("I134", "BOX ", idtmed[253], dits, 3);
1560
1561 dits[0] = 0.163;
1562 dits[1] = 0.01;
1563 dits[2] = 24;
1564 gMC->Gsvolu("I133", "BOX ", idtmed[253], dits, 3);
1565
1566 dits[0] = 0.04;
1567 dits[1] = 0.06;
1568 dits[2] = 24;
1569 dits[3] = 0;
1570 dits[4] = 157.633;
1571 gMC->Gsvolu("I132", "TUBS", idtmed[253], dits, 5);
1572
1573 dits[0] = 0.2497;
1574 dits[1] = 0.01;
1575 dits[2] = 24;
1576 gMC->Gsvolu("I131", "BOX ", idtmed[253], dits, 3);
1577
1578 dits[0] = 0.06;
1579 dits[1] = 0.08;
1580 dits[2] = 24;
1581 dits[3] = 0;
1582 dits[4] = 148.633;
1583 gMC->Gsvolu("I130", "TUBS", idtmed[253], dits, 5);
1584
1585 dits[0] = 0.292;
1586 dits[1] = 0.01;
1587 dits[2] = 24;
1588 gMC->Gsvolu("I129", "BOX ", idtmed[253], dits, 3);
1589
1590 dits[0] = 0.163;
1591 dits[1] = 0.01;
1592 dits[2] = 24;
1593 gMC->Gsvolu("I128", "BOX ", idtmed[253], dits, 3);
1594
1595 dits[0] = 0.04;
1596 dits[1] = 0.06;
1597 dits[2] = 24;
1598 dits[3] = 0;
1599 dits[4] = 161.297;
1600 gMC->Gsvolu("I126", "TUBS", idtmed[253], dits, 5);
1601
1602 dits[0] = 0.2433;
1603 dits[1] = 0.01;
1604 dits[2] = 24;
1605 gMC->Gsvolu("I125", "BOX ", idtmed[253], dits, 3);
1606
1607 dits[0] = 0.06;
1608 dits[1] = 0.08;
1609 dits[2] = 24;
1610 dits[3] = 0;
1611 dits[4] = 42.883;
1612 gMC->Gsvolu("I124", "TUBS", idtmed[253], dits, 5);
1613
1614 dits[0] = 0.793;
fc44ab90 1615 dits[1] = 0.475; //0.685; 0.015
9d2da7b3 1616 dits[2] = 2.5;
fc44ab90 1617 gMC->Gsvolu("I105", "BOX ", idtmed[290], dits, 3);
9d2da7b3 1618
1619 di107[0] = 0.793;
1620 di107[1] = ddet1+dchip1;
1621 di107[2] = 3.536;
1622 gMC->Gsvolu("I107", "BOX ", idtmed[254], di107, 3); // contains det and chip
1623 // layer 1
1624 dits[0] = 0.705;
1625 dits[1] = 0.01;
1626 dits[2] = 2.5;
1627 gMC->Gsvolu("I109", "BOX ", idtmed[275], dits, 3);
1628
1629 di108[0] = 0.705;
1630 di108[1] = dbus;
1631 di108[2] = 14.344;
1632 gMC->Gsvolu("I108", "BOX ", idtmed[275], di108, 3); // bus for both layers
1633
1634 di1d7[0] = 0.7975;
1635 di1d7[1] = ddet2+dchip2;
1636 di1d7[2] = 3.536;
1637 gMC->Gsvolu("I1D7", "BOX ", idtmed[254], di1d7, 3); // contains det and chip
1638 // layer 2
1639 dits[0] = 0.06;
1640 dits[1] = 0.08;
1641 dits[2] = 24;
1642 dits[3] = 0;
1643 dits[4] = 80;
1644 gMC->Gsvolu("I112", "TUBS", idtmed[253], dits, 5);
1645
1646 dits[0] = 0.04;
1647 dits[1] = 0.06;
1648 dits[2] = 24;
1649 dits[3] = 0;
1650 dits[4] = 80;
1651 gMC->Gsvolu("I111", "TUBS", idtmed[253], dits, 5);
1652
1653 dits[0] = 0.15;
1654 dits[1] = 0.0146;
1655 dits[2] = 24;
1656 gMC->Gsvolu("I118", "BOX ", idtmed[273], dits, 3);
1657
1658 dits[0] = 0.1315;
1659 dits[1] = 0.01;
1660 dits[2] = 24;
1661 gMC->Gsvolu("I110", "BOX ", idtmed[253], dits, 3);
1662
1663 dits[0] = 0.025;
1664 dits[1] = 0.035;
1665 dits[2] = 24;
1666 dits[3] = 0;
1667 dits[4] = 180;
1668 gMC->Gsvolu("I114", "TUBS", idtmed[264], dits, 5);
1669
e4f08ac3 1670 if (fluid == 1) {
1671 dits[0] = 0;
1672 dits[1] = 0.025;
1673 dits[2] = 24;
1674 dits[3] = 0;
1675 dits[4] = 180;
1676 gMC->Gsvolu("I115", "TUBS", idtmed[211], dits, 5); // set water as cooling fluid
1677 } else {
1678 dits[0] = 0;
1679 dits[1] = 0.025;
1680 dits[2] = 24;
1681 dits[3] = 0;
1682 dits[4] = 180;
1683 gMC->Gsvolu("I115", "TUBS", idtmed[212], dits, 5); // set freon as cooling fluid
1684 }
1685
9d2da7b3 1686 dits[0] = 0.063;
1687 dits[1] = 0.035;
1688 dits[2] = 24;
1689 gMC->Gsvolu("I116", "BOX ", idtmed[264], dits, 3);
1690
1691 di106[0] = 0.7975;
1692 di106[1] = dchip1;
1693 di106[2] = 0.68;
1694 gMC->Gsvolu("I106", "BOX ", idtmed[201], di106, 3); // chip layer 1
1695
1696 di1d6[0] = 0.7975;
1697 di1d6[1] = dchip2;
1698 di1d6[2] = 0.68;
1699 gMC->Gsvolu("I1D6", "BOX ", idtmed[201], di1d6, 3); // chip layer 2
1700
1701 di101[0] = 0.705;
1702 di101[1] = ddet1;
1703 di101[2] = 3.536;
1704 gMC->Gsvolu("I101", "BOX ", idtmed[250], di101, 3); // contains detector
1705 // layer 1
1706 di1d1[0] = 0.705;
1707 di1d1[1] = ddet2;
1708 di1d1[2] = 3.536;
1709 gMC->Gsvolu("I1D1", "BOX ", idtmed[250], di1d1, 3); // contains detector
1710 // layer 2
e4f08ac3 1711
1712 if (fluid == 1) {
1713 dits[0] = 0.063;
1714 dits[1] = 0.025;
1715 dits[2] = 24;
1716 gMC->Gsvolu("I117", "BOX ", idtmed[211], dits, 3); // set water as cooling fluid
1717 } else {
1718 dits[0] = 0.063;
1719 dits[1] = 0.025;
1720 dits[2] = 24;
1721 gMC->Gsvolu("I117", "BOX ", idtmed[212], dits, 3); // set freon as cooling fluid
1722 }
9d2da7b3 1723
1724 dits1[0] = 0.64;
1725 dits1[1] = ddet1;
1726 dits1[2] = 3.48;
1727 gMC->Gsvolu("ITS1", "BOX ", idtmed[200], dits1, 3); // detector layer 1
1728
1729 dits2[0] = 0.64;
1730 dits2[1] = ddet2;
1731 dits2[2] = 3.48;
1732 gMC->Gsvolu("ITS2", "BOX ", idtmed[200], dits2, 3); // detector layer 2
1733
1734 dits[0] = 3.701;
1735 dits[1] = 7.699;
1736 dits[2] = 4;
1737 dits[3] = 57.1;
1738 dits[4] = 99.9;
1739 gMC->Gsvolu("I650", "TUBS", idtmed[254], dits, 5); // was I150 in old geom.
1740
1741 dits[0] = 0;
1742 dits[1] = 0.5;
1743 dits[2] = 1.5;
1744 gMC->Gsvolu("I676", "TUBE", idtmed[274], dits, 3); // was I176 in old geom.
1745
1746 dits[0] = 0;
1747 dits[1] = 0.18;
1748 dits[2] = 0.8;
1749 gMC->Gsvolu("I673", "TUBE", idtmed[274], dits, 3); // was I173 in old geom.
1750
1751 dits[0] = 0;
1752 dits[1] = 0.18;
1753 dits[2] = 3;
1754 gMC->Gsvolu("I671", "TUBE", idtmed[274], dits, 3); // was I171 in old geom.
1755
1756 dits[0] = 0;
1757 dits[1] = 0.075;
1758 dits[2] = 0.8;
1759 gMC->Gsvolu("I669", "TUBE", idtmed[264], dits, 3); // was I169 in old geom.
1760
1761 dits[0] = 3.5;
1762 dits[1] = 5.6;
1763 dits[2] = 0.55;
1764 dits[3] = 0;
1765 dits[4] = 38;
1766 gMC->Gsvolu("I667", "TUBS", idtmed[263], dits, 5); // was I167 in old geom.
1767
1768 dits[0] = 6.6;
1769 dits[1] = 7.6;
1770 dits[2] = 0.5;
1771 dits[3] = 0;
1772 dits[4] = 9;
1773 gMC->Gsvolu("I666", "TUBS", idtmed[263], dits, 5); // was I166 in old geom.
1774
1775 dits[0] = 0.26;
1776 dits[1] = 0.32;
1777 dits[2] = 0.55;
1778 gMC->Gsvolu("I678", "TUBE", idtmed[263], dits, 3); // was I178 in old geom.
1779
e4f08ac3 1780 if (fluid == 1) {
1781 dits[0] = 0;
1782 dits[1] = 0.3;
1783 dits[2] = 1.5;
1784 gMC->Gsvolu("I677", "TUBE", idtmed[211], dits, 3); //set water as cooling fluid
1785 // was I177 in old geom.
1786 } else {
1787 dits[0] = 0;
1788 dits[1] = 0.3;
1789 dits[2] = 1.5;
1790 gMC->Gsvolu("I677", "TUBE", idtmed[212], dits, 3); //set freon as cooling fluid
1791 // was I177 in old geom.
1792 }
9d2da7b3 1793
1794 dits[0] = 0.07;
1795 dits[1] = 0.125;
1796 dits[2] = 0.3;
1797 gMC->Gsvolu("I675", "TUBE", idtmed[263], dits, 3); // was I175 in old geom.
1798
e4f08ac3 1799 if (fluid == 1) {
1800 dits[0] = 0;
1801 dits[1] = 0.1;
1802 dits[2] = 0.8;
1803 gMC->Gsvolu("I674", "TUBE", idtmed[211], dits, 3); //set water as cooling fluid
1804 // was I174 in old geom.
1805 } else {
1806 dits[0] = 0;
1807 dits[1] = 0.1;
1808 dits[2] = 0.8;
1809 gMC->Gsvolu("I674", "TUBE", idtmed[212], dits, 3); //set freon as cooling fluid
1810 // was I174 in old geom.
1811 }
1812
1813 if (fluid == 1) {
1814 dits[0] = 0;
1815 dits[1] = 0.1;
1816 dits[2] = 3;
1817 gMC->Gsvolu("I672", "TUBE", idtmed[211], dits, 3); //set water as cooling fluid
1818 // was I172 in old geom.
1819 } else {
1820 dits[0] = 0;
1821 dits[1] = 0.1;
1822 dits[2] = 3;
1823 gMC->Gsvolu("I672", "TUBE", idtmed[212], dits, 3); //set freon as cooling fluid
1824 // was I172 in old geom.
1825 }
1826
1827 if (fluid == 1) {
1828 dits[0] = 0;
1829 dits[1] = 0.0746;
1830 dits[2] = 0.8;
1831 gMC->Gsvolu("I670", "TUBE", idtmed[211], dits, 3); //set water as cooling fluid
1832 // was I170 in old geom.
1833 } else {
1834 dits[0] = 0;
1835 dits[1] = 0.0746;
1836 dits[2] = 0.8;
1837 gMC->Gsvolu("I670", "TUBE", idtmed[212], dits, 3); //set freon as cooling fluid
1838 // was I170 in old geom.
1839 }
1840
1841 if (fluid == 1) {
1842 dits[0] = 3.7;
1843 dits[1] = 5.4;
1844 dits[2] = 0.35;
1845 dits[3] = 2;
1846 dits[4] = 36;
1847 gMC->Gsvolu("I668", "TUBS", idtmed[211], dits, 5); //set water as cooling fluid
1848 // was I168 in old geom.
1849 } else {
1850 dits[0] = 3.7;
1851 dits[1] = 5.4;
1852 dits[2] = 0.35;
1853 dits[3] = 2;
1854 dits[4] = 36;
1855 gMC->Gsvolu("I668", "TUBS", idtmed[212], dits, 5); //set freon as cooling fluid
1856 // was I168 in old geom.
1857 }
1858
db915fea 1859
9d2da7b3 1860 }
db915fea 1861
1862 // --- Define SDD volumes ------------------------------------------
1863
9d2da7b3 1864
1865 cos30 = cos(30.*3.14159/180.);
1866 sin30 = sin(30.*3.14159/180.);
1867
1868
db915fea 1869 dits[0] = 0;
1870 dits[1] = 360;
1871 dits[2] = 6;
e4f08ac3 1872 dits[3] = -34.6;
1873 dits[4] = 23.49;
1874 dits[5] = 28;
1875 dits[6] = -23.65;
1876 dits[7] = 23.49;
1877 dits[8] = 28;
1878 dits[9] = -23.65;
1879 dits[10] = 14.59;
1880 dits[11] = 28;
1881 dits[12] = 23.65;
1882 dits[13] = 14.59;
1883 dits[14] = 28;
1884 dits[15] = 23.65;
1885 dits[16] = 23.49;
1886 dits[17] = 28;
1887 dits[18] = 34.6;
1888 dits[19] = 23.49;
1889 dits[20] = 28;
9d2da7b3 1890 gMC->Gsvolu("IT34", "PCON", idtmed[209], dits, 21);
1891
1892 // block of the SDD electronics and related ladder frame
1893 I018dits[0] = 3.2;
1894 I018dits[1] = 2;
1895 I018dits[2] = 3.65;
1896 gMC->Gsvolu("I018", "BOX ", idtmed[209], I018dits, 3);
1897
1898 // block of the SDD end ladder
1899 I024dits[0] = 3.2;
1900 I024dits[1] = 2;
1901 I024dits[2] = 2.725;
1902 gMC->Gsvolu("I024", "BOX ", idtmed[209], I024dits, 3);
1903
1904 // ladder frame of layer 3 - F.T. March,7-2001
1905 I047dits[0] = I018dits[0];
1906 I047dits[1] = I018dits[1];
1907 I047dits[2] = 6*I018dits[2] + 2*I024dits[2];
1908 gMC->Gsvolu("I047", "BOX ", idtmed[209], I047dits, 3);
1909
1910 // ladder frame of layer 4 - F.T. March,7-2001
1911 I048dits[0] = I018dits[0];
1912 I048dits[1] = I018dits[1];
1913 I048dits[2] = 8*I018dits[2] + 2*I024dits[2];
1914 gMC->Gsvolu("I048", "BOX ", idtmed[209], I048dits, 3);
1915
1916
1917 // global SDD volume (sensitive + insensitive)
1918 I302dits[0] = 3.6250;
1919 I302dits[1] = 0.0150;
1920 I302dits[2] = 4.3794;
1921 gMC->Gsvolu("I302", "BOX ", idtmed[278], I302dits, 3);
1922
1923 // Like for I302 - F.T. March,7-2001
1924 I402dits[0] = 3.6250;
1925 I402dits[1] = 0.0150;
1926 I402dits[2] = 4.3794;
1927 gMC->Gsvolu("I402", "BOX ", idtmed[278], I402dits, 3);
1928
1929 // SDD ladder of layer 3 - F.T. March,7-2001
1930 I004dits[0] = I302dits[0]+0.005;
1931 I004dits[1] = 2*I302dits[1]+Y_SDD_sep/2.;
767187dd 1932 I004dits[2] = TMath::Abs(Z_SDD_lay3[0]);
1933 if (I004dits[2] < TMath::Abs(Z_SDD_lay3[5])) {
1934 I004dits[2] = TMath::Abs(Z_SDD_lay3[5]);
9d2da7b3 1935 }
1936 I004dits[2] = I004dits[2] + I302dits[2];
1937 gMC->Gsvolu("I004", "BOX ", idtmed[209], I004dits, 3);
1938
1939 // SDD ladder of layer 4 - F.T. March,7-2001
1940 I005dits[0] = I402dits[0]+0.005;
1941 I005dits[1] = 2*I402dits[1]+Y_SDD_sep/2.;
767187dd 1942 I005dits[2] = TMath::Abs(Z_SDD_lay4[0]);
1943 if (I005dits[2] < TMath::Abs(Z_SDD_lay4[7])) {
1944 I005dits[2] = TMath::Abs(Z_SDD_lay4[7]);
9d2da7b3 1945 }
1946 I005dits[2] = I005dits[2] + I402dits[2];
1947 gMC->Gsvolu("I005", "BOX ", idtmed[209], I005dits, 3);
1948
1949
1950 // -- block of the SDD ladder foot and end ladder
1951
1952 // ladder foot mother volume
1953 I028dits[0] = 3.0000;
1954 I028dits[1] = 0.4000;
1955 I028dits[2] = 0.9000;
1956 gMC->Gsvolu("I028", "BOX ", idtmed[224], I028dits, 3);
1957
1958 // positioning-box #1 at SDD end-ladder - F.T. March,7-2001
1959 I420dits[0] = 0.4500;
1960 I420dits[1] = 0.4000;
1961 I420dits[2] = 0.4500;
1962 gMC->Gsvolu("I420", "BOX ", idtmed[264], I420dits, 3);
1963
1964 // positioning-box #2 at SDD end-ladder - F.T. March,7-2001
e4f08ac3 1965 I421dits[0] = 0.;
1966 I421dits[1] = 0.25;
1967 I421dits[2] = I420dits[1];
1968 gMC->Gsvolu("I421", "TUBE", idtmed[209], I421dits, 3);
9d2da7b3 1969
1970 // reference ruby-sphere at SDD end-ladder - F.T. March,7-2001
1971 I422dits[0] = 0.0000;
1972 I422dits[1] = 0.2000;
1973 I422dits[2] = 0.0000;
1974 I422dits[3] = 180.00;
1975 I422dits[4] = 0.0000;
1976 I422dits[5] = 360.00;
1977 gMC->Gsvolu("I422", "SPHE", idtmed[277], I422dits, 6);
1978
1979 // support for ruby-sphere (I422) - F.T. March,7-2001
1980 I423dits[0] = 0.0000;
1981 I423dits[1] = 0.1000;
e4f08ac3 1982 I423dits[2] = (I420dits[1]-I422dits[1])/2.;
9d2da7b3 1983 gMC->Gsvolu("I423", "TUBE", idtmed[264], I423dits, 3);
1984
1985 // passage for HV microcables - F.T. March,7-2001
1986 I424dits[0] = 1.5000;
1987 I424dits[1] = 0.1500;
1988 I424dits[2] = I421dits[2];
1989 gMC->Gsvolu("I424", "BOX ", idtmed[209], I424dits, 3);
1990
1991 // HV microcables segment at the end ladder - F.T. March,7-2001
1992 I425dits[0] = 1.350000;
1993 I425dits[1] = 0.015250;
1994 I425dits[2] = I024dits[2];
1995 gMC->Gsvolu("I425", "BOX ", idtmed[279], I425dits, 3);
1996
1997 // lower edge of SDD ladder frame at end-ladder - part 1
db915fea 1998 dits[0] = 0.2;
1999 dits[1] = 0.1815;
9d2da7b3 2000 dits[2] = I024dits[2];
db915fea 2001 dits[3] = 0.015;
9d2da7b3 2002 gMC->Gsvolu("I025", "TRD1", idtmed[208], dits, 4);
db915fea 2003
9d2da7b3 2004 // lower edge of SDD ladder frame at end-ladder - part 2
db915fea 2005 dits[0] = 0.183;
2006 dits[1] = 0.165;
9d2da7b3 2007 dits[2] = I024dits[2];
2008 dits[3] = 0.015;
2009 gMC->Gsvolu("I026", "TRD1", idtmed[208], dits, 4);
2010
2011 // new: for the 1st top rod of the structure
2012 // at the end-ladder - F.T. March,7-2001
2013 I029dits[0] = 0.2;
2014 I029dits[1] = 0.1815;
2015 I029dits[2] = 1.0100;
2016 I029dits[3] = 0.015;
2017 gMC->Gsvolu("I029", "TRD1", idtmed[208], I029dits, 4);
2018
2019 // new: for the 2nd top rod of the structure
2020 // at the end-ladder - F.T. March,7-2001
2021 I030dits[0] = 0.1830;
2022 I030dits[1] = 0.1650;
2023 I030dits[2] = 1.0100;
2024 I030dits[3] = 0.0150;
2025 gMC->Gsvolu("I030", "TRD1", idtmed[208], I030dits, 4);
2026
2027 // inox cooling tubes for the end ladder - F.T. March,7-2001
2028 I031dits[0] = 0.093;
2029 I031dits[1] = 0.1;
2030 I031dits[2] = I024dits[2];
2031 gMC->Gsvolu("I031", "TUBE", idtmed[264], I031dits, 3);
2032
e4f08ac3 2033 if (fluid == 1) {
2034 // cooling water for the end ladder - F.T. March,7-2001
2035 I032dits[0] = 0;
2036 I032dits[1] = I031dits[0];
2037 I032dits[2] = I024dits[2];
2038 gMC->Gsvolu("I032", "TUBE", idtmed[211], I032dits, 3);
2039 } else {
2040 // cooling freon for the end ladder - R.B. March,21-2001
2041 I032dits[0] = 0;
2042 I032dits[1] = I031dits[0];
2043 I032dits[2] = I024dits[2];
2044 gMC->Gsvolu("I032", "TUBE", idtmed[212], I032dits, 3);
2045 }
2046
9d2da7b3 2047 // -- block of the SDD ladder frame holding the electronics
2048
2049 // edge of the ladder frame - part 1
2050 dits[0] = 0.2;
2051 dits[1] = 0.182;
2052 dits[2] = 3.65;
db915fea 2053 dits[3] = 0.015;
9d2da7b3 2054 gMC->Gsvolu("I019", "TRD1", idtmed[208], dits, 4);
db915fea 2055
9d2da7b3 2056 // edge of the ladder frame - part 2
2057 dits[0] = 0.183;
2058 dits[1] = 0.165;
2059 dits[2] = 3.65;
2060 dits[3] = 0.015;
2061 gMC->Gsvolu("I020", "TRD1", idtmed[208], dits, 4);
2062
2063 // inclined segments of the ladder frame
db915fea 2064 dits[0] = 2.23;
2065 dits[1] = 2.1;
2066 dits[2] = 0.05;
2067 dits[3] = 0.03;
9d2da7b3 2068 gMC->Gsvolu("I021", "TRD1", idtmed[208], dits, 4);
db915fea 2069
9d2da7b3 2070 // horiz.segments of the ladders, normal to ladder edges
db915fea 2071 dits[0] = 2.1;
2072 dits[1] = 2;
2073 dits[2] = 0.06;
2074 dits[3] = 0.04;
9d2da7b3 2075 gMC->Gsvolu("I022", "TRD1", idtmed[208], dits, 4);
db915fea 2076
9d2da7b3 2077 // horiz.segments of the ladders, at 45 deg. to ladder edges
2078 dits[0] = 2.615;
2079 dits[1] = 2.465;
2080 dits[2] = 0.06;
2081 dits[3] = 0.04;
2082 gMC->Gsvolu("I023", "TRD1", idtmed[208], dits, 4);
db915fea 2083
9d2da7b3 2084 // supports of the ceramic pins holding the detectors
db915fea 2085 dits[0] = 0.3;
2086 dits[1] = 0.05;
2087 dits[2] = 0.15;
9d2da7b3 2088 gMC->Gsvolu("I033", "BOX ", idtmed[208], dits, 3);
db915fea 2089
9d2da7b3 2090 // ceramic pins holding the detectors
db915fea 2091 dits[0] = 0;
2092 dits[1] = 0.05;
2093 dits[2] = 0.225;
9d2da7b3 2094 gMC->Gsvolu("I034", "TUBE", idtmed[277], dits, 3);
db915fea 2095
9d2da7b3 2096 // holders of cooling tubes
2097 I035dits[0] = 0.1;
2098 I035dits[1] = 0.15;
2099 I035dits[2] = 0.2;
2100 gMC->Gsvolu("I035", "TUBE", idtmed[208], I035dits, 3);
db915fea 2101
9d2da7b3 2102 // top holders of microcables
2103 dits[0] = 0.2;
db915fea 2104 dits[1] = 0.01;
9d2da7b3 2105 dits[2] = 0.05;
2106 gMC->Gsvolu("I036", "BOX ", idtmed[208], dits, 3);
db915fea 2107
9d2da7b3 2108 // inox cooling tubes - F.T. March,7-2001
2109 I037dits[0] = 0.093;
2110 I037dits[1] = 0.1;
2111 I037dits[2] = I018dits[2];
2112 gMC->Gsvolu("I037", "TUBE", idtmed[264], I037dits, 3);
db915fea 2113
e4f08ac3 2114 if (fluid == 1) {
2115 // cooling water - F.T. March,7-2001
2116 I038dits[0] = 0;
2117 I038dits[1] = I037dits[0];
2118 I038dits[2] = I018dits[2];
2119 gMC->Gsvolu("I038", "TUBE", idtmed[211], I038dits, 3);
2120 } else {
2121 // cooling freon - R.B. March,21-2001
2122 I038dits[0] = 0;
2123 I038dits[1] = I037dits[0];
2124 I038dits[2] = I018dits[2];
2125 gMC->Gsvolu("I038", "TUBE", idtmed[212], I038dits, 3);
2126 }
9d2da7b3 2127 // -- block of the SDD electronics (heat bridge, chips, hybrid, anode microcable)
db915fea 2128
9d2da7b3 2129 // SDD heat bridge - F.T. March,7-2001
2130 I039dits[0] = 1.1000;
2131 I039dits[1] = 0.0087;
2132 I039dits[2] = 3.2500;
2133 gMC->Gsvolu("I039", "BOX ", idtmed[268], I039dits, 3);
db915fea 2134
9d2da7b3 2135 // SDD clip part 1
2136 dits[0] = 0.25;
2137 dits[1] = 0.01;
2138 dits[2] = I039dits[2];
2139 gMC->Gsvolu("I040", "BOX ", idtmed[268], dits, 3);
2140
2141 // SDD clip part 2
2142 I041dits[0] = 0.1;
2143 I041dits[1] = 0.12;
2144 I041dits[2] = I039dits[2];
2145 I041dits[3] = 90;
2146 I041dits[4] = 320;
2147 gMC->Gsvolu("I041", "TUBS", idtmed[268], I041dits, 5);
2148
2149
2150 // SDD PASCAL - F.T. March,7-2001
2151 I042dits[0] = 0.5000;
2152 I042dits[1] = 0.0175;
2153 I042dits[2] = 0.5000;
2154 gMC->Gsvolu("I042", "BOX ", idtmed[206], I042dits, 3);
2155
2156 // SDD AMBRA - F.T. March,7-2001
2157 I043dits[0] = 0.3500;
2158 I043dits[1] = 0.0175;
2159 I043dits[2] = 0.5000;
2160 gMC->Gsvolu("I043", "BOX ", idtmed[206], I043dits, 3);
2161
2162 // SDD capacitors - F.T. March,7-2001
2163 I051dits[0] = 0.1400;
2164 I051dits[1] = 0.0350;
2165 I051dits[2] = 0.0625;
2166 gMC->Gsvolu("I051", "BOX ", idtmed[276], I051dits, 3);
2167
2168 // SDD hybrid circuit - F.T. March,7-2001
2169 I052dits[0] = 1.725000;
2170 I052dits[1] = 0.003743;
2171 I052dits[2] = I039dits[2];
e4f08ac3 2172 gMC->Gsvolu("I052", "BOX ", idtmed[281], I052dits, 3);
9d2da7b3 2173
2174 // SDD anode microcable : changed - F.T. March,7-2001
2175 I044dits[0] = I018dits[2];
2176 I044dits[1] = I039dits[2];
2177 I044dits[2] = 0.00084;
2178 I044dits[3] = (15.189149/(I044dits[0]+I044dits[1]))/2;
2179 gMC->Gsvolu("I044", "TRD1", idtmed[282], I044dits, 4);
2180 volI044 = ((2*I044dits[0] + 2*I044dits[1]) * 2*I044dits[2])/2 * 2*I044dits[3];
2181
2182 // SDD electronics box - F.T. March,7-2001
2183 I050dits[1] = I039dits[1]+I052dits[1]+I051dits[1]+I044dits[2];
2184 I050dits[0] = I018dits[1]/cos(30.*3.14159/180.)-I050dits[1]*sin(30.*3.14159/180.);
2185 I050dits[2] = I018dits[2];
2186 gMC->Gsvolu("I050", "BOX ", idtmed[209], I050dits, 3);
2187
2188 // SDD sensitive volume
2189 dits[0] = 3.50850;
2190 dits[1] = 0.01499; // not 0.015 because it is included into I302 which is 0.015
2191 dits[2] = 3.76320;
db915fea 2192 gMC->Gsvolu("ITS3", "BOX ", idtmed[200], dits, 3);
2193
9d2da7b3 2194 // Like for ITS3 - F.T. March,7-2001
2195 dits[0] = 3.50850;
2196 dits[1] = 0.01499; // not 0.015 because it is included into I402 which is 0.015
2197 dits[2] = 3.76320;
db915fea 2198 gMC->Gsvolu("ITS4", "BOX ", idtmed[200], dits, 3);
2199
2200
2201 // --- Define SSD volumes ------------------------------------------
2202
2203
2204 dits[0] = 0;
2205 dits[1] = 360;
2206 dits[2] = 6;
e4f08ac3 2207 dits[3] = -57.45;
2208 dits[4] = 43.6;
db915fea 2209 dits[5] = 48;
e4f08ac3 2210 dits[6] = -49.15;
2211 dits[7] = 43.6;
db915fea 2212 dits[8] = 48;
e4f08ac3 2213 dits[9] = -49.15;
2214 dits[10] = 36.9;
db915fea 2215 dits[11] = 48;
e4f08ac3 2216 dits[12] = 50.55;
2217 dits[13] = 36.9;
db915fea 2218 dits[14] = 48;
e4f08ac3 2219 dits[15] = 50.55;
2220 dits[16] = 43.6;
db915fea 2221 dits[17] = 48;
e4f08ac3 2222 dits[18] = 57.45;
2223 dits[19] = 43.6;
db915fea 2224 dits[20] = 48;
9d2da7b3 2225 gMC->Gsvolu("IT56", "PCON", idtmed[220], dits, 21);
db915fea 2226
2227 dits[0] = 3.4;
2228 dits[1] = 1.955;
9d2da7b3 2229 dits[2] = 56.5;
2230 gMC->Gsvolu("I570", "BOX ", idtmed[204], dits, 3);
db915fea 2231
2232 dits[0] = 3.75;
2233 dits[1] = 0.045;
2234 dits[2] = 50.975;
9d2da7b3 2235 gMC->Gsvolu("I569", "BOX ", idtmed[204], dits, 3);
db915fea 2236
2237 dits[0] = 3.4;
2238 dits[1] = 1.955;
9d2da7b3 2239 dits[2] = 47;
2240 gMC->Gsvolu("I571", "BOX ", idtmed[204], dits, 3);
db915fea 2241
2242 dits[0] = 3.75;
2243 dits[1] = 0.045;
9d2da7b3 2244 dits[2] = 43.3;
2245 gMC->Gsvolu("I565", "BOX ", idtmed[204], dits, 3);
db915fea 2246
2247 dits[0] = 3.4;
2248 dits[1] = 1.955;
2249 dits[2] = 3.15;
9d2da7b3 2250 gMC->Gsvolu("I553", "BOX ", idtmed[204], dits, 3);
db915fea 2251
2252 dits[0] = 3.405;
2253 dits[1] = 1.955;
2254 dits[2] = 1.955;
9d2da7b3 2255 gMC->Gsvolu("I523", "BOX ", idtmed[204], dits, 3);
db915fea 2256
2257 dits[0] = 3.75;
2258 dits[1] = 0.015;
2259 dits[2] = 2.1;
9d2da7b3 2260 gMC->Gsvolu("I566", "BOX ", idtmed[206], dits, 3);
db915fea 2261
2262 dits[0] = 3.4;
2263 dits[1] = 1.955;
2264 dits[2] = 3.15;
9d2da7b3 2265 gMC->Gsvolu("I544", "BOX ", idtmed[204], dits, 3);
db915fea 2266
2267 dits[0] = 3.41;
2268 dits[1] = 1.955;
2269 dits[2] = 1.955;
9d2da7b3 2270 gMC->Gsvolu("I516", "BOX ", idtmed[204], dits, 3);
db915fea 2271
2272 dits[0] = 3.75;
2273 dits[1] = 0.015;
2274 dits[2] = 2.1;
9d2da7b3 2275 gMC->Gsvolu("I562", "BOX ", idtmed[206], dits, 3);
db915fea 2276
e4f08ac3 2277 if (fluid == 1) {
2278 dits[0] = 0;
2279 dits[1] = 0.07;
2280 dits[2] = 3.15;
2281 gMC->Gsvolu("I559", "TUBE", idtmed[211], dits, 3); // set water as cooling fluid
2282 } else {
2283 dits[0] = 0;
2284 dits[1] = 0.07;
2285 dits[2] = 3.15;
2286 gMC->Gsvolu("I559", "TUBE", idtmed[212], dits, 3); // set freon as cooling fluid
2287 }
db915fea 2288
2289 dits[0] = 0.07;
2290 dits[1] = 0.1;
2291 dits[2] = 3.15;
9d2da7b3 2292 gMC->Gsvolu("I560", "TUBE", idtmed[210], dits, 3);
db915fea 2293
2294 dits[0] = 0.225;
2295 dits[1] = 0.195;
2296 dits[2] = 3.15;
2297 dits[3] = 0.025;
9d2da7b3 2298 gMC->Gsvolu("I558", "TRD1", idtmed[203], dits, 4);
db915fea 2299
2300 dits[0] = 0.25;
2301 dits[1] = 0.22;
2302 dits[2] = 3.15;
2303 dits[3] = 0.025;
9d2da7b3 2304 gMC->Gsvolu("I557", "TRD1", idtmed[203], dits, 4);
db915fea 2305
2306 dits[0] = 2.17;
2307 dits[1] = 0.035;
2308 dits[2] = 0.05;
9d2da7b3 2309 gMC->Gsvolu("I556", "BOX ", idtmed[203], dits, 3);
db915fea 2310
2311 dits[0] = 2 ;
2312 dits[1] = 0.035;
2313 dits[2] = 0.05;
9d2da7b3 2314 gMC->Gsvolu("I554", "BOX ", idtmed[203], dits, 3);
db915fea 2315
2316 dits[0] = 2.675;
2317 dits[1] = 0.035;
2318 dits[2] = 0.05;
9d2da7b3 2319 gMC->Gsvolu("I555", "BOX ", idtmed[203], dits, 3);
db915fea 2320
2321 dits[0] = 0.3;
2322 dits[1] = 0.15;
2323 dits[2] = 0.15;
9d2da7b3 2324 gMC->Gsvolu("I561", "BOX ", idtmed[203], dits, 3);
db915fea 2325
2326 dits[0] = 0.025;
2327 dits[1] = 0.025;
2328 dits[2] = 0.05;
9d2da7b3 2329 gMC->Gsvolu("I519", "BOX ", idtmed[214], dits, 3);
db915fea 2330
2331 dits[0] = 0.304;
2332 dits[1] = 0.0275;
2333 dits[2] = 0.432;
9d2da7b3 2334 gMC->Gsvolu("I521", "BOX ", idtmed[206], dits, 3);
db915fea 2335
2336 dits[0] = 0.16;
2337 dits[1] = 0.08;
2338 dits[2] = 0.08;
9d2da7b3 2339 gMC->Gsvolu("I520", "BOX ", idtmed[214], dits, 3);
db915fea 2340
2341 dits[0] = 3.4;
2342 dits[1] = 0.015;
2343 dits[2] = 0.525;
9d2da7b3 2344 gMC->Gsvolu("I518", "BOX ", idtmed[203], dits, 3);
db915fea 2345
2346 dits[0] = 0.15;
2347 dits[1] = 0.105;
2348 dits[2] = 0.29;
2349 dits[3] = 0.08;
9d2da7b3 2350 gMC->Gsvolu("I522", "TRD1", idtmed[203], dits, 4);
db915fea 2351
2352 dits[0] = 0.07;
2353 dits[1] = 0.1;
2354 dits[2] = 1.955;
9d2da7b3 2355 gMC->Gsvolu("I542", "TUBE", idtmed[210], dits, 3);
db915fea 2356
e4f08ac3 2357 if (fluid == 1) {
2358 dits[0] = 0;
2359 dits[1] = 0.07;
2360 dits[2] = 1.955;
2361 gMC->Gsvolu("I541", "TUBE", idtmed[211], dits, 3); // set water as cooling fluid
2362 } else {
2363 dits[0] = 0;
2364 dits[1] = 0.07;
2365 dits[2] = 1.955;
2366 gMC->Gsvolu("I541", "TUBE", idtmed[212], dits, 3); // set freon as cooling fluid
2367 }
db915fea 2368
2369 dits[0] = 0.3;
2370 dits[1] = 0.15;
2371 dits[2] = 0.15;
9d2da7b3 2372 gMC->Gsvolu("I543", "BOX ", idtmed[203], dits, 3);
db915fea 2373
2374 dits[0] = 0.25;
2375 dits[1] = 0.22;
2376 dits[2] = 1.955;
2377 dits[3] = 0.025;
9d2da7b3 2378 gMC->Gsvolu("I537", "TRD1", idtmed[203], dits, 4);
db915fea 2379
2380 dits[0] = 0.225;
2381 dits[1] = 0.195;
2382 dits[2] = 1.955;
2383 dits[4] = 0.025;
9d2da7b3 2384 gMC->Gsvolu("I538", "TRD1", idtmed[203], dits, 4);
db915fea 2385
2386 dits[0] = 2.17;
2387 dits[1] = 0.035;
2388 dits[2] = 0.05;
9d2da7b3 2389 gMC->Gsvolu("I536", "BOX ", idtmed[203], dits, 3);
db915fea 2390
2391 dits[0] = 2.675;
2392 dits[1] = 0.035;
2393 dits[2] = 0.05;
9d2da7b3 2394 gMC->Gsvolu("I535", "BOX ", idtmed[203], dits, 3);
db915fea 2395
2396 dits[0] = 2;
2397 dits[1] = 0.035;
2398 dits[2] = 0.05;
9d2da7b3 2399 gMC->Gsvolu("I534", "BOX ", idtmed[203], dits, 3);
db915fea 2400
2401 dits[0] = 0;
2402 dits[1] = 0.05;
2403 dits[2] = 0.17;
9d2da7b3 2404 gMC->Gsvolu("I540", "TUBE", idtmed[203], dits, 3);
db915fea 2405
2406 dits[0] = 0;
2407 dits[1] = 0.05;
2408 dits[2] = 0.205;
9d2da7b3 2409 gMC->Gsvolu("I539", "TUBE", idtmed[203], dits, 3);
db915fea 2410
2411 dits[0] = 3.65;
2412 dits[1] = 0.015;
2413 dits[2] = 2;
2414 gMC->Gsvolu("ITS6", "BOX ", idtmed[200], dits, 3);
2415
e4f08ac3 2416 if (fluid == 1) {
2417 dits[0] = 0;
2418 dits[1] = 0.07;
2419 dits[2] = 3.15;
2420 gMC->Gsvolu("I550", "TUBE", idtmed[211], dits, 3); // set water as cooling fluid
2421 } else {
2422 dits[0] = 0;
2423 dits[1] = 0.07;
2424 dits[2] = 3.15;
2425 gMC->Gsvolu("I550", "TUBE", idtmed[212], dits, 3); // set freon as cooling fluid
2426 }
db915fea 2427
2428 dits[0] = 0.07;
2429 dits[1] = 0.1;
2430 dits[2] = 3.15;
9d2da7b3 2431 gMC->Gsvolu("I551", "TUBE", idtmed[210], dits, 3);
db915fea 2432
2433 dits[0] = 0.225;
2434 dits[1] = 0.195;
2435 dits[2] = 3.15;
2436 dits[3] = 0.025;
9d2da7b3 2437 gMC->Gsvolu("I549", "TRD1", idtmed[203], dits, 4);
db915fea 2438
2439 dits[0] = 0.25;
2440 dits[1] = 0.22;
2441 dits[2] = 3.15;
2442 dits[3] = 0.025;
9d2da7b3 2443 gMC->Gsvolu("I548", "TRD1", idtmed[203], dits, 4);
db915fea 2444
2445 dits[0] = 2.17;
2446 dits[1] = 0.035;
2447 dits[2] = 0.05;
9d2da7b3 2448 gMC->Gsvolu("I547", "BOX ", idtmed[203], dits, 3);
db915fea 2449
2450 dits[0] = 2;
2451 dits[1] = 0.035;
2452 dits[2] = 0.05;
9d2da7b3 2453 gMC->Gsvolu("I545", "BOX ", idtmed[203], dits, 3);
db915fea 2454
2455 dits[0] = 2.675;
2456 dits[1] = 0.035;
2457 dits[2] = 0.05;
9d2da7b3 2458 gMC->Gsvolu("I546", "BOX ", idtmed[203], dits, 3);
db915fea 2459
2460 dits[0] = 0.3;
2461 dits[1] = 0.15;
2462 dits[2] = 0.15;
9d2da7b3 2463 gMC->Gsvolu("I552", "BOX ", idtmed[203], dits, 3);
db915fea 2464
2465 dits[0] = 0.304;
2466 dits[1] = 0.0275;
2467 dits[2] = 0.4322;
9d2da7b3 2468 gMC->Gsvolu("I515", "BOX ", idtmed[206], dits, 3);
db915fea 2469
2470 dits[0] = 0.025;
2471 dits[1] = 0.025;
2472 dits[2] = 0.05;
9d2da7b3 2473 gMC->Gsvolu("I513", "BOX ", idtmed[214], dits, 3);
db915fea 2474
2475 dits[0] = 0.16;
2476 dits[1] = 0.08;
2477 dits[2] = 0.08;
9d2da7b3 2478 gMC->Gsvolu("I514", "BOX ", idtmed[214], dits, 3);
db915fea 2479
2480 dits[0] = 3.4;
2481 dits[1] = 0.015;
2482 dits[2] = 0.525;
9d2da7b3 2483 gMC->Gsvolu("I512", "BOX ", idtmed[203], dits, 3);
db915fea 2484
2485 dits[0] = 0.225;
2486 dits[1] = 0.195;
2487 dits[2] = 1.955;
2488 dits[3] = 0.025;
9d2da7b3 2489 gMC->Gsvolu("I528", "TRD1", idtmed[203], dits, 4);
db915fea 2490
2491 dits[0] = 0.25;
2492 dits[1] = 0.22;
2493 dits[2] = 1.955;
2494 dits[3] = 0.025;
9d2da7b3 2495 gMC->Gsvolu("I527", "TRD1", idtmed[203], dits, 4);
db915fea 2496
2497 dits[0] = 2.17;
2498 dits[1] = 0.035;
2499 dits[2] = 0.05;
9d2da7b3 2500 gMC->Gsvolu("I526", "BOX ", idtmed[203], dits, 3);
db915fea 2501
2502 dits[0] = 2.675;
2503 dits[1] = 0.035;
2504 dits[2] = 0.05;
9d2da7b3 2505 gMC->Gsvolu("I525", "BOX ", idtmed[203], dits, 3);
db915fea 2506
2507 dits[0] = 2;
2508 dits[1] = 0.035;
2509 dits[2] = 0.05;
9d2da7b3 2510 gMC->Gsvolu("I524", "BOX ", idtmed[203], dits, 3);
db915fea 2511
2512 dits[0] = 0;
2513 dits[1] = 0.05;
2514 dits[2] = 0.205;
9d2da7b3 2515 gMC->Gsvolu("I529", "TUBE", idtmed[203], dits, 3);
db915fea 2516
2517 dits[0] = 0;
2518 dits[1] = 0.05;
2519 dits[2] = 0.17;
9d2da7b3 2520 gMC->Gsvolu("I530", "TUBE", idtmed[203], dits, 3);
db915fea 2521
2522 dits[0] = 0.15;
2523 dits[1] = 0.105;
2524 dits[2] = 0.29;
2525 dits[3] = 0.08;
9d2da7b3 2526 gMC->Gsvolu("I517", "TRD1", idtmed[203], dits, 4);
db915fea 2527
e4f08ac3 2528 if (fluid == 1) {
2529 dits[0] = 0;
2530 dits[1] = 0.07;
2531 dits[2] = 1.955;
2532 gMC->Gsvolu("I531", "TUBE", idtmed[211], dits, 3); // set water as cooling fluid
2533 } else {
2534 dits[0] = 0;
2535 dits[1] = 0.07;
2536 dits[2] = 1.955;
2537 gMC->Gsvolu("I531", "TUBE", idtmed[212], dits, 3); // set freon as cooling fluid
2538 }
db915fea 2539
2540 dits[0] = 0.07;
2541 dits[1] = 0.1;
2542 dits[2] = 1.955;
9d2da7b3 2543 gMC->Gsvolu("I532", "TUBE", idtmed[210], dits, 3);
db915fea 2544
2545 dits[0] = 0.3;
2546 dits[1] = 0.15;
2547 dits[2] = 0.15;
9d2da7b3 2548 gMC->Gsvolu("I533", "BOX ", idtmed[203], dits, 3);
db915fea 2549
2550 dits[0] = 3.65;
2551 dits[1] = 0.015;
2552 dits[2] = 2;
2553 gMC->Gsvolu("ITS5", "BOX ", idtmed[200], dits, 3);
2554
2555
e4f08ac3 2556
2557 // --- Define volumes of shield of SPD ----------------
9d2da7b3 2558
2559
2560 dits[0] = 8.37;
2561 dits[1] = 9.93;
2562 dits[2] = 25;
2563 gMC->Gsvolu("IC01", "TUBE", idtmed[289], dits, 3);
2564
2565 dits[0] = 8.3;
e4f08ac3 2566 dits[1] = 9.995;
9d2da7b3 2567 dits[2] = 17.5/2.;
2568 gMC->Gsvolu("IC02", "TUBE", idtmed[289], dits, 3);
2569
2570
e4f08ac3 2571 // --- Define volume of first cylinder between SPD and SDD --------------
9d2da7b3 2572
e4f08ac3 2573 dits[0] = (21.-0.128)/2.;
2574 dits[1] = 21./2.;
2575 dits[2] = 39.4;
2576 gMC->Gsvolu("ICY1", "TUBE", idtmed[208], dits, 3);
9d2da7b3 2577
e4f08ac3 2578 // --- Define volume of second cylinder between SDD and SSD --------------
9d2da7b3 2579
e4f08ac3 2580 dits[0] = (59.5-0.128)/2.;
2581 dits[1] = 59.5/2.;
2582 dits[2] = 56.2; // was 57
2583 gMC->Gsvolu("ICY2", "TUBE", idtmed[208], dits, 3);
9d2da7b3 2584
2585 // --- Define volumes of SDD cone ----------------------------------
2586
2587 dits[0] = 0;
2588 dits[1] = 360;
2589 dits[2] = 12;
2590 dits[3] = -59.7;
2591 dits[4] = 27;
e4f08ac3 2592 dits[5] = 28.6;
9d2da7b3 2593 dits[6] = -42.7;
2594 dits[7] = 10;
e4f08ac3 2595 dits[8] = 28.6;
9d2da7b3 2596 dits[9] = -34.65;
2597 dits[10] = 10;
e4f08ac3 2598 dits[11] = 28.6;
9d2da7b3 2599 dits[12] = -34.65;
2600 dits[13] = 10;
2601 dits[14] = 23.495;
2602 dits[15] = -23.7;
2603 dits[16] = 10;
2604 dits[17] = 23.495;
2605 dits[18] = -23.7;
2606 dits[19] = 10;
2607 dits[20] = 14.595;
2608 dits[21] = 23.7;
2609 dits[22] = 10;
2610 dits[23] = 14.595;
2611 dits[24] = 23.7;
2612 dits[25] = 10;
2613 dits[26] = 23.495;
2614 dits[27] = 34.65;
2615 dits[28] = 10;
2616 dits[29] = 23.495;
2617 dits[30] = 34.65;
2618 dits[31] = 10;
e4f08ac3 2619 dits[32] = 28.6;
2620 dits[33] = 42.7;
9d2da7b3 2621 dits[34] = 10;
e4f08ac3 2622 dits[35] = 28.6;
9d2da7b3 2623 dits[36] = 59.7;
2624 dits[37] = 27.2637;
e4f08ac3 2625 dits[38] = 28.6;
9d2da7b3 2626 gMC->Gsvolu("IS02", "PCON", idtmed[204], dits, 39);
2627
2628 dits[0] = 0;
2629 dits[1] = 360;
2630 dits[2] = 6;
e4f08ac3 2631 dits[3] = 38.65;
2632 dits[4] = 10.75;
2633 dits[5] = 12.25;
2634 dits[6] = 40.15;
2635 dits[7] = 10.75;
2636 dits[8] = 13.96;
2637 dits[9] = 40.15;
2638 dits[10] = 12.46;
9d2da7b3 2639 dits[11] = 13.96;
e4f08ac3 2640 dits[12] = 55.75;
2641 dits[13] = 27;
2642 dits[14] = 28.5;
2643 dits[15] = 55.75;
2644 dits[16] = 27;
2645 dits[17] = 28.5;
2646 dits[18] = 57.25;
2647 dits[19] = 27;
2648 dits[20] = 28.5;
9d2da7b3 2649 gMC->Gsvolu("I093", "PCON", idtmed[272], dits, 21); // SDD cone
2650
2651 dits[0] = 0;
2652 dits[1] = 50;
2653 dits[2] = 3;
e4f08ac3 2654 dits[3] = 39;
9d2da7b3 2655 dits[4] = 14;
2656 dits[5] = 18.75;
2657 dits[6] = 46.7-3;
2658 dits[7] = 14;
2659 dits[8] = 18.75;
2660 dits[9] = 51.45-3;
2661 dits[10] = 18.75;
2662 dits[11] = 18.75;
e4f08ac3 2663 gMC->Gsvolu("I099", "PCON", idtmed[204], dits, 12); // SDD 3 cone hole
9d2da7b3 2664
2665 dits[0] = 0;
2666 dits[1] = 25;
2667 dits[2] = 3;
e4f08ac3 2668 dits[3] = 49;
9d2da7b3 2669 dits[4] = 23.4;
2670 dits[5] = 26.4;
2671 dits[6] = 56.1-3;
2672 dits[7] = 23.4;
2673 dits[8] = 26.4;
2674 dits[9] = 59.1-3;
2675 dits[10] = 26.4;
2676 dits[11] = 26.4;
e4f08ac3 2677 gMC->Gsvolu("I200", "PCON", idtmed[204], dits, 12); // SDD 4 cone hole
9d2da7b3 2678
e4f08ac3 2679 dits[0] = 10.0;
2680 dits[1] = 10.5;
9d2da7b3 2681 dits[2] = 0.25;
e4f08ac3 2682 gMC->Gsvolu("I090", "TUBE", idtmed[224], dits, 3); // SDD cylinder flange
9d2da7b3 2683
2684 dits[0] = 21.95;
e4f08ac3 2685 dits[1] = 22.95;
9d2da7b3 2686 dits[2] = 1;
e4f08ac3 2687 gMC->Gsvolu("I098", "TUBE", idtmed[283], dits, 3); // ladder support on layer 4
9d2da7b3 2688
e4f08ac3 2689 dits[0] = 13.1;
2690 dits[1] = 14.1;
9d2da7b3 2691 dits[2] = 1;
e4f08ac3 2692 gMC->Gsvolu("I097", "TUBE", idtmed[283], dits, 3); // ladder support on layer 3
9d2da7b3 2693
2694 dits[0] = 1;
2695 dits[1] = 1;
2696 dits[2] = 7.74;
2697 gMC->Gsvolu("I202", "BOX ", idtmed[272], dits, 3);
2698
2699 dits[0] = 1;
2700 dits[1] = 1;
2701 dits[2] = 9.14;
2702 gMC->Gsvolu("I203", "BOX ", idtmed[272], dits, 3);
2703
2704 dits[0] = 21.95;
2705 dits[1] = 22.95;
2706 dits[2] = 1;
2707 gMC->Gsvolu("I095", "TUBE", idtmed[224], dits, 3);
2708
2709 dits[0] = 3;
2710 dits[1] = 2.7;
2711 dits[2] = 1;
2712 dits[3] = 0.63;
2713 gMC->Gsvolu("I096", "TRD1", idtmed[264], dits, 4);
2714
2715 dits[0] = 13.1;
2716 dits[1] = 14.1;
2717 dits[2] = 1;
2718 gMC->Gsvolu("I094", "TUBE", idtmed[224], dits, 3);
2719
2720
2721 // --- Define volumes of SSD cone ----------------------------------
2722
2723
2724 dits[0] = 0;
2725 dits[1] = 360;
2726 dits[2] = 12;
e4f08ac3 2727 dits[3] = -zmax;
2728 dits[4] = 46;
2729 dits[5] = 49.25;
9d2da7b3 2730 dits[6] = -61.2;
e4f08ac3 2731 dits[7] = 28.7;
2732 dits[8] = 49.25;
9d2da7b3 2733 dits[9] = -57.5;
e4f08ac3 2734 dits[10] = 28.7;
2735 dits[11] = 49.25;
9d2da7b3 2736 dits[12] = -57.5;
e4f08ac3 2737 dits[13] = 28.7;
9d2da7b3 2738 dits[14] = 43.5;
e4f08ac3 2739 dits[15] = -49.2;
2740 dits[16] = 28.7;
9d2da7b3 2741 dits[17] = 43.5;
e4f08ac3 2742 dits[18] = -49.2;
2743 dits[19] = 28.7;
2744 dits[20] = 36.85;
2745 dits[21] = 50.6;
2746 dits[22] = 28.7;
2747 dits[23] = 36.85;
2748 dits[24] = 50.6;
2749 dits[25] = 28.7;
9d2da7b3 2750 dits[26] = 43.5;
e4f08ac3 2751 dits[27] = 57.5;
2752 dits[28] = 28.7;
9d2da7b3 2753 dits[29] = 43.5;
e4f08ac3 2754 dits[30] = 57.5;
2755 dits[31] = 28.7;
2756 dits[32] = 49.25;
2757 dits[33] = 61.2;
2758 dits[34] = 28.7;
2759 dits[35] = 49.25;
2760 dits[36] = zmax;
2761 dits[37] = 46;
2762 dits[38] = 49.25;
2763 gMC->Gsvolu("IS01", "PCON", idtmed[204], dits, 39); // SSD cone mother volume
9d2da7b3 2764
2765 dits[0] = 0;
2766 dits[1] = 360;
2767 dits[2] = 6;
e4f08ac3 2768 dits[3] = -zmax;
2769 dits[4] = 47.75;
2770 dits[5] = 49.25;
2771 dits[6] = -zmax+2.;
2772 dits[7] = 47.75;
2773 dits[8] = 49.25;
2774 dits[9] = -71.2819;
2775 dits[10] = 46.75;
2776 dits[11] = 49.0319;
2777 dits[12] = -57.25; // was 58.5
2778 dits[13] = 32.9681;
2779 dits[14] = 34.75;
2780 dits[15] = -57.25; // was 58.5
2781 dits[16] = 30;
2782 dits[17] = 34.75;
2783 dits[18] = -55.75; // was 57
2784 dits[19] = 30;
2785 dits[20] = 32.25; // was 31.5
9d2da7b3 2786 gMC->Gsvolu("I212", "PCON", idtmed[272], dits, 21); // SSD cone
2787
e4f08ac3 2788 dits[0] = 28.75;
2789 dits[1] = 29.75;
9d2da7b3 2790 dits[2] = 0.5;
e4f08ac3 2791 gMC->Gsvolu("I211", "TUBE", idtmed[224], dits, 3); // SSD cylinder flange
9d2da7b3 2792
e4f08ac3 2793 dits[0] = 35.8;
2794 dits[1] = 36.8;
9d2da7b3 2795 dits[2] = 1;
e4f08ac3 2796 gMC->Gsvolu("I217", "TUBE", idtmed[283], dits, 3); // ladder support on layer 5
9d2da7b3 2797
e4f08ac3 2798 dits[0] = 41.4;
2799 dits[1] = 42.4;
9d2da7b3 2800 dits[2] = 1;
e4f08ac3 2801 gMC->Gsvolu("I219", "TUBE", idtmed[283], dits, 3); // ladder support on layer 6
2802
2803 dits[0] = 42.05+5.;
2804 dits[1] = 42.55+5.;
9d2da7b3 2805 dits[2] = 1.25;
e4f08ac3 2806 gMC->Gsvolu("I214", "TUBE", idtmed[224], dits, 3); // layer 6 electronic support
2807 // this will change after PPR
2808 dits[0] = 37.05+5.;
2809 dits[1] = 37.55+5.;
9d2da7b3 2810 dits[2] = 1.25;
e4f08ac3 2811 gMC->Gsvolu("I213", "TUBE", idtmed[224], dits, 3); // layer 5 electronic support
2812 // this will change after PPR
9d2da7b3 2813 dits[0] = 0;
2814 dits[1] = 25;
2815 dits[2] = 5;
e4f08ac3 2816 dits[3] = -zmax+3;
2817 dits[4] = 45.5;
2818 dits[5] = 45.5;
9d2da7b3 2819 dits[6] = -69.7+3;
2820 dits[7] = 37;
e4f08ac3 2821 dits[8] = 45.5;
9d2da7b3 2822 dits[9] = -68.5+3;
2823 dits[10] = 37;
e4f08ac3 2824 dits[11] = 45.5;
9d2da7b3 2825 dits[12] = -68.5+4.8;
2826 dits[13] = 37;
e4f08ac3 2827 dits[14] = 45.5;
9d2da7b3 2828 dits[15] = -63.5+4.8;
2829 dits[16] = 37;
e4f08ac3 2830 dits[17] = 45.5;
2831 gMC->Gsvolu("I215", "PCON", idtmed[204], dits, 18); // SSD cone hole
9d2da7b3 2832
2833 dits[0] = 0;
2834 dits[1] = 3.2;
2835 dits[2] = 9;
e4f08ac3 2836 dits[3] = -14;
9d2da7b3 2837 dits[4] = 30.5;
2838 dits[5] = 33.5;
e4f08ac3 2839 dits[6] = -9.85;
9d2da7b3 2840 dits[7] = 30.5;
2841 dits[8] = 33.5;
e4f08ac3 2842 dits[9] = -9.85;
9d2da7b3 2843 dits[10] = 30.5;
e4f08ac3 2844 dits[11] = 43.45;
2845 dits[12] = -7.85;
9d2da7b3 2846 dits[13] = 30.5;
e4f08ac3 2847 dits[14] = 43.45;
2848 dits[15] = -7.85;
9d2da7b3 2849 dits[16] = 30.5;
2850 dits[17] = 36.5;
e4f08ac3 2851 dits[18] = -7;
9d2da7b3 2852 dits[19] = 30.5;
2853 dits[20] = 36.5;
e4f08ac3 2854 dits[21] = -4;
9d2da7b3 2855 dits[22] = 33.0173;
2856 dits[23] = 36.5;
e4f08ac3 2857 dits[24] = -4;
9d2da7b3 2858 dits[25] = 33.0173;
e4f08ac3 2859 dits[26] = 36.80;
2860 dits[27] = -2;
9d2da7b3 2861 dits[28] = 34.6955;
e4f08ac3 2862 dits[29] = 36.80;
2863 gMC->Gsvolu("I216", "PCON", idtmed[272], dits, 30); // supports (1-6) of the ladders
9d2da7b3 2864
2865
2866 // --- Place SPD (option 'a') volumes into their mother volume IT12
2867
2868 // SPD - option 'a'
2869 // (this is NOT the default)
2870
2871 if (option == 1) {
2872
2873 gMC->Gspos("I12A",5,"IT12",0.0,0.0,0.0,idrotm[238],"MANY");
2874 gMC->Gspos("I12A",6,"IT12",0.0,0.0,0.0,idrotm[236],"MANY");
2875 gMC->Gspos("I12A",7,"IT12",0.0,0.0,0.0,idrotm[239],"MANY");
2876 gMC->Gspos("I12A",8,"IT12",0.0,0.0,0.0,idrotm[233],"MANY");
2877 gMC->Gspos("I12A",9,"IT12",0.0,0.0,0.0,idrotm[240],"MANY");
2878 gMC->Gspos("I12A",10,"IT12",0.0,0.0,0.0,idrotm[241],"MANY");
2879 gMC->Gspos("I12A",2,"IT12",0.0,0.0,0.0,idrotm[242],"MANY");
2880 gMC->Gspos("I12A",3,"IT12",0.0,0.0,0.0,idrotm[234],"MANY");
2881 gMC->Gspos("I12A",4,"IT12",0.0,0.0,0.0,idrotm[243],"MANY");
2882 gMC->Gspos("I12A",1,"IT12",0.0,0.0,0.0,0,"MANY");
2883 deltax=((ddet1-0.01/2.)+(dchip1-0.015/2.))*TMath::Cos(270.*TMath::Pi()/180.); // see definition of idrotm[244]
2884 deltay=((ddet1-0.01/2.)+(dchip1-0.015/2.))*TMath::Sin(270.*TMath::Pi()/180.); // see definition of idrotm[244]
2885 gMC->Gspos("I10A",2,"I12A",0.203+deltax,3.8206+deltay,0.0,idrotm[244],"ONLY");
2886 deltax=((ddet1-0.01/2.)+(dchip1-0.015/2.))*TMath::Cos(252.*TMath::Pi()/180.); // see definition of idrotm[245]
2887 deltay=((ddet1-0.01/2.)+(dchip1-0.015/2.))*TMath::Sin(252.*TMath::Pi()/180.); // see definition of idrotm[245]
2888 gMC->Gspos("I10A",1,"I12A",1.4531+deltax,3.8152+deltay,0.0,idrotm[245],"ONLY");
2889 deltax=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Cos(40.*TMath::Pi()/180.); // see definition of idrotm[246]
2890 deltay=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Sin(40.*TMath::Pi()/180.); // see definition of idrotm[246]
2891 gMC->Gspos("I20A",1,"I12A",3.0174+deltax,6.5143+deltay,0.0,idrotm[246],"ONLY");
2892 deltax=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Cos(49.*TMath::Pi()/180.); // see definition of idrotm[247]
2893 deltay=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Sin(49.*TMath::Pi()/180.); // see definition of idrotm[247]
2894 gMC->Gspos("I20A",2,"I12A",1.9612+deltax,6.9062+deltay,0.0,idrotm[247],"ONLY");
2895 deltax=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Cos(58.*TMath::Pi()/180.); // see definition of idrotm[248]
2896 deltay=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Sin(58.*TMath::Pi()/180.); // see definition of idrotm[248]
2897 gMC->Gspos("I20A",3,"I12A",0.8567+deltax,7.1279+deltay,0.0,idrotm[248],"ONLY");
2898 deltax=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Cos(67.*TMath::Pi()/180.); // see definition of idrotm[249]
2899 deltay=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Sin(67.*TMath::Pi()/180.); // see definition of idrotm[249]
2900 gMC->Gspos("I20A",4,"I12A",-0.2689+deltax,7.1742+deltay,0.0,idrotm[249],"ONLY");
2901 gMC->Gspos("I123",2,"I12A",-0.2978,5.5196,0.0,idrotm[214],"ONLY");
2902 gMC->Gspos("I121",2,"I12A",-0.2385,4.1518,0.0,idrotm[213],"ONLY");
2903 gMC->Gspos("I122",2,"I12A",-0.2968,4.0207,0.0,idrotm[212],"ONLY");
2904 gMC->Gspos("I120",2,"I12A",-0.3672,3.9056,0.0,0,"ONLY");
2905 gMC->Gspos("I144",1,"I12A",-0.2538,3.8556,0.0,0,"ONLY");
2906 gMC->Gspos("I113",3,"I12A",0.1095,3.9056,0.0,0,"ONLY");
2907 gMC->Gspos("I143",1,"I12A",0.4365,3.8556,0.0,idrotm[236],"ONLY");
2908 gMC->Gspos("I142",1,"I12A",0.5136,3.9056,0.0,idrotm[235],"ONLY");
2909 gMC->Gspos("I141",1,"I12A",0.5636,3.9752,0.0,idrotm[201],"ONLY");
2910 gMC->Gspos("I140",1,"I12A",0.6336,4.0447,0.0,idrotm[234],"ONLY");
2911 gMC->Gspos("I139",1,"I12A",0.8297,4.0545,0.0,idrotm[207],"ONLY");
2912 gMC->Gspos("I113",5,"I12A",1.2575,3.9681,0.0,idrotm[207],"ONLY");
2913 gMC->Gspos("I138",1,"I12A",1.66,3.7848,0.0,idrotm[207],"ONLY");
2914 gMC->Gspos("I137",1,"I12A",1.8556,3.7738,0.0,idrotm[233],"ONLY");
2915 gMC->Gspos("I136",1,"I12A",2.6224,4.874,0.0,idrotm[232],"ONLY");
2916 gMC->Gspos("I135",1,"I12A",3.2967,6.0337,0.0,idrotm[231],"ONLY");
2917 gMC->Gspos("I134",1,"I12A",3.266,6.1636,0.0,idrotm[230],"ONLY");
2918 gMC->Gspos("I113",1,"I12A",2.9903,6.4144,0.0,idrotm[211],"ONLY");
2919 gMC->Gspos("I133",3,"I12A",2.7631,6.7627,0.0,idrotm[230],"ONLY");
2920 gMC->Gspos("I132",3,"I12A",2.62,6.8555,0.0,idrotm[229],"ONLY");
2921 gMC->Gspos("I131",3,"I12A",2.648,6.6023,0.0,idrotm[228],"ONLY");
2922 gMC->Gspos("I130",3,"I12A",2.6569,6.3431,0.0,idrotm[227],"ONLY");
2923 gMC->Gspos("I129",3,"I12A",2.3906,6.4819,0.0,idrotm[226],"ONLY");
2924 gMC->Gspos("I113",2,"I12A",1.9488,6.7998,0.0,idrotm[210],"ONLY");
2925 gMC->Gspos("I133",2,"I12A",1.6699,7.1085,0.0,idrotm[226],"ONLY");
2926 gMC->Gspos("I132",2,"I12A",1.5142,7.1777,0.0,idrotm[225],"ONLY");
2927 gMC->Gspos("I131",2,"I12A",1.5814,6.932,0.0,idrotm[224],"ONLY");
2928 gMC->Gspos("I130",2,"I12A",1.6308,6.6774,0.0,idrotm[223],"ONLY");
2929 gMC->Gspos("I129",2,"I12A",1.346,6.7728,0.0,idrotm[222],"ONLY");
2930 gMC->Gspos("I113",6,"I12A",0.8599,7.0176,0.0,idrotm[209],"ONLY");
2931 gMC->Gspos("I133",1,"I12A",0.5362,7.2789,0.0,idrotm[222],"ONLY");
2932 gMC->Gspos("I132",1,"I12A",0.3715,7.3228,0.0,idrotm[221],"ONLY");
2933 gMC->Gspos("I131",1,"I12A",0.4763,7.0907,0.0,idrotm[220],"ONLY");
2934 gMC->Gspos("I130",1,"I12A",0.5649,6.8469,0.0,idrotm[219],"ONLY");
2935 gMC->Gspos("I129",1,"I12A",0.2688,6.8966,0.0,idrotm[218],"ONLY");
2936 gMC->Gspos("I113",4,"I12A",-0.2497,7.0624,0.0,idrotm[208],"ONLY");
2937 gMC->Gspos("I128",1,"I12A",-0.6103,7.2698,0.0,idrotm[218],"ONLY");
2938 gMC->Gspos("I126",2,"I12A",-0.7799,7.2874,0.0,idrotm[217],"ONLY");
2939 gMC->Gspos("I125",2,"I12A",-0.6315,7.0883,0.0,idrotm[216],"ONLY");
2940 gMC->Gspos("I124",2,"I12A",-0.4965,6.8742,0.0,idrotm[215],"ONLY");
9bf5e8ff 2941 gMC->Gspos("I103",3,"I10A",-0.05,-di10a[1]+2.*di104[1]+di103[1],-3.536,0,"ONLY");
2942 gMC->Gspos("I103",4,"I10A",-0.05,-di10a[1]+2.*di104[1]+di103[1],-10.708,0,"ONLY");
9d2da7b3 2943 gMC->Gspos("I103",1,"I10A",-0.05,-di10a[1]+2.*di104[1]+di103[1],10.708,0,"ONLY");
2944 gMC->Gspos("I103",2,"I10A",-0.05,-di10a[1]+2.*di104[1]+di103[1],3.536,0,"ONLY");
2945 gMC->Gspos("I105",1,"I10A",-0.05,0.01,-16.844,idrotm[237],"ONLY");
2946 gMC->Gspos("I105",2,"I10A",-0.05,0.01,16.844,0,"ONLY");
2947 gMC->Gspos("I104",1,"I10A",0.0,-di10a[1]+di104[1],0.0,0,"ONLY");
9bf5e8ff 2948 gMC->Gspos("I1D3",3,"I20A",-0.05,-di20a[1]+2.*di104[1]+di1d3[1],-3.536,0,"ONLY");
2949 gMC->Gspos("I1D3",4,"I20A",-0.05,-di20a[1]+2.*di104[1]+di1d3[1],-10.708,0,"ONLY");
9d2da7b3 2950 gMC->Gspos("I1D3",1,"I20A",-0.05,-di20a[1]+2.*di104[1]+di1d3[1],10.708,0,"ONLY");
2951 gMC->Gspos("I1D3",2,"I20A",-0.05,-di20a[1]+2.*di104[1]+di1d3[1],3.536,0,"ONLY");
2952 gMC->Gspos("I105",3,"I20A",-0.05,0.01,-16.844,idrotm[237],"ONLY");
2953 gMC->Gspos("I105",4,"I20A",-0.05,0.01,16.844,0,"ONLY");
2954 gMC->Gspos("I104",2,"I20A",0.0,-di20a[1]+di104[1],0.0,0,"ONLY");
2955 gMC->Gspos("I112",2,"I113",0.25,0.02,0.0,idrotm[206],"ONLY");
2956 gMC->Gspos("I111",2,"I113",0.1318,-0.0008,0.0,idrotm[205],"ONLY");
2957 gMC->Gspos("I118",1,"I113",0.0,-0.0454,0.0,0,"ONLY");
2958 gMC->Gspos("I110",1,"I113",0.0,0.0492,0.0,0,"ONLY");
2959 gMC->Gspos("I114",1,"I113",0.063,0.0042,0.0,idrotm[202],"ONLY");
2960 gMC->Gspos("I115",1,"I113",0.063,0.0042,0.0,idrotm[202],"ONLY");
2961 gMC->Gspos("I115",2,"I113",-0.063,0.0042,0.0,idrotm[201],"ONLY");
2962 gMC->Gspos("I114",2,"I113",-0.063,0.0042,0.0,idrotm[201],"ONLY");
2963 gMC->Gspos("I116",1,"I113",0.0,0.0042,0.0,0,"ONLY");
2964 gMC->Gspos("I111",1,"I113",-0.1318,-0.0008,0.0,idrotm[204],"ONLY");
2965 gMC->Gspos("I112",1,"I113",-0.25,0.02,0.0,idrotm[203],"ONLY");
2966 gMC->Gspos("I101",1,"I103",-0.088,ddet1,0.0,0,"ONLY");
2967 gMC->Gspos("I102",1,"I103",0.0,-dchip1,-2.8,0,"ONLY");
2968 gMC->Gspos("I102",2,"I103",0.0,-dchip1,-1.4,0,"ONLY");
2969 gMC->Gspos("I102",3,"I103",0.0,-dchip1,0.0,0,"ONLY");
2970 gMC->Gspos("I102",4,"I103",0.0,-dchip1,1.4,0,"ONLY");
2971 gMC->Gspos("I102",5,"I103",0.0,-dchip1,2.8,0,"ONLY");
2972 gMC->Gspos("I1D1",1,"I1D3",-0.088,ddet2,0.0,0,"ONLY");
2973 gMC->Gspos("I1D2",1,"I1D3",0.0,-dchip2,-2.8,0,"ONLY");
2974 gMC->Gspos("I1D2",2,"I1D3",0.0,-dchip2,-1.4,0,"ONLY");
2975 gMC->Gspos("I1D2",3,"I1D3",0.0,-dchip2,0.0,0,"ONLY");
2976 gMC->Gspos("I1D2",4,"I1D3",0.0,-dchip2,1.4,0,"ONLY");
2977 gMC->Gspos("I1D2",5,"I1D3",0.0,-dchip2,2.8,0,"ONLY");
2978 gMC->Gspos("I117",1,"I116",0.0,0.0,0.0,0,"ONLY");
2979 gMC->Gspos("ITS1",1,"I101",0.0,0.0,0.0,0,"ONLY");
2980 gMC->Gspos("ITS2",1,"I1D1",0.0,0.0,0.0,0,"ONLY");
2981 gMC->Gspos("I650",16,"IT12",0.0,0.0,22.0,idrotm[1104],"MANY");
2982 gMC->Gspos("I650",20,"IT12",0.0,0.0,22.0,idrotm[1130],"MANY");
2983 gMC->Gspos("I650",18,"IT12",0.0,0.0,22.0,idrotm[1117],"MANY");
2984 gMC->Gspos("I650",1,"IT12",0.0,0.0,22.0,0,"MANY");
2985 gMC->Gspos("I650",4,"IT12",0.0,0.0,22.0,idrotm[1106],"MANY");
2986 gMC->Gspos("I650",6,"IT12",0.0,0.0,22.0,idrotm[1039],"MANY");
2987 gMC->Gspos("I650",8,"IT12",0.0,0.0,22.0,idrotm[1107],"MANY");
2988 gMC->Gspos("I650",10,"IT12",0.0,0.0,22.0,idrotm[1065],"MANY");
2989 gMC->Gspos("I650",12,"IT12",0.0,0.0,22.0,idrotm[1078],"MANY");
2990 gMC->Gspos("I650",14,"IT12",0.0,0.0,22.0,idrotm[1091],"MANY");
2991 gMC->Gspos("I650",19,"IT12",0.0,0.0,-22.0,idrotm[1108],"MANY");
2992 gMC->Gspos("I650",2,"IT12",0.0,0.0,-22.0,idrotm[1109],"MANY");
2993 gMC->Gspos("I650",3,"IT12",0.0,0.0,-22.0,idrotm[1110],"MANY");
2994 gMC->Gspos("I650",5,"IT12",0.0,0.0,-22.0,idrotm[1111],"MANY");
2995 gMC->Gspos("I650",7,"IT12",0.0,0.0,-22.0,idrotm[1112],"MANY");
2996 gMC->Gspos("I650",9,"IT12",0.0,0.0,-22.0,idrotm[1113],"MANY");
2997 gMC->Gspos("I650",11,"IT12",0.0,0.0,-22.0,idrotm[1114],"MANY");
2998 gMC->Gspos("I650",13,"IT12",0.0,0.0,-22.0,idrotm[1115],"MANY");
2999 gMC->Gspos("I650",15,"IT12",0.0,0.0,-22.0,idrotm[1116],"MANY");
3000 gMC->Gspos("I650",17,"IT12",0.0,0.0,-22.0,idrotm[1118],"MANY");
3001 gMC->Gspos("I666",1,"I650",0.0,0.0,0.25,idrotm[1003],"MANY");
3002 gMC->Gspos("I667",1,"I650",0.1102,0.9945,0.45,idrotm[1088],"ONLY");
3003 gMC->Gspos("I669",3,"I650",0.1883,4.0372,-3.2,0,"ONLY");
3004 gMC->Gspos("I671",3,"I650",0.1883,4.0372,0.6,0,"ONLY");
3005 gMC->Gspos("I669",2,"I650",1.3343,4.0609,-3.2,0,"ONLY");
3006 gMC->Gspos("I671",2,"I650",1.3343,4.0609,0.6,0,"ONLY");
3007 gMC->Gspos("I669",6,"I650",2.9567,6.1959,-3.2,idrotm[1089],"ONLY");
3008 gMC->Gspos("I671",6,"I650",2.9567,6.1959,0.6,idrotm[1089],"ONLY");
3009 gMC->Gspos("I669",5,"I650",1.9511,6.5822,-3.2,idrotm[1011],"ONLY");
3010 gMC->Gspos("I671",5,"I650",1.9511,6.5822,0.6,idrotm[1011],"ONLY");
3011 gMC->Gspos("I669",4,"I650",0.8974,6.8064,-3.2,idrotm[1090],"ONLY");
3012 gMC->Gspos("I671",4,"I650",0.8974,6.8064,0.6,idrotm[1090],"ONLY");
3013 gMC->Gspos("I669",1,"I650",-0.1784,6.863,-3.2,0,"ONLY");
3014 gMC->Gspos("I671",1,"I650",-0.1784,6.863,0.6,0,"ONLY");
3015 gMC->Gspos("I673",1,"I650",0.2173,4.8037,1.8,0,"ONLY");
3016 gMC->Gspos("I673",6,"I650",1.5093,4.5605,1.8,0,"ONLY");
3017 gMC->Gspos("I673",4,"I650",-0.173,6.2531,1.8,idrotm[1092],"ONLY");
3018 gMC->Gspos("I673",3,"I650",0.8073,6.2032,1.8,idrotm[1093],"ONLY");
3019 gMC->Gspos("I673",2,"I650",1.7678,6.0005,1.8,idrotm[1094],"ONLY");
3020 gMC->Gspos("I673",5,"I650",2.6847,5.6501,1.8,0,"ONLY");
3021 gMC->Gspos("I676",2,"I650",1.7618,5.2269,2.5,0,"ONLY");
3022 gMC->Gspos("I676",1,"I650",0.4018,5.5869,2.5,0,"ONLY");
3023 gMC->Gspos("I668",1,"I667",0.0,0.0,0.0,0,"ONLY");
3024 gMC->Gspos("I670",1,"I669",0.0,0.0,0.0,0,"ONLY");
3025 gMC->Gspos("I672",1,"I671",0.0,0.0,0.0,0,"ONLY");
3026 gMC->Gspos("I674",1,"I673",0.0,0.0,0.0,0,"MANY");
3027 gMC->Gspos("I675",1,"I673",0.0,0.0,-0.5,0,"ONLY");
3028 gMC->Gspos("I677",1,"I676",0.0,0.0,0.0,0,"MANY");
3029 gMC->Gspos("I678",1,"I676",0.0,0.0,-0.95,0,"ONLY");
3030
3031 }
3032
3033
3034 // --- Place SPD (option 'b') volumes into their mother volume IT12
3035
3036 // SPD - option 'b'
3037 // (this is the default)
3038
3039 if (option == 2) {
3040
3041 gMC->Gspos("I12B",1,"IT12",0.0,0.0,0.0,0,"MANY");
3042 gMC->Gspos("I12B",8,"IT12",0.0,0.0,0.0,idrotm[233],"MANY");
3043 gMC->Gspos("I12B",7,"IT12",0.0,0.0,0.0,idrotm[244],"MANY");
3044 gMC->Gspos("I12B",6,"IT12",0.0,0.0,0.0,idrotm[236],"MANY");
3045 gMC->Gspos("I12B",2,"IT12",0.0,0.0,0.0,idrotm[245],"MANY");
3046 gMC->Gspos("I12B",3,"IT12",0.0,0.0,0.0,idrotm[234],"MANY");
3047 gMC->Gspos("I12B",4,"IT12",0.0,0.0,0.0,idrotm[246],"MANY");
3048 gMC->Gspos("I12B",5,"IT12",0.0,0.0,0.0,idrotm[247],"MANY");
3049 gMC->Gspos("I12B",9,"IT12",0.0,0.0,0.0,idrotm[248],"MANY");
3050 gMC->Gspos("I12B",10,"IT12",0.0,0.0,0.0,idrotm[249],"MANY");
3051 deltax=((ddet1-0.01/2.)+(dchip1-0.015/2.))*TMath::Cos(270.*TMath::Pi()/180.); // see definition of idrotm[238]
3052 deltay=((ddet1-0.01/2.)+(dchip1-0.015/2.))*TMath::Sin(270.*TMath::Pi()/180.); // see definition of idrotm[238]
3053 gMC->Gspos("I10B",2,"I12B",0.203+deltax,3.8206+deltay,0.0,idrotm[238],"ONLY");
3054 deltax=((ddet1-0.01/2.)+(dchip1-0.015/2.))*TMath::Cos(252.*TMath::Pi()/180.); // see definition of idrotm[239]
3055 deltay=((ddet1-0.01/2.)+(dchip1-0.015/2.))*TMath::Sin(252.*TMath::Pi()/180.); // see definition of idrotm[239]
3056 gMC->Gspos("I10B",1,"I12B",1.4531+deltax,3.8152+deltay,0.0,idrotm[239],"ONLY");
3057 deltax=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Cos(40.*TMath::Pi()/180.); // see definition of idrotm[240]
3058 deltay=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Sin(40.*TMath::Pi()/180.); // see definition of idrotm[240]
3059 gMC->Gspos("I20B",1,"I12B",3.0174+deltax,6.5143+deltay,0.0,idrotm[240],"ONLY");
3060 deltax=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Cos(49.*TMath::Pi()/180.); // see definition of idrotm[241]
3061 deltay=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Sin(49.*TMath::Pi()/180.); // see definition of idrotm[241]
3062 gMC->Gspos("I20B",2,"I12B",1.9612+deltax,6.9062+deltay,0.0,idrotm[241],"ONLY");
3063 deltax=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Cos(58.*TMath::Pi()/180.); // see definition of idrotm[242]
3064 deltay=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Sin(58.*TMath::Pi()/180.); // see definition of idrotm[242]
3065 gMC->Gspos("I20B",3,"I12B",0.8567+deltax,7.1279+deltay,0.0,idrotm[242],"ONLY");
3066 deltax=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Cos(67.*TMath::Pi()/180.); // see definition of idrotm[243]
3067 deltay=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Sin(67.*TMath::Pi()/180.); // see definition of idrotm[243]
3068 gMC->Gspos("I20B",4,"I12B",-0.2689+deltax,7.1742+deltay,0.0,idrotm[243],"ONLY");
3069 gMC->Gspos("I123",1,"I12B",-0.2978,5.5196,0.0,idrotm[214],"ONLY");
3070 gMC->Gspos("I121",1,"I12B",-0.2385,4.1518,0.0,idrotm[213],"ONLY");
3071 gMC->Gspos("I122",1,"I12B",-0.2968,4.0207,0.0,idrotm[212],"ONLY");
3072 gMC->Gspos("I120",1,"I12B",-0.3672,3.9056,0.0,0,"ONLY");
3073 gMC->Gspos("I144",1,"I12B",-0.2538,3.8556,0.0,0,"ONLY");
3074 gMC->Gspos("I113",3,"I12B",0.1095,3.9056,0.0,0,"ONLY");
3075 gMC->Gspos("I143",1,"I12B",0.4365,3.8556,0.0,idrotm[236],"ONLY");
3076 gMC->Gspos("I142",1,"I12B",0.5136,3.9056,0.0,idrotm[235],"ONLY");
3077 gMC->Gspos("I141",1,"I12B",0.5636,3.9752,0.0,idrotm[237],"ONLY");
3078 gMC->Gspos("I140",1,"I12B",0.6336,4.0447,0.0,idrotm[234],"ONLY");
3079 gMC->Gspos("I139",1,"I12B",0.8297,4.0545,0.0,idrotm[207],"ONLY");
3080 gMC->Gspos("I113",5,"I12B",1.2575,3.9681,0.0,idrotm[207],"ONLY");
3081 gMC->Gspos("I138",1,"I12B",1.66,3.7848,0.0,idrotm[207],"ONLY");
3082 gMC->Gspos("I137",1,"I12B",1.8556,3.7738,0.0,idrotm[233],"ONLY");
3083 gMC->Gspos("I136",1,"I12B",2.6224,4.874,0.0,idrotm[232],"ONLY");
3084 gMC->Gspos("I135",1,"I12B",3.2967,6.0337,0.0,idrotm[231],"ONLY");
3085 gMC->Gspos("I134",1,"I12B",3.266,6.1636,0.0,idrotm[230],"ONLY");
3086 gMC->Gspos("I113",1,"I12B",2.9903,6.4144,0.0,idrotm[211],"ONLY");
3087 gMC->Gspos("I133",3,"I12B",2.7631,6.7627,0.0,idrotm[230],"ONLY");
3088 gMC->Gspos("I132",3,"I12B",2.62,6.8555,0.0,idrotm[229],"ONLY");
3089 gMC->Gspos("I131",3,"I12B",2.648,6.6023,0.0,idrotm[228],"ONLY");
3090 gMC->Gspos("I130",3,"I12B",2.6569,6.3431,0.0,idrotm[227],"ONLY");
3091 gMC->Gspos("I129",3,"I12B",2.3906,6.4819,0.0,idrotm[226],"ONLY");
3092 gMC->Gspos("I113",2,"I12B",1.9488,6.7998,0.0,idrotm[210],"ONLY");
3093 gMC->Gspos("I133",2,"I12B",1.6699,7.1085,0.0,idrotm[226],"ONLY");
3094 gMC->Gspos("I132",2,"I12B",1.5142,7.1777,0.0,idrotm[225],"ONLY");
3095 gMC->Gspos("I131",2,"I12B",1.5814,6.932,0.0,idrotm[224],"ONLY");
3096 gMC->Gspos("I130",2,"I12B",1.6308,6.6774,0.0,idrotm[223],"ONLY");
3097 gMC->Gspos("I129",2,"I12B",1.346,6.7728,0.0,idrotm[222],"ONLY");
3098 gMC->Gspos("I113",6,"I12B",0.8599,7.0176,0.0,idrotm[209],"ONLY");
3099 gMC->Gspos("I133",1,"I12B",0.5362,7.2789,0.0,idrotm[222],"ONLY");
3100 gMC->Gspos("I132",1,"I12B",0.3715,7.3228,0.0,idrotm[221],"ONLY");
3101 gMC->Gspos("I131",1,"I12B",0.4763,7.0907,0.0,idrotm[220],"ONLY");
3102 gMC->Gspos("I130",1,"I12B",0.5649,6.8469,0.0,idrotm[219],"ONLY");
3103 gMC->Gspos("I129",1,"I12B",0.2688,6.8966,0.0,idrotm[218],"ONLY");
3104 gMC->Gspos("I113",4,"I12B",-0.2497,7.0624,0.0,idrotm[208],"ONLY");
3105 gMC->Gspos("I128",1,"I12B",-0.6103,7.2698,0.0,idrotm[218],"ONLY");
3106 gMC->Gspos("I126",1,"I12B",-0.7799,7.2874,0.0,idrotm[217],"ONLY");
3107 gMC->Gspos("I125",1,"I12B",-0.6315,7.0883,0.0,idrotm[216],"ONLY");
3108 gMC->Gspos("I124",1,"I12B",-0.4965,6.8742,0.0,idrotm[215],"ONLY");
3109 gMC->Gspos("I105",3,"I10B",-0.05,-0.01,-16.844,idrotm[201],"ONLY");
3110 gMC->Gspos("I105",4,"I10B",-0.05,-0.01,16.844,0,"ONLY");
3111 gMC->Gspos("I107",2,"I10B",-0.0455,-di10b[1]+di107[1],3.536,0,"ONLY");
3112 gMC->Gspos("I107",1,"I10B",-0.0455,-di10b[1]+di107[1],10.708,0,"ONLY");
9bf5e8ff 3113 gMC->Gspos("I107",4,"I10B",-0.0455,-di10b[1]+di107[1],-10.708,0,"ONLY");
3114 gMC->Gspos("I107",3,"I10B",-0.0455,-di10b[1]+di107[1],-3.536,0,"ONLY");
9d2da7b3 3115 gMC->Gspos("I109",1,"I10B",-0.138,0.015,-16.844,idrotm[201],"ONLY");
3116 gMC->Gspos("I109",2,"I10B",-0.138,0.015,16.844,0,"ONLY");
3117 gMC->Gspos("I108",1,"I10B",-0.138,-di10b[1]+2.*di107[1]+di108[1],0.0,0,"ONLY");
3118 gMC->Gspos("I105",1,"I20B",-0.05,-0.01,-16.844,idrotm[201],"ONLY");
3119 gMC->Gspos("I105",2,"I20B",-0.05,-0.01,16.844,0,"ONLY");
3120 gMC->Gspos("I1D7",2,"I20B",-0.0455,-di20b[1]+di1d7[1],3.536,0,"ONLY");
3121 gMC->Gspos("I1D7",1,"I20B",-0.0455,-di20b[1]+di1d7[1],10.708,0,"ONLY");
3122 gMC->Gspos("I1D7",4,"I20B",-0.0455,-di20b[1]+di1d7[1],-10.708,idrotm[201],"ONLY");
3123 gMC->Gspos("I1D7",3,"I20B",-0.0455,-di20b[1]+di1d7[1],-3.536,idrotm[201],"ONLY");
3124 gMC->Gspos("I109",3,"I20B",-0.138,0.015,-16.844,idrotm[201],"ONLY");
3125 gMC->Gspos("I109",4,"I20B",-0.138,0.015,16.844,0,"ONLY");
3126 gMC->Gspos("I108",2,"I20B",-0.138,-di20b[1]+2.*di1d7[1]+di108[1],0.0,0,"ONLY");
3127 gMC->Gspos("I112",2,"I113",0.25,0.02,0.0,idrotm[206],"ONLY");
3128 gMC->Gspos("I111",2,"I113",0.1318,-0.0008,0.0,idrotm[205],"ONLY");
3129 gMC->Gspos("I118",1,"I113",0.0,-0.0454,0.0,0,"ONLY");
3130 gMC->Gspos("I110",1,"I113",0.0,0.0492,0.0,0,"ONLY");
3131 gMC->Gspos("I114",1,"I113",0.063,0.0042,0.0,idrotm[202],"ONLY");
3132 gMC->Gspos("I115",1,"I113",0.063,0.0042,0.0,idrotm[202],"ONLY");
3133 gMC->Gspos("I115",2,"I113",-0.063,0.0042,0.0,idrotm[237],"ONLY");
3134 gMC->Gspos("I114",2,"I113",-0.063,0.0042,0.0,idrotm[237],"ONLY");
3135 gMC->Gspos("I116",1,"I113",0.0,0.0042,0.0,0,"ONLY");
3136 gMC->Gspos("I111",1,"I113",-0.1318,-0.0008,0.0,idrotm[204],"ONLY");
3137 gMC->Gspos("I112",1,"I113",-0.25,0.02,0.0,idrotm[203],"ONLY");
3138 gMC->Gspos("I106",1,"I107",0.0,-dchip1,-1.4,0,"ONLY");
3139 gMC->Gspos("I106",2,"I107",0.0,-dchip1,0.0,0,"ONLY");
3140 gMC->Gspos("I106",3,"I107",0.0,-dchip1,1.4,0,"ONLY");
3141 gMC->Gspos("I106",4,"I107",0.0,-dchip1,2.8,0,"ONLY");
3142 gMC->Gspos("I106",5,"I107",0.0,-dchip1,-2.8,0,"ONLY");
3143 gMC->Gspos("I101",1,"I107",0.0,ddet1,0.0,0,"ONLY");
3144 gMC->Gspos("I1D6",1,"I1D7",0.0,-dchip2,-1.4,0,"ONLY");
3145 gMC->Gspos("I1D6",2,"I1D7",0.0,-dchip2,0.0,0,"ONLY");
3146 gMC->Gspos("I1D6",3,"I1D7",0.0,-dchip2,1.4,0,"ONLY");
3147 gMC->Gspos("I1D6",4,"I1D7",0.0,-dchip2,2.8,0,"ONLY");
3148 gMC->Gspos("I1D6",5,"I1D7",0.0,-dchip2,-2.8,0,"ONLY");
3149 gMC->Gspos("I1D1",1,"I1D7",0.0,ddet2,0.0,0,"ONLY");
3150 gMC->Gspos("I117",1,"I116",0.0,0.0,0.0,0,"ONLY");
3151 gMC->Gspos("ITS1",1,"I101",0.0,0.0,0.0,0,"ONLY");
3152 gMC->Gspos("ITS2",1,"I1D1",0.0,0.0,0.0,0,"ONLY");
3153 gMC->Gspos("I650",16,"IT12",0.0,0.0,22.0,idrotm[1104],"MANY");
3154 gMC->Gspos("I650",20,"IT12",0.0,0.0,22.0,idrotm[1130],"MANY");
3155 gMC->Gspos("I650",18,"IT12",0.0,0.0,22.0,idrotm[1117],"MANY");
3156 gMC->Gspos("I650",1,"IT12",0.0,0.0,22.0,0,"MANY");
3157 gMC->Gspos("I650",4,"IT12",0.0,0.0,22.0,idrotm[1106],"MANY");
3158 gMC->Gspos("I650",6,"IT12",0.0,0.0,22.0,idrotm[1039],"MANY");
3159 gMC->Gspos("I650",8,"IT12",0.0,0.0,22.0,idrotm[1107],"MANY");
3160 gMC->Gspos("I650",10,"IT12",0.0,0.0,22.0,idrotm[1065],"MANY");
3161 gMC->Gspos("I650",12,"IT12",0.0,0.0,22.0,idrotm[1078],"MANY");
3162 gMC->Gspos("I650",14,"IT12",0.0,0.0,22.0,idrotm[1091],"MANY");
3163 gMC->Gspos("I650",19,"IT12",0.0,0.0,-22.0,idrotm[1108],"MANY");
3164 gMC->Gspos("I650",2,"IT12",0.0,0.0,-22.0,idrotm[1109],"MANY");
3165 gMC->Gspos("I650",3,"IT12",0.0,0.0,-22.0,idrotm[1110],"MANY");
3166 gMC->Gspos("I650",5,"IT12",0.0,0.0,-22.0,idrotm[1111],"MANY");
3167 gMC->Gspos("I650",7,"IT12",0.0,0.0,-22.0,idrotm[1112],"MANY");
3168 gMC->Gspos("I650",9,"IT12",0.0,0.0,-22.0,idrotm[1113],"MANY");
3169 gMC->Gspos("I650",11,"IT12",0.0,0.0,-22.0,idrotm[1114],"MANY");
3170 gMC->Gspos("I650",13,"IT12",0.0,0.0,-22.0,idrotm[1115],"MANY");
3171 gMC->Gspos("I650",15,"IT12",0.0,0.0,-22.0,idrotm[1116],"MANY");
3172 gMC->Gspos("I650",17,"IT12",0.0,0.0,-22.0,idrotm[1118],"MANY");
3173 gMC->Gspos("I666",1,"I650",0.0,0.0,0.25,idrotm[1003],"MANY");
3174 gMC->Gspos("I667",1,"I650",0.1102,0.9945,0.45,idrotm[1088],"ONLY");
3175 gMC->Gspos("I669",3,"I650",0.1883,4.0372,-3.2,0,"ONLY");
3176 gMC->Gspos("I671",3,"I650",0.1883,4.0372,0.6,0,"ONLY");
3177 gMC->Gspos("I669",2,"I650",1.3343,4.0609,-3.2,0,"ONLY");
3178 gMC->Gspos("I671",2,"I650",1.3343,4.0609,0.6,0,"ONLY");
3179 gMC->Gspos("I669",6,"I650",2.9567,6.1959,-3.2,idrotm[1089],"ONLY");
3180 gMC->Gspos("I671",6,"I650",2.9567,6.1959,0.6,idrotm[1089],"ONLY");
3181 gMC->Gspos("I669",5,"I650",1.9511,6.5822,-3.2,idrotm[1011],"ONLY");
3182 gMC->Gspos("I671",5,"I650",1.9511,6.5822,0.6,idrotm[1011],"ONLY");
3183 gMC->Gspos("I669",4,"I650",0.8974,6.8064,-3.2,idrotm[1090],"ONLY");
3184 gMC->Gspos("I671",4,"I650",0.8974,6.8064,0.6,idrotm[1090],"ONLY");
3185 gMC->Gspos("I669",1,"I650",-0.1784,6.863,-3.2,0,"ONLY");
3186 gMC->Gspos("I671",1,"I650",-0.1784,6.863,0.6,0,"ONLY");
3187 gMC->Gspos("I673",1,"I650",0.2173,4.8037,1.8,0,"ONLY");
3188 gMC->Gspos("I673",6,"I650",1.5093,4.5605,1.8,0,"ONLY");
3189 gMC->Gspos("I673",4,"I650",-0.173,6.2531,1.8,idrotm[1092],"ONLY");
3190 gMC->Gspos("I673",3,"I650",0.8073,6.2032,1.8,idrotm[1093],"ONLY");
3191 gMC->Gspos("I673",2,"I650",1.7678,6.0005,1.8,idrotm[1094],"ONLY");
3192 gMC->Gspos("I673",5,"I650",2.6847,5.6501,1.8,0,"ONLY");
3193 gMC->Gspos("I676",2,"I650",1.7618,5.2269,2.5,0,"ONLY");
3194 gMC->Gspos("I676",1,"I650",0.4018,5.5869,2.5,0,"ONLY");
3195 gMC->Gspos("I668",1,"I667",0.0,0.0,0.0,0,"ONLY");
3196 gMC->Gspos("I670",1,"I669",0.0,0.0,0.0,0,"ONLY");
3197 gMC->Gspos("I672",1,"I671",0.0,0.0,0.0,0,"ONLY");
3198 gMC->Gspos("I674",1,"I673",0.0,0.0,0.0,0,"MANY");
3199 gMC->Gspos("I675",1,"I673",0.0,0.0,-0.5,0,"ONLY");
3200 gMC->Gspos("I677",1,"I676",0.0,0.0,0.0,0,"MANY");
3201 gMC->Gspos("I678",1,"I676",0.0,0.0,-0.95,0,"ONLY");
3202
3203 }
db915fea 3204
3205 // --- Place SDD volumes into their mother volume IT34
9d2da7b3 3206
db915fea 3207
9d2da7b3 3208 // -- position SDD detectors of ladder 3 / layer 3
3209
3210 gMC->Gspos("ITS3", 1,"I302", 0.0, 0.0, 0.0, 0, "ONLY");
3211 ySDD = Y_SDD_sep/2.+I302dits[1];
3212 for (iSDD=0; iSDD<6; iSDD++) {
3213 gMC->Gspos("I302", iSDD+1, "I004", 0.0, ySDD, Z_SDD_lay3[iSDD], 0, "ONLY");
3214 ySDD = -ySDD;
3215 }
3216
3217 gMC->Gspos("I004", 1,"IT34", -3.2777, 14.3607, 0.0, idrotm[321],"ONLY");
3218 gMC->Gspos("I004", 2,"IT34", -9.5581, 11.9855, 0.0, idrotm[333],"ONLY");
3219 gMC->Gspos("I004", 3,"IT34",-13.2713, 6.3911, 0.0, idrotm[336],"ONLY");
3220 gMC->Gspos("I004", 4,"IT34",-15.33, 0.0, 0.0, idrotm[350],"ONLY");
3221 gMC->Gspos("I004", 5,"IT34",-13.2713, -6.3911, 0.0, idrotm[313],"ONLY");
3222 gMC->Gspos("I004", 6,"IT34", -9.5581, -11.9855, 0.0, idrotm[311],"ONLY");
3223 gMC->Gspos("I004", 7,"IT34", -3.2777, -14.3607, 0.0, idrotm[310],"ONLY");
3224 gMC->Gspos("I004", 8,"IT34", 3.4112, -14.9456, 0.0, idrotm[386],"ONLY");
3225 gMC->Gspos("I004", 9,"IT34", 9.184, -11.5164, 0.0, idrotm[309],"ONLY");
3226 gMC->Gspos("I004",10,"IT34", 13.8119, -6.6514, 0.0, idrotm[308],"ONLY");
3227 gMC->Gspos("I004",11,"IT34", 14.73, 0.0, 0.0, idrotm[356],"ONLY");
3228 gMC->Gspos("I004",12,"IT34", 13.8119, 6.6514, 0.0, idrotm[307],"ONLY");
3229 gMC->Gspos("I004",13,"IT34", 9.184, 11.5164, 0.0, idrotm[306],"ONLY");
3230 gMC->Gspos("I004",14,"IT34", 3.4113, 14.9456, 0.0, idrotm[305],"ONLY");
3231
3232
3233 // -- position SDD detectors of ladder 4 / layer 4
3234
3235 gMC->Gspos("ITS4", 1,"I402", 0.0, 0.000, 0.0, 0,"ONLY");
3236 ySDD = -(Y_SDD_sep/2.+I402dits[1]);
3237 for (iSDD=0; iSDD<8; iSDD++) {
3238 gMC->Gspos("I402", iSDD+1, "I005", 0.0, ySDD, Z_SDD_lay4[iSDD], 0, "ONLY");
3239 ySDD = -ySDD;
3240 }
db915fea 3241
9d2da7b3 3242 gMC->Gspos("I005", 1,"IT34", -3.3629, 23.3895,-0.15, idrotm[335],"ONLY");
3243 gMC->Gspos("I005", 2,"IT34",-10.0447, 21.9949,-0.15, idrotm[332],"ONLY");
3244 gMC->Gspos("I005", 3,"IT34",-15.4744, 17.8584,-0.15, idrotm[331],"ONLY");
3245 gMC->Gspos("I005", 4,"IT34",-20.3415, 13.0727,-0.15, idrotm[366],"ONLY");
3246 gMC->Gspos("I005", 5,"IT34",-22.6728, 6.6573,-0.15, idrotm[330],"ONLY");
3247 gMC->Gspos("I005", 6,"IT34",-24.18, 0.0, -0.15, idrotm[350],"ONLY");
3248 gMC->Gspos("I005", 7,"IT34",-22.6728, -6.6573,-0.15, idrotm[329],"ONLY");
3249 gMC->Gspos("I005", 8,"IT34",-20.3415, -13.0727,-0.15, idrotm[328],"ONLY");
3250 gMC->Gspos("I005", 9,"IT34",-15.4744, -17.8584,-0.15, idrotm[327],"ONLY");
3251 gMC->Gspos("I005",10,"IT34",-10.0447, -21.9949,-0.15, idrotm[326],"ONLY");
3252 gMC->Gspos("I005",11,"IT34", -3.3629, -23.3895,-0.15, idrotm[325],"ONLY");
3253 gMC->Gspos("I005",12,"IT34", 3.4412, -23.9339,-0.15, idrotm[324],"ONLY");
3254 gMC->Gspos("I005",13,"IT34", 9.8163, -21.4946,-0.15, idrotm[323],"ONLY");
3255 gMC->Gspos("I005",14,"IT34", 15.8345, -18.274, -0.15, idrotm[322],"ONLY");
3256 gMC->Gspos("I005",15,"IT34", 19.8788, -12.7753,-0.15, idrotm[320],"ONLY");
3257 gMC->Gspos("I005",16,"IT34", 23.2005, -6.8123,-0.15, idrotm[319],"ONLY");
3258 gMC->Gspos("I005",17,"IT34", 23.63, 0.0, -0.15, idrotm[318],"ONLY");
3259 gMC->Gspos("I005",18,"IT34", 23.2005, 6.8123,-0.15, idrotm[317],"ONLY");
3260 gMC->Gspos("I005",19,"IT34", 19.8788, 12.7753,-0.15, idrotm[316],"ONLY");
3261 gMC->Gspos("I005",20,"IT34", 15.8345, 18.274, -0.15, idrotm[315],"ONLY");
3262 gMC->Gspos("I005",21,"IT34", 9.8163, 21.4946,-0.15, idrotm[314],"ONLY");
3263 gMC->Gspos("I005",22,"IT34", 3.4412, 23.9339,-0.15, idrotm[334],"ONLY");
3264
3265
3266 // -- build block of the SDD ladder frame holding the electronics
3267
3268 gMC->Gspos("I019", 1,"I018", -1.9, -1.735, 0.0, idrotm[344], "ONLY");
3269 gMC->Gspos("I019", 2,"I018", 1.987, -1.5843, 0.0, idrotm[343], "ONLY");
3270 gMC->Gspos("I019", 3,"I018", -0.087, 1.7066, 0.0, idrotm[342], "ONLY");
3271
3272 gMC->Gspos("I020", 1,"I018", -1.9782, -1.569, 0.0, idrotm[342], "ONLY");
3273 gMC->Gspos("I020", 2,"I018", 1.8824, -1.735, 0.0, idrotm[344], "ONLY");
3274 gMC->Gspos("I020", 3,"I018", 0.0958, 1.6913, 0.0, idrotm[343], "ONLY");
3275
3276 gMC->Gspos("I021", 1,"I018", 1.0761, 0.0835, 2.6008, idrotm[340], "ONLY");
3277 gMC->Gspos("I021", 2,"I018", -1.0761, 0.0835,-2.8008, idrotm[339], "ONLY");
3278 gMC->Gspos("I021", 3,"I018", -1.0761, 0.0835,-1.0492, idrotm[338], "ONLY");
3279 gMC->Gspos("I021", 4,"I018", 1.0761, 0.0835,-2.8008, idrotm[337], "ONLY");
3280 gMC->Gspos("I021", 5,"I018", 1.0761, 0.0835,-1.0492, idrotm[340], "ONLY");
3281 gMC->Gspos("I021", 6,"I018", -1.0761, 0.0835, 0.8492, idrotm[339], "ONLY");
3282 gMC->Gspos("I021", 7,"I018", -1.0761, 0.0835, 2.6008, idrotm[338], "ONLY");
3283 gMC->Gspos("I021", 8,"I018", 1.0761, 0.0835, 0.8492, idrotm[337], "ONLY");
3284
3285 gMC->Gspos("I022", 1,"I018", 0.0, -1.79, 3.55, idrotm[312], "ONLY");
3286 gMC->Gspos("I022", 2,"I018", 0.0, -1.79, -0.1, idrotm[312], "ONLY");
3287
3288 gMC->Gspos("I023", 1,"I018", 0.0, -1.79, 1.725, idrotm[341], "ONLY");
3289 gMC->Gspos("I023", 2,"I018", 0.0, -1.79, -1.925, idrotm[341], "ONLY");
3290
3291 gMC->Gspos("I033", 1,"I018", 1.8, -1.75, 1.35, 0, "MANY");
3292 gMC->Gspos("I033", 2,"I018", -1.8, -1.75, -2.65, idrotm[345], "MANY");
3293 gMC->Gspos("I033", 3,"I018", -1.8, -1.75, 1.35, idrotm[345], "MANY");
3294 gMC->Gspos("I033", 4,"I018", 1.8, -1.75, -2.65, 0, "MANY");
3295
3296 gMC->Gspos("I034", 1,"I018", 1.6, -1.775, 1.35, idrotm[312], "ONLY");
3297 gMC->Gspos("I034", 2,"I018", -1.6, -1.775, -2.65, idrotm[348], "ONLY");
3298 gMC->Gspos("I034", 3,"I018", -1.6, -1.775, 1.35, idrotm[348], "ONLY");
3299 gMC->Gspos("I034", 4,"I018", 1.6, -1.775, -2.65, idrotm[312], "ONLY");
3300
3301 gMC->Gspos("I035", 1,"I018", 1.7, -0.55, I018dits[2]-I035dits[2], 0, "MANY");
3302 gMC->Gspos("I035", 2,"I018", -1.7, -0.55, I018dits[2]-I035dits[2], 0, "MANY");
3303
3304 gMC->Gspos("I036", 1,"I018", 0.3087, 1.7191, 3.56, idrotm[346], "ONLY");
3305 gMC->Gspos("I036", 2,"I018", 0.3087, 1.7191,-0.11, idrotm[346], "ONLY");
3306 gMC->Gspos("I036", 3,"I018", -0.3087, 1.7191,-0.11, idrotm[347], "ONLY");
3307 gMC->Gspos("I036", 4,"I018", -0.3087, 1.7191, 3.56, idrotm[347], "ONLY");
3308
3309 gMC->Gspos("I037", 1,"I018", SDD_CoolPipe[0], SDD_CoolPipe[1], SDD_CoolPipe[2], 0 , "ONLY");
3310 gMC->Gspos("I037", 2,"I018", -SDD_CoolPipe[0], SDD_CoolPipe[1], SDD_CoolPipe[2], 0 , "ONLY");
3311
3312 gMC->Gspos("I038", 1,"I018", SDD_CoolPipe[0], SDD_CoolPipe[1], SDD_CoolPipe[2], 0 , "ONLY");
3313 gMC->Gspos("I038", 2,"I018", -SDD_CoolPipe[0], SDD_CoolPipe[1], SDD_CoolPipe[2], 0 , "ONLY");
3314
3315 gMC->Gspos("I040", 1,"I018", 1.9204, -0.7118, 0.0, idrotm[346],"ONLY");
3316 gMC->Gspos("I040", 2,"I018", -1.9204, -0.7118, 0.0, idrotm[347],"ONLY");
3317 gMC->Gspos("I041", 1,"I018", SDD_CoolPipe[0], SDD_CoolPipe[1], SDD_CoolPipe[2], idrotm[346], "ONLY");
3318 gMC->Gspos("I041", 2,"I018", -SDD_CoolPipe[0], SDD_CoolPipe[1], SDD_CoolPipe[2], idrotm[347], "ONLY");
3319
3320
3321 // -- build block of the SDD electronics (heat bridge, chips, hybrid, anode microcable)
3322
3323 xI050 = SDD_CoolPipe[0]+SDD_CoolPipe[1]*sin30+I050dits[1]/cos30+I041dits[1];
3324 yI050 = 0;
3325 xI039 = -SDD_CoolPipe[1]/cos30;
3326 yI039 = -I050dits[1]+I039dits[1];
3327 gMC->Gspos("I039", 1,"I050", xI039, yI039, 0.0, 0, "ONLY");
3328 xI042 = xI039+I039dits[0]-xI042space-I042dits[0];
3329 yI042 = yI039+I039dits[1]+I042dits[1];
3330 xI043 = xI039-I039dits[0]+xI043space+I043dits[0];
3331 yI043 = yI039+I039dits[1]+I043dits[1];
3332 zChipSpace = I042dits[2];
3333 if (zChipSpace < I043dits[2]) {
3334 zChipSpace = I043dits[2];
3335 }
3336 zChipSpace = zChipSpace * 2;
3337 yI051space = (2*I039dits[2] - 4*zChipSpace)/5;
3338 zchip = -I039dits[2] + yI051space + zChipSpace/2.;
3339 for (ichip=0; ichip<4; ichip++) {
3340 gMC->Gspos("I042", ichip+1, "I050", xI042, yI042, zchip, 0, "ONLY");
3341 gMC->Gspos("I043", ichip+1, "I050", xI043, yI043, zchip, 0, "ONLY");
3342 zchip += zChipSpace + yI051space;
3343 }
3344 xcap = 2*I039dits[0]/5.;
3345 yI051 = yI039+I039dits[1]+I051dits[1];
3346 zI051 = -I039dits[2] + yI051space/3.;
3347 icap = 1;
3348 for (ichip=0; ichip<5; ichip++) {
3349 xI051 = xI039-I039dits[0]+xcap;
3350 gMC->Gspos("I051", icap++,"I050", xI051, yI051, zI051, 0, "ONLY");
3351 zI051 += yI051space/3.;
3352 gMC->Gspos("I051", icap++,"I050", xI051, yI051, zI051, 0, "ONLY");
3353 xI051 += xcap;
3354 gMC->Gspos("I051", icap++,"I050", xI051, yI051, zI051, 0, "ONLY");
3355 xI051 += xcap;
3356 gMC->Gspos("I051", icap++,"I050", xI051, yI051, zI051, 0, "ONLY");
3357 xI051 += xcap;
3358 gMC->Gspos("I051", icap++,"I050", xI051, yI051, zI051, 0, "ONLY");
3359 zI051 -= yI051space/3.;
3360 if (ichip == 0) {
3361 gMC->Gspos("I051", icap++,"I050", xI051, yI051, zI051, 0, "ONLY");
3362 }
3363 zI051 += zChipSpace + yI051space;
3364 }
3365 xI052 = -I050dits[0]+I052dits[0];
3366 yI052 = yI051+I051dits[1]+I052dits[1];
3367 gMC->Gspos("I052", 1,"I050", xI052, yI052, 0.0, 0, "ONLY");
3368 xI044 = I050dits[0]-I044dits[3];
3369 yI044 = yI052+I052dits[1]+I044dits[2];
3370 gMC->Gspos("I044", 1,"I050", xI044, yI044, 0.0, idrotm[301], "ONLY");
3371 gMC->Gspos("I050", 1,"I018", xI050, yI050, 0.0, idrotm[346],"ONLY");
3372 gMC->Gspos("I050", 2,"I018", -xI050, yI050, 0.0, idrotm[347],"ONLY");
3373
3374
3375 // -- build block of the SDD ladder frame at the end ladders
3376
3377 gMC->Gspos("I021",12,"I024", 1.0761, 0.0836,-0.1242, idrotm[340], "ONLY");
3378 gMC->Gspos("I021",11,"I024", -1.0761, 0.0836,-0.1242, idrotm[338], "ONLY");
3379 gMC->Gspos("I021",13,"I024", -1.0761, 0.0836,-1.8758, idrotm[339], "ONLY");
3380 gMC->Gspos("I021",14,"I024", 1.0761, 0.0836,-1.8758, idrotm[337], "ONLY");
3381
3382 gMC->Gspos("I022", 3,"I024", 0.0, -1.7899, 0.825, idrotm[312], "ONLY");
3383
3384 gMC->Gspos("I023", 3,"I024", 0.0, -1.7899,-1.0, idrotm[341], "ONLY");
3385
3386 gMC->Gspos("I025", 1,"I024", -1.9, -1.7349, 0.0, idrotm[344], "ONLY");
3387 gMC->Gspos("I025", 2,"I024", 1.987, -1.5842, 0.0, idrotm[343], "ONLY");
3388
3389 gMC->Gspos("I026", 1,"I024", -1.9782, -1.5689, 0.0, idrotm[342], "ONLY");
3390 gMC->Gspos("I026", 2,"I024", 1.8824, -1.7349, 0.0, idrotm[344], "ONLY");
3391
3392 gMC->Gspos("I029", 1,"I024", -0.087, 1.7067, I029dits[2]-I024dits[2], idrotm[342], "ONLY");
3393
3394 gMC->Gspos("I030", 1,"I024", 0.0958, 1.6914, I030dits[2]-I024dits[2], idrotm[343], "ONLY");
3395
3396 gMC->Gspos("I031", 1,"I024", SDD_CoolPipe[0], SDD_CoolPipe[1], SDD_CoolPipe[2], 0 ,"ONLY");
3397 gMC->Gspos("I031", 2,"I024", -SDD_CoolPipe[0], SDD_CoolPipe[1], SDD_CoolPipe[2], 0 ,"ONLY");
3398
3399 gMC->Gspos("I032", 1,"I024", SDD_CoolPipe[0], SDD_CoolPipe[1], SDD_CoolPipe[2], 0 ,"ONLY");
3400 gMC->Gspos("I032", 2,"I024", -SDD_CoolPipe[0], SDD_CoolPipe[1], SDD_CoolPipe[2], 0 ,"ONLY");
3401
3402
3403 xI424 = I028dits[0]/3.;
3404 yI424 = -I028dits[1]+I424dits[1];
3405 gMC->Gspos("I422", 1,"I421", 0.0, 0.0, 0.0, 0, "ONLY");
e4f08ac3 3406 gMC->Gspos("I423", 1,"I421", 0.0, 0.0, I421dits[2]-I423dits[2], 0, "ONLY");
3407 gMC->Gspos("I421", 1,"I420", 0.0, 0.0, 0.0, idrotm[312], "ONLY");
9d2da7b3