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