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