Initialization of the AliITSgeom object: code cleanup. The object is no longer stored...
[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
88cb7938 16/* $Id$ */
6b2a1732 17///////////////////////////////////////////////////////////////////////////////
18// //
19// Inner Traking System version PPR asymmetric for the FMD //
20// This class contains the base procedures for the Inner Tracking System //
21// //
22// Authors: R. Barbera //
f3c2ddf7 23// version 10. //
6b2a1732 24// Created January 15 2001. //
25// //
f3c2ddf7 26// NOTE: THIS IS THE ASYMMETRIC PPR geometry of the ITS for the PMD. //
6b2a1732 27// //
28///////////////////////////////////////////////////////////////////////////////
29
30// See AliITSvPPRasymmFMD::StepManager().
88cb7938 31
88cb7938 32#include <TClonesArray.h>
6b2a1732 33#include <TGeometry.h>
88cb7938 34#include <TLorentzVector.h>
fd9cde50 35#include <TGeoMatrix.h>
36#include <TArrayD.h>
37#include <TArrayF.h>
38#include <TString.h>
6b2a1732 39#include <TNode.h>
88cb7938 40#include <TTUBE.h>
4f849f3d 41#include <TGeoManager.h>
42#include <TGeoVolume.h>
f4396efc 43#include <TVirtualMC.h>
6b2a1732 44
6b2a1732 45#include "AliITS.h"
7d62fb64 46#include "AliITSDetTypeSim.h"
6b2a1732 47#include "AliITSgeom.h"
6b2a1732 48#include "AliITSgeomSDD.h"
88cb7938 49#include "AliITSgeomSPD.h"
6b2a1732 50#include "AliITSgeomSSD.h"
88cb7938 51#include "AliITShit.h"
6b2a1732 52#include "AliITSresponseSDD.h"
fcf95fc7 53#include "AliITSCalibrationSDD.h"
54#include "AliITSCalibrationSPD.h"
55#include "AliITSCalibrationSSD.h"
6b2a1732 56#include "AliITSsegmentationSDD.h"
88cb7938 57#include "AliITSsegmentationSPD.h"
6b2a1732 58#include "AliITSsegmentationSSD.h"
88cb7938 59#include "AliITSvPPRasymmFMD.h"
f77f13c8 60#include "AliLog.h"
61#include "AliMC.h"
88cb7938 62#include "AliMagF.h"
63#include "AliRun.h"
64#include "AliTrackReference.h"
6b2a1732 65
7d62fb64 66
164da35c 67#define GEANTGEOMETRY kTRUE
68
6b2a1732 69ClassImp(AliITSvPPRasymmFMD)
70
87577a03 71//______________________________________________________________________
ed9289c8 72AliITSvPPRasymmFMD::AliITSvPPRasymmFMD(): AliITS(),
73fGeomDetOut(kFALSE),
74fGeomDetIn(kFALSE),
75fByThick(kTRUE),
76fMajorVersion(IsVersion()),
77fMinorVersion(-1),
78fDet1(0),
79fDet2(0),
80fChip1(0),
81fChip2(0),
82fRails(0),
83fFluid(0),
84fIDMother(0)
85 {
87577a03 86 // Standard default constructor for the ITS version 10.
87 // Inputs:
88 // none.
89 // Outputs:
90 // none.
91 // Return:
92 // none.
6b2a1732 93 Int_t i;
6b2a1732 94 for(i=0;i<60;i++) fRead[i] = '\0';
95 for(i=0;i<60;i++) fWrite[i] = '\0';
96 for(i=0;i<60;i++) fEuclidGeomDet[i] = '\0';
164da35c 97 strncpy(fRead,"$ALICE_ROOT/ITS/ITSgeometry_vPPRasymmFMD.det",60);
6b2a1732 98}
87577a03 99//______________________________________________________________________
100AliITSvPPRasymmFMD::AliITSvPPRasymmFMD(const char *name, const char *title)
ed9289c8 101 : AliITS("ITS", title),
102 fGeomDetOut(kFALSE),
103 fGeomDetIn(kFALSE),
104 fByThick(kTRUE),
105 fMajorVersion(IsVersion()),
106 fMinorVersion(2),
107 fDet1(0),
108 fDet2(0),
109 fChip1(0),
110 fChip2(0),
111 fRails(0),
112 fFluid(0),
113 fIDMother(0) {
87577a03 114 // Standard constructor for the ITS version 10.
115 // Inputs:
116 // const char * name Ignored, set to "ITS"
117 // const char * title Arbitrary title
118 // Outputs:
119 // none.
120 // Return:
121 // none.
6b2a1732 122 Int_t i;
123
124 fIdN = 6;
125 fIdName = new TString[fIdN];
ac74f489 126 fIdName[0] = name; // removes warning message
6b2a1732 127 fIdName[0] = "ITS1";
128 fIdName[1] = "ITS2";
129 fIdName[2] = "ITS3";
130 fIdName[3] = "ITS4";
131 fIdName[4] = "ITS5";
132 fIdName[5] = "ITS6";
133 fIdSens = new Int_t[fIdN];
134 for(i=0;i<fIdN;i++) fIdSens[i] = 0;
6b2a1732 135 SetThicknessDet1();
136 SetThicknessDet2();
137 SetThicknessChip1();
87577a03 138 SetThicknessChip2();
139 SetDensityServicesByThickness();
6b2a1732 140
141 fEuclidGeometry="$ALICE_ROOT/ITS/ITSgeometry_vPPRasymm2.euc";
142 strncpy(fEuclidGeomDet,"$ALICE_ROOT/ITS/ITSgeometry_vPPRasymm2.det",60);
143 strncpy(fRead,fEuclidGeomDet,60);
144 strncpy(fWrite,fEuclidGeomDet,60);
164da35c 145 strncpy(fRead,"$ALICE_ROOT/ITS/ITSgeometry_vPPRasymmFMD.det",60);
6b2a1732 146}
87577a03 147//______________________________________________________________________
6b2a1732 148AliITSvPPRasymmFMD::~AliITSvPPRasymmFMD() {
87577a03 149 // Standard destructor for the ITS version 10.
150 // Inputs:
151 // none.
152 // Outputs:
153 // none.
154 // Return:
155 // none.
6b2a1732 156}
ed9289c8 157
158//______________________________________________________________________
159void AliITSvPPRasymmFMD::AddAlignableVolumes() const
160{
161 //
162 // Create entries for alignable volumes associating the symbolic volume
163 // name with the corresponding volume path.
164 //
165 AliInfo("Add ITS alignable volumes");
166
167 if (!gGeoManager) {
168 AliFatal("TGeoManager doesn't exist !");
169 return;
170 }
171
172 if( !gGeoManager->SetAlignableEntry("ITS","ALIC_1/ITSV_1") )
173 AliFatal("Unable to set alignable entry!!");
174
175 TString strSPD = "ITS/SPD";
176 TString strSDD = "ITS/SDD";
177 TString strSSD = "ITS/SSD";
178 TString strStave = "/Stave";
179 TString strLadder = "/Ladder";
180 TString strSector = "/Sector";
181 TString strSensor = "/Sensor";
182 TString strEntryName1;
183 TString strEntryName2;
184 TString strEntryName3;
185
186 //===== SPD layer1 =====
187 {
188 TString str0 = "ALIC_1/ITSV_1/ITSD_1/IT12_1/I12B_";
189 TString str1 = "/I10B_";
190 TString str2 = "/I107_";
191
192 TString sector;
193 TString stave;
194 TString module;
195
196 for(Int_t c1 = 1; c1<=10; c1++){
197
198 sector = str0;
199 sector += c1; // this is one full sector
200 strEntryName1 = strSPD;
201 strEntryName1 += 0;
202 strEntryName1 += strSector;
203 strEntryName1 += (c1-1);
204 if(!gGeoManager->SetAlignableEntry(strEntryName1.Data(),sector.Data()))
205 AliFatal("Unable to set alignable entry!!");
206 //printf("%s == %s\n",strEntryName1.Data(),sector.Data());
207
208 for(Int_t c2 =1; c2<=2; c2++){
209
210 stave = sector;
211 stave += str1;
212 stave += c2;
213 strEntryName2 = strEntryName1;
214 strEntryName2 += strStave;
215 strEntryName2 += (c2-1);
216 if(!gGeoManager->SetAlignableEntry(strEntryName2.Data(),stave.Data()))
217 AliFatal("Unable to set alignable entry!!");
218 //printf("%s == %s\n",strEntryName2.Data(),stave.Data()); // this is a stave
219
220 for(Int_t c3 =1; c3<=4; c3++){
221
222 module = stave;
223 module += str2;
224 module += c3;
225 strEntryName3 = strEntryName2;
226 strEntryName3 += strLadder;
227 strEntryName3 += (c3-1);
228 if(!gGeoManager->SetAlignableEntry(strEntryName3.Data(),module.Data()))
229 AliFatal("Unable to set alignable entry!!");
230 //printf("%s == %s\n",strEntryName3.Data(),module.Data());
231 }
232 }
233 }
234 }
235
236 //===== SPD layer2 =====
237 {
238 TString str0 = "ALIC_1/ITSV_1/ITSD_1/IT12_1/I12B_";
239 TString str1 = "/I20B_";
240 TString str2 = "/I1D7_";
241
242 TString sector;
243 TString stave;
244 TString module;
245
246 for(Int_t c1 = 1; c1<=10; c1++){
247
248 sector = str0;
249 sector += c1; // this is one full sector
250 strEntryName1 = strSPD;
251 strEntryName1 += 1;
252 strEntryName1 += strSector;
253 strEntryName1 += (c1-1);
254 if(!gGeoManager->SetAlignableEntry(strEntryName1.Data(),sector.Data()))
255 AliFatal("Unable to set alignable entry!!");
256 //printf("%s == %s\n",strEntryName1.Data(),sector.Data());
257
258 for(Int_t c2 =1; c2<=4; c2++){
259
260 stave = sector;
261 stave += str1;
262 stave += c2;
263 strEntryName2 = strEntryName1;
264 strEntryName2 += strStave;
265 strEntryName2 += (c2-1);
266 if(!gGeoManager->SetAlignableEntry(strEntryName2.Data(),stave.Data()))
267 AliFatal("Unable to set alignable entry!!");
268 //printf("%s == %s\n",strEntryName2.Data(),stave.Data()); // this is a stave
269
270 for(Int_t c3 =1; c3<=4; c3++){
271
272 module = stave;
273 module += str2;
274 module += c3;
275 strEntryName3 = strEntryName2;
276 strEntryName3 += strLadder;
277 strEntryName3 += (c3-1);
278 if(!gGeoManager->SetAlignableEntry(strEntryName3.Data(),module.Data()))
279 AliFatal("Unable to set alignable entry!!");
280 //printf("%s == %s\n",strEntryName3.Data(),module.Data());
281 }
282 }
283 }
284 }
285
286 //===== SDD layer1 =====
287 {
288 TString str0 = "ALIC_1/ITSV_1/ITSD_1/IT34_1/I004_";
289 TString str1 = "/I302_";
290
291 TString ladder;
292 TString wafer;
293
294 for(Int_t c1 = 1; c1<=14; c1++){
295
296 ladder = str0;
297 ladder += c1; // the set of wafers from one ladder
298 strEntryName1 = strSDD;
299 strEntryName1 += 2;
300 strEntryName1 +=strLadder;
301 strEntryName1 += (c1-1);
302 if(!gGeoManager->SetAlignableEntry(strEntryName1.Data(),ladder.Data()))
303 AliFatal("Unable to set alignable entry!!");
304 //printf("%s == %s\n",strEntryName1.Data(),ladder.Data());
305
306 for(Int_t c2 =1; c2<=6; c2++){
307
308 wafer = ladder;
309 wafer += str1;
310 wafer += c2; // one wafer
311 strEntryName2 = strEntryName1;
312 strEntryName2 += strSensor;
313 strEntryName2 += (c2-1);
314 if(!gGeoManager->SetAlignableEntry(strEntryName2.Data(),wafer.Data()))
315 AliFatal("Unable to set alignable entry!!");
316 //printf("%s == %s\n",strEntryName2.Data(),wafer.Data());
317
318 }
319 }
320 }
321
322 //===== SDD layer2 =====
323 {
324 TString str0 = "ALIC_1/ITSV_1/ITSD_1/IT34_1/I005_";
325 TString str1 = "/I402_";
326
327 TString ladder;
328 TString wafer;
329
330 for(Int_t c1 = 1; c1<=22; c1++){
331
332 ladder = str0;
333 ladder += c1; // the set of wafers from one ladder
334 strEntryName1 = strSDD;
335 strEntryName1 += 3;
336 strEntryName1 +=strLadder;
337 strEntryName1 += (c1-1);
338 if(!gGeoManager->SetAlignableEntry(strEntryName1.Data(),ladder.Data()))
339 AliFatal("Unable to set alignable entry!!");
340 //printf("%s == %s\n",strEntryName1.Data(),ladder.Data());
341
342 for(Int_t c2 =1; c2<=8; c2++){
343
344 wafer = ladder;
345 wafer += str1;
346 wafer += c2; // one wafer
347 strEntryName2 = strEntryName1;
348 strEntryName2 += strSensor;
349 strEntryName2 += (c2-1);
350 if(!gGeoManager->SetAlignableEntry(strEntryName2.Data(),wafer.Data()))
351 AliFatal("Unable to set alignable entry!!");
352 //printf("%s == %s\n",strEntryName2.Data(),wafer.Data());
353 }
354 }
355 }
356
357 //===== SSD layer1 =====
358 {
359 TString str0 = "ALIC_1/ITSV_1/ITSD_1/IT56_1/I565_";
360 TString str1 = "/I562_";
361
362 TString ladder;
363 TString wafer;
364
365 for(Int_t c1 = 1; c1<=34; c1++){
366
367 ladder = str0;
368 ladder += c1; // the set of wafers from one ladder
369 strEntryName1 = strSSD;
370 strEntryName1 += 4;
371 strEntryName1 +=strLadder;
372 strEntryName1 += (c1-1);
373 if(!gGeoManager->SetAlignableEntry(strEntryName1.Data(),ladder.Data()))
374 AliFatal("Unable to set alignable entry!!");
375 //printf("%s == %s\n",strEntryName1.Data(),ladder.Data());
376
377 for(Int_t c2 = 1; c2<=22; c2++){
378
379 wafer = ladder;
380 wafer += str1;
381 wafer += c2; // one wafer
382 strEntryName2 = strEntryName1;
383 strEntryName2 += strSensor;
384 strEntryName2 += (c2-1);
385 if(!gGeoManager->SetAlignableEntry(strEntryName2.Data(),wafer.Data()))
386 AliFatal("Unable to set alignable entry!!");
387 //printf("%s == %s\n",strEntryName2.Data(),wafer.Data());
388 }
389 }
390 }
391
392 //===== SSD layer2 =====
393 {
394 TString str0 = "ALIC_1/ITSV_1/ITSD_1/IT56_1/I569_";
395 TString str1 = "/I566_";
396
397 TString ladder;
398 TString wafer;
399
400 for(Int_t c1 = 1; c1<=38; c1++){
401
402 ladder = str0;
403 ladder += c1; // the set of wafers from one ladder
404 strEntryName1 = strSSD;
405 strEntryName1 += 5;
406 strEntryName1 +=strLadder;
407 strEntryName1 += (c1-1);
408 if(!gGeoManager->SetAlignableEntry(strEntryName1.Data(),ladder.Data()))
409 AliFatal("Unable to set alignable entry!!");
410 //printf("%s == %s\n",strEntryName1.Data(),ladder.Data());
411
412 for(Int_t c2 = 1; c2<=25; c2++){
413
414 wafer = ladder;
415 wafer += str1;
416 wafer += c2; // one wafer
417 strEntryName2 = strEntryName1;
418 strEntryName2 += strSensor;
419 strEntryName2 += (c2-1);
420 if(!gGeoManager->SetAlignableEntry(strEntryName2.Data(),wafer.Data()))
421 AliFatal("Unable to set alignable entry!!");
422 //printf("%s == %s\n",strEntryName2.Data(),wafer.Data());
423
424 }
425 }
426 }
427
428}
87577a03 429//______________________________________________________________________
6b2a1732 430void AliITSvPPRasymmFMD::BuildGeometry(){
87577a03 431 // Geometry builder for the ITS version 10. Event Display geometry.
432 // Inputs:
433 // none.
434 // Outputs:
435 // none.
436 // Return:
437 // none.
438
6b2a1732 439 TNode *node, *top;
440
441 const Int_t kColorITS=kYellow;
442 //
443 top = gAlice->GetGeometry()->GetNode("alice");
444
445
87577a03 446 new TTUBE("S_layer1","Layer1 of ITS","void",
447 3.8095,3.8095+1.03*9.36/100.,14.35);
6b2a1732 448 top->cd();
449 node = new TNode("Layer1","Layer1","S_layer1",0,0,0,"");
450 node->SetLineColor(kColorITS);
451 fNodes->Add(node);
452
453 new TTUBE("S_layer2","Layer2 of ITS","void",7.,7.+1.03*9.36/100.,14.35);
454 top->cd();
455 node = new TNode("Layer2","Layer2","S_layer2",0,0,0,"");
456 node->SetLineColor(kColorITS);
457 fNodes->Add(node);
458
459 new TTUBE("S_layer3","Layer3 of ITS","void",15.,15.+0.94*9.36/100.,25.1);
460 top->cd();
461 node = new TNode("Layer3","Layer3","S_layer3",0,0,0,"");
462 node->SetLineColor(kColorITS);
463 fNodes->Add(node);
464
465 new TTUBE("S_layer4","Layer4 of ITS","void",24.1,24.1+0.95*9.36/100.,32.1);
466 top->cd();
467 node = new TNode("Layer4","Layer4","S_layer4",0,0,0,"");
468 node->SetLineColor(kColorITS);
469 fNodes->Add(node);
470
87577a03 471 new TTUBE("S_layer5","Layer5 of ITS","void",
472 38.5,38.5+0.91*9.36/100.,49.405);
6b2a1732 473 top->cd();
474 node = new TNode("Layer5","Layer5","S_layer5",0,0,0,"");
475 node->SetLineColor(kColorITS);
476 fNodes->Add(node);
477
87577a03 478 new TTUBE("S_layer6","Layer6 of ITS","void",
479 43.5765,43.5765+0.87*9.36/100.,55.27);
6b2a1732 480 top->cd();
481 node = new TNode("Layer6","Layer6","S_layer6",0,0,0,"");
482 node->SetLineColor(kColorITS);
483 fNodes->Add(node);
6b2a1732 484}
87577a03 485//______________________________________________________________________
6b2a1732 486void AliITSvPPRasymmFMD::CreateGeometry(){
87577a03 487 // This routine defines and Creates the geometry for version 10 of
488 // the ITS.
489 // Inputs:
490 // none.
491 // Outputs:
492 // none.
493 // Return:
494 // none.
495
496 //Begin_Html
497 /*
498 <img src="picts/ITS/ITS_full_vPPRasymm.jpg">
499 </pre>
500 <br clear=left>
501 <font size=+2 color=red>
502 <p>This shows the full ITS geometry.
503 </font>
504 <img src="picts/ITS/ITS_SPD_Barrel_vPPRasymm.jpg">
505 </pre>
506 < br clear=left>
507 <font size=+2 color=red>
508 <p>This shows the full SPD Barrel of the ITS geometry.
509 </font>
510 <img src="picts/ITS/ITS_SDD_Barrel_vPPRasymm.jpg">
511 </pre>
512 <br clear=left>
513 <font size=+2 color=red>
514 <p>This shows the full SDD Barrel of the ITS geometry.
515 </font>
516 <img src="picts/ITS/ITS_SSD_Barrel_vPPRasymm.jpg">
517 </pre>
518 <br clear=left>
519 <font size=+2 color=red>
520 <p>This shows the full SSD Barrel of the ITS geometry.
521 </font>
522 */
523 //End_Html
524 //INNER RADII OF THE SILICON LAYERS
525 // Float_t rl[6] = { 3.8095,7.,15.,24.,38.1,43.5765 };
526 //THICKNESSES OF LAYERS (in % radiation length)
527 Float_t drl[6] = { 1.03,1.03,0.94,0.95,0.91,0.87 };
528 //HALF LENGTHS OF LAYERS
529 // Float_t dzl[6] = { 14.35,14.35,25.1,32.1,49.405,55.27 };
530 //LENGTHS OF END-LADDER BOXES (ALL INCLUDED)
531 // Float_t dzb[6] = { 12.4,12.4,13.5,15.,7.5,7.5 };
532 //THICKNESSES OF END-LADDER BOXES (ALL INCLUDED)
533 // Float_t drb[6] = { rl[1]-rl[0],0.2,5.,5.,4.,4. };
534
535
536 Float_t dits[100], rlim, zmax;
537 // Float_t zpos;
538 // Float_t pcits[50]
539 Float_t ztpc;
540 Int_t idrotm[1999], i;
541 Float_t dgh[100];
542
543
544 // Define some variables for SPD
545
546 Float_t dits1[3], di101[3], di107[3], di10b[3], di106[3];// for layer 1
547 Float_t di103[3], di10a[3], di102[3]; // for layer 1
548 Float_t dits2[3], di1d1[3], di1d7[3], di20b[3], di1d6[3];// for layer 2
549 Float_t di1d3[3], di20a[3], di1d2[3]; // for layer 2
550 Float_t di108[3], di104[3]; // for both layers
551
552 Float_t ddet1=200.; // total detector thickness on layer 1 (micron)
553 Float_t dchip1=200.; // total chip thickness on layer 1 (micron)
554
555 Float_t ddet2=200.; // total detector thickness on layer 2 (micron)
556 Float_t dchip2=200.; // total chip thickness on layer 2 (micron)
557
558 Float_t dbus=300.; // total bus thickness on both layers (micron)
559
560 ddet1 = GetThicknessDet1();
561 ddet2 = GetThicknessDet2();
562 dchip1 = GetThicknessChip1();
563 dchip2 = GetThicknessChip2();
564
565 if(ddet1 < 100. || ddet1 > 300.) {
f77f13c8 566 AliWarning("The detector thickness for layer 1 is outside ");
567 AliWarning("the range of [100,300] microns. The default value of 200 microns ");
568 AliWarning("will be used.");
87577a03 569 ddet1=200.;
570 } // end if
6b2a1732 571
87577a03 572 if(ddet2 < 100. || ddet2 > 300.) {
f77f13c8 573 AliWarning("The detector thickness for layer 2 is outside ");
574 AliWarning("the range of [100,300] microns. The default value of 200 microns ");
575 AliWarning("will be used.");
87577a03 576 ddet2=200.;
577 }// end if
6b2a1732 578
87577a03 579 if(dchip1 < 100. || dchip1 > 300.) {
f77f13c8 580 AliWarning("The chip thickness for layer 1 is outside");
581 AliWarning("the range of [100,300] microns. The default value of 200 microns");
582 AliWarning("will be used.");
583 dchip1=200.;
87577a03 584 }// end if
6b2a1732 585
87577a03 586 if(dchip2 < 100. || dchip2 > 300.) {
f77f13c8 587 AliWarning("The chip thickness for layer 2 is outside");
588 AliWarning("the range of [100,300] microns. The default value of 200 microns");
589 AliWarning("will be used");
590 dchip2=200.;
87577a03 591 }// end if
6b2a1732 592
87577a03 593 Int_t rails = 1; // flag for rails (1 --> rails in; 0 --> rails out)
6b2a1732 594
ad819a25 595 Int_t fluid = 1; // flag for the cooling fluid (1 --> water; 0 --> freon)
596 // This option is maintained for SDD and SSD only
597 // For SPD the cooling liquid is C4F10
87577a03 598 rails = GetRails();
6b2a1732 599
87577a03 600 fluid = GetCoolingFluid();
6b2a1732 601
87577a03 602 if(rails != 0 && rails != 1) {
f77f13c8 603 AliWarning("The switch for rails is not set neither");
604 AliWarning("to 0 (rails out) nor to 1 (rails in). The default value of");
605 AliWarning("1 (rails in) will be used");
606 rails=1;
87577a03 607 }// end if
6b2a1732 608
6b2a1732 609
64f311fe 610 AliDebug(1,Form("Detector thickness on layer 1 is set to %f microns",ddet1));
611 AliDebug(1,Form("Chip thickness on layer 1 is set to %f microns",dchip1));
612 AliDebug(1,Form("Detector thickness on layer 2 is set to %f microns",ddet2));
613 AliDebug(1,Form("Chip thickness on layer 2 is set to %f microns",dchip2));
87577a03 614 if(rails == 0 ) {
64f311fe 615 AliDebug(1,"Rails are out.");
87577a03 616 } else {
64f311fe 617 AliDebug(1,"Rails are in.");
87577a03 618 }// end if
6b2a1732 619
87577a03 620 ddet1 = ddet1*0.0001/2.; // conversion from tot length in um to half in cm
621 ddet2 = ddet2*0.0001/2.; // conversion from tot length in um to half in cm
622 dchip1 = dchip1*0.0001/2.;// conversion from tot length in um to half in cm
623 dchip2 = dchip2*0.0001/2.;// conversion from tot length in um to half in cm
624 dbus = dbus*0.0001/2.; // conversion from tot length in um to half in cm
625
626 Float_t deltax, deltay;
627
628 Int_t thickness = fMinorVersion/10;
629 Int_t option = fMinorVersion - 10*thickness;
630
631
632 // Define some variables for SDD
633
634
635 Float_t sin30, cos30;
636
637 // SDD electronics+services main volumes
41b19549 638 Float_t iI018dits[3], iI024dits[3], iI047dits[3], iI048dits[3];
87577a03 639
640 // SDD detector ladder
641
41b19549 642 Float_t iI302dits[3], iI402dits[3], iI004dits[3], iI005dits[3];
643 Float_t ySDDsep = 0.20;
87577a03 644 Float_t ySDD;
645 Int_t iSDD;
41b19549 646 Float_t zSDDlay3[6] = { 18.55, 10.95, 3.70, -3.70,-11.20,-18.35};
647 Float_t zSDDlay4[8] = { 25.75, 18.60, 11.00, 3.70, -3.70,-11.20,
87577a03 648 -18.45,-26.05};
649
650 // ladder foot and end-ladder (frame and cooling)
41b19549 651 Float_t iI028dits[3], iI420dits[3], iI421dits[3], iI422dits[6], iI423dits[3];
652 Float_t iI424dits[3], xI424, yI424;
653 Float_t iI425dits[3];
87577a03 654 Int_t indI425;
41b19549 655 Float_t iI029dits[4], iI030dits[4], iI031dits[3], iI032dits[3];
87577a03 656
657 // SDD ladder frame and cooling
41b19549 658 Float_t iSDDCoolPipe[3] = {1.7000, -0.5500, 0.0000};
659 Float_t iI035dits[3], iI037dits[3], iI038dits[3];
660 Float_t iI039dits[3], xI039, yI039;
661 Float_t iI041dits[5];
87577a03 662
663 // SDD hybrid, chips and capacitors
41b19549 664 Float_t iI050dits[3], xI050, yI050;
665 Float_t iI052dits[3], xI052, yI052;
666 Float_t iI042dits[3], xI042, yI042;
87577a03 667 Float_t xI042space = 0.17;
41b19549 668 Float_t iI043dits[3], xI043, yI043;
87577a03 669 Float_t xI043space = 0.17;
670 Float_t zchip, zChipSpace;
41b19549 671 Float_t iI051dits[3], xI051, yI051, zI051, yI051space, xcap;
87577a03 672 Int_t ichip, icap;
673
674 // SDD microcables
41b19549 675 Float_t iI044dits[4], xI044, yI044, volI044;
87577a03 676 Float_t xHV, yHV, zHV, xLV, yLV, zLV;
41b19549 677 Char_t nameHV[5], nameLV[5];
87577a03 678
679
680 // Define media off-set
681
682 Int_t *idtmed = fIdtmed->GetArray()-199;
683
684
685 // Rotation matrices
686
687 // SPD - option 'a' (this is NOT the default so leave commented)
688
689
690 if (option == 1) {
691 AliMatrix(idrotm[201],90.0,90.0,90.0,180.0,0.0,0.0);
692 AliMatrix(idrotm[202],90.0,90.0,90.0,0.0,0.0,0.0);
693 AliMatrix(idrotm[203],90.0,350.0,90.0,260.0,0.0,0.0);
694 AliMatrix(idrotm[204],90.0,170.0,90.0,80.0,0.0,0.0);
695 AliMatrix(idrotm[205],90.0,10.0,90.0,100.0,0.0,0.0);
696 AliMatrix(idrotm[206],90.0,190.0,90.0,280.0,0.0,0.0);
697 AliMatrix(idrotm[207],90.0,342.0,90.0,72.0,0.0,0.0);
698 AliMatrix(idrotm[208],90.0,156.999893,90.0,246.999893,0.0,0.0);
699 AliMatrix(idrotm[209],90.0,147.999802,90.0,237.999893,0.0,0.0);
700 AliMatrix(idrotm[210],90.0,138.999802,90.0,228.999802,0.0,0.0);
701 AliMatrix(idrotm[211],90.0,129.999802,90.0,219.999802,0.0,0.0);
702 AliMatrix(idrotm[212],90.0,36.7896,90.0,126.789597,0.0,0.0);
703 AliMatrix(idrotm[213],90.0,343.579712,90.0,73.579697,0.0,0.0);
704 AliMatrix(idrotm[214],90.0,95.413696,90.0,185.413696,0.0,0.0);
705 AliMatrix(idrotm[215],90.0,5.4141,90.0,95.414101,0.0,0.0);
706 AliMatrix(idrotm[216],90.0,318.296906,90.0,48.296902,0.0,0.0);
707 AliMatrix(idrotm[217],90.0,67.000099,90.0,157.000107,0.0,0.0);
708 AliMatrix(idrotm[218],90.0,337.003998,90.0,67.003998,0.0,0.0);
709 AliMatrix(idrotm[219],90.0,247.000305,90.0,337.000305,0.0,0.0);
710 AliMatrix(idrotm[220],90.0,305.633514,90.0,35.633499,0.0,0.0);
711 AliMatrix(idrotm[221],90.0,58.000198,90.0,148.000198,0.0,0.0);
712 AliMatrix(idrotm[222],90.0,327.997101,90.0,57.997101,0.0,0.0 );
713 AliMatrix(idrotm[223],90.0,237.994202,90.0,327.994202,0.0,0.0);
714 AliMatrix(idrotm[224],90.0,296.627502,90.0,26.627399,0.0,0.0);
715 AliMatrix(idrotm[225],90.0,48.994099,90.0,138.994095,0.0,0.0);
716 AliMatrix(idrotm[226],90.0,318.990997,90.0,48.991001,0.0,0.0);
717 AliMatrix(idrotm[227],90.0,228.988205,90.0,318.98819,0.0,0.0);
718 AliMatrix(idrotm[228],90.0,287.621399,90.0,17.621401,0.0,0.0);
719 AliMatrix(idrotm[229],90.0,39.988098,90.0,129.988098,0.0,0.0);
720 AliMatrix(idrotm[230],90.0,309.984985,90.0,39.985001,0.0,0.0);
721 AliMatrix(idrotm[231],90.0,327.2612,90.0,57.2612,0.0,0.0);
722 AliMatrix(idrotm[232],90.0,237.261398,90.0,327.261414,0.0,0.0);
723 AliMatrix(idrotm[233],90.0,252.000504,90.0,342.000488,0.0,0.0 );
724 AliMatrix(idrotm[234],90.0,71.9991,90.0,161.9991,0.0,0.0);
725 AliMatrix(idrotm[235],90.0,270.0,90.0,0.0,0.0,0.0);
726 AliMatrix(idrotm[236],90.0,180.013702,90.0,270.013702,0.0,0.0);
727 AliMatrix(idrotm[237],90.0,0.0,90.0,90.0,0.0,0.0);
728 AliMatrix(idrotm[238],90.0,144.0,90.0,234.0,0.0,0.0);
729 AliMatrix(idrotm[239],90.0,216.0,90.0,306.0,0.0,0.0);
730 AliMatrix(idrotm[240],90.0,288.0,90.0,18.0,0.0,0.0);
731 AliMatrix(idrotm[241],90.0,324.0,90.0,54.0,0.0,0.0);
732 AliMatrix(idrotm[242],90.0,36.0,90.0,126.0,0.0,0.0);
733 AliMatrix(idrotm[243],90.0,108.0,90.0,198.0,0.0,0.0);
734 AliMatrix(idrotm[244],90.0,180.0,90.0,270.0,0.0,0.0);
735 AliMatrix(idrotm[245],90.0,162.0,90.0,252.0,0.0,0.0);
736 AliMatrix(idrotm[246],90.0,310.0,90.0,40.0,0.0,0.0);
737 AliMatrix(idrotm[247],90.0,319.0,90.0,49.0,0.0,0.0);
738 AliMatrix(idrotm[248],90.0,328.0,90.0,58.0,0.0,0.0);
739 AliMatrix(idrotm[249],90.0,337.0,90.0,67.0,0.0,0.0);
740 AliMatrix(idrotm[1003],90.0,73.5,90.0,163.5,0.0,0.0);
741 AliMatrix(idrotm[1011],90.0,342.0,90.0,72.0,0.0,0.0);
742 AliMatrix(idrotm[1039],90.0,72.0,90.0,162.0,0.0,0.0);
743 AliMatrix(idrotm[1043],90.0,66.91,90.0,156.91,0.0,0.0);
744 AliMatrix(idrotm[1065],90.0,144.0,90.0,234.0,0.0,0.0);
745 AliMatrix(idrotm[1078],90.0,180.0,90.0,270.0,0.0,0.0);
746 AliMatrix(idrotm[1088],90.0,57.41,90.0,147.41,0.0,0.0);
747 AliMatrix(idrotm[1089],90.0,333.0,90.0,63.0,0.0,0.0);
748 AliMatrix(idrotm[1090],90.0,351.0,90.0,81.0,0.0,0.0);
749 AliMatrix(idrotm[1091],90.0,216.0,90.0,306.0,0.0,0.0);
750 AliMatrix(idrotm[1092],90.0,27.0,90.0,117.0,0.0,0.0);
751 AliMatrix(idrotm[1093],90.0,18.0,90.0,108.0,0.0,0.0);
752 AliMatrix(idrotm[1094],90.0,9.0,90.0,99.0,0.0,0.0);
753 AliMatrix(idrotm[1104],90.0,252.0,90.0,342.0,0.0,0.0);
754 AliMatrix(idrotm[1106],90.0,36.0,90.0,126.0,0.0,0.0);
755 AliMatrix(idrotm[1107],90.0,108.0,90.0,198.0,0.0,0.0);
756 AliMatrix(idrotm[1108],90.0,324.0,90.0,54.0,180.0,0.0);
757 AliMatrix(idrotm[1109],90.0,0.0,90.0,90.0,180.0,0.0);
758 AliMatrix(idrotm[1110],90.0,36.0,90.0,126.0,180.0,0.0);
759 AliMatrix(idrotm[1111],90.0,72.0,90.0,162.0,180.0,0.0);
760 AliMatrix(idrotm[1112],90.0,108.0,90.0,198.0,180.0,0.0);
761 AliMatrix(idrotm[1113],90.0,144.0,90.0,234.0,180.0,0.0);
762 AliMatrix(idrotm[1114],90.0,180.0,90.0,270.0,180.0,0.0);
763 AliMatrix(idrotm[1115],90.0,216.0,90.0,306.0,180.0,0.0);
764 AliMatrix(idrotm[1116],90.0,252.0,90.0,342.0,180.0,0.0);
765 AliMatrix(idrotm[1117],90.0,288.0,90.0,18.0,0.0,0.0);
766 AliMatrix(idrotm[1118],90.0,288.0,90.0,18.0,180.0,0.0);
767 AliMatrix(idrotm[1130],90.0,324.0,90.0,54.0,0.0,0.0);
768 }// end if option == 1
769
770 // SPD - option 'b' (this is the default)
771
772 if (option == 2) {
773 AliMatrix(idrotm[201],90.0,0.0,90.0,90.0,0.0,0.0);
774 AliMatrix(idrotm[202],90.0,90.0,90.0,0.0,0.0,0.0);
775 AliMatrix(idrotm[203],90.0,350.0,90.0,260.0,0.0,0.0);
776 AliMatrix(idrotm[204],90.0,170.0,90.0,80.0,0.0,0.0);
777 AliMatrix(idrotm[205],90.0,10.0,90.0,100.0,0.0,0.0);
778 AliMatrix(idrotm[206],90.0,190.0,90.0,280.0,0.0,0.0);
779 AliMatrix(idrotm[207],90.0,342.0,90.0,72.0,0.0,0.0);
780 AliMatrix(idrotm[208],90.0,156.999893,90.0,246.999893,0.0,0.0);
781 AliMatrix(idrotm[209],90.0,147.999802,90.0,237.999893,0.0,0.0);
782 AliMatrix(idrotm[210],90.0,138.999802,90.0,228.999802,0.0,0.0);
783 AliMatrix(idrotm[211],90.0,129.999802,90.0,219.999802,0.0,0.0);
784 AliMatrix(idrotm[212],90.0,36.7896,90.0,126.789597,0.0,0.0);
785 AliMatrix(idrotm[213],90.0,343.579712,90.0,73.579697,0.0,0.0);
786 AliMatrix(idrotm[214],90.0,95.413696,90.0,185.413696,0.0,0.0);
787 AliMatrix(idrotm[215],90.0,5.4141,90.0,95.414101,0.0,0.0);
788 AliMatrix(idrotm[216],90.0,318.296906,90.0,48.296902,0.0,0.0);
789 AliMatrix(idrotm[217],90.0,67.000099,90.0,157.000107,0.0,0.0);
790 AliMatrix(idrotm[218],90.0,337.003998,90.0,67.003998,0.0,0.0);
791 AliMatrix(idrotm[219],90.0,247.000305,90.0,337.000305,0.0,0.0);
792 AliMatrix(idrotm[220],90.0,305.633514,90.0,35.633499,0.0,0.0);
4f849f3d 793
87577a03 794 AliMatrix(idrotm[221],90.0,58.000198,90.0,148.000198,0.0,0.0);
795 AliMatrix(idrotm[222],90.0,327.997101,90.0,57.997101,0.0,0.0);
796 AliMatrix(idrotm[223],90.0,237.994202,90.0,327.994202,0.0,0.0);
797 AliMatrix(idrotm[224],90.0,296.627502,90.0,26.627399,0.0,0.0);
798 AliMatrix(idrotm[225],90.0,48.994099,90.0,138.994095,0.0,0.0);
799 AliMatrix(idrotm[226],90.0,318.990997,90.0,48.991001,0.0,0.0);
800 AliMatrix(idrotm[227],90.0,228.988205,90.0,318.98819,0.0,0.0);
801 AliMatrix(idrotm[228],90.0,287.621399,90.0,17.621401,0.0,0.0);
802 AliMatrix(idrotm[229],90.0,39.988098,90.0,129.988098,0.0,0.0);
803 AliMatrix(idrotm[230],90.0,309.984985,90.0,39.985001,0.0,0.0);
804 AliMatrix(idrotm[231],90.0,327.2612,90.0,57.2612,0.0,0.0);
805 AliMatrix(idrotm[232],90.0,237.261398,90.0,327.261414,0.0,0.0);
806 AliMatrix(idrotm[233],90.0,252.000504,90.0,342.000488,0.0,0.0);
807 AliMatrix(idrotm[234],90.0,71.9991,90.0,161.9991,0.0,0.0);
808 AliMatrix(idrotm[235],90.0,270.0,90.0,0.0,0.0,0.0);
809 AliMatrix(idrotm[236],90.0,180.013702,90.0,270.013702,0.0,0.0);
810 AliMatrix(idrotm[237],90.0,90.0,90.0,180.0,0.0,0.0);
811 AliMatrix(idrotm[238],90.0,180.0,90.0,270.0,0.0,0.0);
812 AliMatrix(idrotm[239],90.0,162.0,90.0,252.0,0.0,0.0);
813 AliMatrix(idrotm[240],90.0,310.0,90.0,40.0,0.0,0.0);
814 AliMatrix(idrotm[241],90.0,319.0,90.0,49.0,0.0,0.0);
815 AliMatrix(idrotm[242],90.0,328.0,90.0,58.0,0.0,0.0);
816 AliMatrix(idrotm[243],90.0,337.0,90.0,67.0,0.0,0.0);
817 AliMatrix(idrotm[244],90.0,216.0,90.0,306.0,0.0,0.0);
818 AliMatrix(idrotm[245],90.0,36.0,90.0,126.0,0.0,0.0);
819 AliMatrix(idrotm[246],90.0,108.0,90.0,198.0,0.0,0.0);
820 AliMatrix(idrotm[247],90.0,144.0,90.0,234.0,0.0,0.0);
821 AliMatrix(idrotm[248],90.0,288.0,90.0,18.0,0.0,0.0);
822 AliMatrix(idrotm[249],90.0,324.0,90.0,54.0,0.0,0.0);
823 AliMatrix(idrotm[1003],90.0,73.5,90.0,163.5,0.0,0.0);
824 AliMatrix(idrotm[1011],90.0,342.0,90.0,72.0,0.0,0.0);
825 AliMatrix(idrotm[1039],90.0,72.0,90.0,162.0,0.0,0.0);
826 AliMatrix(idrotm[1043],90.0,66.91,90.0,156.91,0.0,0.0);
827 AliMatrix(idrotm[1065],90.0,144.0,90.0,234.0,0.0,0.0);
828 AliMatrix(idrotm[1078],90.0,180.0,90.0,270.0,0.0,0.0);
829 AliMatrix(idrotm[1088],90.0,57.41,90.0,147.41,0.0,0.0);
830 AliMatrix(idrotm[1089],90.0,333.0,90.0,63.0,0.0,0.0);
831 AliMatrix(idrotm[1090],90.0,351.0,90.0,81.0,0.0,0.0);
832 AliMatrix(idrotm[1091],90.0,216.0,90.0,306.0,0.0,0.0);
833 AliMatrix(idrotm[1092],90.0,27.0,90.0,117.0,0.0,0.0);
834 AliMatrix(idrotm[1093],90.0,18.0,90.0,108.0,0.0,0.0);
835 AliMatrix(idrotm[1094],90.0,9.0,90.0,99.0,0.0,0.0);
836 AliMatrix(idrotm[1104],90.0,252.0,90.0,342.0,0.0,0.0);
837 AliMatrix(idrotm[1106],90.0,36.0,90.0,126.0,0.0,0.0);
838 AliMatrix(idrotm[1107],90.0,108.0,90.0,198.0,0.0,0.0);
839 AliMatrix(idrotm[1108],90.0,324.0,90.0,54.0,180.0,0.0);
840 AliMatrix(idrotm[1109],90.0,0.0,90.0,90.0,180.0,0.0);
841 AliMatrix(idrotm[1110],90.0,36.0,90.0,126.0,180.0,0.0);
842 AliMatrix(idrotm[1111],90.0,72.0,90.0,162.0,180.0,0.0);
843 AliMatrix(idrotm[1112],90.0,108.0,90.0,198.0,180.0,0.0);
844 AliMatrix(idrotm[1113],90.0,144.0,90.0,234.0,180.0,0.0);
845 AliMatrix(idrotm[1114],90.0,180.0,90.0,270.0,180.0,0.0);
846 AliMatrix(idrotm[1115],90.0,216.0,90.0,306.0,180.0,0.0);
847 AliMatrix(idrotm[1116],90.0,252.0,90.0,342.0,180.0,0.0);
848 AliMatrix(idrotm[1117],90.0,288.0,90.0,18.0,0.0,0.0);
849 AliMatrix(idrotm[1118],90.0,288.0,90.0,18.0,180.0,0.0);
850 AliMatrix(idrotm[1130],90.0,324.0,90.0,54.0,0.0,0.0);
851 }// end if option==2
6b2a1732 852
87577a03 853 // SDD
854 AliMatrix(idrotm[301],0.0,0.0,90.0,90.0,90.0,180.0);
855 AliMatrix(idrotm[302],0.0,0.0,90.0,90.0,90.0,0.0);
856 AliMatrix(idrotm[303],180.0,0.0,90.0,90.0,90.0,0.0);
857 AliMatrix(idrotm[304],180.0,0.0,90.0,90.0,90.0,180.0);
858 AliMatrix(idrotm[305],90.0,347.14,90.0,77.14,0.0,0.0);
859 AliMatrix(idrotm[306],90.0,321.43,90.0,51.43,0.0,0.0);
860 AliMatrix(idrotm[307],90.0,295.71,90.0,25.71,0.0,0.0);
861 AliMatrix(idrotm[308],90.0,244.29,90.0,334.29,0.0,0.0);
862 AliMatrix(idrotm[309],90.0,218.57,90.0,308.57,0.0,0.0);
863 AliMatrix(idrotm[310],90.0,167.14,90.0,257.14,0.0,0.0);
864 AliMatrix(idrotm[311],90.0,141.43,90.0,231.43,0.0,0.0);
865 AliMatrix(idrotm[312],90.0,0.0,0.0,0.0,90.0,270.0);
866 AliMatrix(idrotm[313],90.0,115.71,90.0,205.71,0.0,0.0);
867 AliMatrix(idrotm[314],90.0,335.45,90.0,65.45,0.0,0.0);
868 AliMatrix(idrotm[315],90.0,319.09,90.0,49.09,0.0,0.0);
869 AliMatrix(idrotm[316],90.0,302.73,90.0,32.73,0.0,0.0);
870 AliMatrix(idrotm[317],90.0,286.36,90.0,16.36,0.0,0.0);
871 AliMatrix(idrotm[318],90.0,270.0,90.0,360.0,0.0,0.0);
872 AliMatrix(idrotm[319],90.0,253.64,90.0,343.64,0.0,0.0);
873 AliMatrix(idrotm[320],90.0,237.27,90.0,327.27,0.0,0.0);
874 AliMatrix(idrotm[321],90.0,12.86,90.0,102.86,0.0,0.0);
875 AliMatrix(idrotm[322],90.0,220.91,90.0,310.91,0.0,0.0);
876 AliMatrix(idrotm[323],90.0,204.55,90.0,294.55,0.0,0.0);
877 AliMatrix(idrotm[324],90.0,188.18,90.0,278.18,0.0,0.0);
878 AliMatrix(idrotm[325],90.0,171.82,90.0,261.82,0.0,0.0);
879 AliMatrix(idrotm[326],90.0,155.45,90.0,245.45,0.0,0.0);
880 AliMatrix(idrotm[327],90.0,139.09,90.0,229.09,0.0,0.0);
881 AliMatrix(idrotm[328],90.0,122.73,90.0,212.73,0.0,0.0);
882 AliMatrix(idrotm[329],90.0,106.36,90.0,196.36,0.0,0.0);
883 AliMatrix(idrotm[330],90.0,73.64,90.0,163.64,0.0,0.0);
884 AliMatrix(idrotm[331],90.0,40.91,90.0,130.91,0.0,0.0);
885 AliMatrix(idrotm[332],90.0,24.55,90.0,114.55,0.0,0.0);
886 AliMatrix(idrotm[333],90.0,38.57,90.0,128.57,0.0,0.0);
887 AliMatrix(idrotm[334],90.0,351.82,90.0,81.82,0.0,0.0);
888 AliMatrix(idrotm[335],90.0,8.18,90.0,98.18,0.0,0.0);
889 AliMatrix(idrotm[336],90.0,64.29,90.0,154.29,0.0,0.0);
890 AliMatrix(idrotm[337],111.0,300.0,21.0,300.0,90.0,30.0);
891 AliMatrix(idrotm[338],69.0,240.0,159.0,240.0,90.0,150.0);
892 AliMatrix(idrotm[339],111.0,240.0,21.0,240.0,90.0,150.0);
893 AliMatrix(idrotm[340],69.0,300.0,159.0,300.0,90.0,30.0);
894 AliMatrix(idrotm[341],128.0,0.0,38.0,0.0,90.0,270.0);
895 AliMatrix(idrotm[342],90.0,240.0,180.0,0.0,90.0,330.);
896 AliMatrix(idrotm[343],90.0,120.0,180.0,0.0,90.0,210.0);
897 AliMatrix(idrotm[344],90.0,0.0,180.0,0.0,90.0,90.0);
898 AliMatrix(idrotm[345],90.0,180.0,90.0,90.0,0.0,0.0);
899 AliMatrix(idrotm[346],90.0,300.0,90.0,30.0,0.0,0.0);
900 AliMatrix(idrotm[347],90.0,240.0,90.0,150.0,0.0,0.0);
901 AliMatrix(idrotm[348],90.0,180.0,0.0,0.0,90.0,270.0);
902 AliMatrix(idrotm[349],90.0,235.0,90.0,145.0,0.0,0.0);
903 AliMatrix(idrotm[350],90.0,90.0,90.0,180.0,0.0,0.0);
904 AliMatrix(idrotm[351],90.0,305.0,90.0,35.0,0.0,0.0);
905 AliMatrix(idrotm[352],0.0,0.0,90.0,0.0,90.0,90.0);
906 AliMatrix(idrotm[353],90.0,60.0,90.0,150.0,0.0,0.0);
907 AliMatrix(idrotm[354],90.0,120.0,90.0,30.0,0.0,0.0);
908 AliMatrix(idrotm[355],90.0,180.0,90.0,90.0,180.0,0.0);
909 AliMatrix(idrotm[356],90.0,270.0,90.0,0.0,0.0,0.0);
910 AliMatrix(idrotm[366],90.0,57.27,90.0,147.27,0.0,0.0);
911 AliMatrix(idrotm[386],90.0,192.86,90.0,282.86,0.0,0.0);
912
913 // SSD
914 AliMatrix(idrotm[501],90.0,148.24,90.0,238.24,0.0,0.0);
915 AliMatrix(idrotm[503],90.0,137.65,90.0,227.65,0.0,0.0);
916 AliMatrix(idrotm[504],90.0,127.06,90.0,217.06,0.0,0.0);
917 AliMatrix(idrotm[505],90.0,116.47,90.0,206.47,0.0,0.0);
918 AliMatrix(idrotm[506],90.0,105.88,90.0,195.88,0.0,0.0);
919 AliMatrix(idrotm[507],90.0,95.29,90.0,185.29,0.0,0.0);
920 AliMatrix(idrotm[508],90.0,84.71,90.0,174.71,0.0,0.0);
921 AliMatrix(idrotm[509],90.0,74.12,90.0,164.12,0.0,0.0);
922 AliMatrix(idrotm[510],90.0,63.53,90.0,153.53,0.0,0.0);
923 AliMatrix(idrotm[511],90.0,52.94,90.0,142.94,0.0,0.0);
924 AliMatrix(idrotm[512],90.0,42.35,90.0,132.35,0.0,0.0);
925 AliMatrix(idrotm[513],90.0,31.76,90.0,121.76,0.0,0.0);
926 AliMatrix(idrotm[514],90.0,10.59,90.0,100.59,0.0,0.0);
927 AliMatrix(idrotm[515],90.0,349.41,90.0,79.41,0.0,0.0);
928 AliMatrix(idrotm[516],90.0,338.82,90.0,68.82,0.0,0.0);
929 AliMatrix(idrotm[517],90.0,328.24,90.0,58.24,0.0,0.0);
930 AliMatrix(idrotm[518],90.0,317.65,90.0,47.65,0.0,0.0);
931 AliMatrix(idrotm[519],90.0,307.06,90.0,37.06,0.0,0.0);
932 AliMatrix(idrotm[520],90.0,296.47,90.0,26.47,0.0,0.0);
933 AliMatrix(idrotm[521],90.0,285.88,90.0,15.88,0.0,0.0);
934 AliMatrix(idrotm[522],90.0,275.29,90.0,5.29,0.0,0.0);
935 AliMatrix(idrotm[523],90.0,264.71,90.0,354.71,0.0,0.0);
936 AliMatrix(idrotm[524],90.0,254.12,90.0,344.12,0.0,0.0);
937 AliMatrix(idrotm[525],90.0,243.53,90.0,333.53,0.0,0.0);
938 AliMatrix(idrotm[526],90.0,232.94,90.0,322.94,0.0,0.0);
939 AliMatrix(idrotm[527],90.0,222.35,90.0,312.35,0.0,0.0);
940 AliMatrix(idrotm[528],90.0,211.76,90.0,301.76,0.0,0.0);
941 AliMatrix(idrotm[529],90.0,190.59,90.0,280.59,0.0,0.0);
942 AliMatrix(idrotm[530],90.0,169.41,90.0,259.41,0.0,0.0);
943 AliMatrix(idrotm[531],90.0,158.82,90.0,248.82,0.0,0.0);
944 AliMatrix(idrotm[532],90.0,360.0,90.0,90.0,0.0,0.0);
945 AliMatrix(idrotm[533],90.0,180.0,90.0,270.0,0.0,0.0);
946 AliMatrix(idrotm[534],90.0,189.47,90.0,279.47,0.0,0.0);
947 AliMatrix(idrotm[535],90.0,198.95,90.0,288.95,0.0,0.0);
948 AliMatrix(idrotm[537],90.0,217.89,90.0,307.89,0.0,0.0);
949 AliMatrix(idrotm[538],90.0,227.37,90.0,317.37,0.0,0.0);
950 AliMatrix(idrotm[539],90.0,236.84,90.0,326.84,0.0,0.0);
951 AliMatrix(idrotm[540],90.0,246.32,90.0,336.32,0.0,0.0);
952 AliMatrix(idrotm[541],90.0,255.79,90.0,345.79,0.0,0.0);
953 AliMatrix(idrotm[542],90.0,265.26,90.0,355.26,0.0,0.0);
954 AliMatrix(idrotm[543],90.0,274.74,90.0,4.74,0.0,0.0);
955 AliMatrix(idrotm[544],90.0,284.21,90.0,14.21,0.0,0.0);
956 AliMatrix(idrotm[545],90.0,293.68,90.0,23.68,0.0,0.0);
957 AliMatrix(idrotm[546],90.0,303.16,90.0,33.16,0.0,0.0);
958 AliMatrix(idrotm[547],90.0,312.63,90.0,42.63,0.0,0.0);
959 AliMatrix(idrotm[548],90.0,322.11,90.0,52.11,0.0,0.0);
960 AliMatrix(idrotm[549],90.0,331.58,90.0,61.58,0.0,0.0);
961 AliMatrix(idrotm[550],90.0,341.05,90.0,71.05,0.0,0.0);
962 AliMatrix(idrotm[551],90.0,350.53,90.0,80.53,0.0,0.0);
963 AliMatrix(idrotm[552],90.0,9.47,90.0,99.47,0.0,0.0);
964 AliMatrix(idrotm[553],90.0,18.95,90.0,108.95,0.0,0.0);
965 AliMatrix(idrotm[555],90.0,37.89,90.0,127.89,0.0,0.0);
966 AliMatrix(idrotm[556],90.0,47.37,90.0,137.37,0.0,0.0);
967 AliMatrix(idrotm[557],90.0,56.84,90.0,146.84,0.0,0.0);
968 AliMatrix(idrotm[558],90.0,66.32,90.0,156.32,0.0,0.0);
969 AliMatrix(idrotm[559],90.0,75.79,90.0,165.79,0.0,0.0);
970 AliMatrix(idrotm[560],90.0,85.26,90.0,175.26,0.0,0.0);
971 AliMatrix(idrotm[561],90.0,94.74,90.0,184.74,0.0,0.0);
972 AliMatrix(idrotm[562],90.0,104.21,90.0,194.21,0.0,0.0);
973 AliMatrix(idrotm[563],90.0,113.68,90.0,203.68,0.0,0.0);
974 AliMatrix(idrotm[564],90.0,123.16,90.0,213.16,0.0,0.0);
975 AliMatrix(idrotm[565],90.0,132.63,90.0,222.63,0.0,0.0);
976 AliMatrix(idrotm[566],90.0,142.11,90.0,232.11,0.0,0.0);
977 AliMatrix(idrotm[567],90.0,151.58,90.0,241.58,0.0,0.0);
978 AliMatrix(idrotm[568],90.0,161.05,90.0,251.05,0.0,0.0);
979 AliMatrix(idrotm[569],90.0,170.53,90.0,260.53,0.0,0.0);
980 AliMatrix(idrotm[570],90.0,180.0,90.0,90.0,180.0,0.0);
981 AliMatrix(idrotm[571],90.0,0.0,0.0,0.0,90.0,270.0);
982 AliMatrix(idrotm[572],90.0,180.0,0.0,0.0,90.0,270.0);
983 AliMatrix(idrotm[573],90.0,180.0,90.0,90.0,0.0,0.0);
984 AliMatrix(idrotm[575],90.0,120.0,180.0,0.0,90.0,210.0);
985 AliMatrix(idrotm[576],65.71,300.0,90.0,30.0,24.29,120.0);
986 AliMatrix(idrotm[577],114.29,300.0,90.0,30.0,155.71,120.0);
987 AliMatrix(idrotm[579],65.71,240.0,90.0,150.0,24.29,60.0);
988 AliMatrix(idrotm[580],114.29,240.0,90.0,150.0,155.71,60.0);
989 AliMatrix(idrotm[581],90.0,240.0,180.0,0.0,90.0,330.0);
990 AliMatrix(idrotm[583],90.0,0.0,180.0,0.0,90.0,90.0);
991 AliMatrix(idrotm[584],90.0,180.0,180.0,0.0,90.0,90.0);
992 AliMatrix(idrotm[586],180.0,0.0,90.0,90.0,90.0,0.0);
993 AliMatrix(idrotm[618],90.0,201.18,90.0,291.18,0.0,0.0);
994 AliMatrix(idrotm[620],90.0,28.42,90.0,118.42,0.0,0.0);
995 AliMatrix(idrotm[623],90.0,208.42,90.0,298.42,0.0,0.0);
996 AliMatrix(idrotm[633],132.46,0.0,90.0,90.0,42.46,360.0);
997 AliMatrix(idrotm[653],90.0,21.18,90.0,111.18,0.0,0.0);
998
999 // SDD cone
1000 AliMatrix(idrotm[846],90.0,300.0,90.0,30.0,0.0,0.0);
1001 AliMatrix(idrotm[851],90.0,305.0,90.0,35.0,0.0,0.0);
1002 AliMatrix(idrotm[853],90.0,60.0,90.0,150.0,0.0,0.0);
1003 AliMatrix(idrotm[856],90.0,0.0,90.0,90.0,180.0,0.0);
1004 AliMatrix(idrotm[857],90.0,5.0,90.0,95.0,180.0,0.0);
1005 AliMatrix(idrotm[858],90.0,65.0,90.0,155.0,180.0,0.0);
1006 AliMatrix(idrotm[859],90.0,305.0,90.0,35.0,180.0,0.0);
1007 AliMatrix(idrotm[860],90.0,245.0,90.0,335.0,180.0,0.0);
1008 AliMatrix(idrotm[861],90.0,185.0,90.0,275.0,180.0,0.0);
1009 AliMatrix(idrotm[862],90.0,125.0,90.0,215.0,180.0,0.0);
1010 AliMatrix(idrotm[863],90.0,257.5,90.0,347.5,180.0,0.0);
1011 AliMatrix(idrotm[864],90.0,227.5,90.0,317.5,180.0,0.0);
1012 AliMatrix(idrotm[865],90.0,197.5,90.0,287.5,180.0,0.0);
1013 AliMatrix(idrotm[867],90.0,167.5,90.0,257.5,180.0,0.0);
1014 AliMatrix(idrotm[868],90.0,287.5,90.0,17.5,0.0,0.0);
1015 AliMatrix(idrotm[869],90.0,137.5,90.0,227.5,180.0,0.0);
1016 AliMatrix(idrotm[870],90.0,107.5,90.0,197.5,180.0,0.0);
1017 AliMatrix(idrotm[871],90.0,77.5,90.0,167.5,180.0,0.0);
1018 AliMatrix(idrotm[872],90.0,47.5,90.0,137.5,180.0,0.0);
1019 AliMatrix(idrotm[873],90.0,17.5,90.0,107.5,180.0,0.0);
1020 AliMatrix(idrotm[874],90.0,347.5,90.0,77.5,180.0,0.0);
1021 AliMatrix(idrotm[875],90.0,317.5,90.0,47.5,180.0,0.0);
1022 AliMatrix(idrotm[876],90.0,287.5,90.0,17.5,180.0,0.0);
1023 AliMatrix(idrotm[877],90.0,185.0,90.0,275.0,0.0,0.0);
1024 AliMatrix(idrotm[878],90.0,180.0,90.0,270.0,0.0,0.0);
1025 AliMatrix(idrotm[879],90.0,125.0,90.0,215.0,0.0,0.0);
1026 AliMatrix(idrotm[880],90.0,65.0,90.0,155.0,0.0,0.0);
1027 AliMatrix(idrotm[881],90.0,5.0,90.0,95.0,0.0,0.0);
1028 AliMatrix(idrotm[882],90.0,245.0,90.0,335.0,0.0,0.0);
1029 AliMatrix(idrotm[883],90.0,47.5,90.0,137.5,0.0,0.0);
1030 AliMatrix(idrotm[884],90.0,77.5,90.0,167.5,0.0,0.0);
1031 AliMatrix(idrotm[885],90.0,107.5,90.0,197.5,0.0,0.0);
1032 AliMatrix(idrotm[887],90.0,137.5,90.0,227.5,0.0,0.0);
1033 AliMatrix(idrotm[888],90.0,167.5,90.0,257.5,0.0,0.0);
1034 AliMatrix(idrotm[889],90.0,197.5,90.0,287.5,0.0,0.0);
1035 AliMatrix(idrotm[890],90.0,227.5,90.0,317.5,0.0,0.0);
1036 AliMatrix(idrotm[891],90.0,347.5,90.0,77.5,0.0,0.0);
1037 AliMatrix(idrotm[892],90.0,317.5,90.0,47.5,0.0,0.0);
1038 AliMatrix(idrotm[893],90.0,257.5,90.0,347.5,0.0,0.0);
1039 AliMatrix(idrotm[894],90.0,270.0,0.0,0.0,90.0,180.0);
1040 AliMatrix(idrotm[895],90.0,286.36,0.0,0.0,90.0,196.36);
1041 AliMatrix(idrotm[896],90.0,302.73,0.0,0.0,90.0,212.73);
1042 AliMatrix(idrotm[897],90.0,319.09,0.0,0.0,90.0,229.09);
1043 AliMatrix(idrotm[898],90.0,17.5,90.0,107.5,0.0,0.0);
1044 AliMatrix(idrotm[899],90.0,335.45,0.0,0.0,90.0,245.45);
1045 AliMatrix(idrotm[900],90.0,351.82,0.0,0.0,90.0,261.82);
1046 AliMatrix(idrotm[901],90.0,8.18,0.0,0.0,90.0,278.18);
1047 AliMatrix(idrotm[902],90.0,24.55,0.0,0.0,90.0,294.55);
1048 AliMatrix(idrotm[903],90.0,40.91,0.0,0.0,90.0,310.91);
1049 AliMatrix(idrotm[904],90.0,57.27,0.0,0.0,90.0,327.27);
1050 AliMatrix(idrotm[905],90.0,73.64,0.0,0.0,90.0,343.64);
1051 AliMatrix(idrotm[906],90.0,90.0,0.0,0.0,90.0,360.0);
1052 AliMatrix(idrotm[907],90.0,106.36,0.0,0.0,90.0,16.36);
1053 AliMatrix(idrotm[908],90.0,122.73,0.0,0.0,90.0,32.73);
1054 AliMatrix(idrotm[909],90.0,139.09,0.0,0.0,90.0,49.09);
1055 AliMatrix(idrotm[910],90.0,155.45,0.0,0.0,90.0,65.45);
1056 AliMatrix(idrotm[911],90.0,171.82,0.0,0.0,90.0,81.82);
1057 AliMatrix(idrotm[912],90.0,188.18,0.0,0.0,90.0,98.18);
1058 AliMatrix(idrotm[913],90.0,204.55,0.0,0.0,90.0,114.55);
1059 AliMatrix(idrotm[914],90.0,220.91,0.0,0.0,90.0,130.91);
1060 AliMatrix(idrotm[915],90.0,237.27,0.0,0.0,90.0,147.27);
1061 AliMatrix(idrotm[916],90.0,253.64,0.0,0.0,90.0,163.64);
1062 AliMatrix(idrotm[917],90.0,295.71,0.0,0.0,90.0,205.71);
1063 AliMatrix(idrotm[918],90.0,321.43,0.0,0.0,90.0,231.43);
1064 AliMatrix(idrotm[919],90.0,347.14,0.0,0.0,90.0,257.14);
1065 AliMatrix(idrotm[920],90.0,12.86,0.0,0.0,90.0,282.86);
1066 AliMatrix(idrotm[921],90.0,38.57,0.0,0.0,90.0,308.57);
1067 AliMatrix(idrotm[922],90.0,64.29,0.0,0.0,90.0,334.29);
1068 AliMatrix(idrotm[923],90.0,115.71,0.0,0.0,90.0,25.71);
1069 AliMatrix(idrotm[924],90.0,141.43,0.0,0.0,90.0,51.43);
1070 AliMatrix(idrotm[925],90.0,167.14,0.0,0.0,90.0,77.14);
1071 AliMatrix(idrotm[926],90.0,192.86,0.0,0.0,90.0,102.86);
1072 AliMatrix(idrotm[927],90.0,218.57,0.0,0.0,90.0,128.57);
1073 AliMatrix(idrotm[928],90.0,244.29,0.0,0.0,90.0,154.29);
1074 AliMatrix(idrotm[929],90.0,120.0,90.0,210.0,0.0,0.0);
1075 AliMatrix(idrotm[930],90.0,240.0,90.0,330.0,0.0,0.0);
1076 AliMatrix(idrotm[931],90.0,60.0,90.0,150.0,180.0,0.0);
1077 AliMatrix(idrotm[932],90.0,120.0,90.0,210.0,180.0,0.0);
1078 AliMatrix(idrotm[933],90.0,180.0,90.0,270.0,180.0,0.0);
1079 AliMatrix(idrotm[934],90.0,240.0,90.0,330.0,180.0,0.0);
1080 AliMatrix(idrotm[935],90.0,300.0,90.0,30.0,180.0,0.0);
1081
1082 // SSD cone
1083 AliMatrix(idrotm[701],90.0,0.0,90.0,90.0,180.0,0.0);
1084 AliMatrix(idrotm[702],90.0,347.5,90.0,77.5,180.0,0.0);
1085 AliMatrix(idrotm[703],90.0,17.5,90.0,107.5,180.0,0.0);
1086 AliMatrix(idrotm[704],90.0,47.5,90.0,137.5,180.0,0.0);
1087 AliMatrix(idrotm[705],90.0,77.5,90.0,167.5,180.0,0.0);
1088 AliMatrix(idrotm[706],90.0,107.5,90.0,197.5,180.0,0.0);
1089 AliMatrix(idrotm[707],90.0,137.5,90.0,227.5,180.0,0.0);
1090 AliMatrix(idrotm[708],90.0,167.5,90.0,257.5,180.0,0.0);
1091 AliMatrix(idrotm[709],90.0,197.5,90.0,287.5,180.0,0.0);
1092 AliMatrix(idrotm[710],90.0,227.5,90.0,317.5,180.0,0.0);
1093 AliMatrix(idrotm[711],90.0,257.5,90.0,347.5,180.0,0.0);
1094 AliMatrix(idrotm[712],90.0,287.5,90.0,17.5,180.0,0.0);
1095 AliMatrix(idrotm[713],90.0,317.5,90.0,47.5,180.0,0.0);
1096 AliMatrix(idrotm[714],90.0,328.4,90.0,58.4,180.0,0.0);
1097 AliMatrix(idrotm[715],90.0,28.4,90.0,118.4,180.0,0.0);
1098 AliMatrix(idrotm[716],90.0,88.4,90.0,178.4,180.0,0.0);
1099 AliMatrix(idrotm[717],90.0,148.4,90.0,238.4,180.0,0.0);
1100 AliMatrix(idrotm[718],90.0,208.4,90.0,298.4,180.0,0.0);
1101 AliMatrix(idrotm[719],90.0,268.4,90.0,358.4,180.0,0.0);
1102 AliMatrix(idrotm[720],90.0,28.4,90.0,118.4,0.0,0.0);
1103 AliMatrix(idrotm[721],90.0,88.4,90.0,178.4,0.0,0.0);
1104 AliMatrix(idrotm[722],90.0,148.4,90.0,238.4,0.0,0.0);
1105 AliMatrix(idrotm[723],90.0,208.4,90.0,298.4,0.0,0.0);
1106 AliMatrix(idrotm[724],90.0,268.4,90.0,358.4,0.0,0.0);
1107 AliMatrix(idrotm[725],90.0,328.4,90.0,58.4,0.0,0.0);
1108 AliMatrix(idrotm[726],90.0,77.5,90.0,167.5,0.0,0.0);
1109 AliMatrix(idrotm[727],90.0,107.5,90.0,197.5,0.0,0.0);
1110 AliMatrix(idrotm[728],90.0,137.5,90.0,227.5,0.0,0.0);
1111 AliMatrix(idrotm[729],90.0,167.5,90.0,257.5,0.0,0.0);
1112 AliMatrix(idrotm[730],90.0,227.5,90.0,317.5,0.0,0.0);
1113 AliMatrix(idrotm[731],90.0,257.5,90.0,347.5,0.0,0.0);
1114 AliMatrix(idrotm[732],90.0,317.5,90.0,47.5,0.0,0.0);
1115 AliMatrix(idrotm[733],90.0,197.5,90.0,287.5,0.0,0.0);
1116 AliMatrix(idrotm[734],90.0,347.5,90.0,77.5,0.0,0.0);
1117 AliMatrix(idrotm[735],90.0,47.5,90.0,137.5,0.0,0.0);
1118 AliMatrix(idrotm[768],90.0,287.5,90.0,17.5,0.0,0.0);
1119 AliMatrix(idrotm[798],90.0,17.5,90.0,107.5,0.0,0.0);
1120
1121 // Services
1122 AliMatrix(idrotm[200], 90., 0., 90., 90., 180., 0.);
1123
4a42f2b9 1124 // New reference frame: z---> -z; x ---> -x; y ---> y
1125 AliMatrix(idrotm[199], 90.,180., 90.,90., 180.,0.);
1126
87577a03 1127 // CONVERT INTO CM (RL(SI)=9.36 CM)
1128 for (i = 0; i < 6; ++i) {
1129 drl[i] = drl[i] / 100. * 9.36;
1130 } // end for i
6b2a1732 1131
87577a03 1132 // FIELD CAGE HALF LENGTH
1133 rlim = 50.;
1134 zmax = 74.;
1135 ztpc = 284.;
1136 // --- Define ghost volume containing the whole ITS (including services)
1137 // and fill it with air
1138 dgh[0] = 0.;
1139 dgh[1] = 360.;
1140 dgh[2] = 16.;
1141 dgh[3] = -ztpc-5.-0.1;
1142 dgh[4] = 46;
1143 dgh[5] = 85.;
1144 dgh[6] = -ztpc;
1145 dgh[7] = 46;
1146 dgh[8] = 85.;
1147 dgh[9] = -ztpc;
1148 dgh[10] = 46;
7de9bc5a 1149 dgh[11] = rlim+7.5;
87577a03 1150 dgh[12] = -97.5;
1151 dgh[13] = 46;
7de9bc5a 1152 dgh[14] = rlim+7.5;
87577a03 1153 dgh[15] = -zmax;
1154 dgh[16] = 46;
7de9bc5a 1155 dgh[17] = rlim+7.5;
87577a03 1156 dgh[18] = -48;
1157 dgh[19] = 6;
7de9bc5a 1158 dgh[20] = rlim+7.5;
87577a03 1159 dgh[21] = -28.6;
1160 dgh[22] = 6;
7de9bc5a 1161 dgh[23] = rlim+7.5;
87577a03 1162 dgh[24] = -27.6;
1163 dgh[25] = 3.295;
7de9bc5a 1164 dgh[26] = rlim+7.5;
87577a03 1165 dgh[27] = 27.6;
1166 dgh[28] = 3.295;
7de9bc5a 1167 dgh[29] = rlim+7.5;
87577a03 1168 dgh[30] = 28.6;
1169 dgh[31] = 6;
7de9bc5a 1170 dgh[32] = rlim+7.5;
87577a03 1171 dgh[33] = 48;
1172 dgh[34] = 6;
7de9bc5a 1173 dgh[35] = rlim+7.5;
87577a03 1174 dgh[36] = zmax;
1175 dgh[37] = 46;
7de9bc5a 1176 dgh[38] = rlim+7.5;
87577a03 1177 dgh[39] = 97.5;
1178 dgh[40] = 46;
7de9bc5a 1179 dgh[41] = rlim+7.5;
87577a03 1180 dgh[42] = ztpc;
1181 dgh[43] = 62;
1182 dgh[44] = 62+4.;
1183 dgh[45] = ztpc;
1184 dgh[46] = 62;
1185 dgh[47] = 85.;
1186 dgh[48] = ztpc+4.+0.1;
5cf690c1 1187 dgh[49] = 62.0;//62.4;
87577a03 1188 dgh[50] = 85.;
1189 gMC->Gsvolu("ITSV", "PCON", idtmed[205], dgh, 51);
1190
1191 // --- Place the ghost volume in its mother volume (ALIC) and make it
1192 // invisible
4a42f2b9 1193 // gMC->Gspos("ITSV", 1, "ALIC", 0., 0., 0., 0, "ONLY");
68d448b6 1194 gMC->Gspos("ITSV", 1, "ALIC", 0., 0., 0., idrotm[199], "MANY");
87577a03 1195 //gMC->Gsatt("ITSV", "SEEN", 0);
1196
1197 // --- Define ghost volume containing the six layers and fill it with air
1198
1199 dgh[0] = 0.;
1200 dgh[1] = 360.;
1201 dgh[2] = 8.;
1202 dgh[3] = -zmax;
1203 dgh[4] = 46.;
1204 dgh[5] = rlim;
1205 dgh[6] = -47.5;
1206 dgh[7] = 6.005;
1207 dgh[8] = rlim;
1208 dgh[9] = -28.5;
1209 dgh[10] = 6.005;
1210 dgh[11] = rlim;
1211 dgh[12] = -27.5;
1212 dgh[13] = 3.3;
1213 dgh[14] = rlim;
1214 dgh[15] = 27.5;
1215 dgh[16] = 3.3;
1216 dgh[17] = rlim;
1217 dgh[18] = 28.5;
1218 dgh[19] = 6.005;
1219 dgh[20] = rlim;
1220 dgh[21] = 47.5;
1221 dgh[22] = 6.005;
1222 dgh[23] = rlim;
1223 dgh[24] = zmax;
1224 dgh[25] = 46.;
1225 dgh[26] = rlim;
1226 gMC->Gsvolu("ITSD", "PCON", idtmed[205], dgh, 27);
1227
1228 // --- Place the ghost volume in its mother volume (ITSV) and make it
1229 // invisible
1230 gMC->Gspos("ITSD", 1, "ITSV", 0., 0., 0., 0, "ONLY");
1231 //gMC->Gsatt("ITSD", "SEEN", 0);
1232
1233 // --- Define SPD (option 'a') volumes ----------------------------
1234 // SPD - option 'a'
1235 // (this is NOT the default)
1236 if (option == 1) {
1237 dits[0] = 3.7;
1238 dits[1] = 7.75;
1239 dits[2] = 26.1;
1240 gMC->Gsvolu("IT12", "TUBE", idtmed[254], dits, 3);
1241
1242 dits[0] = 3.7;
1243 dits[1] = 7.7;
1244 dits[2] = 24;
1245 dits[3] = 57;
1246 dits[4] = 100;
1247 gMC->Gsvolu("I12A", "TUBS", idtmed[254], dits, 5); // sector
1248
1249 di10a[0] = 0.843;
1250 di10a[1] = ddet1+dchip1+dbus+0.0025;
1251 di10a[2] = 19.344;
1252 gMC->Gsvolu("I10A", "BOX ", idtmed[254], di10a, 3); // mother volume
1253 // on layer 1
1254 di20a[0] = 0.843;
1255 di20a[1] = ddet2+dchip2+dbus+0.0025;
1256 di20a[2] = 19.344;
1257 gMC->Gsvolu("I20A", "BOX ", idtmed[254], di20a, 3); // mother volume
1258 // on layer 2
1259 dits[0] = 1.3673;
1260 dits[1] = 0.01;
1261 dits[2] = 24;
1262 gMC->Gsvolu("I123", "BOX ", idtmed[253], dits, 3);
1263
1264 dits[0] = 0.06;
1265 dits[1] = 0.08;
1266 dits[2] = 24;
1267 dits[3] = -36.79;
1268 dits[4] = 21.834;
1269 gMC->Gsvolu("I121", "TUBS", idtmed[253], dits, 5);
1270
1271 dits[0] = 0.1253;
1272 dits[1] = 0.01;
1273 dits[2] = 24;
1274 gMC->Gsvolu("I122", "BOX ", idtmed[253], dits, 3);
1275
1276 dits[0] = 0.04;
1277 dits[1] = 0.06 ;
1278 dits[2] = 24;
1279 dits[3] = 126.79;
1280 dits[4] = 270;
1281 gMC->Gsvolu("I120", "TUBS", idtmed[253], dits, 5);
1282
1283 dits[0] = 0.1134;
1284 dits[1] = 0.01;
1285 dits[2] = 24;
1286 gMC->Gsvolu("I144", "BOX ", idtmed[253], dits, 3);
1287
1288 dits[0] = 0.25;
1289 dits[1] = 0.06;
1290 dits[2] = 24;
1291 gMC->Gsvolu("I113", "BOX ", idtmed[254], dits, 3);
1292
1293 dits[0] = 0.077;
1294 dits[1] = 0.01;
1295 dits[2] = 24;
1296 gMC->Gsvolu("I143", "BOX ", idtmed[253], dits, 3);
1297
1298 dits[0] = 0.04;
1299 dits[1] = 0.06;
1300 dits[2] = 24;
1301 dits[3] = 0;
1302 dits[4] = 90;
1303 gMC->Gsvolu("I142", "TUBS", idtmed[253], dits, 5);
1304
1305 dits[0] = 0.0695;
1306 dits[1] = 0.01;
1307 dits[2] = 24;
1308 gMC->Gsvolu("I141", "BOX ", idtmed[253], dits, 3);
1309
1310 dits[0] = 0.06;
1311 dits[1] = 0.08;
1312 dits[2] = 24;
1313 dits[3] = 0;
1314 dits[4] = 108;
1315 gMC->Gsvolu("I140", "TUBS", idtmed[253], dits, 5);
1316
1317 dits[0] = 0.1835;
1318 dits[1] = 0.01;
1319 dits[2] = 24;
1320 gMC->Gsvolu("I139", "BOX ", idtmed[253], dits, 3);
1321
1322 dits[0] = 0.1894 ;
1323 dits[1] = 0.01;
1324 dits[2] = 24;
1325 gMC->Gsvolu("I138", "BOX ", idtmed[253], dits, 3);
1326
1327 dits[0] = 0.04;
1328 dits[1] = 0.06;
1329 dits[2] = 24;
1330 dits[3] = 0;
1331 dits[4] = 75.261;
1332 gMC->Gsvolu("I137", "TUBS", idtmed[253], dits, 5);
1333
4f849f3d 1334
87577a03 1335 dits[0] = 1.3401;
1336 dits[1] = 0.01;
1337 dits[2] = 24;
1338 gMC->Gsvolu("I136", "BOX ", idtmed[253], dits, 3);
1339
1340 dits[0] = 0.05;
1341 dits[1] = 0.07;
1342 dits[2] = 24;
1343 dits[3] = 0;
1344 dits[4] = 72.739;
1345 gMC->Gsvolu("I135", "TUBS", idtmed[253], dits, 5);
1346
1347 dits[0] = 0.1193;
1348 dits[1] = 0.01;
1349 dits[2] = 24;
1350 gMC->Gsvolu("I134", "BOX ", idtmed[253], dits, 3);
1351
1352 dits[0] = 0.163;
1353 dits[1] = 0.01;
1354 dits[2] = 24;
1355 gMC->Gsvolu("I133", "BOX ", idtmed[253], dits, 3);
1356
1357 dits[0] = 0.04;
1358 dits[1] = 0.06;
1359 dits[2] = 24;
1360 dits[3] = 0;
1361 dits[4] = 157.633;
1362 gMC->Gsvolu("I132", "TUBS", idtmed[253], dits, 5);
1363
1364 dits[0] = 0.2497;
1365 dits[1] = 0.01;
1366 dits[2] = 24;
1367 gMC->Gsvolu("I131", "BOX ", idtmed[253], dits, 3);
1368
1369 dits[0] = 0.06;
1370 dits[1] = 0.08;
1371 dits[2] = 24;
1372 dits[3] = 0;
1373 dits[4] = 148.633;
1374 gMC->Gsvolu("I130", "TUBS", idtmed[253], dits, 5);
1375
1376 dits[0] = 0.292;
1377 dits[1] = 0.01;
1378 dits[2] = 24;
1379 gMC->Gsvolu("I129", "BOX ", idtmed[253], dits, 3);
1380
1381 dits[0] = 0.163;
1382 dits[1] = 0.01;
1383 dits[2] = 24;
1384 gMC->Gsvolu("I128", "BOX ", idtmed[253], dits, 3);
1385
1386 dits[0] = 0.04;
1387 dits[1] = 0.06;
1388 dits[2] = 24;
1389 dits[3] = 0;
1390 dits[4] = 161.297;
1391 gMC->Gsvolu("I126", "TUBS", idtmed[253], dits, 5);
1392
1393 dits[0] = 0.2433;
1394 dits[1] = 0.01;
1395 dits[2] = 24;
1396 gMC->Gsvolu("I125", "BOX ", idtmed[253], dits, 3);
1397
1398 dits[0] = 0.06;
1399 dits[1] = 0.08;
1400 dits[2] = 24;
1401 dits[3] = 0;
1402 dits[4] = 42.883;
1403 gMC->Gsvolu("I124", "TUBS", idtmed[253], dits, 5);
1404
1405 di103[0] = 0.793;
1406 di103[1] = ddet1+dchip1;
1407 di103[2] = 3.536;
1408 gMC->Gsvolu("I103", "BOX ", idtmed[254], di103, 3); // contains det
1409 // and chip layer 1
1410 dits[0] = 0.793;
7de9bc5a 1411 dits[1] = ddet1+dchip1+dbus+0.0025;
87577a03 1412 dits[2] = 2.5;
1413 gMC->Gsvolu("I105", "BOX ", idtmed[290], dits, 3);// end-ladder electr.
1414
1415 di104[0] = 0.843;
1416 di104[1] = dbus;
1417 di104[2] = 14.344;
1418 gMC->Gsvolu("I104", "BOX ", idtmed[275], di104, 3);// bus for both
1419 // layers
1420
1421 di1d3[0] = 0.793;
1422 di1d3[1] = ddet2+dchip2;
1423 di1d3[2] = 3.536;
1424 gMC->Gsvolu("I1D3", "BOX ", idtmed[254], di1d3, 3); // contains det
1425 // and chip layer 2
1426 dits[0] = 0.793;
1427 dits[0] = 0.06;
1428 dits[1] = 0.08;
1429 dits[2] = 24;
1430 dits[3] = 0;
1431 dits[4] = 80;
1432 gMC->Gsvolu("I112", "TUBS", idtmed[253], dits, 5);
1433
1434 dits[0] = 0.04;
1435 dits[1] = 0.06;
1436 dits[2] = 24;
1437 dits[3] = 0;
1438 dits[4] = 80;
1439 gMC->Gsvolu("I111", "TUBS", idtmed[253], dits, 5);
1440
1441 dits[0] = 0.15;
1442 dits[1] = 0.0146;
1443 dits[2] = 24;
1444 gMC->Gsvolu("I118", "BOX ", idtmed[273], dits, 3);
1445
1446 dits[0] = 0.1315;
1447 dits[1] = 0.01;
1448 dits[2] = 24;
1449 gMC->Gsvolu("I110", "BOX ", idtmed[253], dits, 3);
1450
1451 dits[0] = 0.025;
1452 dits[1] = 0.035;
1453 dits[2] = 24;
1454 dits[3] = 0;
1455 dits[4] = 180;
1456 gMC->Gsvolu("I114", "TUBS", idtmed[264], dits, 5);
1457
ad819a25 1458 dits[0] = 0;
1459 dits[1] = 0.025;
1460 dits[2] = 24;
1461 dits[3] = 0;
1462 dits[4] = 180;
1463 gMC->Gsvolu("I115", "TUBS", idtmed[211], dits, 5); // set freon
1464 // as cooling
1465 // fluid
87577a03 1466 dits[0] = 0.063;
1467 dits[1] = 0.035;
1468 dits[2] = 24;
1469 gMC->Gsvolu("I116", "BOX ", idtmed[264], dits, 3);
1470
1471 di102[0] = 0.793;
1472 di102[1] = dchip1;
1473 di102[2] = 0.68;
1474 gMC->Gsvolu("I102", "BOX ", idtmed[201], di102, 3); // chip layer 1
6b2a1732 1475
87577a03 1476 di1d2[0] = 0.793;
1477 di1d2[1] = dchip2;
1478 di1d2[2] = 0.68;
1479 gMC->Gsvolu("I1D2", "BOX ", idtmed[201], di1d2, 3); // chip layer 2
1480
1481 di101[0] = 0.705;
1482 di101[1] = ddet1;
1483 di101[2] = 3.536;
1484 gMC->Gsvolu("I101", "BOX ", idtmed[250], di101, 3);// contains detector
6b2a1732 1485 // layer 1
87577a03 1486 di1d1[0] = 0.705;
1487 di1d1[1] = ddet2;
1488 di1d1[2] = 3.536;
1489 gMC->Gsvolu("I1D1", "BOX ", idtmed[250], di1d1, 3);// contains detector
6b2a1732 1490 // layer 2
ad819a25 1491 dits[0] = 0.063;
1492 dits[1] = 0.025;
1493 dits[2] = 24;
1494 gMC->Gsvolu("I117", "BOX ", idtmed[211], dits, 3); // set freon
87577a03 1495 // as cooling
1496 // fluid
87577a03 1497
1498 dits1[0] = 0.64;
1499 dits1[1] = ddet1;
1500 dits1[2] = 3.48;
1501 gMC->Gsvolu("ITS1", "BOX ", idtmed[200], dits1, 3);// detector layer 1
1502
1503 dits2[0] = 0.64;
1504 dits2[1] = ddet2;
1505 dits2[2] = 3.48;
1506 gMC->Gsvolu("ITS2", "BOX ", idtmed[200], dits2, 3);// detector layer 2
1507
1508 dits[0] = 3.701;
1509 dits[1] = 7.699;
1510 dits[2] = 4;
1511 dits[3] = 57.1;
1512 dits[4] = 99.9;
1513 gMC->Gsvolu("I650", "TUBS", idtmed[254], dits, 5);// was I150 in old
1514 // geom.
1515
1516 dits[0] = 3.7;
1517 dits[1] = 7.75;
1518 dits[2] = 0.05;
1519 gMC->Gsvolu("I651", "TUBE", idtmed[296], dits, 3); // services disk
1520 //Begin_Html
1521 /*
1522 <img src="http://www.Physics.ohio-state.edu/~nilsen/ITS/ITS_FMD_PMD_SPD_Geom.eps">
1523 </pre>
1524 <br clear=left>
1525 <font size=+2 color=blue>
1526 <p>SPD services volume cone with other forward detectors. Shown in
1527 brown are a posible cabling layout.
1528 </font>
1529 */
1530 //End_Html
1531 dits[0] = 0;
1532 dits[1] = 0.5;
1533 dits[2] = 1.5;
1534 gMC->Gsvolu("I676", "TUBE", idtmed[274], dits, 3); // was I176 in
1535 // old geom.
1536
1537 dits[0] = 0;
1538 dits[1] = 0.18;
1539 dits[2] = 0.8;
1540 gMC->Gsvolu("I673", "TUBE", idtmed[274], dits, 3); // was I173 in
1541 // old geom.
1542
1543 dits[0] = 0;
1544 dits[1] = 0.18;
1545 dits[2] = 3;
1546 gMC->Gsvolu("I671", "TUBE", idtmed[274], dits, 3); // was I171 in
1547 // old geom.
1548
1549 dits[0] = 0;
1550 dits[1] = 0.075;
1551 dits[2] = 0.8;
1552 gMC->Gsvolu("I669", "TUBE", idtmed[264], dits, 3); // was I169 in
1553 // old geom.
1554
1555 dits[0] = 3.5;
1556 dits[1] = 5.6;
1557 dits[2] = 0.55;
1558 dits[3] = 0;
1559 dits[4] = 38;
1560 gMC->Gsvolu("I667", "TUBS", idtmed[263], dits, 5); // was I167 in old geom.
6b2a1732 1561
1562 dits[0] = 6.6;
1563 dits[1] = 7.6;
1564 dits[2] = 0.5;
1565 dits[3] = 0;
1566 dits[4] = 9;
87577a03 1567 gMC->Gsvolu("I666", "TUBS", idtmed[263], dits, 5); // was I166 in old geom
6b2a1732 1568
1569 dits[0] = 0.26;
1570 dits[1] = 0.32;
1571 dits[2] = 0.55;
87577a03 1572 gMC->Gsvolu("I678", "TUBE", idtmed[263], dits, 3); // was I178 in old geom
6b2a1732 1573
ad819a25 1574
1575 dits[0] = 0;
1576 dits[1] = 0.3;
1577 dits[2] = 1.5;
1578 gMC->Gsvolu("I677", "TUBE", idtmed[211], dits, 3); // set freon as cooling fluid
1579 // was I177 in old geom.
1580
6b2a1732 1581
1582 dits[0] = 0.07;
1583 dits[1] = 0.125;
1584 dits[2] = 0.3;
87577a03 1585 gMC->Gsvolu("I675", "TUBE", idtmed[263], dits, 3); // was I175 in old geom
6b2a1732 1586
ad819a25 1587
1588 dits[0] = 0;
1589 dits[1] = 0.1;
1590 dits[2] = 0.8;
1591 gMC->Gsvolu("I674", "TUBE", idtmed[211], dits, 3); // set freon as cooling fluid
1592 // was I174 in old geom.
6b2a1732 1593
6b2a1732 1594
ad819a25 1595 dits[0] = 0;
1596 dits[1] = 0.1;
1597 dits[2] = 3;
1598 gMC->Gsvolu("I672", "TUBE", idtmed[211], dits, 3); // set freon as cooling fluid
1599 // was I172 in old geom.
1600
1601
1602 dits[0] = 0;
1603 dits[1] = 0.0746;
1604 dits[2] = 0.8;
1605 gMC->Gsvolu("I670", "TUBE", idtmed[211], dits, 3); // set freon as cooling fluid
1606 // was I170 in old geom.
1607
1608
1609 dits[0] = 3.7;
1610 dits[1] = 5.4;
1611 dits[2] = 0.35;
1612 dits[3] = 2;
1613 dits[4] = 36;
1614 gMC->Gsvolu("I668", "TUBS", idtmed[211], dits, 5); // set freon as cooling fluid
1615 // was I168 in old geom.
6b2a1732 1616
6b2a1732 1617
1618
ad819a25 1619 }
6b2a1732 1620
1621 // --- Define SPD (option 'b') volumes ----------------------------
1622
1623 // SPD - option 'b'
1624 // (this is the default)
1625
1626 if (option == 2) {
1627
1628 dits[0] = 3.7;
1629 dits[1] = 7.75;
1630 dits[2] = 26.1;
1631 gMC->Gsvolu("IT12", "TUBE", idtmed[254], dits, 3);
1632
1633 dits[0] = 3.7;
1634 dits[1] = 7.7;
1635 dits[2] = 24;
1636 dits[3] = 57;
1637 dits[4] = 100;
1638 gMC->Gsvolu("I12B", "TUBS", idtmed[254], dits, 5); // sector
1639
1640 di10b[0] = 0.843;
1641 di10b[1] = ddet1+dchip1+dbus+0.0025;
1642 di10b[2] = 19.344;
1643 gMC->Gsvolu("I10B", "BOX ", idtmed[254], di10b, 3); // mother volume
1644 // on layer 1
1645
1646 di20b[0] = 0.843;
1647 di20b[1] = ddet2+dchip2+dbus+0.0025;
1648 di20b[2] = 19.344;
1649 gMC->Gsvolu("I20B", "BOX ", idtmed[254], di20b, 3); // mother volume
1650 // layer 2
1651
1652 dits[0] = 1.3673;
1653 dits[1] = 0.01;
1654 dits[2] = 24;
1655 gMC->Gsvolu("I123", "BOX ", idtmed[253], dits, 3);
1656
1657 dits[0] = 0.06;
1658 dits[1] = 0.08;
1659 dits[2] = 24;
1660 dits[3] = -36.79;
1661 dits[4] = 21.834;
1662 gMC->Gsvolu("I121", "TUBS", idtmed[253], dits, 5);
1663
1664 dits[0] = 0.1253;
1665 dits[1] = 0.01;
1666 dits[2] = 24;
1667 gMC->Gsvolu("I122", "BOX ", idtmed[253], dits, 3);
1668
1669 dits[0] = 0.04;
1670 dits[1] = 0.06 ;
1671 dits[2] = 24;
1672 dits[3] = 126.79;
1673 dits[4] = 270;
1674 gMC->Gsvolu("I120", "TUBS", idtmed[253], dits, 5);
1675
1676 dits[0] = 0.1134;
1677 dits[1] = 0.01;
1678 dits[2] = 24;
1679 gMC->Gsvolu("I144", "BOX ", idtmed[253], dits, 3);
1680
1681 dits[0] = 0.25;
1682 dits[1] = 0.06;
1683 dits[2] = 24;
1684 gMC->Gsvolu("I113", "BOX ", idtmed[254], dits, 3);
1685
1686 dits[0] = 0.077;
1687 dits[1] = 0.01;
1688 dits[2] = 24;
1689 gMC->Gsvolu("I143", "BOX ", idtmed[253], dits, 3);
1690
1691 dits[0] = 0.04;
1692 dits[1] = 0.06;
1693 dits[2] = 24;
1694 dits[3] = 0;
1695 dits[4] = 90;
1696 gMC->Gsvolu("I142", "TUBS", idtmed[253], dits, 5);
1697
1698 dits[0] = 0.0695;
1699 dits[1] = 0.01;
1700 dits[2] = 24;
1701 gMC->Gsvolu("I141", "BOX ", idtmed[253], dits, 3);
1702
1703 dits[0] = 0.06;
1704 dits[1] = 0.08;
1705 dits[2] = 24;
1706 dits[3] = 0;
1707 dits[4] = 108;
1708 gMC->Gsvolu("I140", "TUBS", idtmed[253], dits, 5);
1709
1710 dits[0] = 0.1835;
1711 dits[1] = 0.01;
1712 dits[2] = 24;
1713 gMC->Gsvolu("I139", "BOX ", idtmed[253], dits, 3);
1714
1715 dits[0] = 0.1894 ;
1716 dits[1] = 0.01;
1717 dits[2] = 24;
1718 gMC->Gsvolu("I138", "BOX ", idtmed[253], dits, 3);
1719
1720 dits[0] = 0.04;
1721 dits[1] = 0.06;
1722 dits[2] = 24;
1723 dits[3] = 0;
1724 dits[4] = 75.261;
1725 gMC->Gsvolu("I137", "TUBS", idtmed[253], dits, 5);
1726
1727 dits[0] = 1.3401;
1728 dits[1] = 0.01;
1729 dits[2] = 24;
1730 gMC->Gsvolu("I136", "BOX ", idtmed[253], dits, 3);
1731
1732 dits[0] = 0.05;
1733 dits[1] = 0.07;
1734 dits[2] = 24;
1735 dits[3] = 0;
1736 dits[4] = 72.739;
1737 gMC->Gsvolu("I135", "TUBS", idtmed[253], dits, 5);
1738
1739 dits[0] = 0.1193;
1740 dits[1] = 0.01;
1741 dits[2] = 24;
1742 gMC->Gsvolu("I134", "BOX ", idtmed[253], dits, 3);
1743
1744 dits[0] = 0.163;
1745 dits[1] = 0.01;
1746 dits[2] = 24;
1747 gMC->Gsvolu("I133", "BOX ", idtmed[253], dits, 3);
1748
1749 dits[0] = 0.04;
1750 dits[1] = 0.06;
1751 dits[2] = 24;
1752 dits[3] = 0;
1753 dits[4] = 157.633;
1754 gMC->Gsvolu("I132", "TUBS", idtmed[253], dits, 5);
1755
1756 dits[0] = 0.2497;
1757 dits[1] = 0.01;
1758 dits[2] = 24;
1759 gMC->Gsvolu("I131", "BOX ", idtmed[253], dits, 3);
1760
1761 dits[0] = 0.06;
1762 dits[1] = 0.08;
1763 dits[2] = 24;
1764 dits[3] = 0;
1765 dits[4] = 148.633;
1766 gMC->Gsvolu("I130", "TUBS", idtmed[253], dits, 5);
1767
1768 dits[0] = 0.292;
1769 dits[1] = 0.01;
1770 dits[2] = 24;
1771 gMC->Gsvolu("I129", "BOX ", idtmed[253], dits, 3);
1772
1773 dits[0] = 0.163;
1774 dits[1] = 0.01;
1775 dits[2] = 24;
1776 gMC->Gsvolu("I128", "BOX ", idtmed[253], dits, 3);
1777
1778 dits[0] = 0.04;
1779 dits[1] = 0.06;
1780 dits[2] = 24;
1781 dits[3] = 0;
1782 dits[4] = 161.297;
1783 gMC->Gsvolu("I126", "TUBS", idtmed[253], dits, 5);
1784
1785 dits[0] = 0.2433;
1786 dits[1] = 0.01;
1787 dits[2] = 24;
1788 gMC->Gsvolu("I125", "BOX ", idtmed[253], dits, 3);
1789
1790 dits[0] = 0.06;
1791 dits[1] = 0.08;
1792 dits[2] = 24;
1793 dits[3] = 0;
1794 dits[4] = 42.883;
1795 gMC->Gsvolu("I124", "TUBS", idtmed[253], dits, 5);
1796
1797 dits[0] = 0.793;
7de9bc5a 1798 dits[1] = ddet1+dchip1+dbus+0.0025;
6b2a1732 1799 dits[2] = 2.5;
1800 gMC->Gsvolu("I105", "BOX ", idtmed[290], dits, 3);
1801
1802 di107[0] = 0.793;
1803 di107[1] = ddet1+dchip1;
1804 di107[2] = 3.536;
1805 gMC->Gsvolu("I107", "BOX ", idtmed[254], di107, 3); // contains det and chip
1806 // layer 1
1807 dits[0] = 0.705;
1808 dits[1] = 0.01;
1809 dits[2] = 2.5;
1810 gMC->Gsvolu("I109", "BOX ", idtmed[275], dits, 3);
1811
1812 di108[0] = 0.705;
1813 di108[1] = dbus;
1814 di108[2] = 14.344;
1815 gMC->Gsvolu("I108", "BOX ", idtmed[275], di108, 3); // bus for both layers
1816
1817 di1d7[0] = 0.7975;
1818 di1d7[1] = ddet2+dchip2;
1819 di1d7[2] = 3.536;
1820 gMC->Gsvolu("I1D7", "BOX ", idtmed[254], di1d7, 3); // contains det and chip
1821 // layer 2
1822 dits[0] = 0.06;
1823 dits[1] = 0.08;
1824 dits[2] = 24;
1825 dits[3] = 0;
1826 dits[4] = 80;
1827 gMC->Gsvolu("I112", "TUBS", idtmed[253], dits, 5);
1828
1829 dits[0] = 0.04;
1830 dits[1] = 0.06;
1831 dits[2] = 24;
1832 dits[3] = 0;
1833 dits[4] = 80;
1834 gMC->Gsvolu("I111", "TUBS", idtmed[253], dits, 5);
1835
1836 dits[0] = 0.15;
1837 dits[1] = 0.0146;
1838 dits[2] = 24;
1839 gMC->Gsvolu("I118", "BOX ", idtmed[273], dits, 3);
1840
1841 dits[0] = 0.1315;
1842 dits[1] = 0.01;
1843 dits[2] = 24;
1844 gMC->Gsvolu("I110", "BOX ", idtmed[253], dits, 3);
1845
1846 dits[0] = 0.025;
1847 dits[1] = 0.035;
1848 dits[2] = 24;
1849 dits[3] = 0;
1850 dits[4] = 180;
1851 gMC->Gsvolu("I114", "TUBS", idtmed[264], dits, 5);
1852
ad819a25 1853 dits[0] = 0;
1854 dits[1] = 0.025;
1855 dits[2] = 24;
1856 dits[3] = 0;
1857 dits[4] = 180;
1858 gMC->Gsvolu("I115", "TUBS", idtmed[211], dits, 5); // set freon as cooling fluid
1859
6b2a1732 1860
1861 dits[0] = 0.063;
1862 dits[1] = 0.035;
1863 dits[2] = 24;
1864 gMC->Gsvolu("I116", "BOX ", idtmed[264], dits, 3);
1865
1866 di106[0] = 0.7975;
1867 di106[1] = dchip1;
1868 di106[2] = 0.68;
1869 gMC->Gsvolu("I106", "BOX ", idtmed[201], di106, 3); // chip layer 1
1870
1871 di1d6[0] = 0.7975;
1872 di1d6[1] = dchip2;
1873 di1d6[2] = 0.68;
1874 gMC->Gsvolu("I1D6", "BOX ", idtmed[201], di1d6, 3); // chip layer 2
1875
1876 di101[0] = 0.705;
1877 di101[1] = ddet1;
1878 di101[2] = 3.536;
87577a03 1879 gMC->Gsvolu("I101", "BOX ", idtmed[250], di101, 3); // contains detector
6b2a1732 1880 // layer 1
1881 di1d1[0] = 0.705;
1882 di1d1[1] = ddet2;
1883 di1d1[2] = 3.536;
87577a03 1884 gMC->Gsvolu("I1D1", "BOX ", idtmed[250], di1d1, 3); // contains detector
6b2a1732 1885 // layer 2
1886
ad819a25 1887
1888 dits[0] = 0.063;
1889 dits[1] = 0.025;
1890 dits[2] = 24;
1891 gMC->Gsvolu("I117", "BOX ", idtmed[211], dits, 3); // set freon as cooling fluid
1892
6b2a1732 1893
1894 dits1[0] = 0.64;
1895 dits1[1] = ddet1;
1896 dits1[2] = 3.48;
1897 gMC->Gsvolu("ITS1", "BOX ", idtmed[200], dits1, 3); // detector layer 1
1898
1899 dits2[0] = 0.64;
1900 dits2[1] = ddet2;
1901 dits2[2] = 3.48;
1902 gMC->Gsvolu("ITS2", "BOX ", idtmed[200], dits2, 3); // detector layer 2
1903
1904 dits[0] = 3.701;
1905 dits[1] = 7.699;
1906 dits[2] = 4;
1907 dits[3] = 57.1;
1908 dits[4] = 99.9;
1909 gMC->Gsvolu("I650", "TUBS", idtmed[254], dits, 5); // was I150 in old geom.
1910
1911 dits[0] = 3.7;
1912 dits[1] = 7.75;
1913 dits[2] = 0.05;
1914 gMC->Gsvolu("I651", "TUBE", idtmed[296], dits, 3); // services disk
1915
1916 dits[0] = 0;
1917 dits[1] = 0.5;
1918 dits[2] = 1.5;
1919 gMC->Gsvolu("I676", "TUBE", idtmed[274], dits, 3); // was I176 in old geom.
1920
1921 dits[0] = 0;
1922 dits[1] = 0.18;
1923 dits[2] = 0.8;
1924 gMC->Gsvolu("I673", "TUBE", idtmed[274], dits, 3); // was I173 in old geom.
1925
1926 dits[0] = 0;
1927 dits[1] = 0.18;
1928 dits[2] = 3;
1929 gMC->Gsvolu("I671", "TUBE", idtmed[274], dits, 3); // was I171 in old geom.
1930
1931 dits[0] = 0;
1932 dits[1] = 0.075;
1933 dits[2] = 0.8;
1934 gMC->Gsvolu("I669", "TUBE", idtmed[264], dits, 3); // was I169 in old geom.
1935
1936 dits[0] = 3.5;
1937 dits[1] = 5.6;
1938 dits[2] = 0.55;
1939 dits[3] = 0;
1940 dits[4] = 38;
1941 gMC->Gsvolu("I667", "TUBS", idtmed[263], dits, 5); // was I167 in old geom.
1942
1943 dits[0] = 6.6;
1944 dits[1] = 7.6;
1945 dits[2] = 0.5;
1946 dits[3] = 0;
1947 dits[4] = 9;
1948 gMC->Gsvolu("I666", "TUBS", idtmed[263], dits, 5); // was I166 in old geom.
1949
1950 dits[0] = 0.26;
1951 dits[1] = 0.32;
1952 dits[2] = 0.55;
1953 gMC->Gsvolu("I678", "TUBE", idtmed[263], dits, 3); // was I178 in old geom.
1954
ad819a25 1955 dits[0] = 0;
1956 dits[1] = 0.3;
1957 dits[2] = 1.5;
1958 gMC->Gsvolu("I677", "TUBE", idtmed[211], dits, 3); //set freon as cooling fluid
1959 // was I177 in old geom.
1960
6b2a1732 1961 dits[0] = 0.07;
1962 dits[1] = 0.125;
1963 dits[2] = 0.3;
1964 gMC->Gsvolu("I675", "TUBE", idtmed[263], dits, 3); // was I175 in old geom.
1965
ad819a25 1966
1967 dits[0] = 0;
1968 dits[1] = 0.1;
1969 dits[2] = 0.8;
1970 gMC->Gsvolu("I674", "TUBE", idtmed[211], dits, 3); //set freon as cooling fluid
1971 // was I174 in old geom.
6b2a1732 1972
6b2a1732 1973
ad819a25 1974
1975 dits[0] = 0;
1976 dits[1] = 0.1;
1977 dits[2] = 3;
1978 gMC->Gsvolu("I672", "TUBE", idtmed[211], dits, 3); //set freon as cooling fluid
1979 // was I172 in old geom.
1980
1981
1982 dits[0] = 0;
1983 dits[1] = 0.0746;
1984 dits[2] = 0.8;
1985 gMC->Gsvolu("I670", "TUBE", idtmed[211], dits, 3); //set freon as cooling fluid
1986 // was I170 in old geom.
1987
1988 dits[0] = 3.7;
1989 dits[1] = 5.4;
1990 dits[2] = 0.35;
1991 dits[3] = 2;
1992 dits[4] = 36;
1993 gMC->Gsvolu("I668", "TUBS", idtmed[211], dits, 5); //set freon as cooling fluid
1994 // was I168 in old geom.
6b2a1732 1995
6b2a1732 1996
1997
1998 }
1999
2000 // --- Define SDD volumes ------------------------------------------
2001
2002
2003 cos30 = cos(30.*3.14159/180.);
2004 sin30 = sin(30.*3.14159/180.);
2005
7672c713 2006 Double_t maxRadius = 28.5;
6b2a1732 2007 dits[0] = 0;
2008 dits[1] = 360;
2009 dits[2] = 6;
2010 dits[3] = -34.6;
2011 dits[4] = 23.49;
7672c713 2012 dits[5] = maxRadius;
7de9bc5a 2013 dits[6] = -27.35;
6b2a1732 2014 dits[7] = 23.49;
7672c713 2015 dits[8] = maxRadius;
7de9bc5a 2016 dits[9] = -27.35;
6b2a1732 2017 dits[10] = 14.59;
7672c713 2018 dits[11] = maxRadius;
7de9bc5a 2019 dits[12] = 27.35;
6b2a1732 2020 dits[13] = 14.59;
7672c713 2021 dits[14] = maxRadius;
7de9bc5a 2022 dits[15] = 27.35;
6b2a1732 2023 dits[16] = 23.49;
7672c713 2024 dits[17] = maxRadius;
6b2a1732 2025 dits[18] = 34.6;
2026 dits[19] = 23.49;
7672c713 2027 dits[20] = maxRadius;
6b2a1732 2028 gMC->Gsvolu("IT34", "PCON", idtmed[209], dits, 21);
2029
2030 // block of the SDD electronics and related ladder frame
41b19549 2031 iI018dits[0] = 3.2;
2032 iI018dits[1] = 2;
2033 iI018dits[2] = 3.65;
2034 gMC->Gsvolu("I018", "BOX ", idtmed[209], iI018dits, 3);
6b2a1732 2035
2036 // block of the SDD end ladder
41b19549 2037 iI024dits[0] = 3.2;
2038 iI024dits[1] = 2;
2039 iI024dits[2] = 2.725;
2040 gMC->Gsvolu("I024", "BOX ", idtmed[209], iI024dits, 3);
6b2a1732 2041
2042 // ladder frame of layer 3 - F.T. March,7-2001
41b19549 2043 iI047dits[0] = iI018dits[0];
2044 iI047dits[1] = iI018dits[1];
2045 iI047dits[2] = 6*iI018dits[2] + 2*iI024dits[2];
2046 gMC->Gsvolu("I047", "BOX ", idtmed[209], iI047dits, 3);
6b2a1732 2047
2048 // ladder frame of layer 4 - F.T. March,7-2001
41b19549 2049 iI048dits[0] = iI018dits[0];
2050 iI048dits[1] = iI018dits[1];
2051 iI048dits[2] = 8*iI018dits[2] + 2*iI024dits[2];
2052 gMC->Gsvolu("I048", "BOX ", idtmed[209], iI048dits, 3);
6b2a1732 2053
2054
2055 // global SDD volume (sensitive + insensitive)
41b19549 2056 iI302dits[0] = 3.6250;
2057 iI302dits[1] = 0.0150;
2058 iI302dits[2] = 4.3794;
2059 gMC->Gsvolu("I302", "BOX ", idtmed[278], iI302dits, 3);
6b2a1732 2060
2061 // Like for I302 - F.T. March,7-2001
41b19549 2062 iI402dits[0] = 3.6250;
2063 iI402dits[1] = 0.0150;
2064 iI402dits[2] = 4.3794;
2065 gMC->Gsvolu("I402", "BOX ", idtmed[278], iI402dits, 3);
6b2a1732 2066
2067 // SDD ladder of layer 3 - F.T. March,7-2001
41b19549 2068 iI004dits[0] = iI302dits[0]+0.005;
2069 iI004dits[1] = 2*iI302dits[1]+ySDDsep/2.;
2070 iI004dits[2] = TMath::Abs(zSDDlay3[0]);
2071 if (iI004dits[2] < TMath::Abs(zSDDlay3[5])) {
2072 iI004dits[2] = TMath::Abs(zSDDlay3[5]);
6b2a1732 2073 }
41b19549 2074 iI004dits[2] = iI004dits[2] + iI302dits[2];
2075 gMC->Gsvolu("I004", "BOX ", idtmed[209], iI004dits, 3);
6b2a1732 2076
2077 // SDD ladder of layer 4 - F.T. March,7-2001
41b19549 2078 iI005dits[0] = iI402dits[0]+0.005;
2079 iI005dits[1] = 2*iI402dits[1]+ySDDsep/2.;
2080 iI005dits[2] = TMath::Abs(zSDDlay4[0]);
2081 if (iI005dits[2] < TMath::Abs(zSDDlay4[7])) {
2082 iI005dits[2] = TMath::Abs(zSDDlay4[7]);
6b2a1732 2083 }
41b19549 2084 iI005dits[2] = iI005dits[2] + iI402dits[2];
2085 gMC->Gsvolu("I005", "BOX ", idtmed[209], iI005dits, 3);
6b2a1732 2086
2087
2088 // -- block of the SDD ladder foot and end ladder
2089
2090 // ladder foot mother volume
41b19549 2091 iI028dits[0] = 3.0000;
2092 iI028dits[1] = 0.4000;
2093 iI028dits[2] = 0.9000;
2094 gMC->Gsvolu("I028", "BOX ", idtmed[224], iI028dits, 3);
6b2a1732 2095
2096 // positioning-box #1 at SDD end-ladder - F.T. March,7-2001
41b19549 2097 iI420dits[0] = 0.4500;
2098 iI420dits[1] = 0.4000;
2099 iI420dits[2] = 0.4500;
2100 gMC->Gsvolu("I420", "BOX ", idtmed[264], iI420dits, 3);
6b2a1732 2101
2102 // positioning-box #2 at SDD end-ladder - F.T. March,7-2001
41b19549 2103 iI421dits[0] = 0.;
2104 iI421dits[1] = 0.25;
2105 iI421dits[2] = iI420dits[1];
2106 gMC->Gsvolu("I421", "TUBE", idtmed[209], iI421dits, 3);
6b2a1732 2107
2108 // reference ruby-sphere at SDD end-ladder - F.T. March,7-2001
41b19549 2109 iI422dits[0] = 0.0000;
2110 iI422dits[1] = 0.2000;
2111 iI422dits[2] = 0.0000;
2112 iI422dits[3] = 180.00;
2113 iI422dits[4] = 0.0000;
2114 iI422dits[5] = 360.00;
2115 gMC->Gsvolu("I422", "SPHE", idtmed[277], iI422dits, 6);
6b2a1732 2116
2117 // support for ruby-sphere (I422) - F.T. March,7-2001
41b19549 2118 iI423dits[0] = 0.0000;
2119 iI423dits[1] = 0.1000;
2120 iI423dits[2] = (iI420dits[1]-iI422dits[1])/2.;
2121 gMC->Gsvolu("I423", "TUBE", idtmed[264], iI423dits, 3);
6b2a1732 2122
2123 // passage for HV microcables - F.T. March,7-2001
41b19549 2124 iI424dits[0] = 1.5000;
2125 iI424dits[1] = 0.1500;
2126 iI424dits[2] = iI421dits[2];
2127 gMC->Gsvolu("I424", "BOX ", idtmed[209], iI424dits, 3);
6b2a1732 2128
2129 // HV microcables segment at the end ladder - F.T. March,7-2001
41b19549 2130 iI425dits[0] = 1.350000;
2131 iI425dits[1] = 0.015250;
2132 iI425dits[2] = iI024dits[2];
2133 gMC->Gsvolu("I425", "BOX ", idtmed[279], iI425dits, 3);
6b2a1732 2134
2135 // lower edge of SDD ladder frame at end-ladder - part 1
2136 dits[0] = 0.2;
2137 dits[1] = 0.1815;
41b19549 2138 dits[2] = iI024dits[2];
6b2a1732 2139 dits[3] = 0.015;
2140 gMC->Gsvolu("I025", "TRD1", idtmed[208], dits, 4);
2141
2142 // lower edge of SDD ladder frame at end-ladder - part 2
2143 dits[0] = 0.183;
2144 dits[1] = 0.165;
41b19549 2145 dits[2] = iI024dits[2];
6b2a1732 2146 dits[3] = 0.015;
2147 gMC->Gsvolu("I026", "TRD1", idtmed[208], dits, 4);
2148
2149 // new: for the 1st top rod of the structure
2150 // at the end-ladder - F.T. March,7-2001
41b19549 2151 iI029dits[0] = 0.2;
2152 iI029dits[1] = 0.1815;
2153 iI029dits[2] = 1.0100;
2154 iI029dits[3] = 0.015;
2155 gMC->Gsvolu("I029", "TRD1", idtmed[208], iI029dits, 4);
6b2a1732 2156
2157 // new: for the 2nd top rod of the structure
2158 // at the end-ladder - F.T. March,7-2001
41b19549 2159 iI030dits[0] = 0.1830;
2160 iI030dits[1] = 0.1650;
2161 iI030dits[2] = 1.0100;
2162 iI030dits[3] = 0.0150;
2163 gMC->Gsvolu("I030", "TRD1", idtmed[208], iI030dits, 4);
6b2a1732 2164
2165 // inox cooling tubes for the end ladder - F.T. March,7-2001
41b19549 2166 iI031dits[0] = 0.093;
2167 iI031dits[1] = 0.1;
2168 iI031dits[2] = iI024dits[2];
2169 gMC->Gsvolu("I031", "TUBE", idtmed[264], iI031dits, 3);
6b2a1732 2170
2171 if (fluid == 1) {
2172 // cooling water for the end ladder - F.T. March,7-2001
41b19549 2173 iI032dits[0] = 0;
2174 iI032dits[1] = iI031dits[0];
2175 iI032dits[2] = iI024dits[2];
2176 gMC->Gsvolu("I032", "TUBE", idtmed[211], iI032dits, 3);
6b2a1732 2177 } else {
2178 // cooling freon for the end ladder - R.B. March,21-2001
41b19549 2179 iI032dits[0] = 0;
2180 iI032dits[1] = iI031dits[0];
2181 iI032dits[2] = iI024dits[2];
2182 gMC->Gsvolu("I032", "TUBE", idtmed[212], iI032dits, 3);
6b2a1732 2183 }
2184
2185 // -- block of the SDD ladder frame holding the electronics
2186
2187 // edge of the ladder frame - part 1
2188 dits[0] = 0.2;
2189 dits[1] = 0.182;
2190 dits[2] = 3.65;
2191 dits[3] = 0.015;
2192 gMC->Gsvolu("I019", "TRD1", idtmed[208], dits, 4);
2193
2194 // edge of the ladder frame - part 2
2195 dits[0] = 0.183;
2196 dits[1] = 0.165;
2197 dits[2] = 3.65;
2198 dits[3] = 0.015;
2199 gMC->Gsvolu("I020", "TRD1", idtmed[208], dits, 4);
2200
2201 // inclined segments of the ladder frame
2202 dits[0] = 2.23;
2203 dits[1] = 2.1;
2204 dits[2] = 0.05;
2205 dits[3] = 0.03;
2206 gMC->Gsvolu("I021", "TRD1", idtmed[208], dits, 4);
2207
2208 // horiz.segments of the ladders, normal to ladder edges
2209 dits[0] = 2.1;
2210 dits[1] = 2;
2211 dits[2] = 0.06;
2212 dits[3] = 0.04;
2213 gMC->Gsvolu("I022", "TRD1", idtmed[208], dits, 4);
2214
2215 // horiz.segments of the ladders, at 45 deg. to ladder edges
2216 dits[0] = 2.615;
2217 dits[1] = 2.465;
2218 dits[2] = 0.06;
2219 dits[3] = 0.04;
2220 gMC->Gsvolu("I023", "TRD1", idtmed[208], dits, 4);
2221
2222 // supports of the ceramic pins holding the detectors
2223 dits[0] = 0.3;
2224 dits[1] = 0.05;
2225 dits[2] = 0.15;
2226 gMC->Gsvolu("I033", "BOX ", idtmed[208], dits, 3);
2227
2228 // ceramic pins holding the detectors
2229 dits[0] = 0;
2230 dits[1] = 0.05;
2231 dits[2] = 0.225;
2232 gMC->Gsvolu("I034", "TUBE", idtmed[277], dits, 3);
2233
2234 // holders of cooling tubes
41b19549 2235 iI035dits[0] = 0.1;
2236 iI035dits[1] = 0.15;
2237 iI035dits[2] = 0.2;
2238 gMC->Gsvolu("I035", "TUBE", idtmed[208], iI035dits, 3);
6b2a1732 2239
2240 // top holders of microcables
2241 dits[0] = 0.2;
2242 dits[1] = 0.01;
2243 dits[2] = 0.05;
2244 gMC->Gsvolu("I036", "BOX ", idtmed[208], dits, 3);
2245
2246 // inox cooling tubes - F.T. March,7-2001
41b19549 2247 iI037dits[0] = 0.093;
2248 iI037dits[1] = 0.1;
2249 iI037dits[2] = iI018dits[2];
2250 gMC->Gsvolu("I037", "TUBE", idtmed[264], iI037dits, 3);
6b2a1732 2251
2252 if (fluid == 1) {
2253 // cooling water - F.T. March,7-2001
41b19549 2254 iI038dits[0] = 0;
2255 iI038dits[1] = iI037dits[0];
2256 iI038dits[2] = iI018dits[2];
2257 gMC->Gsvolu("I038", "TUBE", idtmed[211], iI038dits, 3);
6b2a1732 2258 } else {
2259 // cooling freon - R.B. March,21-2001
41b19549 2260 iI038dits[0] = 0;
2261 iI038dits[1] = iI037dits[0];
2262 iI038dits[2] = iI018dits[2];
2263 gMC->Gsvolu("I038", "TUBE", idtmed[212], iI038dits, 3);
6b2a1732 2264 }
2265 // -- block of the SDD electronics (heat bridge, chips, hybrid, anode microcable)
2266
2267 // SDD heat bridge - F.T. March,7-2001
41b19549 2268 iI039dits[0] = 1.1000;
2269 iI039dits[1] = 0.0087;
2270 iI039dits[2] = 3.2500;
2271 gMC->Gsvolu("I039", "BOX ", idtmed[268], iI039dits, 3);
6b2a1732 2272
2273 // SDD clip part 1
2274 dits[0] = 0.25;
2275 dits[1] = 0.01;
41b19549 2276 dits[2] = iI039dits[2];
6b2a1732 2277 gMC->Gsvolu("I040", "BOX ", idtmed[268], dits, 3);
2278
2279 // SDD clip part 2
41b19549 2280 iI041dits[0] = 0.1;
2281 iI041dits[1] = 0.12;
2282 iI041dits[2] = iI039dits[2];
2283 iI041dits[3] = 90;
2284 iI041dits[4] = 320;
2285 gMC->Gsvolu("I041", "TUBS", idtmed[268], iI041dits, 5);
6b2a1732 2286
2287
2288 // SDD PASCAL - F.T. March,7-2001
41b19549 2289 iI042dits[0] = 0.5000;
2290 iI042dits[1] = 0.0175;
2291 iI042dits[2] = 0.5000;
2292 gMC->Gsvolu("I042", "BOX ", idtmed[206], iI042dits, 3);
6b2a1732 2293
2294 // SDD AMBRA - F.T. March,7-2001
41b19549 2295 iI043dits[0] = 0.3500;
2296 iI043dits[1] = 0.0175;
2297 iI043dits[2] = 0.5000;
2298 gMC->Gsvolu("I043", "BOX ", idtmed[206], iI043dits, 3);
6b2a1732 2299
2300 // SDD capacitors - F.T. March,7-2001
41b19549 2301 iI051dits[0] = 0.1400;
2302 iI051dits[1] = 0.0350;
2303 iI051dits[2] = 0.0625;
2304 gMC->Gsvolu("I051", "BOX ", idtmed[276], iI051dits, 3);
6b2a1732 2305
2306 // SDD hybrid circuit - F.T. March,7-2001
41b19549 2307 iI052dits[0] = 1.725000;
2308 iI052dits[1] = 0.003743;
2309 iI052dits[2] = iI039dits[2];
2310 gMC->Gsvolu("I052", "BOX ", idtmed[281], iI052dits, 3);
6b2a1732 2311
2312 // SDD anode microcable : changed - F.T. March,7-2001
41b19549 2313 iI044dits[0] = iI018dits[2];
2314 iI044dits[1] = iI039dits[2];
2315 iI044dits[2] = 0.00084;
2316 iI044dits[3] = (15.189149/(iI044dits[0]+iI044dits[1]))/2;
2317 gMC->Gsvolu("I044", "TRD1", idtmed[282], iI044dits, 4);
2318 volI044 = ((2*iI044dits[0] + 2*iI044dits[1]) * 2*iI044dits[2])/2 * 2*iI044dits[3];
6b2a1732 2319
2320 // SDD electronics box - F.T. March,7-2001
41b19549 2321 iI050dits[1] = iI039dits[1]+iI052dits[1]+iI051dits[1]+iI044dits[2];
2322 iI050dits[0] = iI018dits[1]/cos(30.*3.14159/180.)-iI050dits[1]*sin(30.*3.14159/180.);
2323 iI050dits[2] = iI018dits[2];
2324 gMC->Gsvolu("I050", "BOX ", idtmed[209], iI050dits, 3);
6b2a1732 2325
2326 // SDD sensitive volume
2327 dits[0] = 3.50850;
2328 dits[1] = 0.01499; // not 0.015 because it is included into I302 which is 0.015
2329 dits[2] = 3.76320;
2330 gMC->Gsvolu("ITS3", "BOX ", idtmed[200], dits, 3);
2331
2332 // Like for ITS3 - F.T. March,7-2001
2333 dits[0] = 3.50850;
2334 dits[1] = 0.01499; // not 0.015 because it is included into I402 which is 0.015
2335 dits[2] = 3.76320;
2336 gMC->Gsvolu("ITS4", "BOX ", idtmed[200], dits, 3);
2337
2338
2339 // --- Define SSD volumes ------------------------------------------
2340
2341
2342 dits[0] = 0;
2343 dits[1] = 360;
2344 dits[2] = 6;
2345 dits[3] = -57.45;
2346 dits[4] = 43.6;
2347 dits[5] = 48;
2348 dits[6] = -49.15;
2349 dits[7] = 43.6;
2350 dits[8] = 48;
2351 dits[9] = -49.15;
2352 dits[10] = 36.9;
2353 dits[11] = 48;
2354 dits[12] = 50.55;
2355 dits[13] = 36.9;
2356 dits[14] = 48;
2357 dits[15] = 50.55;
2358 dits[16] = 43.6;
2359 dits[17] = 48;
2360 dits[18] = 57.45;
2361 dits[19] = 43.6;
2362 dits[20] = 48;
4f849f3d 2363 //gMC->Gsvolu("IT56", "PCON", idtmed[220], dits, 21); // SSD air
2364 gMC->Gsvolu("IT56", "PCON", idtmed[204], dits, 21); // air
6b2a1732 2365
2366 dits[0] = 3.4;
2367 dits[1] = 1.955;
2368 dits[2] = 56.5;
2369 gMC->Gsvolu("I570", "BOX ", idtmed[204], dits, 3);
2370
2371 dits[0] = 3.75;
2372 dits[1] = 0.045;
2373 dits[2] = 50.975;
2374 gMC->Gsvolu("I569", "BOX ", idtmed[204], dits, 3);
2375
2376 dits[0] = 3.4;
2377 dits[1] = 1.955;
2378 dits[2] = 47;
2379 gMC->Gsvolu("I571", "BOX ", idtmed[204], dits, 3);
2380
2381 dits[0] = 3.75;
2382 dits[1] = 0.045;
2383 dits[2] = 43.3;
2384 gMC->Gsvolu("I565", "BOX ", idtmed[204], dits, 3);
2385
2386 dits[0] = 3.4;
2387 dits[1] = 1.955;
2388 dits[2] = 3.15;
2389 gMC->Gsvolu("I553", "BOX ", idtmed[204], dits, 3);
2390
2391 dits[0] = 3.405;
2392 dits[1] = 1.955;
2393 dits[2] = 1.955;
2394 gMC->Gsvolu("I523", "BOX ", idtmed[204], dits, 3);
2395
2396 dits[0] = 3.75;
2397 dits[1] = 0.015;
2398 dits[2] = 2.1;
2399 gMC->Gsvolu("I566", "BOX ", idtmed[206], dits, 3);
2400
2401 dits[0] = 3.4;
2402 dits[1] = 1.955;
2403 dits[2] = 3.15;
2404 gMC->Gsvolu("I544", "BOX ", idtmed[204], dits, 3);
2405
2406 dits[0] = 3.41;
2407 dits[1] = 1.955;
2408 dits[2] = 1.955;
2409 gMC->Gsvolu("I516", "BOX ", idtmed[204], dits, 3);
2410
2411 dits[0] = 3.75;
2412 dits[1] = 0.015;
2413 dits[2] = 2.1;
2414 gMC->Gsvolu("I562", "BOX ", idtmed[206], dits, 3);
2415
2416 if (fluid == 1) {
2417 dits[0] = 0;
2418 dits[1] = 0.07;
2419 dits[2] = 3.15;
2420 gMC->Gsvolu("I559", "TUBE", idtmed[211], dits, 3); // set water as cooling fluid
2421 } else {
2422 dits[0] = 0;
2423 dits[1] = 0.07;
2424 dits[2] = 3.15;
2425 gMC->Gsvolu("I559", "TUBE", idtmed[212], dits, 3); // set freon as cooling fluid
2426 }
2427
2428 dits[0] = 0.07;
2429 dits[1] = 0.1;
2430 dits[2] = 3.15;
2431 gMC->Gsvolu("I560", "TUBE", idtmed[210], dits, 3);
2432
2433 dits[0] = 0.225;
2434 dits[1] = 0.195;
2435 dits[2] = 3.15;
2436 dits[3] = 0.025;
2437 gMC->Gsvolu("I558", "TRD1", idtmed[203], dits, 4);
2438
2439 dits[0] = 0.25;
2440 dits[1] = 0.22;
2441 dits[2] = 3.15;
2442 dits[3] = 0.025;
2443 gMC->Gsvolu("I557", "TRD1", idtmed[203], dits, 4);
2444
2445 dits[0] = 2.17;
2446 dits[1] = 0.035;
2447 dits[2] = 0.05;
2448 gMC->Gsvolu("I556", "BOX ", idtmed[203], dits, 3);
2449
2450 dits[0] = 2 ;
2451 dits[1] = 0.035;
2452 dits[2] = 0.05;
2453 gMC->Gsvolu("I554", "BOX ", idtmed[203], dits, 3);
2454
2455 dits[0] = 2.675;
2456 dits[1] = 0.035;
2457 dits[2] = 0.05;
2458 gMC->Gsvolu("I555", "BOX ", idtmed[203], dits, 3);
2459
2460 dits[0] = 0.3;
2461 dits[1] = 0.15;
2462 dits[2] = 0.15;
2463 gMC->Gsvolu("I561", "BOX ", idtmed[203], dits, 3);
2464
2465 dits[0] = 0.025;
2466 dits[1] = 0.025;
2467 dits[2] = 0.05;
2468 gMC->Gsvolu("I519", "BOX ", idtmed[214], dits, 3);
2469
2470 dits[0] = 0.304;
2471 dits[1] = 0.0275;
2472 dits[2] = 0.432;
2473 gMC->Gsvolu("I521", "BOX ", idtmed[206], dits, 3);
2474
2475 dits[0] = 0.16;
2476 dits[1] = 0.08;
2477 dits[2] = 0.08;
2478 gMC->Gsvolu("I520", "BOX ", idtmed[214], dits, 3);
2479
2480 dits[0] = 3.4;
2481 dits[1] = 0.015;
2482 dits[2] = 0.525;
2483 gMC->Gsvolu("I518", "BOX ", idtmed[203], dits, 3);
2484
2485 dits[0] = 0.15;
2486 dits[1] = 0.105;
2487 dits[2] = 0.29;
2488 dits[3] = 0.08;
2489 gMC->Gsvolu("I522", "TRD1", idtmed[203], dits, 4);
2490
2491 dits[0] = 0.07;
2492 dits[1] = 0.1;
2493 dits[2] = 1.955;
2494 gMC->Gsvolu("I542", "TUBE", idtmed[210], dits, 3);
2495
2496 if (fluid == 1) {
2497 dits[0] = 0;
2498 dits[1] = 0.07;
2499 dits[2] = 1.955;
2500 gMC->Gsvolu("I541", "TUBE", idtmed[211], dits, 3); // set water as cooling fluid
2501 } else {
2502 dits[0] = 0;
2503 dits[1] = 0.07;
2504 dits[2] = 1.955;
2505 gMC->Gsvolu("I541", "TUBE", idtmed[212], dits, 3); // set freon as cooling fluid
2506 }
2507
2508 dits[0] = 0.3;
2509 dits[1] = 0.15;
2510 dits[2] = 0.15;
2511 gMC->Gsvolu("I543", "BOX ", idtmed[203], dits, 3);
2512
2513 dits[0] = 0.25;
2514 dits[1] = 0.22;
2515 dits[2] = 1.955;
2516 dits[3] = 0.025;
2517 gMC->Gsvolu("I537", "TRD1", idtmed[203], dits, 4);
2518
2519 dits[0] = 0.225;
2520 dits[1] = 0.195;
2521 dits[2] = 1.955;
2522 dits[4] = 0.025;
2523 gMC->Gsvolu("I538", "TRD1", idtmed[203], dits, 4);
2524
2525 dits[0] = 2.17;
2526 dits[1] = 0.035;
2527 dits[2] = 0.05;
2528 gMC->Gsvolu("I536", "BOX ", idtmed[203], dits, 3);
2529
2530 dits[0] = 2.675;
2531 dits[1] = 0.035;
2532 dits[2] = 0.05;
2533 gMC->Gsvolu("I535", "BOX ", idtmed[203], dits, 3);
2534
2535 dits[0] = 2;
2536 dits[1] = 0.035;
2537 dits[2] = 0.05;
2538 gMC->Gsvolu("I534", "BOX ", idtmed[203], dits, 3);
2539
2540 dits[0] = 0;
2541 dits[1] = 0.05;
2542 dits[2] = 0.17;
2543 gMC->Gsvolu("I540", "TUBE", idtmed[203], dits, 3);
2544
2545 dits[0] = 0;
2546 dits[1] = 0.05;
2547 dits[2] = 0.205;
2548 gMC->Gsvolu("I539", "TUBE", idtmed[203], dits, 3);
2549
2550 dits[0] = 3.65;
2551 dits[1] = 0.015;
2552 dits[2] = 2;
2553 gMC->Gsvolu("ITS6", "BOX ", idtmed[200], dits, 3);
2554
2555 if (fluid == 1) {
2556 dits[0] = 0;
2557 dits[1] = 0.07;
2558 dits[2] = 3.15;
2559 gMC->Gsvolu("I550", "TUBE", idtmed[211], dits, 3); // set water as cooling fluid
2560 } else {
2561 dits[0] = 0;
2562 dits[1] = 0.07;
2563 dits[2] = 3.15;
2564 gMC->Gsvolu("I550", "TUBE", idtmed[212], dits, 3); // set freon as cooling fluid
2565 }
2566
2567 dits[0] = 0.07;
2568 dits[1] = 0.1;
2569 dits[2] = 3.15;
2570 gMC->Gsvolu("I551", "TUBE", idtmed[210], dits, 3);
2571
2572 dits[0] = 0.225;
2573 dits[1] = 0.195;
2574 dits[2] = 3.15;
2575 dits[3] = 0.025;
2576 gMC->Gsvolu("I549", "TRD1", idtmed[203], dits, 4);
2577
2578 dits[0] = 0.25;
2579 dits[1] = 0.22;
2580 dits[2] = 3.15;
2581 dits[3] = 0.025;
2582 gMC->Gsvolu("I548", "TRD1", idtmed[203], dits, 4);
2583
2584 dits[0] = 2.17;
2585 dits[1] = 0.035;
2586 dits[2] = 0.05;
2587 gMC->Gsvolu("I547", "BOX ", idtmed[203], dits, 3);
2588
2589 dits[0] = 2;
2590 dits[1] = 0.035;
2591 dits[2] = 0.05;
2592 gMC->Gsvolu("I545", "BOX ", idtmed[203], dits, 3);
2593
2594 dits[0] = 2.675;
2595 dits[1] = 0.035;
2596 dits[2] = 0.05;
2597 gMC->Gsvolu("I546", "BOX ", idtmed[203], dits, 3);
2598
2599 dits[0] = 0.3;
2600 dits[1] = 0.15;
2601 dits[2] = 0.15;
2602 gMC->Gsvolu("I552", "BOX ", idtmed[203], dits, 3);
2603
2604 dits[0] = 0.304;
2605 dits[1] = 0.0275;
2606 dits[2] = 0.4322;
2607 gMC->Gsvolu("I515", "BOX ", idtmed[206], dits, 3);
2608
2609 dits[0] = 0.025;
2610 dits[1] = 0.025;
2611 dits[2] = 0.05;
2612 gMC->Gsvolu("I513", "BOX ", idtmed[214], dits, 3);
2613
2614 dits[0] = 0.16;
2615 dits[1] = 0.08;
2616 dits[2] = 0.08;
2617 gMC->Gsvolu("I514", "BOX ", idtmed[214], dits, 3);
2618
2619 dits[0] = 3.4;
2620 dits[1] = 0.015;
2621 dits[2] = 0.525;
2622 gMC->Gsvolu("I512", "BOX ", idtmed[203], dits, 3);
2623
2624 dits[0] = 0.225;
2625 dits[1] = 0.195;
2626 dits[2] = 1.955;
2627 dits[3] = 0.025;
2628 gMC->Gsvolu("I528", "TRD1", idtmed[203], dits, 4);
2629
2630 dits[0] = 0.25;
2631 dits[1] = 0.22;
2632 dits[2] = 1.955;
2633 dits[3] = 0.025;
2634 gMC->Gsvolu("I527", "TRD1", idtmed[203], dits, 4);
2635
2636 dits[0] = 2.17;
2637 dits[1] = 0.035;
2638 dits[2] = 0.05;
2639 gMC->Gsvolu("I526", "BOX ", idtmed[203], dits, 3);
2640
2641 dits[0] = 2.675;
2642 dits[1] = 0.035;
2643 dits[2] = 0.05;
2644 gMC->Gsvolu("I525", "BOX ", idtmed[203], dits, 3);
2645
2646 dits[0] = 2;
2647 dits[1] = 0.035;
2648 dits[2] = 0.05;
2649 gMC->Gsvolu("I524", "BOX ", idtmed[203], dits, 3);
2650
2651 dits[0] = 0;
2652 dits[1] = 0.05;
2653 dits[2] = 0.205;
2654 gMC->Gsvolu("I529", "TUBE", idtmed[203], dits, 3);
2655
2656 dits[0] = 0;
2657 dits[1] = 0.05;
2658 dits[2] = 0.17;
2659 gMC->Gsvolu("I530", "TUBE", idtmed[203], dits, 3);
2660
2661 dits[0] = 0.15;
2662 dits[1] = 0.105;
2663 dits[2] = 0.29;
2664 dits[3] = 0.08;
2665 gMC->Gsvolu("I517", "TRD1", idtmed[203], dits, 4);
2666
2667 if (fluid == 1) {
2668 dits[0] = 0;
2669 dits[1] = 0.07;
2670 dits[2] = 1.955;
2671 gMC->Gsvolu("I531", "TUBE", idtmed[211], dits, 3); // set water as cooling fluid
2672 } else {
2673 dits[0] = 0;
2674 dits[1] = 0.07;
2675 dits[2] = 1.955;
2676 gMC->Gsvolu("I531", "TUBE", idtmed[212], dits, 3); // set freon as cooling fluid
2677 }
2678
2679 dits[0] = 0.07;
2680 dits[1] = 0.1;
2681 dits[2] = 1.955;
2682 gMC->Gsvolu("I532", "TUBE", idtmed[210], dits, 3);
2683
2684 dits[0] = 0.3;
2685 dits[1] = 0.15;
2686 dits[2] = 0.15;
2687 gMC->Gsvolu("I533", "BOX ", idtmed[203], dits, 3);
2688
2689 dits[0] = 3.65;
2690 dits[1] = 0.015;
2691 dits[2] = 2;
2692 gMC->Gsvolu("ITS5", "BOX ", idtmed[200], dits, 3);
2693
2694
2695
2696 // --- Define volumes of shield of SPD ----------------
2697
2698
2699 dits[0] = 8.37;
2700 dits[1] = 9.93;
2701 dits[2] = 25;
2702 gMC->Gsvolu("IC01", "TUBE", idtmed[289], dits, 3);
2703
2704 dits[0] = 8.3;
2705 dits[1] = 9.995;
2706 dits[2] = 17.5/2.;
2707 gMC->Gsvolu("IC02", "TUBE", idtmed[289], dits, 3);
2708
2709
2710 // --- Define volume of first cylinder between SPD and SDD --------------
2711
2712 dits[0] = (21.-0.128)/2.;
2713 dits[1] = 21./2.;
2714 dits[2] = 39.4;
2715 gMC->Gsvolu("ICY1", "TUBE", idtmed[208], dits, 3);
2716
2717 // --- Define volume of second cylinder between SDD and SSD --------------
2718
2719 dits[0] = (59.5-0.128)/2.;
2720 dits[1] = 59.5/2.;
2721 dits[2] = 56.2; // was 57
2722 gMC->Gsvolu("ICY2", "TUBE", idtmed[208], dits, 3);
2723
2724 // --- Define volumes of SDD cone ----------------------------------
2725
2726 dits[0] = 0;
2727 dits[1] = 360;
2728 dits[2] = 12;
2729 dits[3] = -59.7;
2730 dits[4] = 27;
2731 dits[5] = 28.6;
2732 dits[6] = -42.7;
2733 dits[7] = 10;
2734 dits[8] = 28.6;
2735 dits[9] = -34.65;
2736 dits[10] = 10;
2737 dits[11] = 28.6;
2738 dits[12] = -34.65;
2739 dits[13] = 10;
2740 dits[14] = 23.495;
2741 dits[15] = -23.7;
2742 dits[16] = 10;
2743 dits[17] = 23.495;
2744 dits[18] = -23.7;
2745 dits[19] = 10;
2746 dits[20] = 14.595;
2747 dits[21] = 23.7;
2748 dits[22] = 10;
2749 dits[23] = 14.595;
2750 dits[24] = 23.7;
2751 dits[25] = 10;
2752 dits[26] = 23.495;
2753 dits[27] = 34.65;
2754 dits[28] = 10;
2755 dits[29] = 23.495;
2756 dits[30] = 34.65;
2757 dits[31] = 10;
2758 dits[32] = 28.6;
2759 dits[33] = 42.7;
2760 dits[34] = 10;
2761 dits[35] = 28.6;
2762 dits[36] = 59.7;
2763 dits[37] = 27.2637;
2764 dits[38] = 28.6;
2765 gMC->Gsvolu("IS02", "PCON", idtmed[204], dits, 39);
2766
2767 dits[0] = 0;
2768 dits[1] = 360;
2769 dits[2] = 6;
2770 dits[3] = 38.65;
2771 dits[4] = 10.75;
2772 dits[5] = 12.25;
2773 dits[6] = 40.15;
2774 dits[7] = 10.75;
2775 dits[8] = 13.96;
2776 dits[9] = 40.15;
2777 dits[10] = 12.46;
2778 dits[11] = 13.96;
2779 dits[12] = 55.75;
2780 dits[13] = 27;
2781 dits[14] = 28.5;
2782 dits[15] = 55.75;
2783 dits[16] = 27;
2784 dits[17] = 28.5;
2785 dits[18] = 57.25;
2786 dits[19] = 27;
2938f24d 2787 dits[20] = 28.5;
6b2a1732 2788// gMC->Gsvolu("I093", "PCON", idtmed[272], dits, 21); // SDD cone
f3c2ddf7 2789 gMC->Gsvolu("I093", "PCON", idtmed[287], dits, 21); // SDD cone
6b2a1732 2790
2938f24d 2791 // Redefined to make adding material for cables easier (FMD geometry)
2792 Double_t s1,s2,b1,b2;
87577a03 2793 s1 = (dits[13]-dits[10])/(dits[12]-dits[9]); // Slope of conical section
2794 s2 = (dits[14]-dits[11])/(dits[12]-dits[9]); // Slope of conical section
2795 b1 = dits[13] - s1*dits[12]; // inside cone axis intersept
2796 b2 = dits[14] - s2*dits[12]; // outside cone axis intersept
2938f24d 2797 dits[0] = 0; //dits[0] = 0;
2798 dits[1] = 50; //dits[1] = 50;
2799 dits[2] = 4; //dits[2] = 3;
2800
2801 dits[4] = 14.0; //dits[4] = 14; // r inner
2802 dits[5] = dits[4]; //dits[5] = 18.75; // r outer
2803 dits[3] = (dits[4]-b2)/s2; //dits[3] = 39; // Z
2804
2805 dits[7] = dits[4]; //dits[7] = 14; // r inner
2806 dits[6] = (dits[7]-b1)/s1; //dits[6] = 46.7-3; // Z
2807 dits[8] = s2*dits[6]+b2; //dits[8] = 18.75; // r outer
2808
2809 dits[11] = 18.75; //dits[11] = 18.75; // r outer
2810 dits[9] = (dits[11]-b2)/s2; //dits[9] = 51.45-3; // Z
2811 dits[10] = s1*dits[9]+b1; //dits[10] = 18.75; // r inner
2812
2813 dits[13] = dits[11]; // r inner
2814 dits[14] = dits[11]; // r outer
2815 dits[12] = (dits[13]-b1)/s1; // Z
6b2a1732 2816// gMC->Gsvolu("I099", "PCON", idtmed[204], dits, 12); // SDD 3 cone hole
f3c2ddf7 2817 gMC->Gsvolu("I099", "PCON", idtmed[285], dits, 15); // SDD 3 cone hole
6b2a1732 2818
2938f24d 2819 dits[0] = 0; //dits[0] = 0;
2820 dits[1] = 25; //dits[1] = 25;
2821 dits[2] = 4; //dits[2] = 3;
2822
2823 dits[4] = 23.4; //dits[4] = 23.4; // r inner
2824 dits[5] = dits[4]; //dits[5] = 26.4; // r outer
2825 dits[3] = (dits[4]-b2)/s2; //dits[3] = 49; // Z
2826
2827 dits[7] = dits[4]; //dits[7] = 23.4; // r inner
2828 dits[6] = (dits[7]-b1)/s1; //dits[6] = 56.1-3; // Z
2829 dits[8] = s2*dits[6]+b2; //dits[8] = 26.4; // r outer
2830
2831 dits[11] = 26.4; //dits[11] = 26.4; // r outer
2832 dits[9] = (dits[11]-b2)/s2; //dits[9] = 59.1-3; // Z
2833 dits[10] = s1*dits[9]+b1; //dits[10] = 26.4; // r inner
2834
2835 dits[13] = dits[11]; // r inner
2836 dits[14] = dits[11]; // r outer
2837 dits[12] = (dits[13]-b1)/s1; // Z
6b2a1732 2838// gMC->Gsvolu("I200", "PCON", idtmed[204], dits, 12); // SDD 4 cone hole
f3c2ddf7 2839 gMC->Gsvolu("I200", "PCON", idtmed[285], dits, 15); // SDD 4 cone hole
87577a03 2840 //Begin_Html
2841 /*
2842 <img src="http://www.Physics.ohio-state.edu/~nilsen/ITS/ITS_FMD_PMD_Geom.eps">
2843 </pre>
2844 <br clear=left>
2845 <font size=+2 color=blue>
2846 <p>SDD Support cone with other forward detectors. Shown in
2847 brown are a posible cabling layout.
2848 </font>
2849 */
2850 //End_Html
6b2a1732 2851 dits[0] = 10.0;
2852 dits[1] = 10.5;
2853 dits[2] = 0.25;
2854 gMC->Gsvolu("I090", "TUBE", idtmed[224], dits, 3); // SDD cylinder flange
2855
2856 dits[0] = 21.95;
2857 dits[1] = 22.95;
2858 dits[2] = 1;
2859 gMC->Gsvolu("I098", "TUBE", idtmed[283], dits, 3); // ladder support on layer 4
2860
2861 dits[0] = 13.1;
2862 dits[1] = 14.1;
2863 dits[2] = 1;
2864 gMC->Gsvolu("I097", "TUBE", idtmed[283], dits, 3); // ladder support on layer 3
2865
2866 dits[0] = 1;
2867 dits[1] = 1;
2868 dits[2] = 7.74;
2869 gMC->Gsvolu("I202", "BOX ", idtmed[272], dits, 3);
2870
2871 dits[0] = 1;
2872 dits[1] = 1;
2873 dits[2] = 9.14;
2874 gMC->Gsvolu("I203", "BOX ", idtmed[272], dits, 3);
2875
2876 dits[0] = 21.95;
2877 dits[1] = 22.95;
2878 dits[2] = 1;
2879 gMC->Gsvolu("I095", "TUBE", idtmed[224], dits, 3);
2880
2881 dits[0] = 3;
2882 dits[1] = 2.7;
2883 dits[2] = 1;
2884 dits[3] = 0.63;
2885 gMC->Gsvolu("I096", "TRD1", idtmed[264], dits, 4);
2886
2887 dits[0] = 13.1;
2888 dits[1] = 14.1;
2889 dits[2] = 1;
2890 gMC->Gsvolu("I094", "TUBE", idtmed[224], dits, 3);
2891
2892
2893 // --- Define volumes of SSD cone ----------------------------------
2894
2895
2896 dits[0] = 0;
2897 dits[1] = 360;
2898 dits[2] = 12;
2899 dits[3] = -zmax;
2900 dits[4] = 46;
2901 dits[5] = 49.25;
2902 dits[6] = -61.2;
2903 dits[7] = 28.7;
2904 dits[8] = 49.25;
2905 dits[9] = -57.5;
2906 dits[10] = 28.7;
2907 dits[11] = 49.25;
2908 dits[12] = -57.5;
2909 dits[13] = 28.7;
2910 dits[14] = 43.5;
2911 dits[15] = -49.2;
2912 dits[16] = 28.7;
2913 dits[17] = 43.5;
2914 dits[18] = -49.2;
2915 dits[19] = 28.7;
2916 dits[20] = 36.85;
2917 dits[21] = 50.6;
2918 dits[22] = 28.7;
2919 dits[23] = 36.85;
2920 dits[24] = 50.6;
2921 dits[25] = 28.7;
2922 dits[26] = 43.5;
2923 dits[27] = 57.5;
2924 dits[28] = 28.7;
2925 dits[29] = 43.5;
2926 dits[30] = 57.5;
2927 dits[31] = 28.7;
2928 dits[32] = 49.25;
2929 dits[33] = 61.2;
2930 dits[34] = 28.7;
2931 dits[35] = 49.25;
2932 dits[36] = zmax;
2933 dits[37] = 46;
2934 dits[38] = 49.25;
2935 gMC->Gsvolu("IS01", "PCON", idtmed[204], dits, 39); // SSD cone mother volume
2936
2937 dits[0] = 0;
2938 dits[1] = 360;
2939 dits[2] = 6;
2940 dits[3] = -zmax;
2941 dits[4] = 47.75;
2942 dits[5] = 49.25;
2943 dits[6] = -zmax+2.;
2944 dits[7] = 47.75;
2945 dits[8] = 49.25;
2946 dits[9] = -71.2819;
2947 dits[10] = 46.75;
2948 dits[11] = 49.0319;
2949 dits[12] = -57.25; // was 58.5
2950 dits[13] = 32.9681;
2951 dits[14] = 34.75;
2952 dits[15] = -57.25; // was 58.5
2953 dits[16] = 30;
2954 dits[17] = 34.75;
2955 dits[18] = -55.75; // was 57
2956 dits[19] = 30;
2957 dits[20] = 32.25; // was 31.5
2958// gMC->Gsvolu("I212", "PCON", idtmed[272], dits, 21); // SSD cone
f3c2ddf7 2959 gMC->Gsvolu("I212", "PCON", idtmed[288], dits, 21); // SSD cone
2938f24d 2960
87577a03 2961 s1 = (dits[10]-dits[13])/(dits[9]-dits[12]); // Slope of conical section
2962 s2 = (dits[11]-dits[14])/(dits[9]-dits[12]); // Slope of conical section
2963 b1 = dits[13] - s1*dits[12]; // inside cone axis intersept
2964 b2 = dits[14] - s2*dits[12]; // outside cone axis intersept
2938f24d 2965 dits[0] = 0;
2966 dits[1] = 25;
2967 dits[2] = 4; //dits[2] = 5;
2968
2969 dits[4] = 45.50; //dits[4] = 45.5; // r inner
2970 dits[5] = dits[4]; //dits[5] = 45.5; // r outer
87577a03 2971 dits[3] = (dits[4] - b1)/s1; //dits[3] = -zmax+3; // z
2938f24d 2972
2973 dits[8] = dits[4]; //dits[8] = 45.5; // r outer
87577a03 2974 dits[6] = (dits[8] - b2)/s2; //dits[6] = -69.7+3;; // z
2975 dits[7] = s1*dits[6] + b1; //dits[7] = 37; // r inner
2938f24d 2976
2977 dits[10] = 37.00; //dits[10] = 37; // r inner
87577a03 2978 dits[9] = (dits[10]-b1)/s1; //dits[9] = -68.5+3;; // z
2979 dits[11] = s2*dits[9]+b2; //dits[11] = 45.5; // r outer
2938f24d 2980
2981 dits[13] = dits[10]; //dits[13] = 37; // r inner
2982 dits[14] = dits[13]; //dits[14] = 45.5; // r outer
87577a03 2983 dits[12] = (dits[14] - b2)/s2; //dits[12] = -68.5+4.8;; // z
2938f24d 2984// gMC->Gsvolu("I215", "PCON", idtmed[204], dits, 18); // SSD cone hole
f3c2ddf7 2985 gMC->Gsvolu("I215", "PCON", idtmed[286], dits, 15); // SSD cone hole
87577a03 2986 //Begin_Html
2987 /*
2988 <img src="http://www.Physics.ohio-state.edu/~nilsen/ITS/ITS_FMD_PMD_Geom.eps">
2989 </pre>
2990 <br clear=left>
2991 <font size=+2 color=blue>
2992 <p>SSD Support cone with other forward detectors. Shown in
2993 brown are a posible cabling layout.
2994 </font>
2995 */
2996 //End_Html
6b2a1732 2997
2998 dits[0] = 28.75;
2999 dits[1] = 29.75;
3000 dits[2] = 0.5;
3001 gMC->Gsvolu("I211", "TUBE", idtmed[224], dits, 3); // SSD cylinder flange
3002
3003 dits[0] = 35.8;
3004 dits[1] = 36.8;
3005 dits[2] = 1;
3006 gMC->Gsvolu("I217", "TUBE", idtmed[283], dits, 3); // ladder support on layer 5
3007
3008 dits[0] = 41.4;
3009 dits[1] = 42.4;
3010 dits[2] = 1;
3011 gMC->Gsvolu("I219", "TUBE", idtmed[283], dits, 3); // ladder support on layer 6
3012
3013 dits[0] = 42.05+5.;
3014 dits[1] = 42.55+5.;
3015 dits[2] = 1.25;
3016 gMC->Gsvolu("I214", "TUBE", idtmed[224], dits, 3); // layer 6 electronic support
3017 // this will change after PPR
3018 dits[0] = 37.05+5.;
3019 dits[1] = 37.55+5.;
3020 dits[2] = 1.25;
3021 gMC->Gsvolu("I213", "TUBE", idtmed[224], dits, 3); // layer 5 electronic support
3022 // this will change after PPR
6b2a1732 3023
3024 dits[0] = 0;
3025 dits[1] = 3.2;
3026 dits[2] = 9;
3027 dits[3] = -14;
3028 dits[4] = 30.5;
3029 dits[5] = 33.5;
3030 dits[6] = -9.85;
3031 dits[7] = 30.5;
3032 dits[8] = 33.5;
3033 dits[9] = -9.85;
3034 dits[10] = 30.5;
3035 dits[11] = 43.45;
3036 dits[12] = -7.85;
3037 dits[13] = 30.5;
3038 dits[14] = 43.45;
3039 dits[15] = -7.85;
3040 dits[16] = 30.5;
3041 dits[17] = 36.5;
3042 dits[18] = -7;
3043 dits[19] = 30.5;
3044 dits[20] = 36.5;
3045 dits[21] = -4;
3046 dits[22] = 33.0173;
3047 dits[23] = 36.5;
3048 dits[24] = -4;
3049 dits[25] = 33.0173;
3050 dits[26] = 36.80;
3051 dits[27] = -2;
3052 dits[28] = 34.6955;
3053 dits[29] = 36.80;
3054 gMC->Gsvolu("I216", "PCON", idtmed[272], dits, 30); // supports (1-6) of the ladders
3055
3056
3057 // --- Place SPD (option 'a') volumes into their mother volume IT12
3058
3059 // SPD - option 'a'
3060 // (this is NOT the default)
3061
3062 if (option == 1) {
3063
3064 gMC->Gspos("I12A",5,"IT12",0.0,0.0,0.0,idrotm[238],"MANY");
3065 gMC->Gspos("I12A",6,"IT12",0.0,0.0,0.0,idrotm[236],"MANY");
3066 gMC->Gspos("I12A",7,"IT12",0.0,0.0,0.0,idrotm[239],"MANY");
3067 gMC->Gspos("I12A",8,"IT12",0.0,0.0,0.0,idrotm[233],"MANY");
3068 gMC->Gspos("I12A",9,"IT12",0.0,0.0,0.0,idrotm[240],"MANY");
3069 gMC->Gspos("I12A",10,"IT12",0.0,0.0,0.0,idrotm[241],"MANY");
3070 gMC->Gspos("I12A",2,"IT12",0.0,0.0,0.0,idrotm[242],"MANY");
3071 gMC->Gspos("I12A",3,"IT12",0.0,0.0,0.0,idrotm[234],"MANY");
3072 gMC->Gspos("I12A",4,"IT12",0.0,0.0,0.0,idrotm[243],"MANY");
3073 gMC->Gspos("I12A",1,"IT12",0.0,0.0,0.0,0,"MANY");
3074 deltax=((ddet1-0.01/2.)+(dchip1-0.015/2.))*TMath::Cos(270.*TMath::Pi()/180.); // see definition of idrotm[244]
3075 deltay=((ddet1-0.01/2.)+(dchip1-0.015/2.))*TMath::Sin(270.*TMath::Pi()/180.); // see definition of idrotm[244]
3076 gMC->Gspos("I10A",2,"I12A",0.203+deltax,3.8206+deltay,0.0,idrotm[244],"ONLY");
3077 deltax=((ddet1-0.01/2.)+(dchip1-0.015/2.))*TMath::Cos(252.*TMath::Pi()/180.); // see definition of idrotm[245]
3078 deltay=((ddet1-0.01/2.)+(dchip1-0.015/2.))*TMath::Sin(252.*TMath::Pi()/180.); // see definition of idrotm[245]
3079 gMC->Gspos("I10A",1,"I12A",1.4531+deltax,3.8152+deltay,0.0,idrotm[245],"ONLY");
3080 deltax=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Cos(40.*TMath::Pi()/180.); // see definition of idrotm[246]
3081 deltay=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Sin(40.*TMath::Pi()/180.); // see definition of idrotm[246]
3082 gMC->Gspos("I20A",1,"I12A",3.0174+deltax,6.5143+deltay,0.0,idrotm[246],"ONLY");
3083 deltax=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Cos(49.*TMath::Pi()/180.); // see definition of idrotm[247]
3084 deltay=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Sin(49.*TMath::Pi()/180.); // see definition of idrotm[247]
3085 gMC->Gspos("I20A",2,"I12A",1.9612+deltax,6.9062+deltay,0.0,idrotm[247],"ONLY");
3086 deltax=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Cos(58.*TMath::Pi()/180.); // see definition of idrotm[248]
3087 deltay=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Sin(58.*TMath::Pi()/180.); // see definition of idrotm[248]
3088 gMC->Gspos("I20A",3,"I12A",0.8567+deltax,7.1279+deltay,0.0,idrotm[248],"ONLY");
3089 deltax=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Cos(67.*TMath::Pi()/180.); // see definition of idrotm[249]
3090 deltay=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Sin(67.*TMath::Pi()/180.); // see definition of idrotm[249]
3091 gMC->Gspos("I20A",4,"I12A",-0.2689+deltax,7.1742+deltay,0.0,idrotm[249],"ONLY");
3092 gMC->Gspos("I123",2,"I12A",-0.2978,5.5196,0.0,idrotm[214],"ONLY");
3093 gMC->Gspos("I121",2,"I12A",-0.2385,4.1518,0.0,idrotm[213],"ONLY");
3094 gMC->Gspos("I122",2,"I12A",-0.2968,4.0207,0.0,idrotm[212],"ONLY");
3095 gMC->Gspos("I120",2,"I12A",-0.3672,3.9056,0.0,0,"ONLY");
3096 gMC->Gspos("I144",1,"I12A",-0.2538,3.8556,0.0,0,"ONLY");
3097 gMC->Gspos("I113",3,"I12A",0.1095,3.9056,0.0,0,"ONLY");
3098 gMC->Gspos("I143",1,"I12A",0.4365,3.8556,0.0,idrotm[236],"ONLY");
3099 gMC->Gspos("I142",1,"I12A",0.5136,3.9056,0.0,idrotm[235],"ONLY");
3100 gMC->Gspos("I141",1,"I12A",0.5636,3.9752,0.0,idrotm[201],"ONLY");
3101 gMC->Gspos("I140",1,"I12A",0.6336,4.0447,0.0,idrotm[234],"ONLY");
3102 gMC->Gspos("I139",1,"I12A",0.8297,4.0545,0.0,idrotm[207],"ONLY");
3103 gMC->Gspos("I113",5,"I12A",1.2575,3.9681,0.0,idrotm[207],"ONLY");
3104 gMC->Gspos("I138",1,"I12A",1.66,3.7848,0.0,idrotm[207],"ONLY");
3105 gMC->Gspos("I137",1,"I12A",1.8556,3.7738,0.0,idrotm[233],"ONLY");
3106 gMC->Gspos("I136",1,"I12A",2.6224,4.874,0.0,idrotm[232],"ONLY");
3107 gMC->Gspos("I135",1,"I12A",3.2967,6.0337,0.0,idrotm[231],"ONLY");
3108 gMC->Gspos("I134",1,"I12A",3.266,6.1636,0.0,idrotm[230],"ONLY");
3109 gMC->Gspos("I113",1,"I12A",2.9903,6.4144,0.0,idrotm[211],"ONLY");
3110 gMC->Gspos("I133",3,"I12A",2.7631,6.7627,0.0,idrotm[230],"ONLY");
3111 gMC->Gspos("I132",3,"I12A",2.62,6.8555,0.0,idrotm[229],"ONLY");
3112 gMC->Gspos("I131",3,"I12A",2.648,6.6023,0.0,idrotm[228],"ONLY");
3113 gMC->Gspos("I130",3,"I12A",2.6569,6.3431,0.0,idrotm[227],"ONLY");
3114 gMC->Gspos("I129",3,"I12A",2.3906,6.4819,0.0,idrotm[226],"ONLY");
3115 gMC->Gspos("I113",2,"I12A",1.9488,6.7998,0.0,idrotm[210],"ONLY");
3116 gMC->Gspos("I133",2,"I12A",1.6699,7.1085,0.0,idrotm[226],"ONLY");
3117 gMC->Gspos("I132",2,"I12A",1.5142,7.1777,0.0,idrotm[225],"ONLY");
3118 gMC->Gspos("I131",2,"I12A",1.5814,6.932,0.0,idrotm[224],"ONLY");
3119 gMC->Gspos("I130",2,"I12A",1.6308,6.6774,0.0,idrotm[223],"ONLY");
3120 gMC->Gspos("I129",2,"I12A",1.346,6.7728,0.0,idrotm[222],"ONLY");
3121 gMC->Gspos("I113",6,"I12A",0.8599,7.0176,0.0,idrotm[209],"ONLY");
3122 gMC->Gspos("I133",1,"I12A",0.5362,7.2789,0.0,idrotm[222],"ONLY");
3123 gMC->Gspos("I132",1,"I12A",0.3715,7.3228,0.0,idrotm[221],"ONLY");
3124 gMC->Gspos("I131",1,"I12A",0.4763,7.0907,0.0,idrotm[220],"ONLY");
3125 gMC->Gspos("I130",1,"I12A",0.5649,6.8469,0.0,idrotm[219],"ONLY");
3126 gMC->Gspos("I129",1,"I12A",0.2688,6.8966,0.0,idrotm[218],"ONLY");
3127 gMC->Gspos("I113",4,"I12A",-0.2497,7.0624,0.0,idrotm[208],"ONLY");
3128 gMC->Gspos("I128",1,"I12A",-0.6103,7.2698,0.0,idrotm[218],"ONLY");
3129 gMC->Gspos("I126",2,"I12A",-0.7799,7.2874,0.0,idrotm[217],"ONLY");
3130 gMC->Gspos("I125",2,"I12A",-0.6315,7.0883,0.0,idrotm[216],"ONLY");
3131 gMC->Gspos("I124",2,"I12A",-0.4965,6.8742,0.0,idrotm[215],"ONLY");
3132 gMC->Gspos("I103",3,"I10A",-0.05,-di10a[1]+2.*di104[1]+di103[1],-3.536,0,"ONLY");
3133 gMC->Gspos("I103",4,"I10A",-0.05,-di10a[1]+2.*di104[1]+di103[1],-10.708,0,"ONLY");
3134 gMC->Gspos("I103",1,"I10A",-0.05,-di10a[1]+2.*di104[1]+di103[1],10.708,0,"ONLY");
3135 gMC->Gspos("I103",2,"I10A",-0.05,-di10a[1]+2.*di104[1]+di103[1],3.536,0,"ONLY");
3136 gMC->Gspos("I105",1,"I10A",-0.05,0.01,-16.844,idrotm[237],"ONLY");
3137 gMC->Gspos("I105",2,"I10A",-0.05,0.01,16.844,0,"ONLY");
3138 gMC->Gspos("I104",1,"I10A",0.0,-di10a[1]+di104[1],0.0,0,"ONLY");
3139 gMC->Gspos("I1D3",3,"I20A",-0.05,-di20a[1]+2.*di104[1]+di1d3[1],-3.536,0,"ONLY");
3140 gMC->Gspos("I1D3",4,"I20A",-0.05,-di20a[1]+2.*di104[1]+di1d3[1],-10.708,0,"ONLY");
3141 gMC->Gspos("I1D3",1,"I20A",-0.05,-di20a[1]+2.*di104[1]+di1d3[1],10.708,0,"ONLY");
3142 gMC->Gspos("I1D3",2,"I20A",-0.05,-di20a[1]+2.*di104[1]+di1d3[1],3.536,0,"ONLY");
3143 gMC->Gspos("I105",3,"I20A",-0.05,0.01,-16.844,idrotm[237],"ONLY");
3144 gMC->Gspos("I105",4,"I20A",-0.05,0.01,16.844,0,"ONLY");
3145 gMC->Gspos("I104",2,"I20A",0.0,-di20a[1]+di104[1],0.0,0,"ONLY");
3146 gMC->Gspos("I112",2,"I113",0.25,0.02,0.0,idrotm[206],"ONLY");
3147 gMC->Gspos("I111",2,"I113",0.1318,-0.0008,0.0,idrotm[205],"ONLY");
3148 gMC->Gspos("I118",1,"I113",0.0,-0.0454,0.0,0,"ONLY");
3149 gMC->Gspos("I110",1,"I113",0.0,0.0492,0.0,0,"ONLY");
3150 gMC->Gspos("I114",1,"I113",0.063,0.0042,0.0,idrotm[202],"ONLY");
3151 gMC->Gspos("I115",1,"I113",0.063,0.0042,0.0,idrotm[202],"ONLY");
3152 gMC->Gspos("I115",2,"I113",-0.063,0.0042,0.0,idrotm[201],"ONLY");
3153 gMC->Gspos("I114",2,"I113",-0.063,0.0042,0.0,idrotm[201],"ONLY");
3154 gMC->Gspos("I116",1,"I113",0.0,0.0042,0.0,0,"ONLY");
3155 gMC->Gspos("I111",1,"I113",-0.1318,-0.0008,0.0,idrotm[204],"ONLY");
3156 gMC->Gspos("I112",1,"I113",-0.25,0.02,0.0,idrotm[203],"ONLY");
3157 gMC->Gspos("I101",1,"I103",-0.088,ddet1,0.0,0,"ONLY");
3158 gMC->Gspos("I102",1,"I103",0.0,-dchip1,-2.8,0,"ONLY");
3159 gMC->Gspos("I102",2,"I103",0.0,-dchip1,-1.4,0,"ONLY");
3160 gMC->Gspos("I102",3,"I103",0.0,-dchip1,0.0,0,"ONLY");
3161 gMC->Gspos("I102",4,"I103",0.0,-dchip1,1.4,0,"ONLY");
3162 gMC->Gspos("I102",5,"I103",0.0,-dchip1,2.8,0,"ONLY");
3163 gMC->Gspos("I1D1",1,"I1D3",-0.088,ddet2,0.0,0,"ONLY");
3164 gMC->Gspos("I1D2",1,"I1D3",0.0,-dchip2,-2.8,0,"ONLY");
3165 gMC->Gspos("I1D2",2,"I1D3",0.0,-dchip2,-1.4,0,"ONLY");
3166 gMC->Gspos("I1D2",3,"I1D3",0.0,-dchip2,0.0,0,"ONLY");
3167 gMC->Gspos("I1D2",4,"I1D3",0.0,-dchip2,1.4,0,"ONLY");
3168 gMC->Gspos("I1D2",5,"I1D3",0.0,-dchip2,2.8,0,"ONLY");
3169 gMC->Gspos("I117",1,"I116",0.0,0.0,0.0,0,"ONLY");
3170 gMC->Gspos("ITS1",1,"I101",0.0,0.0,0.0,0,"ONLY");
3171 gMC->Gspos("ITS2",1,"I1D1",0.0,0.0,0.0,0,"ONLY");
3172 gMC->Gspos("I651",1,"IT12",0.0,0.0,26.05,0,"ONLY");
3173 gMC->Gspos("I651",2,"IT12",0.0,0.0,-26.05,0,"ONLY");
3174 gMC->Gspos("I650",16,"IT12",0.0,0.0,22.0,idrotm[1104],"MANY");
3175 gMC->Gspos("I650",20,"IT12",0.0,0.0,22.0,idrotm[1130],"MANY");
3176 gMC->Gspos("I650",18,"IT12",0.0,0.0,22.0,idrotm[1117],"MANY");
3177 gMC->Gspos("I650",1,"IT12",0.0,0.0,22.0,0,"MANY");
3178 gMC->Gspos("I650",4,"IT12",0.0,0.0,22.0,idrotm[1106],"MANY");
3179 gMC->Gspos("I650",6,"IT12",0.0,0.0,22.0,idrotm[1039],"MANY");
3180 gMC->Gspos("I650",8,"IT12",0.0,0.0,22.0,idrotm[1107],"MANY");
3181 gMC->Gspos("I650",10,"IT12",0.0,0.0,22.0,idrotm[1065],"MANY");
3182 gMC->Gspos("I650",12,"IT12",0.0,0.0,22.0,idrotm[1078],"MANY");
3183 gMC->Gspos("I650",14,"IT12",0.0,0.0,22.0,idrotm[1091],"MANY");
3184 gMC->Gspos("I650",19,"IT12",0.0,0.0,-22.0,idrotm[1108],"MANY");
3185 gMC->Gspos("I650",2,"IT12",0.0,0.0,-22.0,idrotm[1109],"MANY");
3186 gMC->Gspos("I650",3,"IT12",0.0,0.0,-22.0,idrotm[1110],"MANY");
3187 gMC->Gspos("I650",5,"IT12",0.0,0.0,-22.0,idrotm[1111],"MANY");
3188 gMC->Gspos("I650",7,"IT12",0.0,0.0,-22.0,idrotm[1112],"MANY");
3189 gMC->Gspos("I650",9,"IT12",0.0,0.0,-22.0,idrotm[1113],"MANY");
3190 gMC->Gspos("I650",11,"IT12",0.0,0.0,-22.0,idrotm[1114],"MANY");
3191 gMC->Gspos("I650",13,"IT12",0.0,0.0,-22.0,idrotm[1115],"MANY");
3192 gMC->Gspos("I650",15,"IT12",0.0,0.0,-22.0,idrotm[1116],"MANY");
3193 gMC->Gspos("I650",17,"IT12",0.0,0.0,-22.0,idrotm[1118],"MANY");
3194 gMC->Gspos("I666",1,"I650",0.0,0.0,0.25,idrotm[1003],"MANY");
3195 gMC->Gspos("I667",1,"I650",0.1102,0.9945,0.45,idrotm[1088],"ONLY");
3196 gMC->Gspos("I669",3,"I650",0.1883,4.0372,-3.2,0,"ONLY");
3197 gMC->Gspos("I671",3,"I650",0.1883,4.0372,0.6,0,"ONLY");
3198 gMC->Gspos("I669",2,"I650",1.3343,4.0609,-3.2,0,"ONLY");
3199 gMC->Gspos("I671",2,"I650",1.3343,4.0609,0.6,0,"ONLY");
3200 gMC->Gspos("I669",6,"I650",2.9567,6.1959,-3.2,idrotm[1089],"ONLY");
3201 gMC->Gspos("I671",6,"I650",2.9567,6.1959,0.6,idrotm[1089],"ONLY");
3202 gMC->Gspos("I669",5,"I650",1.9511,6.5822,-3.2,idrotm[1011],"ONLY");
3203 gMC->Gspos("I671",5,"I650",1.9511,6.5822,0.6,idrotm[1011],"ONLY");
3204 gMC->Gspos("I669",4,"I650",0.8974,6.8064,-3.2,idrotm[1090],"ONLY");
3205 gMC->Gspos("I671",4,"I650",0.8974,6.8064,0.6,idrotm[1090],"ONLY");
3206 gMC->Gspos("I669",1,"I650",-0.1784,6.863,-3.2,0,"ONLY");
3207 gMC->Gspos("I671",1,"I650",-0.1784,6.863,0.6,0,"ONLY");
3208 gMC->Gspos("I673",1,"I650",0.2173,4.8037,1.8,0,"ONLY");
3209 gMC->Gspos("I673",6,"I650",1.5093,4.5605,1.8,0,"ONLY");
3210 gMC->Gspos("I673",4,"I650",-0.173,6.2531,1.8,idrotm[1092],"ONLY");
3211 gMC->Gspos("I673",3,"I650",0.8073,6.2032,1.8,idrotm[1093],"ONLY");
3212 gMC->Gspos("I673",2,"I650",1.7678,6.0005,1.8,idrotm[1094],"ONLY");
3213 gMC->Gspos("I673",5,"I650",2.6847,5.6501,1.8,0,"ONLY");
3214 gMC->Gspos("I676",2,"I650",1.7618,5.2269,2.5,0,"ONLY");
3215 gMC->Gspos("I676",1,"I650",0.4018,5.5869,2.5,0,"ONLY");
3216 gMC->Gspos("I668",1,"I667",0.0,0.0,0.0,0,"ONLY");
3217 gMC->Gspos("I670",1,"I669",0.0,0.0,0.0,0,"ONLY");
3218 gMC->Gspos("I672",1,"I671",0.0,0.0,0.0,0,"ONLY");
3219 gMC->Gspos("I674",1,"I673",0.0,0.0,0.0,0,"MANY");
3220 gMC->Gspos("I675",1,"I673",0.0,0.0,-0.5,0,"ONLY");
3221 gMC->Gspos("I677",1,"I676",0.0,0.0,0.0,0,"MANY");
3222 gMC->Gspos("I678",1,"I676",0.0,0.0,-0.95,0,"ONLY");
3223
3224 }
3225
3226
3227 // --- Place SPD (option 'b') volumes into their mother volume IT12
3228
3229 // SPD - option 'b'
3230 // (this is the default)
3231
3232 if (option == 2) {
3233
3234 gMC->Gspos("I12B",1,"IT12",0.0,0.0,0.0,0,"MANY");
3235 gMC->Gspos("I12B",8,"IT12",0.0,0.0,0.0,idrotm[233],"MANY");
3236 gMC->Gspos("I12B",7,"IT12",0.0,0.0,0.0,idrotm[244],"MANY");
3237 gMC->Gspos("I12B",6,"IT12",0.0,0.0,0.0,idrotm[236],"MANY");
3238 gMC->Gspos("I12B",2,"IT12",0.0,0.0,0.0,idrotm[245],"MANY");
3239 gMC->Gspos("I12B",3,"IT12",0.0,0.0,0.0,idrotm[234],"MANY");
3240 gMC->Gspos("I12B",4,"IT12",0.0,0.0,0.0,idrotm[246],"MANY");
3241 gMC->Gspos("I12B",5,"IT12",0.0,0.0,0.0,idrotm[247],"MANY");
3242 gMC->Gspos("I12B",9,"IT12",0.0,0.0,0.0,idrotm[248],"MANY");
3243 gMC->Gspos("I12B",10,"IT12",0.0,0.0,0.0,idrotm[249],"MANY");
3244 deltax=((ddet1-0.01/2.)+(dchip1-0.015/2.))*TMath::Cos(270.*TMath::Pi()/180.); // see definition of idrotm[238]
3245 deltay=((ddet1-0.01/2.)+(dchip1-0.015/2.))*TMath::Sin(270.*TMath::Pi()/180.); // see definition of idrotm[238]
3246 gMC->Gspos("I10B",2,"I12B",0.203+deltax,3.8206+deltay,0.0,idrotm[238],"ONLY");
3247 deltax=((ddet1-0.01/2.)+(dchip1-0.015/2.))*TMath::Cos(252.*TMath::Pi()/180.); // see definition of idrotm[239]
3248 deltay=((ddet1-0.01/2.)+(dchip1-0.015/2.))*TMath::Sin(252.*TMath::Pi()/180.); // see definition of idrotm[239]
3249 gMC->Gspos("I10B",1,"I12B",1.4531+deltax,3.8152+deltay,0.0,idrotm[239],"ONLY");
3250 deltax=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Cos(40.*TMath::Pi()/180.); // see definition of idrotm[240]
3251 deltay=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Sin(40.*TMath::Pi()/180.); // see definition of idrotm[240]
3252 gMC->Gspos("I20B",1,"I12B",3.0174+deltax,6.5143+deltay,0.0,idrotm[240],"ONLY");
3253 deltax=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Cos(49.*TMath::Pi()/180.); // see definition of idrotm[241]
3254 deltay=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Sin(49.*TMath::Pi()/180.); // see definition of idrotm[241]
3255 gMC->Gspos("I20B",2,"I12B",1.9612+deltax,6.9062+deltay,0.0,idrotm[241],"ONLY");
3256 deltax=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Cos(58.*TMath::Pi()/180.); // see definition of idrotm[242]
3257 deltay=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Sin(58.*TMath::Pi()/180.); // see definition of idrotm[242]
3258 gMC->Gspos("I20B",3,"I12B",0.8567+deltax,7.1279+deltay,0.0,idrotm[242],"ONLY");
3259 deltax=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Cos(67.*TMath::Pi()/180.); // see definition of idrotm[243]
3260 deltay=((ddet2-0.01/2.)+(dchip2-0.015/2.))*TMath::Sin(67.*TMath::Pi()/180.); // see definition of idrotm[243]
3261 gMC->Gspos("I20B",4,"I12B",-0.2689+deltax,7.1742+deltay,0.0,idrotm[243],"ONLY");
3262 gMC->Gspos("I123",1,"I12B",-0.2978,5.5196,0.0,idrotm[214],"ONLY");
3263 gMC->Gspos("I121",1,"I12B",-0.2385,4.1518,0.0,idrotm[213],"ONLY");
3264 gMC->Gspos("I122",1,"I12B",-0.2968,4.0207,0.0,idrotm[212],"ONLY");
3265 gMC->Gspos("I120",1,"I12B",-0.3672,3.9056,0.0,0,"ONLY");
3266 gMC->Gspos("I144",1,"I12B",-0.2538,3.8556,0.0,0,"ONLY");
3267 gMC->Gspos("I113",3,"I12B",0.1095,3.9056,0.0,0,"ONLY");
3268 gMC->Gspos("I143",1,"I12B",0.4365,3.8556,0.0,idrotm[236],"ONLY");
3269 gMC->Gspos("I142",1,"I12B",0.5136,3.9056,0.0,idrotm[235],"ONLY");
3270 gMC->Gspos("I141",1,"I12B",0.5636,3.9752,0.0,idrotm[237],"ONLY");
3271 gMC->Gspos("I140",1,"I12B",0.6336,4.0447,0.0,idrotm[234],"ONLY");
3272 gMC->Gspos("I139",1,"I12B",0.8297,4.0545,0.0,idrotm[207],"ONLY");
3273 gMC->Gspos("I113",5,"I12B",1.2575,3.9681,0.0,idrotm[207],"ONLY");
3274 gMC->Gspos("I138",1,"I12B",1.66,3.7848,0.0,idrotm[207],"ONLY");
3275 gMC->Gspos("I137",1,"I12B",1.8556,3.7738,0.0,idrotm[233],"ONLY");
3276 gMC->Gspos("I136",1,"I12B",2.6224,4.874,0.0,idrotm[232],"ONLY");
3277 gMC->Gspos("I135",1,"I12B",3.2967,6.0337,0.0,idrotm[231],"ONLY");
3278 gMC->Gspos("I134",1,"I12B",3.266,6.1636,0.0,idrotm[230],"ONLY");
3279 gMC->Gspos("I113",1,"I12B",2.9903,6.4144,0.0,idrotm[211],"ONLY");
3280 gMC->Gspos("I133",3,"I12B",2.7631,6.7627,0.0,idrotm[230],"ONLY");
3281 gMC->Gspos("I132",3,"I12B",2.62,6.8555,0.0,idrotm[229],"ONLY");
3282 gMC->Gspos("I131",3,"I12B",2.648,6.6023,0.0,idrotm[228],"ONLY");
3283 gMC->Gspos("I130",3,"I12B",2.6569,6.3431,0.0,idrotm[227],"ONLY");
3284 gMC->Gspos("I129",3,"I12B",2.3906,6.4819,0.0,idrotm[226],"ONLY");
3285 gMC->Gspos("I113",2,"I12B",1.9488,6.7998,0.0,idrotm[210],"ONLY");
3286 gMC->Gspos("I133",2,"I12B",1.6699,7.1085,0.0,idrotm[226],"ONLY");
3287 gMC->Gspos("I132",2,"I12B",1.5142,7.1777,0.0,idrotm[225],"ONLY");
3288 gMC->Gspos("I131",2,"I12B",1.5814,6.932,0.0,idrotm[224],"ONLY");
3289 gMC->Gspos("I130",2,"I12B",1.6308,6.6774,0.0,idrotm[223],"ONLY");
3290 gMC->Gspos("I129",2,"I12B",1.346,6.7728,0.0,idrotm[222],"ONLY");
3291 gMC->Gspos("I113",6,"I12B",0.8599,7.0176,0.0,idrotm[209],"ONLY");
3292 gMC->Gspos("I133",1,"I12B",0.5362,7.2789,0.0,idrotm[222],"ONLY");
3293 gMC->Gspos("I132",1,"I12B",0.3715,7.3228,0.0,idrotm[221],"ONLY");
3294 gMC->Gspos("I131",1,"I12B",0.4763,7.0907,0.0,idrotm[220],"ONLY");
3295 gMC->Gspos("I130",1,"I12B",0.5649,6.8469,0.0,idrotm[219],"ONLY");
3296 gMC->Gspos("I129",1,"I12B",0.2688,6.8966,0.0,idrotm[218],"ONLY");
3297 gMC->Gspos("I113",4,"I12B",-0.2497,7.0624,0.0,idrotm[208],"ONLY");
3298 gMC->Gspos("I128",1,"I12B",-0.6103,7.2698,0.0,idrotm[218],"ONLY");
3299 gMC->Gspos("I126",1,"I12B",-0.7799,7.2874,0.0,idrotm[217],"ONLY");
3300 gMC->Gspos("I125",1,"I12B",-0.6315,7.0883,0.0,idrotm[216],"ONLY");
3301 gMC->Gspos("I124",1,"I12B",-0.4965,6.8742,0.0,idrotm[215],"ONLY");
3302 gMC->Gspos("I105",3,"I10B",-0.05,-0.01,-16.844,idrotm[201],"ONLY");
3303 gMC->Gspos("I105",4,"I10B",-0.05,-0.01,16.844,0,"ONLY");
3304 gMC->Gspos("I107",2,"I10B",-0.0455,-di10b[1]+di107[1],3.536,0,"ONLY");
3305 gMC->Gspos("I107",1,"I10B",-0.0455,-di10b[1]+di107[1],10.708,0,"ONLY");
3306 gMC->Gspos("I107",4,"I10B",-0.0455,-di10b[1]+di107[1],-10.708,0,"ONLY");
3307 gMC->Gspos("I107",3,"I10B",-0.0455,-di10b[1]+di107[1],-3.536,0,"ONLY");
3308 gMC->Gspos("I109",1,"I10B",-0.138,0.015,-16.844,idrotm[201],"ONLY");
3309 gMC->Gspos("I109",2,"I10B",-0.138,0.015,16.844,0,"ONLY");
3310 gMC->Gspos("I108",1,"I10B",-0.138,-di10b[1]+2.*di107[1]+di108[1],0.0,0,"ONLY");
3311 gMC->Gspos("I105",1,"I20B",-0.05,-0.01,-16.844,idrotm[201],"ONLY");
3312 gMC->Gspos("I105",2,"I20B",-0.05,-0.01,16.844,0,"ONLY");
3313 gMC->Gspos("I1D7",2,"I20B",-0.0455,-di20b[1]+di1d7[1],3.536,0,"ONLY");
3314 gMC->Gspos("I1D7",1,"I20B",-0.0455,-di20b[1]+di1d7[1],10.708,0,"ONLY");
3315 gMC->Gspos("I1D7",4,"I20B",-0.0455,-di20b[1]+di1d7[1],-10.708,0,"ONLY");
3316 gMC->Gspos("I1D7",3,"I20B",-0.0455,-di20b[1]+di1d7[1],-3.536,0,"ONLY");
3317 gMC->Gspos("I109",3,"I20B",-0.138,0.015,-16.844,idrotm[201],"ONLY");
3318 gMC->Gspos("I109",4,"I20B",-0.138,0.015,16.844,0,"ONLY");
3319 gMC->Gspos("I108",2,"I20B",-0.138,-di20b[1]+2.*di1d7[1]+di108[1],0.0,0,"ONLY");
3320 gMC->Gspos("I112",2,"I113",0.25,0.02,0.0,idrotm[206],"ONLY");
3321 gMC->Gspos("I111",2,"I113",0.1318,-0.0008,0.0,idrotm[205],"ONLY");
3322 gMC->Gspos("I118",1,"I113",0.0,-0.0454,0.0,0,"ONLY");
3323 gMC->Gspos("I110",1,"I113",0.0,0.0492,0.0,0,"ONLY");
3324 gMC->Gspos("I114",1,"I113",0.063,0.0042,0.0,idrotm[202],"ONLY");
3325 gMC->Gspos("I115",1,"I113",0.063,0.0042,0.0,idrotm[202],"ONLY");
3326 gMC->Gspos("I115",2,"I113",-0.063,0.0042,0.0,idrotm[237],"ONLY");
3327 gMC->Gspos("I114",2,"I113",-0.063,0.0042,0.0,idrotm[237],"ONLY");
3328 gMC->Gspos("I116",1,"I113",0.0,0.0042,0.0,0,"ONLY");
3329 gMC->Gspos("I111",1,"I113",-0.1318,-0.0008,0.0,idrotm[204],"ONLY");
3330 gMC->Gspos("I112",1,"I113",-0.25,0.02,0.0,idrotm[203],"ONLY");
3331 gMC->Gspos("I106",1,"I107",0.0,-dchip1,-1.4,0,"ONLY");
3332 gMC->Gspos("I106",2,"I107",0.0,-dchip1,0.0,0,"ONLY");
3333 gMC->Gspos("I106",3,"I107",0.0,-dchip1,1.4,0,"ONLY");
3334 gMC->Gspos("I106",4,"I107",0.0,-dchip1,2.8,0,"ONLY");
3335 gMC->Gspos("I106",5,"I107",0.0,-dchip1,-2.8,0,"ONLY");
3336 gMC->Gspos("I101",1,"I107",0.0,ddet1,0.0,0,"ONLY");
3337 gMC->Gspos("I1D6",1,"I1D7",0.0,-dchip2,-1.4,0,"ONLY");
3338 gMC->Gspos("I1D6",2,"I1D7",0.0,-dchip2,0.0,0,"ONLY");
3339 gMC->Gspos("I1D6",3,"I1D7",0.0,-dchip2,1.4,0,"ONLY");
3340 gMC->Gspos("I1D6",4,"I1D7",0.0,-dchip2,2.8,0,"ONLY");
3341 gMC->Gspos("I1D6",5,"I1D7",0.0,-dchip2,-2.8,0,"ONLY");
3342 gMC->Gspos("I1D1",1,"I1D7",0.0,ddet2,0.0,0,"ONLY");
3343 gMC->Gspos("I117",1,"I116",0.0,0.0,0.0,0,"ONLY");
3344 gMC->Gspos("ITS1",1,"I101",0.0,0.0,0.0,0,"ONLY");
3345 gMC->Gspos("ITS2",1,"I1D1",0.0,0.0,0.0,0,"ONLY");
3346 gMC->Gspos("I651",1,"IT12",0.0,0.0,26.05,0,"ONLY");
3347 gMC->Gspos("I651",2,"IT12",0.0,0.0,-26.05,0,"ONLY");
3348 gMC->Gspos("I650",16,"IT12",0.0,0.0,22.0,idrotm[1104],"MANY");
3349 gMC->Gspos("I650",20,"IT12",0.0,0.0,22.0,idrotm[1130],"MANY");
3350 gMC->Gspos("I650",18,"IT12",0.0,0.0,22.0,idrotm[1117],"MANY");
3351 gMC->Gspos("I650",1,"IT12",0.0,0.0,22.0,0,"MANY");
3352 gMC->Gspos("I650",4,"IT12",0.0,0.0,22.0,idrotm[1106],"MANY");
3353 gMC->Gspos("I650",6,"IT12",0.0,0.0,22.0,idrotm[1039],"MANY");
3354 gMC->Gspos("I650",8,"IT12",0.0,0.0,22.0,idrotm[1107],"MANY");
3355 gMC->Gspos("I650",10,"IT12",0.0,0.0,22.0,idrotm[1065],"MANY");
3356 gMC->Gspos("I650",12,"IT12",0.0,0.0,22.0,idrotm[1078],"MANY");
3357 gMC->Gspos("I650",14,"IT12",0.0,0.0,22.0,idrotm[1091],"MANY");
3358 gMC->Gspos("I650",19,"IT12",0.0,0.0,-22.0,idrotm[1108],"MANY");
3359 gMC->Gspos("I650",2,"IT12",0.0,0.0,-22.0,idrotm[1109],"MANY");
3360 gMC->Gspos("I650",3,"IT12",0.0,0.0,-22.0,idrotm[1110],"MANY");
3361 gMC->Gspos("I650",5,"IT12",0.0,0.0,-22.0,idrotm[1111],"MANY");
3362 gMC->Gspos("I650",7,"IT12",0.0,0.0,-22.0,idrotm[1112],"MANY");
3363 gMC->Gspos("I650",9,"IT12",0.0,0.0,-22.0,idrotm[1113],"MANY");
3364 gMC->Gspos("I650",11,"IT12",0.0,0.0,-22.0,idrotm[1114],"MANY");
3365 gMC->Gspos("I650",13,"IT12",0.0,0.0,-22.0,idrotm[1115],"MANY");
3366 gMC->Gspos("I650",15,"IT12",0.0,0.0,-22.0,idrotm[1116],"MANY");
3367 gMC->Gspos("I650",17,"IT12",0.0,0.0,-22.0,idrotm[1118],"MANY");
3368 gMC->Gspos("I666",1,"I650",0.0,0.0,0.25,idrotm[1003],"MANY");
3369 gMC->Gspos("I667",1,"I650",0.1102,0.9945,0.45,idrotm[1088],"ONLY");
3370 gMC->Gspos("I669",3,"I650",0.1883,4.0372,-3.2,0,"ONLY");
3371 gMC->Gspos("I671",3,"I650",0.1883,4.0372,0.6,0,"ONLY");
3372 gMC->Gspos("I669",2,"I650",1.3343,4.0609,-3.2,0,"ONLY");
3373 gMC->Gspos("I671",2,"I650",1.3343,4.0609,0.6,0,"ONLY");
3374 gMC->Gspos("I669",6,"I650",2.9567,6.1959,-3.2,idrotm[1089],"ONLY");
3375 gMC->Gspos("I671",6,"I650",2.9567,6.1959,0.6,idrotm[1089],"ONLY");
3376 gMC->Gspos("I669",5,"I650",1.9511,6.5822,-3.2,idrotm[1011],"ONLY");
3377 gMC->Gspos("I671",5,"I650",1.9511,6.5822,0.6,idrotm[1011],"ONLY");
3378 gMC->Gspos("I669",4,"I650",0.8974,6.8064,-3.2,idrotm[1090],"ONLY");
3379 gMC->Gspos("I671",4,"I650",0.8974,6.8064,0.6,idrotm[1090],"ONLY");
3380 gMC->Gspos("I669",1,"I650",-0.1784,6.863,-3.2,0,"ONLY");
3381 gMC->Gspos("I671",1,"I650",-0.1784,6.863,0.6,0,"ONLY");
3382 gMC->Gspos("I673",1,"I650",0.2173,4.8037,1.8,0,"ONLY");
3383 gMC->Gspos("I673",6,"I650",1.5093,4.5605,1.8,0,"ONLY");
3384 gMC->Gspos("I673",4,"I650",-0.173,6.2531,1.8,idrotm[1092],"ONLY");
3385 gMC->Gspos("I673",3,"I650",0.8073,6.2032,1.8,idrotm[1093],"ONLY");
3386 gMC->Gspos("I673",2,"I650",1.7678,6.0005,1.8,idrotm[1094],"ONLY");
3387 gMC->Gspos("I673",5,"I650",2.6847,5.6501,1.8,0,"ONLY");
3388 gMC->Gspos("I676",2,"I650",1.7618,5.2269,2.5,0,"ONLY");
3389 gMC->Gspos("I676",1,"I650",0.4018,5.5869,2.5,0,"ONLY");
3390 gMC->Gspos("I668",1,"I667",0.0,0.0,0.0,0,"ONLY");
3391 gMC->Gspos("I670",1,"I669",0.0,0.0,0.0,0,"ONLY");
3392 gMC->Gspos("I672",1,"I671",0.0,0.0,0.0,0,"ONLY");
3393 gMC->Gspos("I674",1,"I673",0.0,0.0,0.0,0,"MANY");
3394 gMC->Gspos("I675",1,"I673",0.0,0.0,-0.5,0,"ONLY");
3395 gMC->Gspos("I677",1,"I676",0.0,0.0,0.0,0,"MANY");
3396 gMC->Gspos("I678",1,"I676",0.0,0.0,-0.95,0,"ONLY");
3397
3398 }
3399
3400 // --- Place SDD volumes into their mother volume IT34
3401
3402
3403 // -- position SDD detectors of ladder 3 / layer 3
3404
3405 gMC->Gspos("ITS3", 1,"I302", 0.0, 0.0, 0.0, 0, "ONLY");
41b19549 3406 ySDD = ySDDsep/2.+iI302dits[1];
6b2a1732 3407 for (iSDD=0; iSDD<6; iSDD++) {
41b19549 3408 gMC->Gspos("I302", iSDD+1, "I004", 0.0, ySDD, zSDDlay3[iSDD], 0, "ONLY");
6b2a1732 3409 ySDD = -ySDD;
3410 }
3411
3412 gMC->Gspos("I004", 1,"IT34", -3.2777, 14.3607, 0.0, idrotm[321],"ONLY");
3413 gMC->Gspos("I004", 2,"IT34", -9.5581, 11.9855, 0.0, idrotm[333],"ONLY");
3414 gMC->Gspos("I004", 3,"IT34",-13.2713, 6.3911, 0.0, idrotm[336],"ONLY");
3415 gMC->Gspos("I004", 4,"IT34",-15.33, 0.0, 0.0, idrotm[350],"ONLY");
3416 gMC->Gspos("I004", 5,"IT34",-13.2713, -6.3911, 0.0, idrotm[313],"ONLY");
3417 gMC->Gspos("I004", 6,"IT34", -9.5581, -11.9855, 0.0, idrotm[311],"ONLY");
3418 gMC->Gspos("I004", 7,"IT34", -3.2777, -14.3607, 0.0, idrotm[310],"ONLY");
3419 gMC->Gspos("I004", 8,"IT34", 3.4112, -14.9456, 0.0, idrotm[386],"ONLY");
3420 gMC->Gspos("I004", 9,"IT34", 9.184, -11.5164, 0.0, idrotm[309],"ONLY");
3421 gMC->Gspos("I004",10,"IT34", 13.8119, -6.6514, 0.0, idrotm[308],"ONLY");
3422 gMC->Gspos("I004",11,"IT34", 14.73, 0.0, 0.0, idrotm[356],"ONLY");
3423 gMC->Gspos("I004",12,"IT34", 13.8119, 6.6514, 0.0, idrotm[307],"ONLY");
3424 gMC->Gspos("I004",13,"IT34", 9.184, 11.5164, 0.0, idrotm[306],"ONLY");
3425 gMC->Gspos("I004",14,"IT34", 3.4113, 14.9456, 0.0, idrotm[305],"ONLY");
3426
3427
3428 // -- position SDD detectors of ladder 4 / layer 4
3429
3430 gMC->Gspos("ITS4", 1,"I402", 0.0, 0.000, 0.0, 0,"ONLY");
41b19549 3431 ySDD = -(ySDDsep/2.+iI402dits[1]);
6b2a1732 3432 for (iSDD=0; iSDD<8; iSDD++) {
41b19549 3433 gMC->Gspos("I402", iSDD+1, "I005", 0.0, ySDD, zSDDlay4[iSDD], 0, "ONLY");
6b2a1732 3434 ySDD = -ySDD;
3435 }
3436
3437 gMC->Gspos("I005", 1,"IT34", -3.3629, 23.3895,-0.15, idrotm[335],"ONLY");
3438 gMC->Gspos("I005", 2,"IT34",-10.0447, 21.9949,-0.15, idrotm[332],"ONLY");
3439 gMC->Gspos("I005", 3,"IT34",-15.4744, 17.8584,-0.15, idrotm[331],"ONLY");
3440 gMC->Gspos("I005", 4,"IT34",-20.3415, 13.0727,-0.15, idrotm[366],"ONLY");
3441 gMC->Gspos("I005", 5,"IT34",-22.6728, 6.6573,-0.15, idrotm[330],"ONLY");
3442 gMC->Gspos("I005", 6,"IT34",-24.18, 0.0, -0.15, idrotm[350],"ONLY");
3443 gMC->Gspos("I005", 7,"IT34",-22.6728, -6.6573,-0.15, idrotm[329],"ONLY");
3444 gMC->Gspos("I005", 8,"IT34",-20.3415, -13.0727,-0.15, idrotm[328],"ONLY");
3445 gMC->Gspos("I005", 9,"IT34",-15.4744, -17.8584,-0.15, idrotm[327],"ONLY");
3446 gMC->Gspos("I005",10,"IT34",-10.0447, -21.9949,-0.15, idrotm[326],"ONLY");
3447 gMC->Gspos("I005",11,"IT34", -3.3629, -23.3895,-0.15, idrotm[325],"ONLY");
3448 gMC->Gspos("I005",12,"IT34", 3.4412, -23.9339,-0.15, idrotm[324],"ONLY");
3449 gMC->Gspos("I005",13,"IT34", 9.8163, -21.4946,-0.15, idrotm[323],"ONLY");
3450 gMC->Gspos("I005",14,"IT34", 15.8345, -18.274, -0.15, idrotm[322],"ONLY");
3451 gMC->Gspos("I005",15,"IT34", 19.8788, -12.7753,-0.15, idrotm[320],"ONLY");
3452 gMC->Gspos("I005",16,"IT34", 23.2005, -6.8123,-0.15, idrotm[319],"ONLY");
3453 gMC->Gspos("I005",17,"IT34", 23.63, 0.0, -0.15, idrotm[318],"ONLY");
3454 gMC->Gspos("I005",18,"IT34", 23.2005, 6.8123,-0.15, idrotm[317],"ONLY");
3455 gMC->Gspos("I005",19,"IT34", 19.8788, 12.7753,-0.15, idrotm[316],"ONLY");
3456 gMC->Gspos("I005",20,"IT34", 15.8345, 18.274, -0.15, idrotm[315],"ONLY");
3457 gMC->Gspos("I005",21,"IT34", 9.8163, 21.4946,-0.15, idrotm[314],"ONLY");
3458 gMC->Gspos("I005",22,"IT34", 3.4412, 23.9339,-0.15, idrotm[334],"ONLY");
3459
3460
3461 // -- build block of the SDD ladder frame holding the electronics
3462
3463 gMC->Gspos("I019", 1,"I018", -1.9, -1.735, 0.0, idrotm[344], "ONLY");
3464 gMC->Gspos("I019", 2,"I018", 1.987, -1.5843, 0.0, idrotm[343], "ONLY");
3465 gMC->Gspos("I019", 3,"I018", -0.087, 1.7066, 0.0, idrotm[342], "ONLY");
3466
3467 gMC->Gspos("I020", 1,"I018", -1.9782, -1.569, 0.0, idrotm[342], "ONLY");
3468 gMC->Gspos("I020", 2,"I018", 1.8824, -1.735, 0.0, idrotm[344], "ONLY");
3469 gMC->Gspos("I020", 3,"I018", 0.0958, 1.6913, 0.0, idrotm[343], "ONLY");
3470
3471 gMC->Gspos("I021", 1,"I018", 1.0761, 0.0835, 2.6008, idrotm[340], "ONLY");
3472 gMC->Gspos("I021", 2,"I018", -1.0761, 0.0835,-2.8008, idrotm[339], "ONLY");
3473 gMC->Gspos("I021", 3,"I018", -1.0761, 0.0835,-1.0492, idrotm[338], "ONLY");
3474 gMC->Gspos("I021", 4,"I018", 1.0761, 0.0835,-2.8008, idrotm[337], "ONLY");
3475 gMC->Gspos("I021", 5,"I018", 1.0761, 0.0835,-1.0492, idrotm[340], "ONLY");
3476 gMC->Gspos("I021", 6,"I018", -1.0761, 0.0835, 0.8492, idrotm[339], "ONLY");
3477 gMC->Gspos("I021", 7,"I018", -1.0761, 0.0835, 2.6008, idrotm[338], "ONLY");
3478 gMC->Gspos("I021", 8,"I018", 1.0761, 0.0835, 0.8492, idrotm[337], "ONLY");
3479
3480 gMC->Gspos("I022", 1,"I018", 0.0, -1.79, 3.55, idrotm[312], "ONLY");
3481 gMC->Gspos("I022", 2,"I018", 0.0, -1.79, -0.1, idrotm[312], "ONLY");
3482
3483 gMC->Gspos("I023", 1,"I018", 0.0, -1.79, 1.725, idrotm[341], "ONLY");
3484 gMC->Gspos("I023", 2,"I018", 0.0, -1.79, -1.925, idrotm[341], "ONLY");
3485
3486 gMC->Gspos("I033", 1,"I018", 1.8, -1.75, 1.35, 0, "MANY");
3487 gMC->Gspos("I033", 2,"I018", -1.8, -1.75, -2.65, idrotm[345], "MANY");