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