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