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