| 4c039060 |
1 | /************************************************************************** |
| 2 | * Copyright(c) 1998-1999, ALICE Experiment at CERN, All rights reserved. * |
| 3 | * * |
| 4 | * Author: The ALICE Off-line Project. * |
| 5 | * Contributors are mentioned in the code where appropriate. * |
| 6 | * * |
| 7 | * Permission to use, copy, modify and distribute this software and its * |
| 8 | * documentation strictly for non-commercial purposes is hereby granted * |
| 9 | * without fee, provided that the above copyright notice appears in all * |
| 10 | * copies and that both the copyright notice and this permission notice * |
| 11 | * appear in the supporting documentation. The authors make no claims * |
| 12 | * about the suitability of this software for any purpose. It is * |
| 13 | * provided "as is" without express or implied warranty. * |
| 14 | **************************************************************************/ |
| 15 | |
| 16 | /* |
| 17 | $Log$ |
| 94de3818 |
18 | Revision 1.17 2000/07/10 16:07:19 fca |
| 19 | Release version of ITS code |
| 20 | |
| b3a22d72 |
21 | Revision 1.11.4.4 2000/05/19 10:09:51 nilsen |
| 22 | fix for bug with HP and Sun unix + fix for event display in ITS-working branch |
| c9a71be1 |
23 | |
| 3a15a09e |
24 | Revision 1.11.4.3 2000/04/04 14:18:03 nilsen |
| 25 | Fixed volume error with vomule SFR5. Loop positioning this volume is now from |
| 26 | <=23 (was <=24). This may not be the final version. |
| 27 | |
| 56d6a1ef |
28 | Revision 1.11.4.2 2000/03/04 23:46:02 nilsen |
| 29 | Fixed up the comments/documentation. |
| 30 | |
| 31 | Revision 1.11.4.1 2000/01/12 19:03:33 nilsen |
| 32 | This is the version of the files after the merging done in December 1999. |
| 33 | See the ReadMe110100.txt file for details |
| 34 | |
| 35 | Revision 1.11 1999/10/22 08:25:25 fca |
| 36 | remove double definition of destructors |
| 37 | |
| 1e3deba7 |
38 | Revision 1.10 1999/10/22 08:16:49 fca |
| 39 | Correct destructors, thanks to I.Hrivnacova |
| 40 | |
| 5b8cc8df |
41 | Revision 1.9 1999/10/06 19:56:50 fca |
| 42 | Add destructor |
| 43 | |
| 1c1b73f8 |
44 | Revision 1.8 1999/10/05 08:05:09 fca |
| 45 | Minor corrections for uninitialised variables. |
| 46 | |
| 593d2ea1 |
47 | Revision 1.7 1999/09/29 09:24:20 fca |
| 48 | Introduction of the Copyright and cvs Log |
| 49 | |
| 4c039060 |
50 | */ |
| 51 | |
| fe4da5cc |
52 | /////////////////////////////////////////////////////////////////////////////// |
| 56d6a1ef |
53 | // |
| 54 | // Inner Traking System version 3 |
| 55 | // This class contains the base procedures for the Inner Tracking System |
| 56 | // |
| 58005f18 |
57 | // Authors: R. Barbera, A. Morsch. |
| 58 | // version 3. |
| 59 | // Created 1998. |
| 60 | // |
| 61 | // NOTE: THIS IS THE OLD detailed TP-like geometry of the ITS. THIS WILL NOT |
| 62 | // WORK with the geometry or module classes or any analysis classes. You are |
| 63 | // strongly encouraged to uses AliITSv5. |
| 56d6a1ef |
64 | // |
| fe4da5cc |
65 | /////////////////////////////////////////////////////////////////////////////// |
| 56d6a1ef |
66 | |
| 67 | // See AliITSv3::StepManager(). |
| 68 | #define ALIITSPRINTGEOM 0 // default. don't print out gemetry information |
| 69 | //#define ALIITSPRINTGEOM 1 // print out geometry information |
| 70 | |
| fe4da5cc |
71 | #include <TMath.h> |
| 72 | #include <TRandom.h> |
| 73 | #include <TVector.h> |
| c9a71be1 |
74 | #include <TGeometry.h> |
| 75 | #include <TNode.h> |
| 76 | #include <TTUBE.h> |
| b3a22d72 |
77 | #include <TFile.h> // only required for Tracking function? |
| 78 | #include <TCanvas.h> |
| 79 | #include <TObjArray.h> |
| 80 | #include <TClonesArray.h> |
| c9a71be1 |
81 | |
| 82 | #include "AliMC.h" |
| 94de3818 |
83 | #include "AliMagF.h" |
| c9a71be1 |
84 | #include "AliConst.h" |
| 85 | |
| 58005f18 |
86 | #include "AliITShit.h" |
| fe4da5cc |
87 | #include "AliITSv3.h" |
| 88 | #include "AliRun.h" |
| 89 | |
| b3a22d72 |
90 | #include "AliMC.h" |
| 91 | #include "AliConst.h" |
| fe4da5cc |
92 | |
| 93 | ClassImp(AliITSv3) |
| 94 | |
| 95 | //_____________________________________________________________________________ |
| e8189707 |
96 | AliITSv3::AliITSv3() { |
| 56d6a1ef |
97 | //////////////////////////////////////////////////////////////////////// |
| 98 | // Standard default constructor for the ITS version 3. |
| 99 | //////////////////////////////////////////////////////////////////////// |
| e8189707 |
100 | |
| 101 | fIdN = 6; |
| 102 | fIdName = new TString[fIdN]; |
| 103 | fIdName[0] = "ITS1"; |
| 104 | fIdName[1] = "ITS2"; |
| 105 | fIdName[2] = "ITS3"; |
| 106 | fIdName[3] = "ITS4"; |
| 107 | fIdName[4] = "ITS5"; |
| 108 | fIdName[5] = "ITS6"; |
| 109 | fIdSens = new Int_t[fIdN]; |
| 110 | for (Int_t i=0;i<fIdN;i++) fIdSens[i]=fIdName[i].Length(); |
| 593d2ea1 |
111 | fMinorVersionV3=1; |
| fe4da5cc |
112 | } |
| b3a22d72 |
113 | //____________________________________________________________________________ |
| 114 | AliITSv3::AliITSv3(const AliITSv3 &source){ |
| 115 | //////////////////////////////////////////////////////////////////////// |
| 116 | // Copy Constructor for ITS version 3. |
| 117 | //////////////////////////////////////////////////////////////////////// |
| 118 | if(&source == this) return; |
| e8189707 |
119 | printf("Not allowed to copy AliITSv3\n"); |
| 481937a6 |
120 | return; |
| b3a22d72 |
121 | } |
| 122 | //_____________________________________________________________________________ |
| 123 | AliITSv3& AliITSv3::operator=(const AliITSv3 &source){ |
| 124 | //////////////////////////////////////////////////////////////////////// |
| 125 | // Assignment operator for the ITS version 3. |
| 126 | //////////////////////////////////////////////////////////////////////// |
| e8189707 |
127 | if(&source == this) return *this; |
| 128 | printf("Not allowed to copy AliITSv3\n"); |
| 129 | return *this; |
| b3a22d72 |
130 | } |
| 5b8cc8df |
131 | //_____________________________________________________________________________ |
| 132 | AliITSv3::~AliITSv3() { |
| 56d6a1ef |
133 | //////////////////////////////////////////////////////////////////////// |
| 134 | // Standard destructor for the ITS version 3. |
| 135 | //////////////////////////////////////////////////////////////////////// |
| 1c1b73f8 |
136 | } |
| fe4da5cc |
137 | //_____________________________________________________________________________ |
| 58005f18 |
138 | AliITSv3::AliITSv3(const char *name, const char *title) : AliITS(name, title){ |
| 56d6a1ef |
139 | //////////////////////////////////////////////////////////////////////// |
| 140 | // Standard constructor for the ITS version 3. |
| 141 | //////////////////////////////////////////////////////////////////////// |
| e8189707 |
142 | fIdN = 6; |
| 143 | fIdName = new TString[fIdN]; |
| 144 | fIdName[0] = "ITS1"; |
| 145 | fIdName[1] = "ITS2"; |
| 146 | fIdName[2] = "ITS3"; |
| 147 | fIdName[3] = "ITS4"; |
| 148 | fIdName[4] = "ITS5"; |
| 149 | fIdName[5] = "ITS6"; |
| 150 | fIdSens = new Int_t[fIdN]; |
| 151 | for (Int_t i=0;i<fIdN;i++) fIdSens[i]=fIdName[i].Length(); |
| 593d2ea1 |
152 | fMinorVersionV3=1; |
| b3a22d72 |
153 | }//__________________________________________________________________________ |
| c9a71be1 |
154 | void AliITSv3::BuildGeometry(){ |
| b3a22d72 |
155 | //////////////////////////////////////////////////////////////////////// |
| 156 | // Geometry builder for the ITS version 3. |
| 157 | //////////////////////////////////////////////////////////////////////// |
| 158 | TNode *node, *top; |
| e8189707 |
159 | const int kColorITS=kYellow; |
| c9a71be1 |
160 | // |
| b3a22d72 |
161 | top = gAlice->GetGeometry()->GetNode("alice"); |
| c9a71be1 |
162 | |
| 163 | new TTUBE("S_layer1","Layer1 of ITS","void",3.9,3.9+0.05475,12.25); |
| b3a22d72 |
164 | top->cd(); |
| 165 | node = new TNode("Layer1","Layer1","S_layer1",0,0,0,""); |
| 166 | node->SetLineColor(kColorITS); |
| 167 | fNodes->Add(node); |
| c9a71be1 |
168 | |
| 169 | new TTUBE("S_layer2","Layer2 of ITS","void",7.6,7.6+0.05475,16.3); |
| b3a22d72 |
170 | top->cd(); |
| 171 | node = new TNode("Layer2","Layer2","S_layer2",0,0,0,""); |
| 172 | node->SetLineColor(kColorITS); |
| 173 | fNodes->Add(node); |
| c9a71be1 |
174 | |
| 175 | new TTUBE("S_layer3","Layer3 of ITS","void",14,14+0.05288,21.1); |
| b3a22d72 |
176 | top->cd(); |
| 177 | node = new TNode("Layer3","Layer3","S_layer3",0,0,0,""); |
| 178 | node->SetLineColor(kColorITS); |
| 179 | fNodes->Add(node); |
| c9a71be1 |
180 | |
| 181 | new TTUBE("S_layer4","Layer4 of ITS","void",24,24+0.05288,29.6); |
| b3a22d72 |
182 | top->cd(); |
| 183 | node = new TNode("Layer4","Layer4","S_layer4",0,0,0,""); |
| 184 | node->SetLineColor(kColorITS); |
| 185 | fNodes->Add(node); |
| c9a71be1 |
186 | |
| 187 | new TTUBE("S_layer5","Layer5 of ITS","void",40,40+0.05382,45.1); |
| b3a22d72 |
188 | top->cd(); |
| 189 | node = new TNode("Layer5","Layer5","S_layer5",0,0,0,""); |
| 190 | node->SetLineColor(kColorITS); |
| 191 | fNodes->Add(node); |
| c9a71be1 |
192 | |
| 193 | new TTUBE("S_layer6","Layer6 of ITS","void",45,45+0.05382,50.4); |
| b3a22d72 |
194 | top->cd(); |
| 195 | node = new TNode("Layer6","Layer6","S_layer6",0,0,0,""); |
| 196 | node->SetLineColor(kColorITS); |
| 197 | fNodes->Add(node); |
| c9a71be1 |
198 | } |
| fe4da5cc |
199 | //_____________________________________________________________________________ |
| 58005f18 |
200 | void AliITSv3::CreateGeometry(){ |
| 56d6a1ef |
201 | //////////////////////////////////////////////////////////////////////// |
| 202 | // This routine creates and defines the version 3 geometry of the ITS. |
| 203 | //////////////////////////////////////////////////////////////////////// |
| fe4da5cc |
204 | |
| b3a22d72 |
205 | const Float_t kxx[14] = { 0.000, 0.000,-14.002, -6.288,-25.212,-16.292, |
| 58005f18 |
206 | -35.713,-26.401,-45.340,-36.772,-18.740,-12.814, |
| 207 | -14.358, 0.000}; |
| b3a22d72 |
208 | const Float_t kyy[14] = { 0.000, 27.056, 31.408, 25.019, 27.768, 22.664, |
| 58005f18 |
209 | 22.420, 18.727, 15.479, 13.680, -9.984, -6.175, |
| 210 | -3.775, 0.000 }; |
| b3a22d72 |
211 | const Float_t kxbeg[13] = { 0.000, -0.352,-12.055, -8.755,-23.035,-19.085, |
| 58005f18 |
212 | -33.362,-28.859,-42.774,-36.644,-18.352,-13.085, |
| 213 | -13.426 }; |
| b3a22d72 |
214 | const Float_t kybeg[13] = { 0.386, 27.165, 29.795, 25.377, 26.480, 22.632, |
| 58005f18 |
215 | 21.487, 18.305, 14.940, 13.509, -9.735, -5.755, |
| 216 | -3.53 }; |
| b3a22d72 |
217 | const Float_t kxend[13] = { 0.000,-11.588, -8.208,-22.709,-18.738,-33.184, |
| 58005f18 |
218 | -28.719,-42.756,-37.027,-19.002,-13.235,-13.837, |
| 219 | -.373 }; |
| b3a22d72 |
220 | const Float_t kyend[13] = { 26.688, 30.658, 26.609, 27.405, 23.935, 22.452, |
| 58005f18 |
221 | 19.646, 15.922, 13.733, -9.639, -6.446, -4.585, |
| 222 | -.098 }; |
| b3a22d72 |
223 | const Float_t kxarc[13] = { -0.500,-13.248,-13.505,-18.622,-37.171,-42.671, |
| 58005f18 |
224 | -28.977,-33.178,-19.094,-22.781, -8.655,-11.736, |
| 225 | -0.500 }; |
| b3a22d72 |
226 | const Float_t kyarc[13] = { 0.500, -4.093, -5.911, -9.200, 13.162, 15.543, |
| 58005f18 |
227 | 19.109, 22.066, 23.446, 27.024, 26.184, 30.294, |
| 228 | 26.802 }; |
| b3a22d72 |
229 | const Float_t krarc[13] = { 0.5,0.7,0.5,0.5,0.7,0.5,0.7, |
| 58005f18 |
230 | 0.5,0.7,0.5,0.7,0.5,0.5 }; |
| b3a22d72 |
231 | const Float_t krr = 4.064516; |
| 232 | const Float_t ktteta = 63.00; |
| 233 | const Float_t kpphi = -35.00; |
| 234 | const Float_t kgteta = 87.78; |
| 235 | const Double_t kdegrad = kPI/180.; |
| 236 | const Double_t kraddeg = 180./kPI; |
| 237 | const Double_t ktwopi = 2*kPI; |
| fe4da5cc |
238 | |
| 239 | Double_t biga, bigb; |
| 58005f18 |
240 | Float_t dcei[3], dela[3], dchi[3], dpcb[3], darc[5], |
| 241 | dfra[10], dcer[3], dkap[3], dpla[3], |
| 242 | xccc, yccc, aphi, dcop[3], dtra[3], dsil[3], |
| 243 | atheta1011, dbus[3], dtub[3], dwat[3], |
| 244 | depx[3], dits[3], atheta1314, atheta1213, atheta1112, |
| 245 | dsup[3], xtra[8], ytra[8], ztra[8], dsrv[3]; |
| fe4da5cc |
246 | Double_t biga1, bigb1; |
| 58005f18 |
247 | Float_t runo, xpos, ypos, zpos, rtwo, aphi1, aphi2, |
| 248 | dtra1[3], dtra2[3], dtra3[3], |
| 249 | dtra4[3], dbox1[3], dbox2[3]; |
| 250 | Int_t jbox1, jbox2; |
| 251 | Float_t xtra1[6], ytra1[6], ztra1[6]; |
| 252 | Int_t i; |
| 253 | Float_t xpos1, ypos1; |
| 254 | Int_t j; |
| 255 | Float_t angle, dcone[5], dtube[3], dpgon[10]; |
| 256 | Float_t rzero, xzero, yzero; |
| fe4da5cc |
257 | Double_t coeffa, coeffb, coeffc; |
| 58005f18 |
258 | Int_t idrotm[5250]; |
| 259 | Float_t atheta, offset; |
| 260 | Float_t offset1, offset2, dgh[15]; |
| 261 | Float_t xcc, ycc, sep, atheta12, atheta23, atheta34, atheta45, atheta56, |
| 262 | atheta67, atheta78, atheta89, xxm, dal1[3], dal2[3]; |
| 263 | //Float_t yos; |
| 264 | Float_t r1, r2, r3; |
| fe4da5cc |
265 | Double_t xcc1, ycc1, xcc2, ycc2; |
| 58005f18 |
266 | Float_t atheta910; |
| b3a22d72 |
267 | const char knatra[][5] ={ "TR01","TR02","TR03","TR04", |
| 58005f18 |
268 | "TR05","TR06","TR07","TR08"}; |
| b3a22d72 |
269 | const char knatra1[][5] ={"TR11","TR12","TR13","TR14", |
| 58005f18 |
270 | "TR15","TR16","TR17","TR18", |
| 271 | "TR19","TR20","TR21","TR22", |
| 272 | "TR23","TR24","TR25","TR26"}; |
| b3a22d72 |
273 | const char knatra2[][5] ={"TR31","TR32","TR33","TR34","TR35","TR36"}; |
| 274 | const char knatra3[][5] ={"TR41","TR42","TR43","TR44","TR45","TR46"}; |
| 275 | const char knatra4[][5] ={"TR51","TR52","TR53","TR54","TR55","TR56", |
| 58005f18 |
276 | "TR57","TR58","TR59","TR60","TR61","TR62", |
| 277 | "TR63","TR64","TR65","TR66"}; |
| fe4da5cc |
278 | |
| ad51aeb0 |
279 | Int_t *idtmed = fIdtmed->GetArray()-199; |
| fe4da5cc |
280 | |
| 281 | // --- Define a ghost volume containing the whole ITS and fill it with air |
| 282 | // or vacuum |
| 283 | |
| 58005f18 |
284 | dgh[0] = 0.0; |
| 285 | dgh[1] = 360.0; |
| 286 | dgh[2] = 4.0; |
| 287 | dgh[3] = -70.0; |
| 288 | dgh[4] = 49.999; |
| 289 | dgh[5] = 49.999; |
| 290 | dgh[6] = -25.0; |
| 291 | dgh[7] = 3.0; |
| 292 | dgh[8] = 49.999; |
| 293 | dgh[9] = 25.0; |
| 294 | dgh[10] = 3.0; |
| fe4da5cc |
295 | dgh[11] = 49.999; |
| 58005f18 |
296 | dgh[12] = 70.0; |
| fe4da5cc |
297 | dgh[13] = 49.999; |
| 298 | dgh[14] = 49.999; |
| cfce8870 |
299 | gMC->Gsvolu("ITSV", "PCON", idtmed[275], dgh, 15); |
| fe4da5cc |
300 | |
| 301 | // --- Place the ghost volume in its mother volume (ALIC) and make it |
| 302 | // invisible |
| 303 | |
| cfce8870 |
304 | gMC->Gspos("ITSV", 1, "ALIC", 0., 0., 0., 0, "ONLY"); |
| 305 | gMC->Gsatt("ITSV", "SEEN", 0); |
| fe4da5cc |
306 | |
| 307 | //************************************************************************ |
| 308 | //* * |
| 309 | //* P I X E L S * |
| 310 | //* =========== * |
| 311 | //* * |
| 312 | //************************************************************************ |
| 313 | |
| 314 | // GOTO 2345 ! skip ITS layer no. 1 and 2 |
| 315 | |
| 316 | // --- Define a ghost volume containing the Silicon Pixel Detectors |
| 317 | // (layer #1 and #2) and fill it with air or vacuum |
| 318 | |
| 58005f18 |
319 | xxm = (49.999-3)/(70-25); |
| 320 | dgh[0] = 0.0; |
| 321 | dgh[1] = 360.0; |
| 322 | dgh[2] = 4.0; |
| 323 | dgh[3] = -25.-(9.-3.01)/xxm; |
| 324 | dgh[4] = 9.0; |
| 325 | dgh[5] = 9.0; |
| 326 | dgh[6] = -25.0; |
| 327 | dgh[7] = 3.01; |
| 328 | dgh[8] = 9.0; |
| 329 | dgh[9] = 25.0; |
| fe4da5cc |
330 | dgh[10] = 3.01; |
| 58005f18 |
331 | dgh[11] = 9.0; |
| fe4da5cc |
332 | dgh[12] = 25+(9-3.01)/xxm; |
| 58005f18 |
333 | dgh[13] = 9.0; |
| 334 | dgh[14] = 9.0; |
| cfce8870 |
335 | gMC->Gsvolu("IT12", "PCON", idtmed[275], dgh, 15); |
| fe4da5cc |
336 | |
| 337 | // --- Place the ghost volume in its mother volume (ITSV) and make it |
| 338 | // invisible |
| 339 | |
| cfce8870 |
340 | gMC->Gspos("IT12", 1, "ITSV", 0., 0., 0., 0, "ONLY"); |
| 341 | gMC->Gsatt("IT12", "SEEN", 0); |
| fe4da5cc |
342 | |
| 343 | // --- Define a ghost volume containing a single element of layer #1 |
| 344 | // and fill it with air or vacuum |
| 345 | |
| 346 | dbox1[0] = 0.005+0.01+0.0075; |
| 347 | dbox1[1] = .79; |
| 348 | dbox1[2] = 12.67; |
| cfce8870 |
349 | gMC->Gsvolu("IPV1", "BOX ", idtmed[203], dbox1, 3); |
| fe4da5cc |
350 | |
| 58005f18 |
351 | //--Divide each element of layer #1 in three ladders along the beam direction |
| 352 | |
| cfce8870 |
353 | gMC->Gsdvn("IPB1", "IPV1", 3, 3); |
| fe4da5cc |
354 | |
| 355 | // --- Make the ghost volumes invisible |
| 356 | |
| cfce8870 |
357 | gMC->Gsatt("IPV1", "SEEN", 0); |
| 358 | gMC->Gsatt("IPB1", "SEEN", 0); |
| fe4da5cc |
359 | |
| 58005f18 |
360 | // --- Define a volume containing the chip of pixels (silicon, layer #1) |
| 361 | |
| 362 | dchi[0] = 0.005; |
| 363 | dchi[1] = 0.79; |
| fe4da5cc |
364 | dchi[2] = dbox1[2] / 3.; |
| cfce8870 |
365 | gMC->Gsvolu("ICH1", "BOX ", idtmed[200], dchi, 3); |
| fe4da5cc |
366 | |
| 367 | // --- Define a volume containing the bus of pixels (silicon, layer #1) |
| 368 | |
| 58005f18 |
369 | dbus[0] = 0.01; |
| 370 | dbus[1] = 0.64; |
| fe4da5cc |
371 | dbus[2] = 4.19; |
| cfce8870 |
372 | gMC->Gsvolu("IBU1", "BOX ", idtmed[201], dbus, 3); |
| fe4da5cc |
373 | |
| 374 | // --- Define a volume containing the sensitive part of pixels |
| 375 | // (silicon, layer #1) |
| 376 | |
| 58005f18 |
377 | dits[0] = 0.0075; |
| 378 | dits[1] = 0.64; |
| fe4da5cc |
379 | dits[2] = 4.19; |
| cfce8870 |
380 | gMC->Gsvolu("ITS1", "BOX ", idtmed[199], dits, 3); |
| 58005f18 |
381 | |
| fe4da5cc |
382 | // --- Place the chip into its mother (IPB1) |
| 383 | |
| 384 | xpos = dbox1[0] - dchi[0]; |
| 58005f18 |
385 | ypos = 0.0; |
| 386 | zpos = 0.0; |
| cfce8870 |
387 | gMC->Gspos("ICH1", 1, "IPB1", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
388 | |
| 389 | // --- Place the sensitive volume into its mother (IPB1) |
| 390 | |
| 391 | xpos = dbox1[0] - dchi[0] * 2. - dits[0]; |
| 392 | ypos = dchi[1] - dits[1]; |
| 393 | zpos = -(dchi[2] - dits[2]); |
| cfce8870 |
394 | gMC->Gspos("ITS1", 1, "IPB1", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
395 | |
| 396 | // --- Place the bus into its mother (IPB1) |
| 397 | |
| 398 | xpos = dbox1[0] - dchi[0] * 2. - dits[0] * 2. - dbus[0]; |
| 399 | ypos = dchi[1] - dbus[1]; |
| 400 | zpos = -(dchi[2] - dbus[2]); |
| cfce8870 |
401 | gMC->Gspos("IBU1", 1, "IPB1", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
402 | |
| 403 | // --- Define a ghost volume containing a single element of layer #2 |
| 404 | // and fill it with air or vacuum |
| 405 | |
| 406 | dbox2[0] = 0.005+0.01+0.0075; |
| 58005f18 |
407 | dbox2[1] = 0.79; |
| fe4da5cc |
408 | dbox2[2] = 16.91; |
| cfce8870 |
409 | gMC->Gsvolu("IPV2", "BOX ", idtmed[203], dbox2, 3); |
| 58005f18 |
410 | |
| 411 | //--Divide each element of layer #2 in four ladders along the beam direction |
| fe4da5cc |
412 | |
| cfce8870 |
413 | gMC->Gsdvn("IPB2", "IPV2", 4, 3); |
| fe4da5cc |
414 | |
| 415 | // --- Make the ghost volumes invisible |
| 416 | |
| cfce8870 |
417 | gMC->Gsatt("IPV2", "SEEN", 0); |
| 418 | gMC->Gsatt("IPB2", "SEEN", 0); |
| fe4da5cc |
419 | |
| 420 | // --- Define a volume containing the chip of pixels (silicon, layer #2) |
| 421 | |
| 58005f18 |
422 | dchi[0] = 0.005; |
| 423 | dchi[1] = 0.79; |
| fe4da5cc |
424 | dchi[2] = dbox2[2] / 4.; |
| cfce8870 |
425 | gMC->Gsvolu("ICH2", "BOX ", idtmed[200], dchi, 3); |
| 58005f18 |
426 | |
| fe4da5cc |
427 | // --- Define a volume containing the bus of pixels (silicon, layer #2) |
| 428 | |
| 58005f18 |
429 | dbus[0] = 0.01; |
| 430 | dbus[1] = 0.64; |
| fe4da5cc |
431 | dbus[2] = 4.19; |
| cfce8870 |
432 | gMC->Gsvolu("IBU2", "BOX ", idtmed[201], dbus, 3); |
| 58005f18 |
433 | |
| fe4da5cc |
434 | // --- Define a volume containing the sensitive part of pixels |
| 435 | // (silicon, layer #2) |
| 436 | |
| 58005f18 |
437 | dits[0] = 0.0075; |
| 438 | dits[1] = 0.64; |
| fe4da5cc |
439 | dits[2] = 4.19; |
| cfce8870 |
440 | gMC->Gsvolu("ITS2", "BOX ", idtmed[199], dits, 3); |
| 58005f18 |
441 | |
| fe4da5cc |
442 | // --- Place the chip into its mother (IPB2) |
| 443 | |
| 444 | xpos = dbox1[0] - dbus[0] * 2. - dits[0] * 2. - dchi[0]; |
| 58005f18 |
445 | ypos = 0.0; |
| 446 | zpos = 0.0; |
| cfce8870 |
447 | gMC->Gspos("ICH2", 1, "IPB2", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
448 | |
| 449 | // --- Place the sensitive volume into its mother (IPB2) |
| 450 | |
| 451 | xpos = dbox1[0] - dbus[0] * 2. - dits[0]; |
| 452 | ypos = -(dchi[1] - dits[1]); |
| 453 | zpos = -(dchi[2] - dits[2]); |
| cfce8870 |
454 | gMC->Gspos("ITS2", 1, "IPB2", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
455 | |
| 456 | // --- Place the bus into its mother (IPB2) |
| 457 | |
| 458 | xpos = dbox1[0] - dbus[0]; |
| 459 | ypos = -(dchi[1] - dbus[1]); |
| 460 | zpos = -(dchi[2] - dbus[2]); |
| cfce8870 |
461 | gMC->Gspos("IBU2", 1, "IPB2", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
462 | |
| 463 | // --- Define a generic segment of an element of the mechanical support |
| 464 | |
| 58005f18 |
465 | dsup[0] = 0.0; |
| 466 | dsup[1] = 0.0; |
| 467 | dsup[2] = 0.0; |
| cfce8870 |
468 | gMC->Gsvolu("SPIX", "BOX ", idtmed[202], dsup, 0); |
| fe4da5cc |
469 | |
| 470 | // --- Define a generic arc of an element of the mechanical support |
| 471 | |
| 58005f18 |
472 | darc[0] = 0.0; |
| 473 | darc[1] = 0.0; |
| 474 | darc[2] = 0.0; |
| cfce8870 |
475 | gMC->Gsvolu("SARC", "TUBS", idtmed[202], darc, 0); |
| fe4da5cc |
476 | |
| 477 | // --- Define the mechanical supports of layers #1 and #2 and place the |
| 478 | // elements of the layers in it |
| 479 | |
| 480 | jbox1 = 0; |
| 481 | // counter over the number of elements of layer #1 ( |
| 482 | jbox2 = 0; |
| 483 | |
| 484 | // counter over the number of elements of layer #2 ( |
| e8189707 |
485 | for (i = 1; i <= 10; ++i) { |
| fe4da5cc |
486 | |
| 487 | // --- Place part # 1-2 (see sketch) |
| 488 | |
| 489 | // number of carbon fiber supports (see sketch) |
| 490 | offset1 = -35.; |
| 491 | dsup[0] = .01; |
| b3a22d72 |
492 | dsup[1] = TMath::Sqrt((kxend[0] - kxbeg[0]) * (kxend[0] - kxbeg[0]) + |
| 493 | (kyend[0] - kybeg[0]) * (kyend[0] - kybeg[0]) ) / 20.; |
| 58005f18 |
494 | dsup[2] = 25.0; |
| b3a22d72 |
495 | xcc = ( kxx[0] + kxx[1]) / 20.; |
| 496 | ycc = ( kyy[0] + kyy[1]) / 20.; |
| 497 | xccc = (kxbeg[0] + kxend[0]) / 20.; |
| 498 | yccc = (kybeg[0] + kyend[0]) / 20.; |
| 499 | if (kxx[0] == kxx[1]) { |
| fe4da5cc |
500 | offset2 = 0.; |
| 501 | } else { |
| b3a22d72 |
502 | r1 = kyy[1] - kyy[0]; |
| 503 | r2 = kxx[1] - kxx[0]; |
| 504 | offset2 = TMath::ATan2(r1, r2) * kraddeg - 90.; |
| 505 | } // end if kxx[0] == kxx[1] |
| 506 | aphi = (kpphi + (i-1) * 36.) * kdegrad; |
| 507 | xzero = krr * TMath::Cos((ktteta + (i-1) * 36.) * kdegrad); |
| 508 | yzero = krr * TMath::Sin((ktteta + (i-1) * 36.) * kdegrad); |
| 58005f18 |
509 | xpos1 = xccc * TMath::Cos(aphi) - yccc * TMath::Sin(aphi) + xzero; |
| 510 | ypos1 = xccc * TMath::Sin(aphi) + yccc * TMath::Cos(aphi) + yzero; |
| b3a22d72 |
511 | xpos = xpos1 * TMath::Cos(kgteta * kdegrad) + |
| 512 | ypos1 * TMath::Sin(kgteta *kdegrad); |
| 513 | ypos = -xpos1 * TMath::Sin(kgteta * kdegrad) + |
| 514 | ypos1 * TMath::Cos(kgteta * kdegrad); |
| 58005f18 |
515 | zpos = 0.0; |
| b3a22d72 |
516 | atheta12 = (i-1) * 36. + offset1 + offset2 - kgteta; |
| 58005f18 |
517 | AliMatrix(idrotm[(i-1) * 13 + 1100], 90., atheta12, 90., |
| 518 | atheta12 + 90., 0., 0.); |
| 519 | gMC->Gsposp("SPIX", (i-1) * 13 + 1, "IT12", xpos, ypos, zpos, |
| 520 | idrotm[(i-1) * 13 + 1100], "ONLY", dsup, 3); |
| 521 | |
| fe4da5cc |
522 | // --- Place part # 2-3 (see sketch) |
| 523 | |
| 58005f18 |
524 | offset1 = -35.0; |
| 525 | dsup[0] = 0.01; |
| b3a22d72 |
526 | dsup[1] = TMath::Sqrt((kxend[1] - kxbeg[1]) * (kxend[1] - kxbeg[1]) + |
| 527 | (kyend[1] - kybeg[1]) * (kyend[1] - kybeg[1])) / 20.; |
| 58005f18 |
528 | dsup[2] = 25.0; |
| b3a22d72 |
529 | xcc = ( kxx[1] + kxx[2]) / 20.; |
| 530 | ycc = ( kyy[1] + kyy[2]) / 20.; |
| 531 | xccc = (kxbeg[1] + kxend[1]) / 20.; |
| 532 | yccc = (kybeg[1] + kyend[1]) / 20.; |
| 533 | if (kxx[1] == kxx[2]) { |
| fe4da5cc |
534 | offset2 = 0.; |
| 535 | } else { |
| b3a22d72 |
536 | r1 = kyy[2] - kyy[1]; |
| 537 | r2 = kxx[2] - kxx[1]; |
| 538 | offset2 = TMath::ATan2(r1, r2) * kraddeg - 90.; |
| 539 | } // end if kxx[1] == kxx[2] |
| 540 | aphi = (kpphi + (i-1) * 36.) * kdegrad; |
| 541 | xzero = krr * TMath::Cos((ktteta + (i-1) * 36.) * kdegrad); |
| 542 | yzero = krr * TMath::Sin((ktteta + (i-1) * 36.) * kdegrad); |
| 58005f18 |
543 | xpos1 = xccc * TMath::Cos(aphi) - yccc * TMath::Sin(aphi) + xzero; |
| 544 | ypos1 = xccc * TMath::Sin(aphi) + yccc * TMath::Cos(aphi) + yzero; |
| b3a22d72 |
545 | xpos = xpos1 * TMath::Cos(kgteta * kdegrad) + |
| 546 | ypos1 * TMath::Sin(kgteta * kdegrad); |
| 547 | ypos = -xpos1 * TMath::Sin(kgteta * kdegrad) + |
| 548 | ypos1 * TMath::Cos(kgteta * kdegrad); |
| 58005f18 |
549 | zpos = 0.0; |
| b3a22d72 |
550 | atheta23 = (i-1) * 36. + offset1 + offset2 - kgteta; |
| 58005f18 |
551 | AliMatrix(idrotm[(i-1) * 13 + 1101], 90., atheta23, 90., |
| 552 | atheta23 + 90., 0., 0.); |
| 553 | gMC->Gsposp("SPIX", (i-1) * 13 + 2, "IT12", xpos, ypos, zpos, |
| 554 | idrotm[(i-1) * 13 + 1101], "ONLY", dsup, 3); |
| 555 | |
| 556 | // --- Place an element of layer #2 |
| 557 | |
| b3a22d72 |
558 | biga = (kyy[2] - kyy[1]) / (kxx[2] - kxx[1]); |
| 559 | bigb = (kxx[2] * kyy[1] - kxx[1] * kyy[2]) / (kxx[2] - kxx[1]) / 10.; |
| fe4da5cc |
560 | coeffa = biga * biga + 1.; |
| 561 | coeffb = biga * bigb - biga * ycc - xcc; |
| 58005f18 |
562 | coeffc = xcc * xcc + ycc * ycc - ycc * 2. * bigb + |
| 563 | bigb * bigb - 0.08964*0.08964; |
| 564 | xcc1 = (-coeffb + TMath::Sqrt(coeffb * coeffb - coeffa * coeffc)) / |
| 565 | coeffa; |
| fe4da5cc |
566 | ycc1 = biga * xcc1 + bigb; |
| 567 | biga1 = -1. / biga; |
| 568 | bigb1 = xcc1 / biga + ycc1; |
| 569 | coeffa = biga1 * biga1 + 1.; |
| 570 | coeffb = biga1 * bigb1 - biga1 * ycc1 - xcc1; |
| 58005f18 |
571 | coeffc = xcc1 * xcc1 + ycc1 * ycc1 - ycc1 * 2. * bigb1 + |
| 572 | bigb1 * bigb1 - (dsup[0] + dbox2[0]) * (dsup[0] + dbox2[0]); |
| 573 | xcc2 = (-coeffb + TMath::Sqrt(coeffb * coeffb - coeffa * coeffc)) / |
| 574 | coeffa; |
| 575 | ycc2 = biga1 * xcc2 + bigb1; |
| 576 | xpos1 = xcc2 * TMath::Cos(aphi) - ycc2 * TMath::Sin(aphi) + xzero; |
| 577 | ypos1 = xcc2 * TMath::Sin(aphi) + ycc2 * TMath::Cos(aphi) + yzero; |
| b3a22d72 |
578 | xpos = xpos1 * TMath::Cos(kgteta * kdegrad) + |
| 579 | ypos1 * TMath::Sin(kgteta *kdegrad); |
| 580 | ypos = -xpos1 * TMath::Sin(kgteta * kdegrad) + |
| 581 | ypos1 * TMath::Cos(kgteta * kdegrad); |
| 58005f18 |
582 | zpos = 0.0; |
| fe4da5cc |
583 | ++jbox2; |
| 58005f18 |
584 | gMC->Gspos("IPV2", jbox2, "IT12", xpos, ypos, zpos, |
| 585 | idrotm[(i-1) * 13 + 1101], "ONLY"); |
| 586 | |
| 587 | // --- Place part # 3-4 (see sketch) |
| 588 | |
| 589 | offset1 = -35.0; |
| 590 | dsup[0] = 0.01; |
| b3a22d72 |
591 | dsup[1] = TMath::Sqrt((kxend[2] - kxbeg[2]) * (kxend[2] - kxbeg[2]) + |
| 592 | (kyend[2] - kybeg[2]) * (kyend[2] - kybeg[2])) / 20.; |
| fe4da5cc |
593 | dsup[2] = 25.; |
| b3a22d72 |
594 | xcc = (kxx[1] + kxx[2]) / 20.; |
| 595 | ycc = (kyy[1] + kyy[2]) / 20.; |
| 596 | xccc = (kxbeg[2] + kxend[2]) / 20.; |
| 597 | yccc = (kybeg[2] + kyend[2]) / 20.; |
| 598 | if (kxx[2] == kxx[3]) { |
| fe4da5cc |
599 | offset2 = 0.; |
| 600 | } else { |
| b3a22d72 |
601 | r1 = kyy[3] - kyy[2]; |
| 602 | r2 = kxx[3] - kxx[2]; |
| 603 | offset2 = TMath::ATan2(r1, r2) * kraddeg - 90.; |
| 604 | } // end if kxx[2] == kxx[3] |
| 605 | aphi = (kpphi + (i-1) * 36.) * kdegrad; |
| 606 | xzero = krr * TMath::Cos((ktteta + (i-1) * 36.) * kdegrad); |
| 607 | yzero = krr * TMath::Sin((ktteta + (i-1) * 36.) * kdegrad); |
| 58005f18 |
608 | xpos1 = xccc * TMath::Cos(aphi) - yccc * TMath::Sin(aphi) + xzero; |
| 609 | ypos1 = xccc * TMath::Sin(aphi) + yccc * TMath::Cos(aphi) + yzero; |
| b3a22d72 |
610 | xpos = xpos1 * TMath::Cos(kgteta * kdegrad) + |
| 611 | ypos1 * TMath::Sin(kgteta *kdegrad); |
| 612 | ypos = -xpos1 * TMath::Sin(kgteta * kdegrad) + |
| 613 | ypos1 * TMath::Cos(kgteta * kdegrad); |
| 58005f18 |
614 | zpos = 0.0; |
| b3a22d72 |
615 | atheta34 = (i-1) * 36. + offset1 + offset2 - kgteta; |
| 58005f18 |
616 | AliMatrix(idrotm[(i-1) * 13 + 1102], 90., atheta34, 90., |
| 617 | atheta34 + 90., 0., 0.); |
| 618 | gMC->Gsposp("SPIX", (i-1) * 13 + 3, "IT12", xpos, ypos, zpos, |
| 619 | idrotm[(i-1) * 13 + 1102], "ONLY", dsup, 3); |
| 620 | |
| 621 | // --- Place part # 4-5 (see sketch) |
| 622 | |
| 623 | offset1 = -35.0; |
| 624 | dsup[0] = 0.01; |
| b3a22d72 |
625 | dsup[1] = TMath::Sqrt((kxend[3] - kxbeg[3]) * (kxend[3] - kxbeg[3]) + |
| 626 | (kyend[3] - kybeg[3]) * (kyend[3] - kybeg[3])) / 20.; |
| 58005f18 |
627 | dsup[2] = 25.0; |
| b3a22d72 |
628 | xcc = ( kxx[3] + kxx[4]) / 20.; |
| 629 | ycc = ( kyy[3] + kyy[4]) / 20.; |
| 630 | xccc = (kxbeg[3] + kxend[3]) / 20.; |
| 631 | yccc = (kybeg[3] + kyend[3]) / 20.; |
| 632 | if (kxx[3] == kxx[4]) { |
| fe4da5cc |
633 | offset2 = 0.; |
| 634 | } else { |
| b3a22d72 |
635 | r1 = kyy[4] - kyy[3]; |
| 636 | r2 = kxx[4] - kxx[3]; |
| 637 | offset2 = TMath::ATan2(r1, r2) * kraddeg - 90.; |
| 638 | } // end if kxx[3] == kxx[4] |
| 639 | aphi = (kpphi + (i-1) * 36.) * kdegrad; |
| 640 | xzero = krr * TMath::Cos((ktteta + (i-1) * 36.) * kdegrad); |
| 641 | yzero = krr * TMath::Sin((ktteta + (i-1) * 36.) * kdegrad); |
| 58005f18 |
642 | xpos1 = xccc * TMath::Cos(aphi) - yccc * TMath::Sin(aphi) + xzero; |
| 643 | ypos1 = xccc * TMath::Sin(aphi) + yccc * TMath::Cos(aphi) + yzero; |
| b3a22d72 |
644 | xpos = xpos1 * TMath::Cos(kgteta * kdegrad) + |
| 645 | ypos1 * TMath::Sin(kgteta *kdegrad); |
| 646 | ypos = -xpos1 * TMath::Sin(kgteta * kdegrad) + |
| 647 | ypos1 * TMath::Cos(kgteta * kdegrad); |
| 58005f18 |
648 | zpos = 0.0; |
| b3a22d72 |
649 | atheta45 = (i-1) * 36. + offset1 + offset2 - kgteta; |
| 58005f18 |
650 | AliMatrix(idrotm[(i-1) * 13 + 1103], 90., atheta45, 90., |
| 651 | atheta45 + 90., 0., 0.); |
| 652 | gMC->Gsposp("SPIX", (i-1) * 13 + 4, "IT12", xpos, ypos, zpos, |
| 653 | idrotm[(i-1) * 13 + 1103], "ONLY", dsup, 3); |
| 654 | |
| 655 | // --- Place an element of layer #2 |
| 656 | |
| b3a22d72 |
657 | biga = (kyy[4] - kyy[3]) / (kxx[4] - kxx[3]); |
| 658 | bigb = (kxx[4] * kyy[3] - kxx[3] * kyy[4]) / (kxx[4] - kxx[3]) / 10.; |
| fe4da5cc |
659 | coeffa = biga * biga + 1.; |
| 660 | coeffb = biga * bigb - biga * ycc - xcc; |
| 58005f18 |
661 | coeffc = xcc * xcc + ycc * ycc - ycc * 2. * bigb + |
| 662 | bigb * bigb - .014285030400000001; |
| 663 | xcc1 = (-coeffb - TMath::Sqrt(coeffb * coeffb - coeffa * coeffc)) / |
| 664 | coeffa; |
| fe4da5cc |
665 | ycc1 = biga * xcc1 + bigb; |
| 666 | biga1 = -1. / biga; |
| 667 | bigb1 = xcc1 / biga + ycc1; |
| 668 | coeffa = biga1 * biga1 + 1.; |
| 669 | coeffb = biga1 * bigb1 - biga1 * ycc1 - xcc1; |
| 58005f18 |
670 | coeffc = xcc1 * xcc1 + ycc1 * ycc1 - ycc1 * 2. * bigb1 + |
| 671 | bigb1 * bigb1 - (dsup[0] + dbox2[0]) * (dsup[0] + dbox2[0]); |
| 672 | xcc2 = (-coeffb + TMath::Sqrt(coeffb * coeffb - coeffa * coeffc)) / |
| 673 | coeffa; |
| 674 | ycc2 = biga1 * xcc2 + bigb1; |
| 675 | xpos1 = xcc2 * TMath::Cos(aphi) - ycc2 * TMath::Sin(aphi) + xzero; |
| 676 | ypos1 = xcc2 * TMath::Sin(aphi) + ycc2 * TMath::Cos(aphi) + yzero; |
| b3a22d72 |
677 | xpos = xpos1 * TMath::Cos(kgteta * kdegrad) + |
| 678 | ypos1 * TMath::Sin(kgteta *kdegrad); |
| 679 | ypos = -xpos1 * TMath::Sin(kgteta * kdegrad) + |
| 680 | ypos1 * TMath::Cos(kgteta * kdegrad); |
| 58005f18 |
681 | zpos = 0.0; |
| fe4da5cc |
682 | ++jbox2; |
| 58005f18 |
683 | gMC->Gspos("IPV2", jbox2, "IT12", xpos, ypos, zpos, |
| 684 | idrotm[(i-1) * 13 + 1103], "ONLY"); |
| 685 | |
| fe4da5cc |
686 | // --- Place part # 5-6 (see sketch) |
| 687 | |
| 688 | offset1 = -35.; |
| 689 | dsup[0] = .01; |
| b3a22d72 |
690 | dsup[1] = TMath::Sqrt((kxend[4] - kxbeg[4]) * (kxend[4] - kxbeg[4]) + |
| 691 | (kyend[4] - kybeg[4]) * (kyend[4] - kybeg[4])) / 20.; |
| fe4da5cc |
692 | dsup[2] = 25.; |
| b3a22d72 |
693 | xcc = (kxx[4] + kxx[5]) / 20.; |
| 694 | ycc = (kyy[4] + kyy[5]) / 20.; |
| 695 | xccc = (kxbeg[4] + kxend[4]) / 20.; |
| 696 | yccc = (kybeg[4] + kyend[4]) / 20.; |
| 697 | if (kxx[4] == kxx[5]) { |
| fe4da5cc |
698 | offset2 = 0.; |
| 699 | } else { |
| b3a22d72 |
700 | r1 = kyy[5] - kyy[4]; |
| 701 | r2 = kxx[5] - kxx[4]; |
| 702 | offset2 = TMath::ATan2(r1, r2) * kraddeg - 90.; |
| fe4da5cc |
703 | } |
| b3a22d72 |
704 | aphi = (kpphi + (i-1) * 36.) * kdegrad; |
| 705 | xzero = krr * TMath::Cos((ktteta + (i-1) * 36.) * kdegrad); |
| 706 | yzero = krr * TMath::Sin((ktteta + (i-1) * 36.) * kdegrad); |
| 58005f18 |
707 | xpos1 = xccc * TMath::Cos(aphi) - yccc * TMath::Sin(aphi) + xzero; |
| 708 | ypos1 = xccc * TMath::Sin(aphi) + yccc * TMath::Cos(aphi) + yzero; |
| b3a22d72 |
709 | xpos = xpos1 * TMath::Cos(kgteta * kdegrad) + |
| 710 | ypos1 * TMath::Sin(kgteta *kdegrad); |
| 711 | ypos = -xpos1 * TMath::Sin(kgteta * kdegrad) + |
| 712 | ypos1 * TMath::Cos(kgteta * kdegrad); |
| fe4da5cc |
713 | zpos = 0.; |
| b3a22d72 |
714 | atheta56 = (i-1) * 36. + offset1 + offset2 - kgteta; |
| 58005f18 |
715 | AliMatrix(idrotm[(i-1) * 13 + 1104], 90., atheta56, 90., |
| 716 | atheta56 + 90., 0., 0.); |
| 717 | gMC->Gsposp("SPIX", (i-1) * 13 + 5, "IT12", xpos, ypos, zpos, |
| 718 | idrotm[(i-1) * 13 + 1104], "ONLY", dsup, 3); |
| 719 | |
| fe4da5cc |
720 | // --- Place part # 6-7 (see sketch) |
| 721 | |
| 58005f18 |
722 | offset1 = -35.0; |
| 723 | dsup[0] = 0.01; |
| b3a22d72 |
724 | dsup[1] = TMath::Sqrt((kxend[5] - kxbeg[5]) * (kxend[5] - kxbeg[5]) + |
| 725 | (kyend[5] - kybeg[5]) * (kyend[5] - kybeg[5])) / 20.; |
| 58005f18 |
726 | dsup[2] = 25.0; |
| b3a22d72 |
727 | xcc = (kxx[5] + kxx[6]) / 20.; |
| 728 | ycc = (kyy[5] + kyy[6]) / 20.; |
| 729 | xccc = (kxbeg[5] + kxend[5]) / 20.; |
| 730 | yccc = (kybeg[5] + kyend[5]) / 20.; |
| 731 | if (kxx[5] == kxx[6]) { |
| fe4da5cc |
732 | offset2 = 0.; |
| 733 | } else { |
| b3a22d72 |
734 | r1 = kyy[6] - kyy[5]; |
| 735 | r2 = kxx[6] - kxx[5]; |
| 736 | offset2 = TMath::ATan2(r1, r2) * kraddeg - 90.; |
| 737 | } // end if kxx[5] == kxx[6] |
| 738 | aphi = (kpphi + (i-1) * 36.) * kdegrad; |
| 739 | xzero = krr * TMath::Cos((ktteta + (i-1) * 36.) * kdegrad); |
| 740 | yzero = krr * TMath::Sin((ktteta + (i-1) * 36.) * kdegrad); |
| 58005f18 |
741 | xpos1 = xccc * TMath::Cos(aphi) - yccc * TMath::Sin(aphi) + xzero; |
| 742 | ypos1 = xccc * TMath::Sin(aphi) + yccc * TMath::Cos(aphi) + yzero; |
| b3a22d72 |
743 | xpos = xpos1 * TMath::Cos(kgteta * kdegrad) + |
| 744 | ypos1 * TMath::Sin(kgteta *kdegrad); |
| 745 | ypos = -xpos1 * TMath::Sin(kgteta * kdegrad) + |
| 746 | ypos1 * TMath::Cos(kgteta * kdegrad); |
| fe4da5cc |
747 | zpos = 0.; |
| b3a22d72 |
748 | atheta67 = (i-1) * 36. + offset1 + offset2 - kgteta; |
| 58005f18 |
749 | AliMatrix(idrotm[(i-1) * 13 + 1105], 90., atheta67, 90., |
| 750 | atheta67 + 90., 0., 0.); |
| 751 | gMC->Gsposp("SPIX", (i-1) * 13 + 6, "IT12", xpos, ypos, zpos, |
| 752 | idrotm[(i-1) * 13 + 1105], "ONLY", dsup, 3); |
| 753 | |
| fe4da5cc |
754 | // --- Place an element of layer #2 |
| 755 | |
| b3a22d72 |
756 | biga = (kyy[6] - kyy[5]) / (kxx[6] - kxx[5]); |
| 757 | bigb = (kxx[6] * kyy[5] - kxx[5] * kyy[6]) / (kxx[6] - kxx[5]) / 10.; |
| fe4da5cc |
758 | coeffa = biga * biga + 1.; |
| 759 | coeffb = biga * bigb - biga * ycc - xcc; |
| 58005f18 |
760 | coeffc = xcc * xcc + ycc * ycc - ycc * 2. * bigb + |
| 761 | bigb * bigb - .014285030400000001; |
| 762 | xcc1 = (-coeffb - TMath::Sqrt(coeffb * coeffb - coeffa * coeffc)) / |
| 763 | coeffa; |
| fe4da5cc |
764 | ycc1 = biga * xcc1 + bigb; |
| 765 | biga1 = -1. / biga; |
| 766 | bigb1 = xcc1 / biga + ycc1; |
| 767 | coeffa = biga1 * biga1 + 1.; |
| 768 | coeffb = biga1 * bigb1 - biga1 * ycc1 - xcc1; |
| 58005f18 |
769 | coeffc = xcc1 * xcc1 + ycc1 * ycc1 - ycc1 * 2. * bigb1 + |
| 770 | bigb1 * bigb1 - (dsup[0] + dbox2[0]) * (dsup[0] + dbox2[0]); |
| 771 | xcc2 = (-coeffb - TMath::Sqrt(coeffb * coeffb - coeffa * coeffc)) / |
| 772 | coeffa; |
| 773 | ycc2 = biga1 * xcc2 + bigb1; |
| 774 | xpos1 = xcc2 * TMath::Cos(aphi) - ycc2 * TMath::Sin(aphi) + xzero; |
| 775 | ypos1 = xcc2 * TMath::Sin(aphi) + ycc2 * TMath::Cos(aphi) + yzero; |
| b3a22d72 |
776 | xpos = xpos1 * TMath::Cos(kgteta * kdegrad) + |
| 777 | ypos1 * TMath::Sin(kgteta *kdegrad); |
| 778 | ypos = -xpos1 * TMath::Sin(kgteta * kdegrad) + |
| 779 | ypos1 * TMath::Cos(kgteta * kdegrad); |
| 58005f18 |
780 | zpos = 0.0; |
| fe4da5cc |
781 | ++jbox2; |
| 58005f18 |
782 | gMC->Gspos("IPV2", jbox2, "IT12", xpos, ypos, zpos, |
| 783 | idrotm[(i-1) * 13 + 1105], "ONLY"); |
| fe4da5cc |
784 | |
| 785 | // --- Place part # 7-8 (see sketch) |
| 786 | |
| 787 | offset1 = -35.; |
| 788 | dsup[0] = .01; |
| b3a22d72 |
789 | dsup[1] = TMath::Sqrt((kxend[6] - kxbeg[6]) * (kxend[6] - kxbeg[6]) + |
| 790 | (kyend[6] - kybeg[6]) * (kyend[6] - kybeg[6])) / 20.; |
| fe4da5cc |
791 | dsup[2] = 25.; |
| b3a22d72 |
792 | xcc = (kxx[6] + kxx[7]) / 20.; |
| 793 | ycc = (kyy[6] + kyy[7]) / 20.; |
| 794 | xccc = (kxbeg[6] + kxend[6]) / 20.; |
| 795 | yccc = (kybeg[6] + kyend[6]) / 20.; |
| 796 | if (kxx[6] == kxx[7]) { |
| fe4da5cc |
797 | offset2 = 0.; |
| 798 | } else { |
| b3a22d72 |
799 | r1 = kyy[7] - kyy[6]; |
| 800 | r2 = kxx[7] - kxx[6]; |
| 801 | offset2 = TMath::ATan2(r1, r2) * kraddeg - 90.; |
| 58005f18 |
802 | } // end if |
| b3a22d72 |
803 | aphi = (kpphi + (i-1) * 36.) * kdegrad; |
| 804 | xzero = krr * TMath::Cos((ktteta + (i-1) * 36.) * kdegrad); |
| 805 | yzero = krr * TMath::Sin((ktteta + (i-1) * 36.) * kdegrad); |
| 58005f18 |
806 | xpos1 = xccc * TMath::Cos(aphi) - yccc * TMath::Sin(aphi) + xzero; |
| 807 | ypos1 = xccc * TMath::Sin(aphi) + yccc * TMath::Cos(aphi) + yzero; |
| b3a22d72 |
808 | xpos = xpos1 * TMath::Cos(kgteta * kdegrad) + |
| 809 | ypos1 * TMath::Sin(kgteta *kdegrad); |
| 810 | ypos = -xpos1 * TMath::Sin(kgteta * kdegrad) + |
| 811 | ypos1 * TMath::Cos(kgteta * kdegrad); |
| fe4da5cc |
812 | zpos = 0.; |
| b3a22d72 |
813 | atheta78 = (i-1) * 36. + offset1 + offset2 - kgteta; |
| 58005f18 |
814 | AliMatrix(idrotm[(i-1) * 13 + 1106], 90., atheta78, 90., |
| 815 | atheta78 + 90., 0., 0.); |
| 816 | gMC->Gsposp("SPIX", (i-1) * 13 + 7, "IT12", xpos, ypos, zpos, |
| 817 | idrotm[(i-1) * 13 + 1106], "ONLY", dsup, 3); |
| fe4da5cc |
818 | |
| 819 | // --- Place part # 8-9 (see sketch) |
| 820 | |
| 821 | offset1 = -35.; |
| 822 | dsup[0] = .01; |
| b3a22d72 |
823 | dsup[1] = TMath::Sqrt((kxend[7] - kxbeg[7]) * (kxend[7] - kxbeg[7]) + |
| 824 | (kyend[7] - kybeg[7]) * (kyend[7] - kybeg[7])) / 20.; |
| fe4da5cc |
825 | dsup[2] = 25.; |
| b3a22d72 |
826 | xcc = (kxx[7] + kxx[8]) / 20.; |
| 827 | ycc = (kyy[7] + kyy[8]) / 20.; |
| 828 | xccc = (kxbeg[7] + kxend[7]) / 20.; |
| 829 | yccc = (kybeg[7] + kyend[7]) / 20.; |
| 830 | if (kxx[1] == kxx[2]) { |
| fe4da5cc |
831 | offset2 = 0.; |
| 832 | } else { |
| b3a22d72 |
833 | r1 = kyy[8] - kyy[7]; |
| 834 | r2 = kxx[8] - kxx[7]; |
| 835 | offset2 = TMath::ATan2(r1, r2) * kraddeg - 90.; |
| fe4da5cc |
836 | } |
| b3a22d72 |
837 | aphi = (kpphi + (i-1) * 36.) * kdegrad; |
| 838 | xzero = krr * TMath::Cos((ktteta + (i-1) * 36.) * kdegrad); |
| 839 | yzero = krr * TMath::Sin((ktteta + (i-1) * 36.) * kdegrad); |
| 58005f18 |
840 | xpos1 = xccc * TMath::Cos(aphi) - yccc * TMath::Sin(aphi) + xzero; |
| 841 | ypos1 = xccc * TMath::Sin(aphi) + yccc * TMath::Cos(aphi) + yzero; |
| b3a22d72 |
842 | xpos = xpos1 * TMath::Cos(kgteta * kdegrad) + |
| 843 | ypos1 * TMath::Sin(kgteta *kdegrad); |
| 844 | ypos = -xpos1 * TMath::Sin(kgteta * kdegrad) + |
| 845 | ypos1 * TMath::Cos(kgteta * kdegrad); |
| fe4da5cc |
846 | zpos = 0.; |
| b3a22d72 |
847 | atheta89 = (i-1) * 36. + offset1 + offset2 - kgteta; |
| 58005f18 |
848 | AliMatrix(idrotm[(i-1) * 13 + 1107], 90., atheta89, 90., |
| 849 | atheta89 + 90., 0., 0.); |
| 850 | gMC->Gsposp("SPIX", (i-1) * 13 + 8, "IT12", xpos, ypos, zpos, |
| 851 | idrotm[(i-1) * 13 + 1107], "ONLY", dsup, 3); |
| fe4da5cc |
852 | |
| 853 | // --- Place an element of layer #2 |
| 854 | |
| b3a22d72 |
855 | biga = (kyy[8] - kyy[7]) / (kxx[8] - kxx[7]); |
| 856 | bigb = (kxx[8] * kyy[7] - kxx[7] * kyy[8]) / (kxx[8] - kxx[7]) / 10.; |
| fe4da5cc |
857 | coeffa = biga * biga + 1.; |
| 858 | coeffb = biga * bigb - biga * ycc - xcc; |
| 58005f18 |
859 | coeffc = xcc * xcc + ycc * ycc - ycc * 2. * bigb + |
| 860 | bigb * bigb - .014285030400000001; |
| 861 | xcc1 = (-coeffb - TMath::Sqrt(coeffb * coeffb - coeffa * coeffc)) / |
| 862 | coeffa; |
| fe4da5cc |
863 | ycc1 = biga * xcc1 + bigb; |
| 864 | biga1 = -1. / biga; |
| 865 | bigb1 = xcc1 / biga + ycc1; |
| 866 | coeffa = biga1 * biga1 + 1.; |
| 867 | coeffb = biga1 * bigb1 - biga1 * ycc1 - xcc1; |
| 58005f18 |
868 | coeffc = xcc1 * xcc1 + ycc1 * ycc1 - ycc1 * 2. * bigb1 + |
| 869 | bigb1 * bigb1 - (dsup[0] + dbox2[0]) * (dsup[0] + dbox2[0]); |
| 870 | xcc2 = (-coeffb - TMath::Sqrt(coeffb * coeffb - coeffa * coeffc)) / |
| 871 | coeffa; |
| 872 | ycc2 = biga1 * xcc2 + bigb1; |
| 873 | xpos1 = xcc2 * TMath::Cos(aphi) - ycc2 * TMath::Sin(aphi) + xzero; |
| 874 | ypos1 = xcc2 * TMath::Sin(aphi) + ycc2 * TMath::Cos(aphi) + yzero; |
| b3a22d72 |
875 | xpos = xpos1 * TMath::Cos(kgteta * kdegrad) + |
| 876 | ypos1 * TMath::Sin(kgteta *kdegrad); |
| 877 | ypos = -xpos1 * TMath::Sin(kgteta * kdegrad) + |
| 878 | ypos1 * TMath::Cos(kgteta * kdegrad); |
| 58005f18 |
879 | zpos = 0.0; |
| fe4da5cc |
880 | ++jbox2; |
| 58005f18 |
881 | gMC->Gspos("IPV2", jbox2, "IT12", xpos, ypos, zpos, |
| 882 | idrotm[(i-1) * 13 + 1107], "ONLY"); |
| 883 | |
| fe4da5cc |
884 | // --- Place part # 9-10 (see sketch) |
| 885 | |
| 886 | offset1 = -35.; |
| 887 | dsup[0] = .01; |
| b3a22d72 |
888 | dsup[1] = TMath::Sqrt((kxend[8] - kxbeg[8]) * (kxend[8] - kxbeg[8]) + |
| 889 | (kyend[8] - kybeg[8]) * (kyend[8] - kybeg[8])) / 20.; |
| fe4da5cc |
890 | dsup[2] = 25.; |
| b3a22d72 |
891 | xcc = (kxx[8] + kxx[9]) / 20.; |
| 892 | ycc = (kyy[8] + kyy[9]) / 20.; |
| 893 | xccc = (kxbeg[8] + kxend[8]) / 20.; |
| 894 | yccc = (kybeg[8] + kyend[8]) / 20.; |
| 895 | if (kxx[8] == kxx[9]) { |
| fe4da5cc |
896 | offset2 = 0.; |
| 897 | } else { |
| b3a22d72 |
898 | r1 = kyy[9] - kyy[8]; |
| 899 | r2 = kxx[9] - kxx[8]; |
| 900 | offset2 = TMath::ATan2(r1, r2) * kraddeg - 90.; |
| fe4da5cc |
901 | } |
| b3a22d72 |
902 | aphi = (kpphi + (i-1) * 36.) * kdegrad; |
| 903 | xzero = krr * TMath::Cos((ktteta + (i-1) * 36.) * kdegrad); |
| 904 | yzero = krr * TMath::Sin((ktteta + (i-1) * 36.) * kdegrad); |
| fe4da5cc |
905 | xpos1 = xccc * TMath::Cos(aphi) - yccc * TMath::Sin(aphi) + xzero; |
| 906 | ypos1 = xccc * TMath::Sin(aphi) + yccc * TMath::Cos(aphi) + yzero; |
| b3a22d72 |
907 | xpos = xpos1 * TMath::Cos(kgteta * kdegrad) + ypos1 * TMath::Sin(kgteta *kdegrad); |
| 908 | ypos = -xpos1 * TMath::Sin(kgteta * kdegrad) + ypos1 * TMath::Cos(kgteta * kdegrad); |
| fe4da5cc |
909 | zpos = 0.; |
| b3a22d72 |
910 | atheta910 = (i-1) * 36. + offset1 + offset2 - kgteta; |
| fe4da5cc |
911 | AliMatrix(idrotm[(i-1) * 13 + 1108], 90., atheta910, 90., atheta910 + 90., 0., 0.); |
| cfce8870 |
912 | gMC->Gsposp("SPIX", (i-1) * 13 + 9, "IT12", xpos, ypos, zpos, idrotm[(i-1) * 13 + 1108], "ONLY", dsup, 3); |
| fe4da5cc |
913 | |
| 914 | // --- Place part # 10-11 (see sketch) |
| 915 | |
| 916 | offset1 = -35.; |
| 917 | dsup[0] = .01; |
| b3a22d72 |
918 | dsup[1] = TMath::Sqrt((kxend[9] - kxbeg[9]) * (kxend[9] - kxbeg[9]) + (kyend[9] - kybeg[9]) * (kyend[9] - kybeg[9])) / 20.; |
| fe4da5cc |
919 | dsup[2] = 25.; |
| b3a22d72 |
920 | xcc = (kxx[9] + kxx[10]) / 20.; |
| 921 | ycc = (kyy[9] + kyy[10]) / 20.; |
| 922 | xccc = (kxbeg[9] + kxend[9]) / 20.; |
| 923 | yccc = (kybeg[9] + kyend[9]) / 20.; |
| 924 | if (kxx[9] == kxx[10]) { |
| fe4da5cc |
925 | offset2 = 0.; |
| 926 | } else { |
| b3a22d72 |
927 | r1 = kyy[10] - kyy[9]; |
| 928 | r2 = kxx[10] - kxx[9]; |
| 929 | offset2 = TMath::ATan2(r1, r2) * kraddeg - 90.; |
| fe4da5cc |
930 | } |
| b3a22d72 |
931 | aphi = (kpphi + (i-1) * 36.) * kdegrad; |
| 932 | xzero = krr * TMath::Cos((ktteta + (i-1) * 36.) * kdegrad); |
| 933 | yzero = krr * TMath::Sin((ktteta + (i-1) * 36.) * kdegrad); |
| fe4da5cc |
934 | xpos1 = xccc * TMath::Cos(aphi) - yccc * TMath::Sin(aphi) + xzero; |
| 935 | ypos1 = xccc * TMath::Sin(aphi) + yccc * TMath::Cos(aphi) + yzero; |
| b3a22d72 |
936 | xpos = xpos1 * TMath::Cos(kgteta * kdegrad) + ypos1 * TMath::Sin(kgteta *kdegrad); |
| 937 | ypos = -xpos1 * TMath::Sin(kgteta * kdegrad) + ypos1 * TMath::Cos(kgteta * kdegrad); |
| fe4da5cc |
938 | zpos = 0.; |
| b3a22d72 |
939 | atheta1011 = (i-1) * 36. + offset1 + offset2 - kgteta; |
| fe4da5cc |
940 | AliMatrix(idrotm[(i-1) * 13 + 1109], 90., atheta1011, 90.,atheta1011 + 90., 0., 0.); |
| cfce8870 |
941 | gMC->Gsposp("SPIX", (i-1) * 13 + 10, "IT12", xpos, ypos, zpos, idrotm[(i-1) * 13 + 1109], "ONLY", dsup, 3); |
| fe4da5cc |
942 | |
| 943 | // --- Place part # 13-14 (see sketch) |
| 944 | |
| 945 | offset1 = -35.; |
| 946 | dsup[0] = .01; |
| b3a22d72 |
947 | dsup[1] = TMath::Sqrt((kxend[12] - kxbeg[12]) * (kxend[12] - kxbeg[12]) + (kyend[12] - kybeg[12]) * (kyend[12] - kybeg[12])) / 20.; |
| fe4da5cc |
948 | dsup[2] = 25.; |
| b3a22d72 |
949 | xcc = (kxx[12] + kxx[13]) / 20.; |
| 950 | ycc = (kyy[12] + kyy[13]) / 20.; |
| 951 | xccc = (kxbeg[12] + kxend[12]) / 20.; |
| 952 | yccc = (kybeg[12] + kyend[12]) / 20.; |
| 953 | if (kxx[12] == kxx[13]) { |
| fe4da5cc |
954 | offset2 = 0.; |
| 955 | } else { |
| b3a22d72 |
956 | r1 = kyy[12] - kyy[13]; |
| 957 | r2 = kxx[12] - kxx[13]; |
| 958 | offset2 = TMath::ATan2(r1, r2) * kraddeg - 90.; |
| fe4da5cc |
959 | } |
| b3a22d72 |
960 | aphi = (kpphi + (i-1) * 36.) * kdegrad; |
| 961 | xzero = krr * TMath::Cos((ktteta + (i-1) * 36.) * kdegrad); |
| 962 | yzero = krr * TMath::Sin((ktteta + (i-1) * 36.) * kdegrad); |
| fe4da5cc |
963 | xpos1 = xccc * TMath::Cos(aphi) - yccc * TMath::Sin(aphi) + xzero; |
| 964 | ypos1 = xccc * TMath::Sin(aphi) + yccc * TMath::Cos(aphi) + yzero; |
| b3a22d72 |
965 | xpos = xpos1 * TMath::Cos(kgteta * kdegrad) + ypos1 * TMath::Sin(kgteta *kdegrad); |
| 966 | ypos = -xpos1 * TMath::Sin(kgteta * kdegrad) + ypos1 * TMath::Cos(kgteta * kdegrad); |
| fe4da5cc |
967 | zpos = 0.; |
| b3a22d72 |
968 | atheta1314 = (i-1) * 36. + offset1 + offset2 - kgteta; |
| fe4da5cc |
969 | AliMatrix(idrotm[(i-1) * 13 + 1112], 90., atheta1314, 90.,atheta1314 + 90., 0., 0.); |
| cfce8870 |
970 | gMC->Gsposp("SPIX", (i-1) * 13 + 13, "IT12", xpos, ypos, zpos, idrotm[(i-1) * 13 + 1112], "ONLY", dsup, 3); |
| fe4da5cc |
971 | |
| 972 | // --- Place an element of layer #1 |
| 973 | |
| b3a22d72 |
974 | biga = (kyy[13] - kyy[12]) / (kxx[13] - kxx[12]); |
| 975 | bigb = (kxx[13] * kyy[12] - kxx[12] * kyy[13]) / (kxx[13] - kxx[12]) / 10.; |
| fe4da5cc |
976 | coeffa = biga * biga + 1.; |
| 977 | coeffb = biga * bigb - biga * ycc - xcc; |
| 978 | coeffc = xcc * xcc + ycc * ycc - ycc * 2. * bigb + bigb * bigb - .050216328100000006; |
| 979 | xcc1 = (-coeffb + TMath::Sqrt(coeffb * coeffb - coeffa * coeffc)) / coeffa; |
| 980 | ycc1 = biga * xcc1 + bigb; |
| 981 | biga1 = -1. / biga; |
| 982 | bigb1 = xcc1 / biga + ycc1; |
| 983 | coeffa = biga1 * biga1 + 1.; |
| 984 | coeffb = biga1 * bigb1 - biga1 * ycc1 - xcc1; |
| 985 | coeffc = xcc1 * xcc1 + ycc1 * ycc1 - ycc1 * 2. * bigb1 + bigb1 * bigb1 - (dsup[0] + dbox1[0]) * (dsup[0] + dbox1[0]); |
| 986 | xcc2 = (-coeffb + TMath::Sqrt(coeffb * coeffb - coeffa * coeffc)) / coeffa; |
| 987 | ycc2 = biga1 * xcc2 + bigb1; |
| 988 | xpos1 = xcc2 * TMath::Cos(aphi) - ycc2 * TMath::Sin(aphi) + xzero; |
| 989 | ypos1 = xcc2 * TMath::Sin(aphi) + ycc2 * TMath::Cos(aphi) + yzero; |
| b3a22d72 |
990 | xpos = xpos1 * TMath::Cos(kgteta * kdegrad) + ypos1 * TMath::Sin(kgteta *kdegrad); |
| 991 | ypos = -xpos1 * TMath::Sin(kgteta * kdegrad) + ypos1 * TMath::Cos(kgteta * kdegrad); |
| fe4da5cc |
992 | zpos = 0.; |
| 993 | ++jbox1; |
| cfce8870 |
994 | gMC->Gspos("IPV1", jbox1, "IT12", xpos, ypos, zpos, idrotm[(i-1) * 13 + 1112], "ONLY"); |
| fe4da5cc |
995 | |
| 996 | // --- Place part # 12-13 (see sketch) |
| 997 | |
| 998 | offset1 = -35.; |
| 999 | dsup[0] = .01; |
| b3a22d72 |
1000 | dsup[1] = TMath::Sqrt((kxend[11] - kxbeg[11]) * (kxend[11] - kxbeg[11]) + (kyend[11] - kybeg[11]) * (kyend[11] - kybeg[11])) / 20.; |
| fe4da5cc |
1001 | dsup[2] = 25.; |
| b3a22d72 |
1002 | xcc = (kxx[11] + kxx[12]) / 20.; |
| 1003 | ycc = (kyy[11] + kyy[12]) / 20.; |
| 1004 | xccc = (kxbeg[11] + kxend[11]) / 20.; |
| 1005 | yccc = (kybeg[11] + kyend[11]) / 20.; |
| 1006 | if (kxx[11] == kxx[12]) { |
| fe4da5cc |
1007 | offset2 = 0.; |
| 1008 | } else { |
| b3a22d72 |
1009 | r1 = kyy[12] - kyy[11]; |
| 1010 | r2 = kxx[12] - kxx[11]; |
| 1011 | offset2 = TMath::ATan2(r1, r2) * kraddeg - 90.; |
| fe4da5cc |
1012 | } |
| b3a22d72 |
1013 | aphi = (kpphi + (i-1) * 36.) * kdegrad; |
| 1014 | xzero = krr * TMath::Cos((ktteta + (i-1) * 36.) * kdegrad); |
| 1015 | yzero = krr * TMath::Sin((ktteta + (i-1) * 36.) * kdegrad); |
| fe4da5cc |
1016 | xpos1 = xccc * TMath::Cos(aphi) - yccc * TMath::Sin(aphi) + xzero; |
| 1017 | ypos1 = xccc * TMath::Sin(aphi) + yccc * TMath::Cos(aphi) + yzero; |
| b3a22d72 |
1018 | xpos = xpos1 * TMath::Cos(kgteta * kdegrad) + ypos1 * TMath::Sin(kgteta *kdegrad); |
| 1019 | ypos = -xpos1 * TMath::Sin(kgteta * kdegrad) + ypos1 * TMath::Cos(kgteta * kdegrad); |
| fe4da5cc |
1020 | zpos = 0.; |
| b3a22d72 |
1021 | atheta1213 = (i-1) * 36. + offset1 + offset2 - kgteta; |
| fe4da5cc |
1022 | AliMatrix(idrotm[(i-1) * 13 + 1111], 90., atheta1213, 90.,atheta1213 + 90., 0., 0.); |
| cfce8870 |
1023 | gMC->Gsposp("SPIX", (i-1) * 13 + 12, "IT12", xpos, ypos, zpos, idrotm[(i-1) * 13 + 1111], "ONLY", dsup, 3); |
| fe4da5cc |
1024 | |
| 1025 | // --- Place part # 11-12 (see sketch) |
| 1026 | |
| 1027 | offset1 = -35.; |
| 1028 | dsup[0] = .01; |
| b3a22d72 |
1029 | dsup[1] = TMath::Sqrt((kxend[10] - kxbeg[10]) * (kxend[10] - kxbeg[10]) + (kyend[10] - kybeg[10]) * (kyend[10] - kybeg[10])) / 20.; |
| fe4da5cc |
1030 | dsup[2] = 25.; |
| b3a22d72 |
1031 | xcc = (kxx[10] + kxx[11]) / 20.; |
| 1032 | ycc = (kyy[10] + kyy[11]) / 20.; |
| 1033 | xccc = (kxbeg[10] + kxend[10]) / 20.; |
| 1034 | yccc = (kybeg[10] + kyend[10]) / 20.; |
| 1035 | if (kxx[10] == kxx[11]) { |
| fe4da5cc |
1036 | offset2 = 0.; |
| 1037 | } else { |
| b3a22d72 |
1038 | r1 = kyy[11] - kyy[10]; |
| 1039 | r2 = kxx[11] - kxx[10]; |
| 1040 | offset2 = TMath::ATan2(r1, r2) * kraddeg - 90.; |
| fe4da5cc |
1041 | } |
| b3a22d72 |
1042 | aphi = (kpphi + (i-1) * 36.) * kdegrad; |
| 1043 | xzero = krr * TMath::Cos((ktteta + (i-1) * 36.) * kdegrad); |
| 1044 | yzero = krr * TMath::Sin((ktteta + (i-1) * 36.) * kdegrad); |
| fe4da5cc |
1045 | xpos1 = xccc * TMath::Cos(aphi) - yccc * TMath::Sin(aphi) + xzero; |
| 1046 | ypos1 = xccc * TMath::Sin(aphi) + yccc * TMath::Cos(aphi) + yzero; |
| b3a22d72 |
1047 | xpos = xpos1 * TMath::Cos(kgteta * kdegrad) + ypos1 * TMath::Sin(kgteta *kdegrad); |
| 1048 | ypos = -xpos1 * TMath::Sin(kgteta * kdegrad) + ypos1 * TMath::Cos(kgteta * kdegrad); |
| fe4da5cc |
1049 | zpos = 0.; |
| b3a22d72 |
1050 | atheta1112 = (i-1) * 36. + offset1 + offset2 - kgteta; |
| fe4da5cc |
1051 | AliMatrix(idrotm[(i-1) * 13 + 1110], 270., atheta1112, 90., atheta1112 + 270., 0., 0.); |
| cfce8870 |
1052 | gMC->Gsposp("SPIX", (i-1) * 13 + 11, "IT12", xpos, ypos, zpos, idrotm[(i-1) * 13 + 1110], "ONLY", dsup, 3); |
| fe4da5cc |
1053 | |
| 1054 | // --- Place an element of layer #1 |
| 1055 | |
| b3a22d72 |
1056 | biga = (kyy[11] - kyy[10]) / (kxx[11] - kxx[10]); |
| 1057 | bigb = (kxx[11] * kyy[10] - kxx[10] * kyy[11]) / (kxx[11] - kxx[10]) / 10.; |
| fe4da5cc |
1058 | coeffa = biga * biga + 1.; |
| 1059 | coeffb = biga * bigb - biga * ycc - xcc; |
| 1060 | coeffc = xcc * xcc + ycc * ycc - ycc * 2. * bigb + bigb * bigb - .0035712576000000002; |
| 1061 | xcc1 = (-coeffb + TMath::Sqrt(coeffb * coeffb - coeffa * coeffc)) / coeffa; |
| 1062 | ycc1 = biga * xcc1 + bigb; |
| 1063 | biga1 = -1. / biga; |
| 1064 | bigb1 = xcc1 / biga + ycc1; |
| 1065 | coeffa = biga1 * biga1 + 1.; |
| 1066 | coeffb = biga1 * bigb1 - biga1 * ycc1 - xcc1; |
| 1067 | coeffc = xcc1 * xcc1 + ycc1 * ycc1 - ycc1 * 2. * bigb1 + bigb1 * bigb1 - (dsup[0] + dbox1[0]) * (dsup[0] + dbox1[0]); |
| 1068 | xcc2 = (-coeffb + TMath::Sqrt(coeffb * coeffb - coeffa * coeffc)) / coeffa; |
| 1069 | ycc2 = biga1 * xcc2 + bigb1; |
| 1070 | xpos1 = xcc2 * TMath::Cos(aphi) - ycc2 * TMath::Sin(aphi) + xzero; |
| 1071 | ypos1 = xcc2 * TMath::Sin(aphi) + ycc2 * TMath::Cos(aphi) + yzero; |
| b3a22d72 |
1072 | xpos = xpos1 * TMath::Cos(kgteta * kdegrad) + ypos1 * TMath::Sin(kgteta *kdegrad); |
| 1073 | ypos = -xpos1 * TMath::Sin(kgteta * kdegrad) + ypos1 * TMath::Cos(kgteta * kdegrad); |
| fe4da5cc |
1074 | zpos = 0.; |
| 1075 | ++jbox1; |
| cfce8870 |
1076 | gMC->Gspos("IPV1", jbox1, "IT12", xpos, ypos, zpos, idrotm[(i-1) * 13 + 1110], "ONLY"); |
| fe4da5cc |
1077 | |
| 1078 | // --- Place arc # 13 (between part 1-2 and part 2-3) (see sketch) |
| 1079 | |
| b3a22d72 |
1080 | darc[0] = krarc[12] / 10. - .02; |
| 1081 | darc[1] = krarc[12] / 10.; |
| fe4da5cc |
1082 | darc[2] = 25.; |
| 1083 | darc[3] = atheta12 - (i-1) * 36.; |
| 1084 | darc[4] = atheta23 - (i-1) * 36.; |
| b3a22d72 |
1085 | xcc = kxarc[12] / 10.; |
| 1086 | ycc = kyarc[12] / 10.; |
| 1087 | aphi = (kpphi + (i-1) * 36.) * kdegrad; |
| 1088 | xzero = krr * TMath::Cos((ktteta + (i-1) * 36.) * kdegrad); |
| 1089 | yzero = krr * TMath::Sin((ktteta + (i-1) * 36.) * kdegrad); |
| fe4da5cc |
1090 | xpos1 = xcc * TMath::Cos(aphi) - ycc * TMath::Sin(aphi) + xzero; |
| 1091 | ypos1 = xcc * TMath::Sin(aphi) + ycc * TMath::Cos(aphi) + yzero; |
| b3a22d72 |
1092 | xpos = xpos1 * TMath::Cos(kgteta * kdegrad) + ypos1 * TMath::Sin(kgteta *kdegrad); |
| 1093 | ypos = -xpos1 * TMath::Sin(kgteta * kdegrad) + ypos1 * TMath::Cos(kgteta * kdegrad); |
| fe4da5cc |
1094 | zpos = 0.; |
| cfce8870 |
1095 | gMC->Gsposp("SARC", (i-1) * 13 + 13, "IT12", xpos, ypos, zpos, idrotm[(i-1) * 13 + 1112], "ONLY", darc, 5); |
| fe4da5cc |
1096 | |
| 1097 | // --- Place arc # 12 (between part 2-3 and part 3-4) (see sketch) |
| 1098 | |
| b3a22d72 |
1099 | darc[0] = krarc[11] / 10. - .02; |
| 1100 | darc[1] = krarc[11] / 10.; |
| fe4da5cc |
1101 | darc[2] = 25.; |
| 1102 | darc[3] = atheta23 + 90. - (i-1) * 36.; |
| 1103 | darc[4] = atheta34 + 90. - (i-1) * 36.; |
| b3a22d72 |
1104 | xcc = kxarc[11] / 10.; |
| 1105 | ycc = kyarc[11] / 10.; |
| 1106 | aphi = (kpphi + (i-1) * 36.) * kdegrad; |
| 1107 | xzero = krr * TMath::Cos((ktteta + (i-1) * 36.) * kdegrad); |
| 1108 | yzero = krr * TMath::Sin((ktteta + (i-1) * 36.) * kdegrad); |
| fe4da5cc |
1109 | xpos1 = xcc * TMath::Cos(aphi) - ycc * TMath::Sin(aphi) + xzero; |
| 1110 | ypos1 = xcc * TMath::Sin(aphi) + ycc * TMath::Cos(aphi) + yzero; |
| b3a22d72 |
1111 | xpos = xpos1 * TMath::Cos(kgteta * kdegrad) + ypos1 * TMath::Sin(kgteta *kdegrad); |
| 1112 | ypos = -xpos1 * TMath::Sin(kgteta * kdegrad) + ypos1 * TMath::Cos(kgteta * kdegrad); |
| fe4da5cc |
1113 | zpos = 0.; |
| cfce8870 |
1114 | gMC->Gsposp("SARC", (i-1) * 13 + 12, "IT12", xpos, ypos, zpos, idrotm[(i-1) * 13 + 1111], "ONLY", darc, 5); |
| fe4da5cc |
1115 | |
| 1116 | // --- Place arc # 11 (between part 3-4 and part 4-5) (see sketch) |
| 1117 | |
| b3a22d72 |
1118 | darc[0] = krarc[10] / 10. - .02; |
| 1119 | darc[1] = krarc[10] / 10.; |
| fe4da5cc |
1120 | darc[2] = 25.; |
| 1121 | darc[3] = atheta45 + 180. - (i-1) * 36.; |
| 1122 | darc[4] = atheta34 + 180. - (i-1) * 36.; |
| b3a22d72 |
1123 | xcc = kxarc[10] / 10.; |
| 1124 | ycc = kyarc[10] / 10.; |
| 1125 | aphi = (kpphi + (i-1) * 36.) * kdegrad; |
| 1126 | xzero = krr * TMath::Cos((ktteta + (i-1) * 36.) * kdegrad); |
| 1127 | yzero = krr * TMath::Sin((ktteta + (i-1) * 36.) * kdegrad); |
| fe4da5cc |
1128 | xpos1 = xcc * TMath::Cos(aphi) - ycc * TMath::Sin(aphi) + xzero; |
| 1129 | ypos1 = xcc * TMath::Sin(aphi) + ycc * TMath::Cos(aphi) + yzero; |
| b3a22d72 |
1130 | xpos = xpos1 * TMath::Cos(kgteta * kdegrad) + ypos1 * TMath::Sin(kgteta *kdegrad); |
| 1131 | ypos = -xpos1 * TMath::Sin(kgteta * kdegrad) + ypos1 * TMath::Cos(kgteta * kdegrad); |
| fe4da5cc |
1132 | zpos = 0.; |
| cfce8870 |
1133 | gMC->Gsposp("SARC", (i-1) * 13 + 11, "IT12", xpos, ypos, zpos, idrotm[(i-1) * 13 + 1110], "ONLY", darc, 5); |
| fe4da5cc |
1134 | |
| 1135 | // --- Place arc # 10 (between part 4-5 and part 5-6) (see sketch) |
| 1136 | |
| b3a22d72 |
1137 | darc[0] = krarc[9] / 10. - .02; |
| 1138 | darc[1] = krarc[9] / 10.; |
| fe4da5cc |
1139 | darc[2] = 25.; |
| 1140 | darc[3] = atheta45 - 90. - (i-1) * 36.; |
| 1141 | darc[4] = atheta56 - 90. - (i-1) * 36.; |
| b3a22d72 |
1142 | xcc = kxarc[9] / 10.; |
| 1143 | ycc = kyarc[9] / 10.; |
| 1144 | aphi = (kpphi + (i-1) * 36.) * kdegrad; |
| 1145 | xzero = krr * TMath::Cos((ktteta + (i-1) * 36.) * kdegrad); |
| 1146 | yzero = krr * TMath::Sin((ktteta + (i-1) * 36.) * kdegrad); |
| fe4da5cc |
1147 | xpos1 = xcc * TMath::Cos(aphi) - ycc * TMath::Sin(aphi) + xzero; |
| 1148 | ypos1 = xcc * TMath::Sin(aphi) + ycc * TMath::Cos(aphi) + yzero; |
| b3a22d72 |
1149 | xpos = xpos1 * TMath::Cos(kgteta * kdegrad) + ypos1 * TMath::Sin(kgteta *kdegrad); |
| 1150 | ypos = -xpos1 * TMath::Sin(kgteta * kdegrad) + ypos1 * TMath::Cos(kgteta * kdegrad); |
| fe4da5cc |
1151 | zpos = 0.; |
| cfce8870 |
1152 | gMC->Gsposp("SARC", (i-1) * 13 + 10, "IT12", xpos, ypos, zpos, idrotm[(i-1) * 13 + 1109], "ONLY", darc, 5); |
| fe4da5cc |
1153 | |
| 1154 | // --- Place arc # 9 (between part 5-6 and part) (see sketch) |
| 1155 | |
| b3a22d72 |
1156 | darc[0] = krarc[8] / 10. - .02; |
| 1157 | darc[1] = krarc[8] / 10.; |
| fe4da5cc |
1158 | darc[2] = 25.; |
| 1159 | darc[3] = atheta67 + 45. - (i-1) * 36.; |
| 1160 | darc[4] = atheta56 + 45. - (i-1) * 36.; |
| b3a22d72 |
1161 | xcc = kxarc[8] / 10.; |
| 1162 | ycc = kyarc[8] / 10.; |
| 1163 | aphi = (kpphi + (i-1) * 36.) * kdegrad; |
| 1164 | xzero = krr * TMath::Cos((ktteta + (i-1) * 36.) * kdegrad); |
| 1165 | yzero = krr * TMath::Sin((ktteta + (i-1) * 36.) * kdegrad); |
| fe4da5cc |
1166 | xpos1 = xcc * TMath::Cos(aphi) - ycc * TMath::Sin(aphi) + xzero; |
| 1167 | ypos1 = xcc * TMath::Sin(aphi) + ycc * TMath::Cos(aphi) + yzero; |
| b3a22d72 |
1168 | xpos = xpos1 * TMath::Cos(kgteta * kdegrad) + ypos1 * TMath::Sin(kgteta *kdegrad); |
| 1169 | ypos = -xpos1 * TMath::Sin(kgteta * kdegrad) + ypos1 * TMath::Cos(kgteta * kdegrad); |
| fe4da5cc |
1170 | zpos = 0.; |
| cfce8870 |
1171 | gMC->Gsposp("SARC", (i-1) * 13 + 9, "IT12", xpos, ypos, zpos, idrotm[(i-1) * 13 + 1108], "ONLY", darc, 5); |
| fe4da5cc |
1172 | |
| 1173 | // --- Place arc # 8 (between part 6-7 and part 7-8) (see sketch) |
| 1174 | |
| b3a22d72 |
1175 | darc[0] = krarc[7] / 10. - .02; |
| 1176 | darc[1] = krarc[7] / 10.; |
| fe4da5cc |
1177 | darc[2] = 25.; |
| 1178 | darc[3] = atheta67 - (i-1) * 36.; |
| 1179 | darc[4] = atheta78 - (i-1) * 36.; |
| b3a22d72 |
1180 | xcc = kxarc[7] / 10.; |
| 1181 | ycc = kyarc[7] / 10.; |
| 1182 | aphi = (kpphi + (i-1) * 36.) * kdegrad; |
| 1183 | xzero = krr * TMath::Cos((ktteta + (i-1) * 36.) * kdegrad); |
| 1184 | yzero = krr * TMath::Sin((ktteta + (i-1) * 36.) * kdegrad); |
| fe4da5cc |
1185 | xpos1 = xcc * TMath::Cos(aphi) - ycc * TMath::Sin(aphi) + xzero; |
| 1186 | ypos1 = xcc * TMath::Sin(aphi) + ycc * TMath::Cos(aphi) + yzero; |
| b3a22d72 |
1187 | xpos = xpos1 * TMath::Cos(kgteta * kdegrad) + ypos1 * TMath::Sin(kgteta *kdegrad); |
| 1188 | ypos = -xpos1 * TMath::Sin(kgteta * kdegrad) + ypos1 * TMath::Cos(kgteta * kdegrad); |
| fe4da5cc |
1189 | zpos = 0.; |
| cfce8870 |
1190 | gMC->Gsposp("SARC", (i-1) * 13 + 8, "IT12", xpos, ypos, zpos, idrotm[(i-1) * 13 + 1107], "ONLY", darc, 5); |
| fe4da5cc |
1191 | |
| 1192 | // --- Place arc # 7 (between part 7-8 and part 8-9) (see sketch) |
| 1193 | |
| b3a22d72 |
1194 | darc[0] = krarc[6] / 10. - .02; |
| 1195 | darc[1] = krarc[6] / 10.; |
| fe4da5cc |
1196 | darc[2] = 25.; |
| 1197 | darc[3] = atheta89 + 45. - (i-1) * 36.; |
| 1198 | darc[4] = atheta78 + 45. - (i-1) * 36.; |
| b3a22d72 |
1199 | xcc = kxarc[6] / 10.; |
| 1200 | ycc = kyarc[6] / 10.; |
| 1201 | aphi = (kpphi + (i-1) * 36.) * kdegrad; |
| 1202 | xzero = krr * TMath::Cos((ktteta + (i-1) * 36.) * kdegrad); |
| 1203 | yzero = krr * TMath::Sin((ktteta + (i-1) * 36.) * kdegrad); |
| fe4da5cc |
1204 | xpos1 = xcc * TMath::Cos(aphi) - ycc * TMath::Sin(aphi) + xzero; |
| 1205 | ypos1 = xcc * TMath::Sin(aphi) + ycc * TMath::Cos(aphi) + yzero; |
| b3a22d72 |
1206 | xpos = xpos1 * TMath::Cos(kgteta * kdegrad) + ypos1 * TMath::Sin(kgteta *kdegrad); |
| 1207 | ypos = -xpos1 * TMath::Sin(kgteta * kdegrad) + ypos1 * TMath::Cos(kgteta * kdegrad); |
| fe4da5cc |
1208 | zpos = 0.; |
| cfce8870 |
1209 | gMC->Gsposp("SARC", (i-1) * 13 + 7, "IT12", xpos, ypos, zpos, idrotm[(i-1) * 13 + 1106], "ONLY", darc, 5); |
| fe4da5cc |
1210 | |
| 1211 | // --- Place arc # 6 (between part 8-9 and part 9-10) (see sketch) |
| 1212 | |
| b3a22d72 |
1213 | darc[0] = krarc[5] / 10. - .02; |
| 1214 | darc[1] = krarc[5] / 10.; |
| fe4da5cc |
1215 | darc[2] = 25.; |
| 1216 | darc[3] = atheta89 + 45. - (i-1) * 36.; |
| 1217 | darc[4] = atheta910 + 45. - (i-1) * 36.; |
| b3a22d72 |
1218 | xcc = kxarc[5] / 10.; |
| 1219 | ycc = kyarc[5] / 10.; |
| 1220 | aphi = (kpphi + (i-1) * 36.) * kdegrad; |
| 1221 | xzero = krr * TMath::Cos((ktteta + (i-1) * 36.) * kdegrad); |
| 1222 | yzero = krr * TMath::Sin((ktteta + (i-1) * 36.) * kdegrad); |
| fe4da5cc |
1223 | xpos1 = xcc * TMath::Cos(aphi) - ycc * TMath::Sin(aphi) + xzero; |
| 1224 | ypos1 = xcc * TMath::Sin(aphi) + ycc * TMath::Cos(aphi) + yzero; |
| b3a22d72 |
1225 | xpos = xpos1 * TMath::Cos(kgteta * kdegrad) + ypos1 * TMath::Sin(kgteta *kdegrad); |
| 1226 | ypos = -xpos1 * TMath::Sin(kgteta * kdegrad) + ypos1 * TMath::Cos(kgteta * kdegrad); |
| fe4da5cc |
1227 | zpos = 0.; |
| cfce8870 |
1228 | gMC->Gsposp("SARC", (i-1) * 13 + 6, "IT12", xpos, ypos, zpos, idrotm[(i-1) * 13 + 1105], "ONLY", darc, 5); |
| fe4da5cc |
1229 | |
| 1230 | // --- Place arc # 5 (between part 9-10 and part 10-11) |
| 1231 | // (see sketch) |
| 1232 | |
| b3a22d72 |
1233 | darc[0] = krarc[4] / 10. - .02; |
| 1234 | darc[1] = krarc[4] / 10.; |
| fe4da5cc |
1235 | darc[2] = 25.; |
| 1236 | darc[3] = atheta1011 + 45. - (i-1) * 36.; |
| 1237 | darc[4] = atheta910 + 45. - (i-1) * 36.; |
| b3a22d72 |
1238 | xcc = kxarc[4] / 10.; |
| 1239 | ycc = kyarc[4] / 10.; |
| 1240 | aphi = (kpphi + (i-1) * 36.) * kdegrad; |
| 1241 | xzero = krr * TMath::Cos((ktteta + (i-1) * 36.) * kdegrad); |
| 1242 | yzero = krr * TMath::Sin((ktteta + (i-1) * 36.) * kdegrad); |
| fe4da5cc |
1243 | xpos1 = xcc * TMath::Cos(aphi) - ycc * TMath::Sin(aphi) + xzero; |
| 1244 | ypos1 = xcc * TMath::Sin(aphi) + ycc * TMath::Cos(aphi) + yzero; |
| b3a22d72 |
1245 | xpos = xpos1 * TMath::Cos(kgteta * kdegrad) + ypos1 * TMath::Sin(kgteta *kdegrad); |
| 1246 | ypos = -xpos1 * TMath::Sin(kgteta * kdegrad) + ypos1 * TMath::Cos(kgteta * kdegrad); |
| fe4da5cc |
1247 | zpos = 0.; |
| cfce8870 |
1248 | gMC->Gsposp("SARC", (i-1) * 13 + 5, "IT12", xpos, ypos, zpos, idrotm[(i-1) * 13 + 1104], "ONLY", darc, 5); |
| fe4da5cc |
1249 | |
| 1250 | // --- Place arc # 4 (between part 10-11 and part 11-12) |
| 1251 | // (see sketch) |
| 1252 | |
| b3a22d72 |
1253 | darc[0] = krarc[3] / 10. - .02; |
| 1254 | darc[1] = krarc[3] / 10.; |
| fe4da5cc |
1255 | darc[2] = 25.; |
| 1256 | darc[3] = atheta1112 - 45. - (i-1) * 36.; |
| 1257 | darc[4] = atheta1011 - 225. - (i-1) * 36.; |
| b3a22d72 |
1258 | xcc = kxarc[3] / 10.; |
| 1259 | ycc = kyarc[3] / 10.; |
| 1260 | aphi = (kpphi + (i-1) * 36.) * kdegrad; |
| 1261 | xzero = krr * TMath::Cos((ktteta + (i-1) * 36.) * kdegrad); |
| 1262 | yzero = krr * TMath::Sin((ktteta + (i-1) * 36.) * kdegrad); |
| fe4da5cc |
1263 | xpos1 = xcc * TMath::Cos(aphi) - ycc * TMath::Sin(aphi) + xzero; |
| 1264 | ypos1 = xcc * TMath::Sin(aphi) + ycc * TMath::Cos(aphi) + yzero; |
| b3a22d72 |
1265 | xpos = xpos1 * TMath::Cos(kgteta * kdegrad) + ypos1 * TMath::Sin(kgteta *kdegrad); |
| 1266 | ypos = -xpos1 * TMath::Sin(kgteta * kdegrad) + ypos1 * TMath::Cos(kgteta * kdegrad); |
| fe4da5cc |
1267 | zpos = 0.; |
| cfce8870 |
1268 | gMC->Gsposp("SARC", (i-1) * 13 + 4, "IT12", xpos, ypos, zpos, idrotm[(i-1) * 13 + 1103], "ONLY", darc, 5); |
| fe4da5cc |
1269 | |
| 1270 | // --- Place arc # 3 (between part 11-12 and part 12-13) |
| 1271 | // (see sketch) |
| 1272 | |
| b3a22d72 |
1273 | darc[0] = krarc[2] / 10. - .02; |
| 1274 | darc[1] = krarc[2] / 10.; |
| fe4da5cc |
1275 | darc[2] = 25.; |
| 1276 | darc[3] = atheta1112 - 90. - (i-1) * 36.; |
| 1277 | darc[4] = atheta1213 - 90. - (i-1) * 36.; |
| b3a22d72 |
1278 | xcc = kxarc[2] / 10.; |
| 1279 | ycc = kyarc[2] / 10.; |
| 1280 | aphi = (kpphi + (i-1) * 36.) * kdegrad; |
| 1281 | xzero = krr * TMath::Cos((ktteta + (i-1) * 36.) * kdegrad); |
| 1282 | yzero = krr * TMath::Sin((ktteta + (i-1) * 36.) * kdegrad); |
| fe4da5cc |
1283 | xpos1 = xcc * TMath::Cos(aphi) - ycc * TMath::Sin(aphi) + xzero; |
| 1284 | ypos1 = xcc * TMath::Sin(aphi) + ycc * TMath::Cos(aphi) + yzero; |
| b3a22d72 |
1285 | xpos = xpos1 * TMath::Cos(kgteta * kdegrad) + ypos1 * TMath::Sin(kgteta *kdegrad); |
| 1286 | ypos = -xpos1 * TMath::Sin(kgteta * kdegrad) + ypos1 * TMath::Cos(kgteta * kdegrad); |
| fe4da5cc |
1287 | zpos = 0.; |
| cfce8870 |
1288 | gMC->Gsposp("SARC", (i-1) * 13 + 3, "IT12", xpos, ypos, zpos, idrotm[(i-1) * 13 + 1102], "ONLY", darc, 5); |
| fe4da5cc |
1289 | |
| 1290 | // --- Place arc # 2 (between part 12-13 and part 13-14) |
| 1291 | // (see sketch) |
| 1292 | |
| b3a22d72 |
1293 | darc[0] = krarc[1] / 10. - .02; |
| 1294 | darc[1] = krarc[1] / 10.; |
| fe4da5cc |
1295 | darc[2] = 25.; |
| 1296 | darc[3] = atheta1213 + 135. - (i-1) * 36.; |
| 1297 | darc[4] = atheta1314 + 165. - (i-1) * 36.; |
| b3a22d72 |
1298 | xcc = kxarc[1] / 10.; |
| 1299 | ycc = kyarc[1] / 10.; |
| 1300 | aphi = (kpphi + (i-1) * 36.) * kdegrad; |
| 1301 | xzero = krr * TMath::Cos((ktteta + (i-1) * 36.) * kdegrad); |
| 1302 | yzero = krr * TMath::Sin((ktteta + (i-1) * 36.) * kdegrad); |
| fe4da5cc |
1303 | xpos1 = xcc * TMath::Cos(aphi) - ycc * TMath::Sin(aphi) + xzero; |
| 1304 | ypos1 = xcc * TMath::Sin(aphi) + ycc * TMath::Cos(aphi) + yzero; |
| b3a22d72 |
1305 | xpos = xpos1 * TMath::Cos(kgteta * kdegrad) + ypos1 * TMath::Sin(kgteta *kdegrad); |
| 1306 | ypos = -xpos1 * TMath::Sin(kgteta * kdegrad) + ypos1 * TMath::Cos(kgteta * kdegrad); |
| fe4da5cc |
1307 | zpos = 0.; |
| cfce8870 |
1308 | gMC->Gsposp("SARC", (i-1) * 13 + 2, "IT12", xpos, ypos, zpos, idrotm[(i-1) * 13 + 1101], "ONLY", darc, 5); |
| fe4da5cc |
1309 | |
| 1310 | // --- Place arc # 1 (between part 13-14 and part 1-2) |
| 1311 | // (see sketch) |
| 1312 | |
| b3a22d72 |
1313 | darc[0] = krarc[0] / 10. - .02; |
| 1314 | darc[1] = krarc[0] / 10.; |
| fe4da5cc |
1315 | darc[2] = 25.; |
| 1316 | darc[3] = atheta12 + 45. - (i-1) * 36.; |
| 1317 | darc[4] = atheta1314 - (i-1) * 36.; |
| b3a22d72 |
1318 | xcc = kxarc[0] / 10.; |
| 1319 | ycc = kyarc[0] / 10.; |
| 1320 | aphi = (kpphi + (i-1) * 36.) * kdegrad; |
| 1321 | xzero = krr * TMath::Cos((ktteta + (i-1) * 36.) * kdegrad); |
| 1322 | yzero = krr * TMath::Sin((ktteta + (i-1) * 36.) * kdegrad); |
| fe4da5cc |
1323 | xpos1 = xcc * TMath::Cos(aphi) - ycc * TMath::Sin(aphi) + xzero; |
| 1324 | ypos1 = xcc * TMath::Sin(aphi) + ycc * TMath::Cos(aphi) + yzero; |
| b3a22d72 |
1325 | xpos = xpos1 * TMath::Cos(kgteta * kdegrad) + ypos1 * TMath::Sin(kgteta *kdegrad); |
| 1326 | ypos = -xpos1 * TMath::Sin(kgteta * kdegrad) + ypos1 * TMath::Cos(kgteta * kdegrad); |
| fe4da5cc |
1327 | zpos = 0.; |
| cfce8870 |
1328 | gMC->Gsposp("SARC", (i-1) * 13 + 1, "IT12", xpos, ypos, zpos, idrotm[(i-1) * 13 + 1100], "ONLY", darc, 5); |
| fe4da5cc |
1329 | |
| 1330 | } |
| 1331 | //************************************************************************ |
| 1332 | //* * |
| 1333 | //* D R I F T S * |
| 1334 | //* =========== * |
| 1335 | //* * |
| 1336 | //************************************************************************ |
| 1337 | |
| 1338 | // --- Define a ghost volume containing the Silicon Drift Detectors |
| 1339 | // (layer #3 and #4) and fill it with air or vacuum |
| 1340 | |
| 1341 | xxm = (49.999-3.)/(70.-25.); |
| 1342 | dgh[0] = 0; |
| 1343 | dgh[1] = 360; |
| 1344 | dgh[2] = 4; |
| 1345 | dgh[3] = -25.-(9.-3.01)/xxm-(9.01-9.)/xxm-(27.-9.01)/xxm; |
| 1346 | dgh[4] = 27.; |
| 1347 | dgh[5] = 27.; |
| 1348 | dgh[6] = -25.-(9.-3.01)/xxm-(9.01-9.)/xxm; |
| 1349 | dgh[7] = 9.01; |
| 1350 | dgh[8] = 27.; |
| 1351 | dgh[9] = 25.+(9.-3.01)/xxm+(9.01-9.)/xxm; |
| 1352 | dgh[10] = 9.01; |
| 1353 | dgh[11] = 27.; |
| 1354 | dgh[12] = 25.+(9.-3.01)/xxm+(9.01-9.)/xxm+(27.-9.01)/xxm; |
| 1355 | dgh[13] = 27.; |
| 1356 | dgh[14] = 27.; |
| cfce8870 |
1357 | gMC->Gsvolu("IT34", "PCON", idtmed[275], dgh, 15); |
| fe4da5cc |
1358 | |
| 1359 | // --- Place the ghost volume in its mother volume (ITSV) and make it |
| 1360 | // invisible |
| 1361 | |
| cfce8870 |
1362 | gMC->Gspos("IT34", 1, "ITSV", 0., 0., 0., 0, "ONLY"); |
| 1363 | gMC->Gsatt("IT34", "SEEN", 0); |
| fe4da5cc |
1364 | |
| 1365 | // --- Layer #3 |
| 1366 | |
| 1367 | // GOTO 3456 ! skip ITS layer no. 3 |
| 1368 | |
| 1369 | //--- Define a ghost volume containing a single ladder of layer #3 (with the |
| 1370 | // smaller lenght of ribs) and fill it with air or vacuum |
| 1371 | |
| 1372 | dbox1[0] = 0.5+(0.0172+0.03+0.0252+0.04+0.003); |
| 1373 | dbox1[1] = 3.85; |
| 1374 | // the widest element is the sensitive element |
| 1375 | dbox1[2] = (8.7*5.-2.*1.+2.*0.1)/2.+2.*7.5; |
| 1376 | // 7.5 cm is the lenght |
| cfce8870 |
1377 | gMC->Gsvolu("IDV1", "BOX ", idtmed[228], dbox1, 3); |
| fe4da5cc |
1378 | |
| 1379 | // --- Make the ghost volume invisible |
| 1380 | |
| cfce8870 |
1381 | gMC->Gsatt("IDV1", "SEEN", 0); |
| fe4da5cc |
1382 | |
| 1383 | // --- Define a volume containing the sensitive part of drifts |
| 1384 | // (silicon, layer #3) |
| 1385 | |
| 1386 | dits[0] = .0172; |
| 1387 | // see material budget report by G. Feofilov |
| 1388 | dits[1] = 3.85; |
| 1389 | dits[2] = 4.35; |
| cfce8870 |
1390 | gMC->Gsvolu("ITS3", "BOX ", idtmed[224], dits, 3); |
| fe4da5cc |
1391 | |
| 1392 | //--- Define the part of the (smaller) rib between two sensitive parts made of |
| 1393 | // carbon (layer #3) |
| 1394 | |
| 1395 | dsup[0] = .5 - dits[0]; |
| 1396 | dsup[1] = .01; |
| 1397 | dsup[2] = (8.7*5.-2.*1.+2.*0.1)/2.+2.*7.5; |
| 1398 | // 7.5 cm is the lenght |
| cfce8870 |
1399 | gMC->Gsvolu("IR11", "BOX ", idtmed[227], dsup, 3); |
| fe4da5cc |
1400 | |
| 1401 | //--- Define the first part of the (smaller) rib between two sensitive parts |
| 1402 | // made of aluminum (layer #3) |
| 1403 | |
| 1404 | dal1[0] = .5 - dits[0]; |
| 1405 | dal1[1] = 0.00096/2.; |
| 1406 | dal1[2] = (8.7*5.-2.*1.+2.*0.1)/2.+2.*7.5; |
| 1407 | // 7.5 cm is the lenght |
| cfce8870 |
1408 | gMC->Gsvolu("IR12", "BOX ", idtmed[230], dal1, 3); |
| fe4da5cc |
1409 | |
| 1410 | //--- Define the part of the (smaller) rib between two sensitive parts made of |
| 1411 | // kapton (layer #3) |
| 1412 | |
| 1413 | dkap[0] = .5 - dits[0]; |
| 1414 | dkap[1] = .01585; |
| 1415 | dkap[2] = (8.7*5.-2.*1.+2.*0.1)/2.+2.*7.5; |
| 1416 | // 7.5 cm is the lenght |
| cfce8870 |
1417 | gMC->Gsvolu("IR13", "BOX ", idtmed[236], dkap, 3); |
| fe4da5cc |
1418 | |
| 1419 | //--- Define the second part of the (smaller) rib between two sensitive parts |
| 1420 | // made of aluminum (layer #3) |
| 1421 | |
| 1422 | dal2[0] = .5 - dits[0]; |
| 1423 | dal2[1] = 0.0027/2.; |
| 1424 | dal2[2] = (8.7*5.-2.*1.+2.*0.1)/2.+2.*7.5; |
| 1425 | // 7.5 cm is the lenght |
| cfce8870 |
1426 | gMC->Gsvolu("IR14", "BOX ", idtmed[230], dal2, 3); |
| fe4da5cc |
1427 | |
| 1428 | // --- Define the part of the (smaller) rib between two sensitive parts |
| 1429 | // made of silicon (the electronics) (layer #3) |
| 1430 | |
| 1431 | dchi[0] = .5 - dits[0]; |
| 1432 | dchi[1] = 0.0071/2.; |
| 1433 | dchi[2] = (8.7*5.-2.*1.+2.*0.1)/2.+2.*7.5; |
| 1434 | // 7.5 cm is the lenght |
| cfce8870 |
1435 | gMC->Gsvolu("IR15", "BOX ", idtmed[225], dal2, 3); |
| fe4da5cc |
1436 | |
| 1437 | // --- Define the part of the (smaller) rib between two sensitive parts |
| 1438 | // made of water (the cooler) (layer #3) |
| 1439 | |
| 1440 | dwat[0] = .5 - dits[0]; |
| 1441 | dwat[1] = 0.0093/2.; |
| 1442 | dwat[2] = (8.7*5.-2.*1.+2.*0.1)/2.+2.*7.5; |
| 1443 | // 7.5 cm is the lenght |
| cfce8870 |
1444 | gMC->Gsvolu("IR16", "BOX ", idtmed[231], dwat, 3); |
| fe4da5cc |
1445 | |
| 1446 | //--- Define the third part of the (smaller) rib between two sensitive parts |
| 1447 | // made of aluminum (the cooling tubes) (layer #3) |
| 1448 | |
| 1449 | dtub[0] = .5 - dits[0]; |
| 1450 | dtub[1] = 0.00134/2.; |
| 1451 | dtub[2] = (8.7*5.-2.*1.+2.*0.1)/2.+2.*7.5; |
| 1452 | // 7.5 cm is the lenght |
| cfce8870 |
1453 | gMC->Gsvolu("IR17", "BOX ", idtmed[230], dtub, 3); |
| fe4da5cc |
1454 | |
| 1455 | // --- Define the part of the end-ladder stuff made of PCB (layer #3) |
| 1456 | |
| 1457 | dpcb[0] = .03; |
| 1458 | // twice the foreseen thickness |
| 1459 | dpcb[1] = 3.5; |
| 1460 | dpcb[2] = 7.5; |
| cfce8870 |
1461 | gMC->Gsvolu("IEL1", "BOX ", idtmed[233], dpcb, 3); |
| fe4da5cc |
1462 | |
| 1463 | // --- Define the part of the end-ladder stuff made of copper (layer #3) |
| 1464 | |
| 1465 | dcop[0] = .0252; |
| 1466 | // twice the foreseen thickness |
| 1467 | dcop[1] = 3.5; |
| 1468 | dcop[2] = 7.5; |
| cfce8870 |
1469 | gMC->Gsvolu("IEL2", "BOX ", idtmed[234], dcop, 3); |
| fe4da5cc |
1470 | |
| 1471 | // --- Define the part of the end-ladder stuff made of ceramics (layer #3) |
| 1472 | |
| 1473 | dcer[0] = .04; |
| 1474 | // twice the foreseen thickness |
| 1475 | dcer[1] = 3.5; |
| 1476 | dcer[2] = 7.5; |
| cfce8870 |
1477 | gMC->Gsvolu("IEL3", "BOX ", idtmed[235], dcer, 3); |
| fe4da5cc |
1478 | |
| 1479 | // --- Define the part of the end-ladder stuff made of silicon (layer #3) |
| 1480 | |
| 1481 | dsil[0] = .003; |
| 1482 | // twice the foreseen thickness |
| 1483 | dsil[1] = 3.5; |
| 1484 | dsil[2] = 7.5; |
| cfce8870 |
1485 | gMC->Gsvolu("IEL4", "BOX ", idtmed[226], dsil, 3); |
| fe4da5cc |
1486 | |
| 1487 | //--- Place the sensitive part of the drifts (smaller ribs) into its mother |
| 1488 | // (IDV1) |
| 1489 | |
| 1490 | ypos = 0.; |
| e8189707 |
1491 | for (j = 1; j <= 5; ++j) { |
| fe4da5cc |
1492 | // odd elements are up and even elements are down |
| 1493 | if (j == 1) { |
| 1494 | xpos = dbox1[0] - dpcb[0] * 2. - dcop[0] * 2. - dcer[0] * 2. - dsil[0] * 2. - dits[0]; |
| 1495 | zpos = 0. - dits[2] + 1. - dits[2] * 2. - .1 - dits[2]; |
| 1496 | } else if (j == 2) { |
| 1497 | xpos = -dbox1[0] + dits[0]; |
| 1498 | zpos = 0. - dits[2] + 1. - dits[2]; |
| 1499 | } else if (j == 3) { |
| 1500 | xpos = dbox1[0] - dpcb[0] * 2. - dcop[0] * 2. - dcer[0] * 2. - dsil[0] * 2. - dits[0]; |
| 1501 | zpos = 0.; |
| 1502 | } else if (j == 4) { |
| 1503 | xpos = -dbox1[0] + dits[0]; |
| 1504 | zpos = dits[2] + 0. - 1. + dits[2]; |
| 1505 | } else if (j == 5) { |
| 1506 | xpos = dbox1[0] - dpcb[0] * 2. - dcop[0] * 2. - dcer[0] * 2. - dsil[0] * 2. - dits[0]; |
| 1507 | zpos = dits[2] + 0. - 1. + dits[2] * 2. + .1 + dits[2]; |
| 1508 | } |
| cfce8870 |
1509 | gMC->Gspos("ITS3", j, "IDV1", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
1510 | } |
| 1511 | |
| 1512 | // --- Place the smaller ribs into their mother (IDV1) |
| 1513 | |
| 1514 | // --- Right ribs (just a matter of convention) |
| 1515 | |
| 1516 | xpos = .5 - dbox1[0] + dits[0]; |
| 1517 | zpos = 0.; |
| 1518 | |
| 1519 | // --- Carbon |
| 1520 | |
| 1521 | ypos = 2.81; |
| cfce8870 |
1522 | gMC->Gspos("IR11", 1, "IDV1", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
1523 | |
| 1524 | // --- Aluminum #1 |
| 1525 | |
| 1526 | ypos = dsup[1] + 2.81 + dal1[1]; |
| cfce8870 |
1527 | gMC->Gspos("IR12", 1, "IDV1", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
1528 | |
| 1529 | // --- Kapton |
| 1530 | |
| 1531 | ypos = dsup[1] + 2.81 + dal1[1] * 2. + dkap[1]; |
| cfce8870 |
1532 | gMC->Gspos("IR13", 1, "IDV1", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
1533 | |
| 1534 | // --- Aluminum #2 |
| 1535 | |
| 1536 | ypos = dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * 2. + dal2[1]; |
| cfce8870 |
1537 | gMC->Gspos("IR14", 1, "IDV1", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
1538 | |
| 1539 | // --- Silicon (chip) |
| 1540 | |
| 1541 | ypos = dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * 2. + dal2[1] * 2. + dchi[1]; |
| cfce8870 |
1542 | gMC->Gspos("IR15", 1, "IDV1", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
1543 | |
| 1544 | // --- Water |
| 1545 | |
| 1546 | ypos = dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * 2. + dal2[1] * 2. + dchi[1] * 2. + dwat[1]; |
| cfce8870 |
1547 | gMC->Gspos("IR16", 1, "IDV1", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
1548 | |
| 1549 | // --- Aluminum #3 |
| 1550 | |
| 1551 | ypos = dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * 2. + dal2[1] * 2. + dchi[1] * 2. + dwat[1] * 2. |
| 1552 | + dtub[1]; |
| cfce8870 |
1553 | gMC->Gspos("IR17", 1, "IDV1", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
1554 | |
| 1555 | // --- Right ribs (just a matter of convention) |
| 1556 | |
| 1557 | // --- Carbon |
| 1558 | |
| 1559 | ypos = -2.81; |
| cfce8870 |
1560 | gMC->Gspos("IR11", 2, "IDV1", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
1561 | |
| 1562 | // --- Aluminum #1 |
| 1563 | |
| 1564 | ypos = -(dsup[1] + 2.81 + dal1[1]); |
| cfce8870 |
1565 | gMC->Gspos("IR12", 2, "IDV1", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
1566 | |
| 1567 | // --- Kapton |
| 1568 | |
| 1569 | ypos = -(dsup[1] + 2.81 + dal1[1] * 2. + dkap[1]); |
| cfce8870 |
1570 | gMC->Gspos("IR13", 2, "IDV1", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
1571 | |
| 1572 | // --- Aluminum #2 |
| 1573 | |
| 1574 | ypos = -(dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * 2. + dal2[1]); |
| cfce8870 |
1575 | gMC->Gspos("IR14", 2, "IDV1", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
1576 | |
| 1577 | // --- Silicon (chip) |
| 1578 | |
| 1579 | ypos = -(dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * 2. + dal2[1] * 2. + dchi[1]); |
| cfce8870 |
1580 | gMC->Gspos("IR15", 2, "IDV1", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
1581 | |
| 1582 | // --- Water |
| 1583 | |
| 1584 | ypos = -(dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * 2. + dal2[1] * 2. + dchi[1] * 2. + dwat[1]); |
| cfce8870 |
1585 | gMC->Gspos("IR16", 2, "IDV1", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
1586 | |
| 1587 | // --- Aluminum #3 |
| 1588 | |
| 1589 | ypos = -(dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * |
| 1590 | 2. + dal2[1] * 2. + dchi[1] * 2. + dwat[1] * 2. + dtub[1]); |
| cfce8870 |
1591 | gMC->Gspos("IR17", 2, "IDV1", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
1592 | |
| 1593 | // --- Place the end-ladder stuff into its mother (IDV1) |
| 1594 | |
| 1595 | |
| 1596 | // --- Negative-Z end-ladder |
| 1597 | |
| 1598 | ypos = 0.; |
| 1599 | zpos = -(8.7*5.-2.*1.+2.*0.1)/2.-7.5; |
| 1600 | |
| 1601 | // --- PCB |
| 1602 | |
| 1603 | xpos = dbox1[0] - dpcb[0]; |
| cfce8870 |
1604 | gMC->Gspos("IEL1", 1, "IDV1", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
1605 | |
| 1606 | // --- Copper |
| 1607 | |
| 1608 | xpos = dbox1[0] - dpcb[0] * 2. - dcop[0]; |
| cfce8870 |
1609 | gMC->Gspos("IEL2", 1, "IDV1", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
1610 | |
| 1611 | // --- Ceramics |
| 1612 | |
| 1613 | xpos = dbox1[0] - dpcb[0] * 2. - dcop[0] * 2. - dcer[0]; |
| cfce8870 |
1614 | gMC->Gspos("IEL3", 1, "IDV1", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
1615 | |
| 1616 | // --- Silicon (bus) |
| 1617 | |
| 1618 | xpos = dbox1[0] - dpcb[0] * 2. - dcop[0] * 2. - dcer[0] * 2. - dsil[0]; |
| cfce8870 |
1619 | gMC->Gspos("IEL4", 1, "IDV1", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
1620 | |
| 1621 | // --- Positive-Z end-ladder |
| 1622 | |
| 1623 | ypos = 0.; |
| 1624 | zpos = (8.7*5.-2.*1.+2.*0.1)/2.+7.5; |
| 1625 | |
| 1626 | // --- PCB |
| 1627 | |
| 1628 | xpos = dbox1[0] - dpcb[0]; |
| cfce8870 |
1629 | gMC->Gspos("IEL1", 2, "IDV1", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
1630 | |
| 1631 | // --- Copper |
| 1632 | |
| 1633 | xpos = dbox1[0] - dpcb[0] * 2. - dcop[0]; |
| cfce8870 |
1634 | gMC->Gspos("IEL2", 2, "IDV1", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
1635 | |
| 1636 | // --- Ceramics |
| 1637 | |
| 1638 | xpos = dbox1[0] - dpcb[0] * 2. - dcop[0] * 2. - dcer[0]; |
| cfce8870 |
1639 | gMC->Gspos("IEL3", 2, "IDV1", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
1640 | |
| 1641 | // --- Silicon (bus) |
| 1642 | |
| 1643 | xpos = dbox1[0] - dpcb[0] * 2. - dcop[0] * 2. - dcer[0] * 2. - dsil[0]; |
| cfce8870 |
1644 | gMC->Gspos("IEL4", 2, "IDV1", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
1645 | |
| 1646 | //--- Define a ghost volume containing a single ladder of layer #3 (with the |
| 1647 | // larger lenght of ribs) and fill it with air or vacuum |
| 1648 | |
| 1649 | dbox2[0] = 0.65+(0.0172+0.03+0.0252+0.04+0.003); |
| 1650 | dbox2[1] = 3.85; |
| 1651 | // the widest element is the sensitive element |
| 1652 | dbox2[2] = (8.7*5.-2.*1.+2.*0.1)/2.+2.*7.5; |
| 1653 | // 7.5 cm is the lenght |
| cfce8870 |
1654 | gMC->Gsvolu("IDV2", "BOX ", idtmed[228], dbox2, 3); |
| fe4da5cc |
1655 | |
| 1656 | // --- Make the ghost volume invisible |
| 1657 | |
| cfce8870 |
1658 | gMC->Gsatt("IDV2", "SEEN", 0); |
| fe4da5cc |
1659 | |
| 1660 | //--- Define the part of the (larger) rib between two sensitive parts madeof |
| 1661 | // carbon (layer #3) |
| 1662 | |
| 1663 | dsup[0] = .65 - dits[0]; |
| 1664 | dsup[1] = .01; |
| 1665 | dsup[2] = (8.7*5.-2.*1.+2.*0.1)/2.+2.*7.5; |
| 1666 | // 7.5 cm is the lenght |
| cfce8870 |
1667 | gMC->Gsvolu("IR21", "BOX ", idtmed[227], dsup, 3); |
| fe4da5cc |
1668 | |
| 1669 | //--- Define the first part of the (larger) rib between two sensitive parts |
| 1670 | // made of aluminum (layer #3) |
| 1671 | |
| 1672 | dal1[0] = .65 - dits[0]; |
| 1673 | dal1[1] = 0.00096/2.; |
| 1674 | dal1[2] = (8.7*5.-2.*1.+2.*0.1)/2.+2.*7.5; |
| 1675 | // 7.5 cm is the lenght |
| cfce8870 |
1676 | gMC->Gsvolu("IR22", "BOX ", idtmed[230], dal1, 3); |
| fe4da5cc |
1677 | |
| 1678 | //--- Define the part of the (larger) rib between two sensitive parts madeof |
| 1679 | // kapton (layer #3) |
| 1680 | |
| 1681 | dkap[0] = .65 - dits[0]; |
| 1682 | dkap[1] = 0.0317/2.; |
| 1683 | dkap[2] = (8.7*5.-2.*1.+2.*0.1)/2.+2.*7.5; |
| 1684 | // 7.5 cm is the lenght |
| cfce8870 |
1685 | gMC->Gsvolu("IR23", "BOX ", idtmed[236], dkap, 3); |
| fe4da5cc |
1686 | |
| 1687 | //--- Define the second part of the (larger) rib between two sensitive parts |
| 1688 | // made of aluminum (layer #3) |
| 1689 | |
| 1690 | dal2[0] = .65 - dits[0]; |
| 1691 | dal2[1] = 0.0027/2.; |
| 1692 | dal2[2] = (8.7*5.-2.*1.+2.*0.1)/2.+2.*7.5; |
| 1693 | // 7.5 cm is the lenght |
| cfce8870 |
1694 | gMC->Gsvolu("IR24", "BOX ", idtmed[230], dal2, 3); |
| fe4da5cc |
1695 | |
| 1696 | // --- Define the part of the (larger) rib between two sensitive parts |
| 1697 | // made of silicon (the electronics) (layer #3) |
| 1698 | |
| 1699 | dchi[0] = .65 - dits[0]; |
| 1700 | dchi[1] = 0.0071/2.; |
| 1701 | dchi[2] = (8.7*5.-2.*1.+2.*0.1)/2.+2.*7.5; |
| 1702 | // 7.5 cm is the lenght |
| cfce8870 |
1703 | gMC->Gsvolu("IR25", "BOX ", idtmed[225], dal2, 3); |
| fe4da5cc |
1704 | |
| 1705 | // --- Define the part of the (larger) rib between two sensitive parts |
| 1706 | // made of water (the cooler) (layer #3) |
| 1707 | |
| 1708 | dwat[0] = .65 - dits[0]; |
| 1709 | dwat[1] = 0.0093/2.; |
| 1710 | dwat[2] = (8.7*5.-2.*1.+2.*0.1)/2.+2.*7.5; |
| 1711 | // 7.5 cm is the lenght |
| cfce8870 |
1712 | gMC->Gsvolu("IR26", "BOX ", idtmed[231], dwat, 3); |
| fe4da5cc |
1713 | |
| 1714 | //--- Define the third part of the (larger) rib between two sensitive parts |
| 1715 | // made of aluminum (the cooling tubes) (layer #3) |
| 1716 | |
| 1717 | dtub[0] = .65 - dits[0]; |
| 1718 | dtub[1] = 0.00134/2.; |
| 1719 | dtub[2] = (8.7*5.-2.*1.+2.*0.1)/2.+2.*7.5; |
| 1720 | // 7.5 cm is the lenght |
| cfce8870 |
1721 | gMC->Gsvolu("IR27", "BOX ", idtmed[230], dtub, 3); |
| fe4da5cc |
1722 | |
| 1723 | //--- Place the sensitive part of the drifts (smaller ribs) into its mother |
| 1724 | // (IDV2) |
| 1725 | |
| 1726 | ypos = 0.; |
| e8189707 |
1727 | for (j = 1; j <= 5; ++j) { |
| fe4da5cc |
1728 | // odd element are up and even elements are down |
| 1729 | if (j == 1) { |
| 1730 | xpos = dbox2[0] - dpcb[0] * 2. - dcop[0] * 2. - dcer[0] * 2. - dsil[0] * 2. - dits[0]; |
| 1731 | zpos = 0. - dits[2] + 1. - dits[2] * 2. - .1 - dits[2]; |
| 1732 | } else if (j == 2) { |
| 1733 | xpos = -dbox2[0] + dits[0]; |
| 1734 | zpos = 0. - dits[2] + 1. - dits[2]; |
| 1735 | } else if (j == 3) { |
| 1736 | xpos = dbox2[0] - dpcb[0] * 2. - dcop[0] * 2. - dcer[0] * 2. - dsil[0] * 2. - dits[0]; |
| 1737 | zpos = 0.; |
| 1738 | } else if (j == 4) { |
| 1739 | xpos = -dbox2[0] + dits[0]; |
| 1740 | zpos = dits[2] + 0. - 1. + dits[2]; |
| 1741 | } else if (j == 5) { |
| 1742 | xpos = dbox2[0] - dpcb[0] * 2. - dcop[0] * 2. - dcer[0] * 2. - dsil[0] * 2. - dits[0]; |
| 1743 | zpos = dits[2] + 0. - 1. + dits[2] * 2. + .1 + dits[2]; |
| 1744 | } |
| cfce8870 |
1745 | gMC->Gspos("ITS3", j, "IDV2", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
1746 | } |
| 1747 | |
| 1748 | // --- Place the larger ribs into their mother (IDV2) |
| 1749 | |
| 1750 | |
| 1751 | // --- Right ribs (just a matter of convention) |
| 1752 | |
| 1753 | xpos = .65 - dbox2[0] + dits[0]; |
| 1754 | zpos = 0.; |
| 1755 | |
| 1756 | // --- Carbon |
| 1757 | |
| 1758 | ypos = 2.81; |
| cfce8870 |
1759 | gMC->Gspos("IR21", 1, "IDV2", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
1760 | |
| 1761 | // --- Aluminum #1 |
| 1762 | |
| 1763 | ypos = dsup[1] + 2.81 + dal1[1]; |
| cfce8870 |
1764 | gMC->Gspos("IR22", 1, "IDV2", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
1765 | |
| 1766 | // --- Kapton |
| 1767 | |
| 1768 | ypos = dsup[1] + 2.81 + dal1[1] * 2. + dkap[1]; |
| cfce8870 |
1769 | gMC->Gspos("IR23", 1, "IDV2", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
1770 | |
| 1771 | // --- Aluminum #2 |
| 1772 | |
| 1773 | ypos = dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * 2. + dal2[1]; |
| cfce8870 |
1774 | gMC->Gspos("IR24", 1, "IDV2", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
1775 | |
| 1776 | // --- Silicon (chip) |
| 1777 | |
| 1778 | ypos = dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * 2. + dal2[1] * 2. + dchi[1]; |
| cfce8870 |
1779 | gMC->Gspos("IR25", 1, "IDV2", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
1780 | |
| 1781 | // --- Water |
| 1782 | |
| 1783 | ypos = dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * 2. + dal2[1] * 2. + dchi[1] * 2. + dwat[1]; |
| cfce8870 |
1784 | gMC->Gspos("IR26", 1, "IDV2", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
1785 | |
| 1786 | // --- Aluminum #3 |
| 1787 | |
| 1788 | ypos = dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * 2. + dal2[1] * 2. + dchi[1] * 2. + dwat[1] * 2. + dtub[1]; |
| cfce8870 |
1789 | gMC->Gspos("IR27", 1, "IDV2", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
1790 | |
| 1791 | // --- Right ribs (just a matter of convention) |
| 1792 | |
| 1793 | // --- Carbon |
| 1794 | |
| 1795 | ypos = -2.81; |
| cfce8870 |
1796 | gMC->Gspos("IR21", 2, "IDV2", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
1797 | |
| 1798 | // --- Aluminum #1 |
| 1799 | |
| 1800 | ypos = -(dsup[1] + 2.81 + dal1[1]); |
| cfce8870 |
1801 | gMC->Gspos("IR22", 2, "IDV2", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
1802 | |
| 1803 | // --- Kapton |
| 1804 | |
| 1805 | ypos = -(dsup[1] + 2.81 + dal1[1] * 2. + dkap[1]); |
| cfce8870 |
1806 | gMC->Gspos("IR23", 2, "IDV2", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
1807 | |
| 1808 | // --- Aluminum #2 |
| 1809 | |
| 1810 | ypos = -(dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * 2. + dal2[1]); |
| cfce8870 |
1811 | gMC->Gspos("IR24", 2, "IDV2", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
1812 | |
| 1813 | // --- Silicon (chip) |
| 1814 | |
| 1815 | ypos = -(dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * 2. + dal2[1] * 2. + dchi[1]); |
| cfce8870 |
1816 | gMC->Gspos("IR25", 2, "IDV2", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
1817 | |
| 1818 | // --- Water |
| 1819 | |
| 1820 | ypos = -(dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * 2. + dal2[1] * 2. + dchi[1] * 2. + dwat[1]); |
| cfce8870 |
1821 | gMC->Gspos("IR26", 2, "IDV2", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
1822 | |
| 1823 | // --- Aluminum #3 |
| 1824 | |
| 1825 | ypos = -(dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * 2. + dal2[1] * 2. + dchi[1] * 2. + dwat[1] * 2. + dtub[1]); |
| cfce8870 |
1826 | gMC->Gspos("IR27", 2, "IDV2", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
1827 | |
| 1828 | // --- Place the end-ladder stuff into its mother (IDV1) |
| 1829 | |
| 1830 | |
| 1831 | // --- Negative-Z end-ladder |
| 1832 | |
| 1833 | ypos = 0.; |
| 1834 | zpos = -(8.7*5.-2.*1.+2.*0.1)/2.-7.5; |
| 1835 | |
| 1836 | // --- PCB |
| 1837 | |
| 1838 | xpos = dbox2[0] - dpcb[0]; |
| cfce8870 |
1839 | gMC->Gspos("IEL1", 3, "IDV2", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
1840 | |
| 1841 | // --- Copper |
| 1842 | |
| 1843 | xpos = dbox2[0] - dpcb[0] * 2. - dcop[0]; |
| cfce8870 |
1844 | gMC->Gspos("IEL2", 3, "IDV2", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
1845 | |
| 1846 | // --- Ceramics |
| 1847 | |
| 1848 | xpos = dbox2[0] - dpcb[0] * 2. - dcop[0] * 2. - dcer[0]; |
| cfce8870 |
1849 | gMC->Gspos("IEL3", 3, "IDV2", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
1850 | |
| 1851 | // --- Silicon (bus) |
| 1852 | |
| 1853 | xpos = dbox2[0] - dpcb[0] * 2. - dcop[0] * 2. - dcer[0] * 2. - dsil[0]; |
| cfce8870 |
1854 | gMC->Gspos("IEL4", 3, "IDV1", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
1855 | |
| 1856 | // --- Positive-Z end-ladder |
| 1857 | |
| 1858 | //yos = 0.; |
| 1859 | zpos = (8.7*5.-2.*1.+2.*0.1)/2.+7.5; |
| 1860 | |
| 1861 | // --- PCB |
| 1862 | |
| 1863 | xpos = dbox2[0] - dpcb[0]; |
| cfce8870 |
1864 | gMC->Gspos("IEL1", 4, "IDV2", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
1865 | |
| 1866 | // --- Copper |
| 1867 | |
| 1868 | xpos = dbox2[0] - dpcb[0] * 2. - dcop[0]; |
| cfce8870 |
1869 | gMC->Gspos("IEL2", 4, "IDV2", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
1870 | |
| 1871 | // --- Ceramics |
| 1872 | |
| 1873 | xpos = dbox2[0] - dpcb[0] * 2. - dcop[0] * 2. - dcer[0]; |
| cfce8870 |
1874 | gMC->Gspos("IEL3", 4, "IDV2", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
1875 | |
| 1876 | // --- Silicon (bus) |
| 1877 | |
| 1878 | xpos = dbox2[0] - dpcb[0] * 2. - dcop[0] * 2. - dcer[0] * 2. - dsil[0]; |
| cfce8870 |
1879 | gMC->Gspos("IEL4", 4, "IDV2", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
1880 | |
| 1881 | //--- Place the ghost volumes containing the drift ladders of layer #3 in their |
| 1882 | // mother volume (IT34) |
| 1883 | // Odd elements have large ribs and even elements have small ribs |
| 1884 | |
| e8189707 |
1885 | for (i = 1; i <= 12; ++i) { |
| fe4da5cc |
1886 | atheta = (i-1) * 30.; |
| 1887 | AliMatrix(idrotm[i+1299], 90., atheta, 90., atheta + 90., 0.,0.); |
| 1888 | if (i % 2 == 0) { |
| 1889 | rzero = 14.; |
| b3a22d72 |
1890 | xpos = rzero * TMath::Cos((i-1) * ktwopi / 12.); |
| 1891 | ypos = rzero * TMath::Sin((i-1) * ktwopi / 12.); |
| fe4da5cc |
1892 | zpos = 0.; |
| cfce8870 |
1893 | gMC->Gspos("IDV1", i, "IT34", xpos, ypos, zpos, idrotm[i+1299], "ONLY"); |
| fe4da5cc |
1894 | } else { |
| 1895 | rzero = 13.85; |
| b3a22d72 |
1896 | xpos = rzero * TMath::Cos((i-1) * ktwopi / 12.); |
| 1897 | ypos = rzero * TMath::Sin((i-1) * ktwopi / 12.); |
| fe4da5cc |
1898 | zpos = 0.; |
| cfce8870 |
1899 | gMC->Gspos("IDV2", i, "IT34", xpos, ypos, zpos, idrotm[i+1299], "ONLY"); |
| fe4da5cc |
1900 | } |
| 1901 | } |
| 1902 | |
| 1903 | |
| 1904 | // --- Layer #4 |
| 1905 | |
| 1906 | // GOTO 4567 ! skip ITS layer no. 4 |
| 1907 | |
| 1908 | //--- Define a ghost volume containing a single ladder of layer #4 (with the |
| 1909 | // smaller lenght of ribs) and fill it with air or vacuum |
| 1910 | |
| 1911 | dbox1[0] = 0.5+(0.0172+0.03+0.0252+0.04+0.003); |
| 1912 | dbox1[1] = 3.5; |
| 1913 | // the widest element is the end-ladder stuff |
| 1914 | dbox1[2] = (8.7*7.-2.*0.7-2.*1.3)/2.+2.*7.5; |
| 1915 | // 7.5 cm is the lenght |
| cfce8870 |
1916 | gMC->Gsvolu("IDV3", "BOX ", idtmed[228], dbox1, 3); |
| fe4da5cc |
1917 | |
| 1918 | // --- Make the ghost volume invisible |
| 1919 | |
| cfce8870 |
1920 | gMC->Gsatt("IDV3", "SEEN", 0); |
| fe4da5cc |
1921 | |
| 1922 | // --- Define a volume containing the sensitive part of drifts |
| 1923 | // (silicon, layer #4) |
| 1924 | |
| 1925 | dits[0] = .0172; |
| 1926 | // see material budget report by G. Feofilov |
| 1927 | dits[1] = 3.125; |
| 1928 | dits[2] = 4.35; |
| cfce8870 |
1929 | gMC->Gsvolu("ITS4", "BOX ", idtmed[224], dits, 3); |
| fe4da5cc |
1930 | |
| 1931 | //--- Define the part of the (smaller) rib between two sensitive parts made of |
| 1932 | // carbon (layer #4) |
| 1933 | |
| 1934 | dsup[0] = .5 - dits[0]; |
| 1935 | dsup[1] = .01; |
| 1936 | dsup[2] = (8.7*7.-2.*0.7-2.*1.3)/2.+2.*7.5; |
| 1937 | // 7.5 cm is the lengh |
| cfce8870 |
1938 | gMC->Gsvolu("IR31", "BOX ", idtmed[227], dsup, 3); |
| fe4da5cc |
1939 | |
| 1940 | //--- Define the first part of the (smaller) rib between two sensitive parts |
| 1941 | // made of aluminum (layer #4) |
| 1942 | |
| 1943 | dal1[0] = .5 - dits[0]; |
| 1944 | dal1[1] = 0.00096/2.; |
| 1945 | dal1[2] = (8.7*7.-2.*0.7-2.*1.3)/2.+2.*7.5; |
| 1946 | // 7.5 cm is the lengh |
| cfce8870 |
1947 | gMC->Gsvolu("IR32", "BOX ", idtmed[230], dal1, 3); |
| fe4da5cc |
1948 | |
| 1949 | //--- Define the part of the (smaller) rib between two sensitive parts made of |
| 1950 | // kapton (layer #4) |
| 1951 | |
| 1952 | dkap[0] = .5 - dits[0]; |
| 1953 | dkap[1] = 0.0317/2.; |
| 1954 | dkap[2] = (8.7*7.-2.*0.7-2.*1.3)/2.+2.*7.5; |
| 1955 | // 7.5 cm is the lengh |
| cfce8870 |
1956 | gMC->Gsvolu("IR33", "BOX ", idtmed[236], dkap, 3); |
| fe4da5cc |
1957 | |
| 1958 | //--- Define the second part of the (smaller) rib between two sensitive parts |
| 1959 | // made of aluminum (layer #4) |
| 1960 | |
| 1961 | dal2[0] = .5 - dits[0]; |
| 1962 | dal2[1] = 0.0027/2.; |
| 1963 | dal2[2] = (8.7*7.-2.*0.7-2.*1.3)/2.+2.*7.5; |
| 1964 | // 7.5 cm is the lengh |
| cfce8870 |
1965 | gMC->Gsvolu("IR34", "BOX ", idtmed[230], dal2, 3); |
| fe4da5cc |
1966 | |
| 1967 | // --- Define the part of the (smaller) rib between two sensitive parts |
| 1968 | // made of silicon (the electronics) (layer #4) |
| 1969 | |
| 1970 | dchi[0] = .5 - dits[0]; |
| 1971 | dchi[1] = 0.0071/2.; |
| 1972 | dchi[2] = (8.7*7.-2.*0.7-2.*1.3)/2.+2.*7.5; |
| 1973 | // 7.5 cm is the lengh |
| cfce8870 |
1974 | gMC->Gsvolu("IR35", "BOX ", idtmed[225], dal2, 3); |
| fe4da5cc |
1975 | |
| 1976 | // --- Define the part of the (smaller) rib between two sensitive parts |
| 1977 | // made of water (the cooler) (layer #4) |
| 1978 | |
| 1979 | dwat[0] = .5 - dits[0]; |
| 1980 | dwat[1] = 0.0093/2.; |
| 1981 | dwat[2] = (8.7*7.-2.*0.7-2.*1.3)/2.+2.*7.5; |
| 1982 | // 7.5 cm is the lenght |
| cfce8870 |
1983 | gMC->Gsvolu("IR36", "BOX ", idtmed[231], dwat, 3); |
| fe4da5cc |
1984 | |
| 1985 | //--- Define the third part of the (smaller) rib between two sensitive parts |
| 1986 | // made of aluminum (the cooling tubes) (layer #4) |
| 1987 | |
| 1988 | dtub[0] = .5 - dits[0]; |
| 1989 | dtub[1] = 0.00134/2.; |
| 1990 | dtub[2] = (8.7*7.-2.*0.7-2.*1.3)/2.+2.*7.5; |
| 1991 | // 7.5 cm is the lengh |
| cfce8870 |
1992 | gMC->Gsvolu("IR37", "BOX ", idtmed[230], dtub, 3); |
| fe4da5cc |
1993 | |
| 1994 | // --- Define the part of the end-ladder stuff made of PCB (layer #4) |
| 1995 | |
| 1996 | dpcb[0] = .03; |
| 1997 | // twice the foreseen thickness |
| 1998 | dpcb[1] = 3.5; |
| 1999 | dpcb[2] = 7.5; |
| cfce8870 |
2000 | gMC->Gsvolu("IEL5", "BOX ", idtmed[233], dpcb, 3); |
| fe4da5cc |
2001 | |
| 2002 | // --- Define the part of the end-ladder stuff made of copper (layer #4) |
| 2003 | |
| 2004 | dcop[0] = .0252; |
| 2005 | // twice the foreseen thickness |
| 2006 | dcop[1] = 3.5; |
| 2007 | dcop[2] = 7.5; |
| cfce8870 |
2008 | gMC->Gsvolu("IEL6", "BOX ", idtmed[234], dcop, 3); |
| fe4da5cc |
2009 | |
| 2010 | // --- Define the part of the end-ladder stuff made of ceramics (layer #4) |
| 2011 | |
| 2012 | dcer[0] = .04; |
| 2013 | // twice the foreseen thickness |
| 2014 | dcer[1] = 3.5; |
| 2015 | dcer[2] = 7.5; |
| cfce8870 |
2016 | gMC->Gsvolu("IEL7", "BOX ", idtmed[235], dcer, 3); |
| fe4da5cc |
2017 | |
| 2018 | // --- Define the part of the end-ladder stuff made of silicon (layer #4) |
| 2019 | |
| 2020 | dsil[0] = .003; |
| 2021 | // twice the foreseen thickness |
| 2022 | dsil[1] = 3.5; |
| 2023 | dsil[2] = 7.5; |
| cfce8870 |
2024 | gMC->Gsvolu("IEL8", "BOX ", idtmed[226], dsil, 3); |
| fe4da5cc |
2025 | |
| 2026 | //--- Place the sensitive part of the drifts (smaller ribs) into its mother |
| 2027 | // (IDV3) |
| 2028 | |
| 2029 | ypos = 0.; |
| e8189707 |
2030 | for (j = 1; j <= 7; ++j) { |
| fe4da5cc |
2031 | // odd elements are down and even elements are up |
| 2032 | if (j == 1) { |
| 2033 | xpos = dbox1[0] - dpcb[0] * 2. - dcop[0] * 2. - dcer[0] * 2. - dsil[0] * 2. - dits[0]; |
| 2034 | zpos = 0. - dits[2] + .7 - dits[2] * 2. + 0. - dits[2] * 2. + 1.3 - dits[2]; |
| 2035 | } else if (j == 2) { |
| 2036 | xpos = -dbox1[0] + dits[0]; |
| 2037 | zpos = 0. - dits[2] + .7 - dits[2] * 2. + 0. - dits[2]; |
| 2038 | } else if (j == 3) { |
| 2039 | xpos = dbox1[0] - dpcb[0] * 2. - dcop[0] * 2. - dcer[0] * 2. - dsil[0] * 2. - dits[0]; |
| 2040 | zpos = 0. - dits[2] + .7 - dits[2]; |
| 2041 | } else if (j == 4) { |
| 2042 | xpos = -dbox1[0] + dits[0]; |
| 2043 | zpos = 0.; |
| 2044 | } else if (j == 5) { |
| 2045 | xpos = dbox1[0] - dpcb[0] * 2. - dcop[0] * 2. - dcer[0] * 2. - dsil[0] * 2. - dits[0]; |
| 2046 | zpos = dits[2] + 0. - .7 + dits[2]; |
| 2047 | } else if (j == 6) { |
| 2048 | xpos = -dbox1[0] + dits[0]; |
| 2049 | zpos = dits[2] + 0. - .7 + dits[2] * 2. + 0. + dits[2]; |
| 2050 | } else if (j == 7) { |
| 2051 | xpos = dbox1[0] - dpcb[0] * 2. - dcop[0] * 2. - dcer[0] * 2. - dsil[0] * 2. - dits[0]; |
| 2052 | zpos = dits[2] + 0. - .7 + dits[2] * 2. + 0. + dits[2] * 2. - 1.3 + dits[2]; |
| 2053 | } |
| cfce8870 |
2054 | gMC->Gspos("ITS4", j, "IDV3", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2055 | } |
| 2056 | |
| 2057 | // --- Place the smaller ribs into their mother (IDV3) |
| 2058 | |
| 2059 | // --- Right ribs (just a matter of convention) |
| 2060 | |
| 2061 | xpos = .5 - dbox1[0] + dits[0]; |
| 2062 | zpos = 0.; |
| 2063 | |
| 2064 | // --- Carbon |
| 2065 | |
| 2066 | ypos = 2.81; |
| cfce8870 |
2067 | gMC->Gspos("IR31", 1, "IDV3", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2068 | |
| 2069 | // --- Aluminum #1 |
| 2070 | |
| 2071 | ypos = dsup[1] + 2.81 + dal1[1]; |
| cfce8870 |
2072 | gMC->Gspos("IR32", 1, "IDV3", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2073 | |
| 2074 | // --- Kapton |
| 2075 | |
| 2076 | ypos = dsup[1] + 2.81 + dal1[1] * 2. + dkap[1]; |
| cfce8870 |
2077 | gMC->Gspos("IR33", 1, "IDV3", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2078 | |
| 2079 | // --- Aluminum #2 |
| 2080 | |
| 2081 | ypos = dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * 2. + dal2[1]; |
| cfce8870 |
2082 | gMC->Gspos("IR34", 1, "IDV3", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2083 | |
| 2084 | // --- Silicon (chip) |
| 2085 | |
| 2086 | ypos = dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * 2. + dal2[1] * 2. + dchi[1]; |
| cfce8870 |
2087 | gMC->Gspos("IR35", 1, "IDV3", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2088 | |
| 2089 | // --- Water |
| 2090 | |
| 2091 | ypos = dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * 2. + dal2[1] * 2. + dchi[1] * 2. + dwat[1]; |
| cfce8870 |
2092 | gMC->Gspos("IR36", 1, "IDV3", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2093 | |
| 2094 | // --- Aluminum #3 |
| 2095 | |
| 2096 | ypos = dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * 2. + dal2[1] * 2. + dchi[1] * 2. + dwat[1] * 2. |
| 2097 | + dtub[1]; |
| cfce8870 |
2098 | gMC->Gspos("IR37", 1, "IDV3", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2099 | |
| 2100 | // --- Right ribs (just a matter of convention) |
| 2101 | |
| 2102 | // --- Carbon |
| 2103 | |
| 2104 | ypos = -2.81; |
| cfce8870 |
2105 | gMC->Gspos("IR31", 2, "IDV3", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2106 | |
| 2107 | // --- Aluminum #1 |
| 2108 | |
| 2109 | ypos = -(dsup[1] + 2.81 + dal1[1]); |
| cfce8870 |
2110 | gMC->Gspos("IR32", 2, "IDV3", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2111 | |
| 2112 | // --- Kapton |
| 2113 | |
| 2114 | ypos = -(dsup[1] + 2.81 + dal1[1] * 2. + dkap[1]); |
| cfce8870 |
2115 | gMC->Gspos("IR33", 2, "IDV3", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2116 | |
| 2117 | // --- Aluminum #2 |
| 2118 | |
| 2119 | ypos = -(dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * |
| 2120 | 2. + dal2[1]); |
| cfce8870 |
2121 | gMC->Gspos("IR34", 2, "IDV3", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2122 | |
| 2123 | // --- Silicon (chip) |
| 2124 | |
| 2125 | ypos = -(dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * |
| 2126 | 2. + dal2[1] * 2. + dchi[1]); |
| cfce8870 |
2127 | gMC->Gspos("IR35", 2, "IDV3", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2128 | |
| 2129 | // --- Water |
| 2130 | |
| 2131 | ypos = -(dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * |
| 2132 | 2. + dal2[1] * 2. + dchi[1] * 2. + dwat[1]); |
| cfce8870 |
2133 | gMC->Gspos("IR36", 2, "IDV3", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2134 | |
| 2135 | // --- Aluminum #3 |
| 2136 | |
| 2137 | ypos = -(dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * |
| 2138 | 2. + dal2[1] * 2. + dchi[1] * 2. + dwat[1] * |
| 2139 | 2. + dtub[1]); |
| cfce8870 |
2140 | gMC->Gspos("IR37", 2, "IDV3", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2141 | |
| 2142 | // --- Place the end-ladder stuff into its mother (IDV1) |
| 2143 | |
| 2144 | |
| 2145 | // --- Negative-Z end-ladder |
| 2146 | |
| 2147 | ypos = 0.; |
| 2148 | zpos = -(8.7*7.-2.*0.7-2.*1.3)/2.-7.5; |
| 2149 | |
| 2150 | // --- PCB |
| 2151 | |
| 2152 | xpos = dbox1[0] - dpcb[0]; |
| cfce8870 |
2153 | gMC->Gspos("IEL5", 1, "IDV3", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2154 | |
| 2155 | // --- Copper |
| 2156 | |
| 2157 | xpos = dbox1[0] - dpcb[0] * 2. - dcop[0]; |
| cfce8870 |
2158 | gMC->Gspos("IEL6", 1, "IDV3", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2159 | |
| 2160 | // --- Ceramics |
| 2161 | |
| 2162 | xpos = dbox1[0] - dpcb[0] * 2. - dcop[0] * 2. - dcer[0]; |
| cfce8870 |
2163 | gMC->Gspos("IEL7", 1, "IDV3", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2164 | |
| 2165 | // --- Silicon (bus) |
| 2166 | |
| 2167 | xpos = dbox1[0] - dpcb[0] * 2. - dcop[0] * 2. - dcer[0] * 2. - dsil[0]; |
| cfce8870 |
2168 | gMC->Gspos("IEL8", 1, "IDV3", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2169 | |
| 2170 | // --- Positive-Z end-ladder |
| 2171 | |
| 2172 | ypos = 0.; |
| 2173 | zpos = (8.7*7.-2.*0.7-2.*1.3)/2.-7.5; |
| 2174 | |
| 2175 | // --- PCB |
| 2176 | |
| 2177 | xpos = dbox1[0] - dpcb[0]; |
| cfce8870 |
2178 | gMC->Gspos("IEL5", 2, "IDV3", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2179 | |
| 2180 | // --- Copper |
| 2181 | |
| 2182 | xpos = dbox1[0] - dpcb[0] * 2. - dcop[0]; |
| cfce8870 |
2183 | gMC->Gspos("IEL6", 2, "IDV3", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2184 | |
| 2185 | // --- Ceramics |
| 2186 | |
| 2187 | xpos = dbox1[0] - dpcb[0] * 2. - dcop[0] * 2. - dcer[0]; |
| cfce8870 |
2188 | gMC->Gspos("IEL7", 2, "IDV3", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2189 | |
| 2190 | // --- Silicon (bus) |
| 2191 | |
| 2192 | xpos = dbox1[0] - dpcb[0] * 2. - dcop[0] * 2. - dcer[0] * 2. - dsil[0]; |
| cfce8870 |
2193 | gMC->Gspos("IEL8", 2, "IDV3", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2194 | |
| 2195 | //--- Define a ghost volume containing a single ladder of layer #4 (with the |
| 2196 | // larger lenght of ribs) and fill it with air or vacuum |
| 2197 | |
| 2198 | dbox2[0] = 0.65+(0.0172+0.03+0.0252+0.04+0.003); |
| 2199 | dbox2[1] = 3.5; |
| 2200 | // the widest element is the end-ladder stuff |
| 2201 | dbox2[2] = (8.7*7.-2.*0.7-2.*1.3)/2.+2.*7.5; |
| 2202 | // 7.5 cm is the lenght |
| cfce8870 |
2203 | gMC->Gsvolu("IDV4", "BOX ", idtmed[228], dbox2, 3); |
| fe4da5cc |
2204 | |
| 2205 | // --- Make the ghost volume invisible |
| 2206 | |
| cfce8870 |
2207 | gMC->Gsatt("IDV4", "SEEN", 0); |
| fe4da5cc |
2208 | |
| 2209 | //--- Define the part of the (larger) rib between two sensitive parts madeof |
| 2210 | // carbon (layer #4) |
| 2211 | |
| 2212 | dsup[0] = .65 - dits[0]; |
| 2213 | dsup[1] = .01; |
| 2214 | dsup[2] = (8.7*7.-2.*0.7-2.*1.3)/2.+2.*7.5; |
| 2215 | // 7.5 cm is the lengh |
| cfce8870 |
2216 | gMC->Gsvolu("IR41", "BOX ", idtmed[227], dsup, 3); |
| fe4da5cc |
2217 | |
| 2218 | //--- Define the first part of the (larger) rib between two sensitive parts |
| 2219 | // made of aluminum (layer #4) |
| 2220 | |
| 2221 | dal1[0] = .65 - dits[0]; |
| 2222 | dal1[1] = 0.00096/2.; |
| 2223 | dal1[2] = (8.7*7.-2.*0.7-2.*1.3)/2.+2.*7.5; |
| 2224 | // 7.5 cm is the lengh |
| cfce8870 |
2225 | gMC->Gsvolu("IR42", "BOX ", idtmed[230], dal1, 3); |
| fe4da5cc |
2226 | |
| 2227 | //--- Define the part of the (larger) rib between two sensitive parts madeof |
| 2228 | // kapton (layer #4) |
| 2229 | |
| 2230 | dkap[0] = .65 - dits[0]; |
| 2231 | dkap[1] = 0.0317/2.; |
| 2232 | dkap[2] = (8.7*7.-2.*0.7-2.*1.3)/2.+2.*7.5; |
| 2233 | // 7.5 cm is the lengh |
| cfce8870 |
2234 | gMC->Gsvolu("IR43", "BOX ", idtmed[236], dkap, 3); |
| fe4da5cc |
2235 | |
| 2236 | //--- Define the second part of the (larger) rib between two sensitive parts |
| 2237 | // made of aluminum (layer #4) |
| 2238 | |
| 2239 | dal2[0] = .65 - dits[0]; |
| 2240 | dal2[1] = 0.0027/2.; |
| 2241 | dal2[2] = (8.7*7.-2.*0.7-2.*1.3)/2.+2.*7.5; |
| 2242 | // 7.5 cm is the lengh |
| cfce8870 |
2243 | gMC->Gsvolu("IR44", "BOX ", idtmed[230], dal2, 3); |
| fe4da5cc |
2244 | |
| 2245 | // --- Define the part of the (larger) rib between two sensitive parts |
| 2246 | // made of silicon (the electronics) (layer #4) |
| 2247 | |
| 2248 | dchi[0] = .65 - dits[0]; |
| 2249 | dchi[1] = 0.0071/2.; |
| 2250 | dchi[2] = (8.7*7.-2.*0.7-2.*1.3)/2.+2.*7.5; |
| 2251 | // 7.5 cm is the lengh |
| cfce8870 |
2252 | gMC->Gsvolu("IR45", "BOX ", idtmed[225], dal2, 3); |
| fe4da5cc |
2253 | |
| 2254 | // --- Define the part of the (larger) rib between two sensitive parts |
| 2255 | // made of water (the cooler) (layer #4) |
| 2256 | |
| 2257 | dwat[0] = .65 - dits[0]; |
| 2258 | dwat[1] = 0.0093/2.; |
| 2259 | dwat[2] = (8.7*7.-2.*0.7-2.*1.3)/2.+2.*7.5; |
| 2260 | // 7.5 cm is the lengh |
| cfce8870 |
2261 | gMC->Gsvolu("IR46", "BOX ", idtmed[231], dwat, 3); |
| fe4da5cc |
2262 | |
| 2263 | //--- Define the third part of the (larger) rib between two sensitive parts |
| 2264 | // made of aluminum (the cooling tubes) (layer #4) |
| 2265 | |
| 2266 | dtub[0] = .65 - dits[0]; |
| 2267 | dtub[1] = 0.00134/2.; |
| 2268 | dtub[2] = (8.7*7.-2.*0.7-2.*1.3)/2.+2.*7.5; |
| 2269 | // 7.5 cm is the lengh |
| cfce8870 |
2270 | gMC->Gsvolu("IR47", "BOX ", idtmed[230], dtub, 3); |
| fe4da5cc |
2271 | |
| 2272 | //--- Place the sensitive part of the drifts (smaller ribs) into its mother |
| 2273 | // (IDV4) |
| 2274 | |
| 2275 | ypos = 0.; |
| e8189707 |
2276 | for (j = 1; j <= 7; ++j) { |
| fe4da5cc |
2277 | // odd elements are down and even elements are up |
| 2278 | if (j == 1) { |
| 2279 | xpos = dbox2[0] - dpcb[0] * 2. - dcop[0] * 2. - dcer[0] * 2. - dsil[0] * 2. - dits[0]; |
| 2280 | zpos = 0. - dits[2] + .7 - dits[2] * 2. + 0. - dits[2] * 2. + 1.3 - dits[2]; |
| 2281 | } else if (j == 2) { |
| 2282 | xpos = -dbox2[0] + dits[0]; |
| 2283 | zpos = 0. - dits[2] + .7 - dits[2] * 2. + 0. - dits[2]; |
| 2284 | } else if (j == 3) { |
| 2285 | xpos = dbox2[0] - dpcb[0] * 2. - dcop[0] * 2. - dcer[0] * 2. - dsil[0] * 2. - dits[0]; |
| 2286 | zpos = 0. - dits[2] + .7 - dits[2]; |
| 2287 | } else if (j == 4) { |
| 2288 | xpos = -dbox2[0] + dits[0]; |
| 2289 | zpos = 0.; |
| 2290 | } else if (j == 5) { |
| 2291 | xpos = dbox2[0] - dpcb[0] * 2. - dcop[0] * 2. - dcer[0] * 2. - dsil[0] * 2. - dits[0]; |
| 2292 | zpos = dits[2] + 0. - .7 + dits[2]; |
| 2293 | } else if (j == 6) { |
| 2294 | xpos = -dbox2[0] + dits[0]; |
| 2295 | zpos = dits[2] + 0. - .7 + dits[2] * 2. + 0. + dits[2]; |
| 2296 | } else if (j == 7) { |
| 2297 | xpos = dbox2[0] - dpcb[0] * 2. - dcop[0] * 2. - dcer[0] * 2. - dsil[0] * 2. - dits[0]; |
| 2298 | zpos = dits[2] + 0. - .7 + dits[2] * 2. + 0. + dits[2] * 2. - 1.3 + dits[2]; |
| 2299 | } |
| cfce8870 |
2300 | gMC->Gspos("ITS4", j, "IDV4", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2301 | } |
| 2302 | |
| 2303 | // --- Place the larger ribs into their mother (IDV4) |
| 2304 | |
| 2305 | |
| 2306 | // --- Right ribs (just a matter of convention) |
| 2307 | |
| 2308 | xpos = .65 - dbox2[0] + dits[0]; |
| 2309 | zpos = 0.; |
| 2310 | |
| 2311 | // --- Carbon |
| 2312 | |
| 2313 | ypos = 2.81; |
| cfce8870 |
2314 | gMC->Gspos("IR41", 1, "IDV4", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2315 | |
| 2316 | // --- Aluminum #1 |
| 2317 | |
| 2318 | ypos = dsup[1] + 2.81 + dal1[1]; |
| cfce8870 |
2319 | gMC->Gspos("IR42", 1, "IDV4", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2320 | |
| 2321 | // --- Kapton |
| 2322 | |
| 2323 | ypos = dsup[1] + 2.81 + dal1[1] * 2. + dkap[1]; |
| cfce8870 |
2324 | gMC->Gspos("IR43", 1, "IDV4", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2325 | |
| 2326 | // --- Aluminum #2 |
| 2327 | |
| 2328 | ypos = dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * 2. + dal2[1]; |
| cfce8870 |
2329 | gMC->Gspos("IR44", 1, "IDV4", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2330 | |
| 2331 | // --- Silicon (chip) |
| 2332 | |
| 2333 | ypos = dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * 2. + dal2[1] * 2. + dchi[1]; |
| cfce8870 |
2334 | gMC->Gspos("IR45", 1, "IDV4", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2335 | |
| 2336 | // --- Water |
| 2337 | |
| 2338 | ypos = dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * 2. + dal2[1] * 2. + dchi[1] * 2. + dwat[1]; |
| cfce8870 |
2339 | gMC->Gspos("IR46", 1, "IDV4", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2340 | |
| 2341 | // --- Aluminum #3 |
| 2342 | |
| 2343 | ypos = dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * 2. + dal2[1] * 2. + dchi[1] * 2. + dwat[1] * 2. |
| 2344 | + dtub[1]; |
| cfce8870 |
2345 | gMC->Gspos("IR47", 1, "IDV4", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2346 | |
| 2347 | // --- Right ribs (just a matter of convention) |
| 2348 | |
| 2349 | // --- Carbon |
| 2350 | |
| 2351 | ypos = -2.81; |
| cfce8870 |
2352 | gMC->Gspos("IR41", 2, "IDV4", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2353 | |
| 2354 | // --- Aluminum #1 |
| 2355 | |
| 2356 | ypos = -(dsup[1] + 2.81 + dal1[1]); |
| cfce8870 |
2357 | gMC->Gspos("IR42", 2, "IDV4", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2358 | |
| 2359 | // --- Kapton |
| 2360 | |
| 2361 | ypos = -(dsup[1] + 2.81 + dal1[1] * 2. + dkap[1]); |
| cfce8870 |
2362 | gMC->Gspos("IR43", 2, "IDV4", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2363 | |
| 2364 | // --- Aluminum #2 |
| 2365 | |
| 2366 | ypos = -(dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * |
| 2367 | 2. + dal2[1]); |
| cfce8870 |
2368 | gMC->Gspos("IR44", 2, "IDV4", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2369 | |
| 2370 | // --- Silicon (chip) |
| 2371 | |
| 2372 | ypos = -(dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * |
| 2373 | 2. + dal2[1] * 2. + dchi[1]); |
| cfce8870 |
2374 | gMC->Gspos("IR45", 2, "IDV4", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2375 | |
| 2376 | // --- Water |
| 2377 | |
| 2378 | ypos = -(dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * |
| 2379 | 2. + dal2[1] * 2. + dchi[1] * 2. + dwat[1]); |
| cfce8870 |
2380 | gMC->Gspos("IR46", 2, "IDV4", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2381 | |
| 2382 | // --- Aluminum #3 |
| 2383 | |
| 2384 | ypos = -(dsup[1] + 2.81 + dal1[1] * 2. + dkap[1] * |
| 2385 | 2. + dal2[1] * 2. + dchi[1] * 2. + dwat[1] * 2. + dtub[1]); |
| cfce8870 |
2386 | gMC->Gspos("IR47", 2, "IDV4", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2387 | |
| 2388 | // --- Place the end-ladder stuff into its mother (IDV1) |
| 2389 | |
| 2390 | |
| 2391 | // --- Negative-Z end-ladder |
| 2392 | |
| 2393 | ypos = 0.; |
| 2394 | zpos = -(8.7*7.-2.*0.7-2.*1.3)/2.-7.5; |
| 2395 | |
| 2396 | // --- PCB |
| 2397 | |
| 2398 | xpos = dbox2[0] - dpcb[0]; |
| cfce8870 |
2399 | gMC->Gspos("IEL5", 3, "IDV4", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2400 | |
| 2401 | // --- Copper |
| 2402 | |
| 2403 | xpos = dbox2[0] - dpcb[0] * 2. - dcop[0]; |
| cfce8870 |
2404 | gMC->Gspos("IEL6", 3, "IDV4", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2405 | |
| 2406 | // --- Ceramics |
| 2407 | |
| 2408 | xpos = dbox2[0] - dpcb[0] * 2. - dcop[0] * 2. - dcer[0]; |
| cfce8870 |
2409 | gMC->Gspos("IEL7", 3, "IDV4", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2410 | |
| 2411 | // --- Silicon (bus) |
| 2412 | |
| 2413 | xpos = dbox2[0] - dpcb[0] * 2. - dcop[0] * 2. - dcer[0] * 2. - dsil[0]; |
| cfce8870 |
2414 | gMC->Gspos("IEL8", 3, "IDV4", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2415 | |
| 2416 | // --- Positive-Z end-ladder |
| 2417 | |
| 2418 | //yos = 0.; |
| 2419 | zpos = (8.7*7.-2.*0.7-2.*1.3)/2.-7.5; |
| 2420 | |
| 2421 | // --- PCB |
| 2422 | |
| 2423 | xpos = dbox2[0] - dpcb[0]; |
| cfce8870 |
2424 | gMC->Gspos("IEL5", 4, "IDV4", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2425 | |
| 2426 | // --- Copper |
| 2427 | |
| 2428 | xpos = dbox2[0] - dpcb[0] * 2. - dcop[0]; |
| cfce8870 |
2429 | gMC->Gspos("IEL6", 4, "IDV4", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2430 | |
| 2431 | // --- Ceramics |
| 2432 | |
| 2433 | xpos = dbox2[0] - dpcb[0] * 2. - dcop[0] * 2. - dcer[0]; |
| cfce8870 |
2434 | gMC->Gspos("IEL7", 4, "IDV4", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2435 | |
| 2436 | // --- Silicon (bus) |
| 2437 | |
| 2438 | xpos = dbox2[0] - dpcb[0] * 2. - dcop[0] * 2. - dcer[0] * 2. - dsil[0]; |
| cfce8870 |
2439 | gMC->Gspos("IEL8", 4, "IDV4", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2440 | |
| 2441 | //--- Place the ghost volumes containing the drift ladders of layer #4 in their |
| 2442 | // mother volume (IT34) |
| 2443 | // Odd elements have large ribs and even elements have small ribs |
| 2444 | |
| e8189707 |
2445 | for (i = 1; i <= 24; ++i) { |
| fe4da5cc |
2446 | atheta = (i-1) * 15.; |
| 2447 | AliMatrix(idrotm[i+1399], 90., atheta, 90., atheta + 90., 0.,0.); |
| 2448 | if (i % 2 == 0) { |
| 2449 | rzero = 23.5; |
| b3a22d72 |
2450 | xpos = rzero * TMath::Cos((i-1) * ktwopi / 24.); |
| 2451 | ypos = rzero * TMath::Sin((i-1) * ktwopi / 24.); |
| fe4da5cc |
2452 | zpos = 0.; |
| cfce8870 |
2453 | gMC->Gspos("IDV3", i, "IT34", xpos, ypos, zpos, idrotm[i+1399], "ONLY"); |
| fe4da5cc |
2454 | } else { |
| 2455 | rzero = (24.0+22.8)/2.; |
| b3a22d72 |
2456 | xpos = rzero * TMath::Cos((i-1) * ktwopi / 24.); |
| 2457 | ypos = rzero * TMath::Sin((i-1) * ktwopi / 24.); |
| fe4da5cc |
2458 | zpos = 0.; |
| cfce8870 |
2459 | gMC->Gspos("IDV4", i, "IT34", xpos, ypos, zpos, idrotm[i+1399], "ONLY"); |
| fe4da5cc |
2460 | } |
| 2461 | } |
| 2462 | |
| 2463 | //************************************************************************ |
| 2464 | //* * |
| 2465 | //* S T R I P S * |
| 2466 | //* =========== * |
| 2467 | //* * |
| 2468 | //************************************************************************ |
| 2469 | |
| 2470 | // --- Define SSD with the 35+39 lay-out |
| 2471 | |
| 58005f18 |
2472 | if (fMinorVersionV3 < 3) { |
| fe4da5cc |
2473 | |
| 2474 | //--- Define ghost volume containing the Strip Detectors and fill it with air |
| 2475 | // or vacuum |
| 2476 | |
| 2477 | xxm = (49.999-3.)/(70.-25.); |
| 2478 | dgh[0] = 0.; |
| 2479 | dgh[1] = 360.; |
| 2480 | dgh[2] = 4.; |
| 2481 | dgh[3] = -25.-(9.-3.01)/xxm-(9.01-9.)/xxm-(27.-9.01)/xxm- |
| 2482 | (37.-27)/xxm-(49.998-37.)/xxm; |
| 2483 | dgh[4] = 49.998; |
| 2484 | dgh[5] = 49.998; |
| 2485 | dgh[6] = -25.-(9.-3.01)/xxm-(9.01-9.)/xxm-(27.-9.01)/xxm- |
| 2486 | (37.-27)/xxm; |
| 2487 | dgh[7] = 37.; |
| 2488 | dgh[8] = 49.998; |
| 2489 | dgh[9] = 25.+(9.-3.01)/xxm+(9.01-9.)/xxm+(27.-9.01)/xxm+ |
| 2490 | (37.-27)/xxm; |
| 2491 | dgh[10] = 37.; |
| 2492 | dgh[11] = 49.998; |
| 2493 | dgh[12] = 25.+(9.-3.01)/xxm+(9.01-9.)/xxm+(27.-9.01)/xxm+ |
| 2494 | (37.-27)/xxm+(49.998-37.)/xxm; |
| 2495 | dgh[13] = 49.998; |
| 2496 | dgh[14] = 49.998; |
| cfce8870 |
2497 | gMC->Gsvolu("IT56", "PCON", idtmed[275], dgh, 15); |
| 2498 | gMC->Gspos("IT56", 1, "ITSV", 0., 0., 0., 0, "ONLY"); |
| 2499 | gMC->Gsatt("IT56", "SEEN", 0); |
| fe4da5cc |
2500 | |
| 2501 | // --- Layer #5 |
| 2502 | |
| 2503 | // GOTO 5678 ! skip ITS layer no. 5 |
| 2504 | |
| 2505 | //--- Define a ghost volume containing a single ladder of layer #5 andfill |
| 2506 | // it with air or vacuum |
| 2507 | |
| 2508 | dbox1[0] = (0.0600+2.*0.0150)/2.; |
| 2509 | dbox1[1] = 3.75; |
| 2510 | dbox1[2] = 90.22/2.; |
| cfce8870 |
2511 | gMC->Gsvolu("ISV1", "BOX ", idtmed[253], dbox1, 3); |
| fe4da5cc |
2512 | |
| 2513 | // --- Make the ghost volume invisible |
| 2514 | |
| cfce8870 |
2515 | gMC->Gsatt("ISV1", "SEEN", 0); |
| fe4da5cc |
2516 | |
| 2517 | // --- Define a ghost volume containing the electronics and cooling of |
| 2518 | // a single ladder of layer #5 and fill it with air or vacuum |
| 2519 | |
| 2520 | dsrv[0] = (TMath::Sqrt(3.) / 2. * 4.2 + .47 + .05) / 2.; |
| 2521 | dsrv[1] = 3.75; |
| 2522 | dsrv[2] = 90.22/2.; |
| cfce8870 |
2523 | gMC->Gsvolu("SSV1", "BOX ", idtmed[253], dsrv, 3); |
| fe4da5cc |
2524 | |
| 2525 | // --- Make the ghost volume invisible |
| 2526 | |
| cfce8870 |
2527 | gMC->Gsatt("SSV1", "SEEN", 0); |
| fe4da5cc |
2528 | |
| 2529 | // --- Define a ghost volume containing the end-ladder stuff of |
| 2530 | // a single ladder of layer #5 and fill it with air or vacuum |
| 2531 | |
| 2532 | dela[0] = 2.; |
| 2533 | dela[1] = 3.5; |
| 2534 | dela[2] = 4.; |
| cfce8870 |
2535 | gMC->Gsvolu("ELL5", "BOX ", idtmed[253], dela, 3); |
| fe4da5cc |
2536 | |
| 2537 | // --- Make the ghost volume invisible |
| 2538 | |
| cfce8870 |
2539 | gMC->Gsatt("ELL5", "SEEN", 0); |
| fe4da5cc |
2540 | |
| 2541 | // --- Define a volume containing the sensitive part of the strips |
| 2542 | // (silicon, layer #5) |
| 2543 | |
| 2544 | dits[0] = .015; |
| 2545 | dits[1] = 3.75; |
| 2546 | dits[2] = 2.1; |
| cfce8870 |
2547 | gMC->Gsvolu("ITS5", "BOX ", idtmed[249], dits, 3); |
| fe4da5cc |
2548 | |
| 2549 | // --- Define a volume containing the electronics of the strips |
| 2550 | // (silicon, layer #5) |
| 2551 | |
| 2552 | dchi[0] = .02; |
| 2553 | dchi[1] = 3.4; |
| 2554 | dchi[2] = .525; |
| cfce8870 |
2555 | gMC->Gsvolu("SCH5", "BOX ", idtmed[250], dchi, 3); |
| fe4da5cc |
2556 | |
| 2557 | // --- Define the cooling tubes (aluminum, layer #5) |
| 2558 | |
| 2559 | dtub[0] = .09; |
| 2560 | dtub[1] = dtub[0] + .01; |
| 2561 | dtub[2] = 90.22/2.; |
| cfce8870 |
2562 | gMC->Gsvolu("STB5", "TUBE", idtmed[255], dtub, 3); |
| fe4da5cc |
2563 | |
| 2564 | // --- Define the cooling fluid (water or freon, layer #5) |
| 2565 | |
| 2566 | dwat[0] = 0.; |
| 2567 | dwat[1] = .09; |
| 2568 | dwat[2] = 90.22/2.; |
| cfce8870 |
2569 | gMC->Gsvolu("SWT5", "TUBE", idtmed[256], dwat, 3); |
| fe4da5cc |
2570 | // CALL GSVOLU('SWT5','TUBE',IDTMED(258),DWAT,3,IOUT) ! freon |
| 2571 | |
| 2572 | //--- Define the (triangular) element of the heat bridge (carbon, layer #5) |
| 2573 | |
| 2574 | // water |
| 2575 | dfra[0] = 120.; |
| 2576 | dfra[1] = 360.; |
| 2577 | dfra[2] = 3.; |
| 2578 | dfra[3] = 2.; |
| 2579 | dfra[4] = -.015; |
| 2580 | dfra[5] = TMath::Sqrt(3.) * 4.2 / 6.; |
| 2581 | dfra[6] = dfra[5] + .03; |
| 2582 | dfra[7] = .015; |
| 2583 | dfra[8] = dfra[5]; |
| 2584 | dfra[9] = dfra[6]; |
| cfce8870 |
2585 | gMC->Gsvolu("SFR5", "PGON", idtmed[252], dfra, 10); |
| fe4da5cc |
2586 | |
| 2587 | // --- Define the element connecting the triangles of the heat bridge |
| 2588 | // (carbon, layer #5) |
| 2589 | |
| 2590 | dcei[0] = 0.; |
| 2591 | dcei[1] = .03; |
| 2592 | dcei[2] = 90.22/2.; |
| cfce8870 |
2593 | gMC->Gsvolu("SCE5", "TUBE", idtmed[252], dcei, 3); |
| fe4da5cc |
2594 | |
| 2595 | // --- Define the part of the end-ladder stuff made of plastic (G10FR4) |
| 2596 | // (layer #5) |
| 2597 | |
| 2598 | dpla[0] = (10./(8.*7.))/2.; |
| 2599 | dpla[1] = 3.5; |
| 2600 | dpla[2] = 4.; |
| cfce8870 |
2601 | gMC->Gsvolu("EPL5", "BOX ", idtmed[262], dpla, 3); |
| fe4da5cc |
2602 | |
| 2603 | // --- Define the part of the end-ladder stuff made of copper (layer #5) |
| 2604 | |
| 2605 | dcop[0] = (2./(8.*7.))/2.; |
| 2606 | dcop[1] = 3.5; |
| 2607 | dcop[2] = 4.; |
| cfce8870 |
2608 | gMC->Gsvolu("ECU5", "BOX ", idtmed[259], dcop, 3); |
| fe4da5cc |
2609 | |
| 2610 | // --- Define the part of the end-ladder stuff made of epoxy (layer #5) |
| 2611 | |
| 2612 | depx[0] = (30./(8.*7.))/2.; |
| 2613 | depx[1] = 3.5; |
| 2614 | depx[2] = 4.; |
| cfce8870 |
2615 | gMC->Gsvolu("EPX5", "BOX ", idtmed[262], depx, 3); |
| fe4da5cc |
2616 | |
| 2617 | // --- Define the part of the end-ladder stuff made of silicon (bus) |
| 2618 | // (layer #5) |
| 2619 | |
| 2620 | dsil[0] = (20./(8.*7.))/2.; |
| 2621 | dsil[1] = 3.5; |
| 2622 | dsil[2] = 4.; |
| cfce8870 |
2623 | gMC->Gsvolu("ESI5", "BOX ", idtmed[251], dsil, 3); |
| fe4da5cc |
2624 | |
| 2625 | // --- Place the end-ladder stuff into its mother (ELL5) |
| 2626 | |
| 2627 | sep = (4. - (dpla[0] + dcop[0] + depx[0] + dsil[0]) * 2.) / 3.; |
| 2628 | ypos = 0.; |
| 2629 | zpos = 0.; |
| 2630 | |
| 2631 | // --- Plastic |
| 2632 | |
| 2633 | xpos = -dela[0] + dpla[0]; |
| cfce8870 |
2634 | gMC->Gspos("EPL5", 1, "ELL5", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2635 | |
| 2636 | // --- Copper |
| 2637 | |
| 2638 | xpos = -dela[0] + dpla[0] * 2. + sep + dcop[0]; |
| cfce8870 |
2639 | gMC->Gspos("ECU5", 1, "ELL5", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2640 | |
| 2641 | // --- Epoxy |
| 2642 | |
| 2643 | xpos = -dela[0] + dpla[0] * 2. + sep + dcop[0] * 2. + sep + depx[0]; |
| cfce8870 |
2644 | gMC->Gspos("EPX5", 1, "ELL5", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2645 | |
| 2646 | // --- Silicon (bus) |
| 2647 | |
| 2648 | xpos = -dela[0] + dpla[0] * 2. + sep + dcop[0] * 2. + sep + depx[0] * 2. + sep + dsil[0]; |
| cfce8870 |
2649 | gMC->Gspos("ESI5", 1, "ELL5", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2650 | |
| 2651 | // --- Place the sensitive part of the strips into its mother (ISV1) |
| 2652 | |
| 2653 | ypos = 0.; |
| e8189707 |
2654 | for (j = 1; j <= 23; ++j) { |
| fe4da5cc |
2655 | if (j % 2 == 0) xpos = dbox1[0] - dits[0]; |
| 2656 | else xpos = -dbox1[0] + dits[0]; |
| 2657 | zpos = ((j - 1) - 11.) * 3.91; |
| cfce8870 |
2658 | gMC->Gspos("ITS5", j, "ISV1", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2659 | } |
| 2660 | |
| 2661 | // --- Place the electronics of the strips into its mother (SSV1) |
| 2662 | |
| 2663 | ypos = 0.; |
| e8189707 |
2664 | for (j = 1; j <= 23; ++j) { |
| fe4da5cc |
2665 | if (j % 2 == 0) xpos = -dsrv[0] + .28; |
| 2666 | else xpos = -dsrv[0] + .28 - dits[0] * 2. - .03; |
| 2667 | zpos = ((j - 1) - 11.) * 3.91 + .85; |
| cfce8870 |
2668 | gMC->Gspos("SCH5", j, "SSV1", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2669 | } |
| 2670 | |
| 2671 | //--- Place the cooling tubes and the cooling fluid into their mother (SSV1) |
| 2672 | |
| 2673 | xpos = -dsrv[0] + .41; |
| 2674 | zpos = 0.; |
| 2675 | |
| 2676 | // --- Left tube (just a matter of convention) |
| 2677 | |
| 2678 | ypos = -2.25-0.1; |
| cfce8870 |
2679 | gMC->Gspos("STB5", 1, "SSV1", xpos, ypos, zpos, 0, "ONLY"); |
| 2680 | gMC->Gspos("SWT5", 1, "SSV1", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2681 | |
| 2682 | // --- Right tube (just a matter of convention) |
| 2683 | |
| 2684 | ypos = 2.25+0.1; |
| cfce8870 |
2685 | gMC->Gspos("STB5", 2, "SSV1", xpos, ypos, zpos, 0, "ONLY"); |
| 2686 | gMC->Gspos("SWT5", 2, "SSV1", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2687 | |
| 2688 | // --- Place the heat bridge elements into their mother (SSV1) |
| 2689 | |
| 2690 | xpos = -dsrv[0] + .47 + TMath::Sqrt(3.) / 6. * 4.2; |
| 2691 | ypos = 0.; |
| e8189707 |
2692 | for (j = 1; j <= 23; ++j) { // Loop was to 24. Changed to 23 to fit inside |
| 3a15a09e |
2693 | // volume SSV1. This is the same number of |
| 2694 | // elements as SCH5 above. Done Bjorn S. Nilsen |
| 2695 | // April 4 2000. Error found by Ivana |
| 2696 | // Hrivnacova March 29 2000. |
| fe4da5cc |
2697 | zpos = ((j - 1) - 11.) * 3.91 - -4.2/2.; |
| cfce8870 |
2698 | gMC->Gspos("SFR5", j, "SSV1", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2699 | } |
| 2700 | |
| 2701 | // --- Place the elements connecting the triangles of the heat bridge |
| 2702 | // into their mother (SSV1) |
| 2703 | |
| 2704 | zpos = 0.; |
| 2705 | |
| 2706 | // --- Left element (just a matter of convention) |
| 2707 | |
| 2708 | xpos = -dsrv[0] + .47; |
| 2709 | ypos = -(2.1+0.015); |
| cfce8870 |
2710 | gMC->Gspos("SCE5", 1, "SSV1", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2711 | |
| 2712 | // --- Right element |
| 2713 | |
| 2714 | xpos = -dsrv[0] + .47; |
| 2715 | ypos = 2.1+0.015; |
| cfce8870 |
2716 | gMC->Gspos("SCE5", 2, "SSV1", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2717 | |
| 2718 | // --- Top element |
| 2719 | |
| 2720 | xpos = -dsrv[0] + .47 + TMath::Sqrt(3.) / 2. * 4.2 + .015; |
| 2721 | ypos = 0.; |
| cfce8870 |
2722 | gMC->Gspos("SCE5", 3, "SSV1", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2723 | |
| 2724 | // --- Place the ghost volumes containing the strip ladders (ISV1), |
| 2725 | // electronics/cooling (SSV1) and end-ladder stuff (ELL5) of layer #5 in |
| 2726 | // their mother volume (IT56) |
| 2727 | |
| 2728 | offset1 = TMath::ATan2(.9, 40.); |
| 2729 | offset2 = 5.2; |
| 2730 | rzero = dbox1[0] + 40.; |
| 2731 | runo = dbox1[0] * 2. + 40. + dsrv[0]; |
| 2732 | rtwo = dbox1[0] * 2. + 40. + dela[0]; |
| e8189707 |
2733 | for (i = 1; i <= 35; ++i) { |
| b3a22d72 |
2734 | atheta = (i-1) * ktwopi * kraddeg / 35. + offset2; |
| fe4da5cc |
2735 | AliMatrix(idrotm[i+1499], 90., atheta, 90., atheta + 90., 0., 0.); |
| 2736 | |
| 2737 | // --- Strip ladders |
| 2738 | |
| b3a22d72 |
2739 | xpos = rzero * TMath::Cos((i-1) * ktwopi / 35. + offset1); |
| 2740 | ypos = rzero * TMath::Sin((i-1) * ktwopi / 35. + offset1); |
| fe4da5cc |
2741 | zpos = 0.; |
| cfce8870 |
2742 | gMC->Gspos("ISV1", i, "IT56", xpos, ypos, zpos, idrotm[i+1499], "ONLY"); |
| fe4da5cc |
2743 | |
| 2744 | // --- Electronics/cooling |
| 2745 | |
| b3a22d72 |
2746 | xpos = runo * TMath::Cos((i-1) * ktwopi / 35. + offset1); |
| 2747 | ypos = runo * TMath::Sin((i-1) * ktwopi / 35. + offset1); |
| fe4da5cc |
2748 | zpos = 0.; |
| cfce8870 |
2749 | gMC->Gspos("SSV1", i, "IT56", xpos, ypos, zpos, idrotm[i+1499], "ONLY"); |
| fe4da5cc |
2750 | |
| 2751 | // --- End-ladders (nagative-Z and positive-Z) |
| 2752 | |
| b3a22d72 |
2753 | xpos = rtwo * TMath::Cos((i-1) * ktwopi / 35. + offset1); |
| 2754 | ypos = rtwo * TMath::Sin((i-1) * ktwopi / 35. + offset1); |
| fe4da5cc |
2755 | zpos = -(dbox1[2] + dela[2] + 6.); |
| cfce8870 |
2756 | gMC->Gspos("ELL5", i, "IT56", xpos, ypos, zpos, idrotm[i+1499], "ONLY"); |
| fe4da5cc |
2757 | zpos = dbox1[2] + dela[2] + 6.; |
| cfce8870 |
2758 | gMC->Gspos("ELL5", i + 35, "IT56", xpos, ypos, zpos, idrotm[i+1499], "ONLY"); |
| fe4da5cc |
2759 | } |
| 2760 | |
| 2761 | |
| 2762 | // --- Layer #6 |
| 2763 | |
| 2764 | // GOTO 5778 ! skip ITS layer no. 6 |
| 2765 | |
| 2766 | //--- Define a ghost volume containing a single ladder of layer #6 andfill |
| 2767 | // it with air or vacuum |
| 2768 | |
| 2769 | dbox2[0] = (0.0600+2.*0.0150)/2.; |
| 2770 | dbox2[1] = 3.75; |
| 2771 | dbox2[2] = 101.95/2.; |
| cfce8870 |
2772 | gMC->Gsvolu("ISV2", "BOX ", idtmed[253], dbox2, 3); |
| fe4da5cc |
2773 | |
| 2774 | // --- Make the ghost volume invisible |
| 2775 | |
| cfce8870 |
2776 | gMC->Gsatt("ISV2", "SEEN", 0); |
| fe4da5cc |
2777 | |
| 2778 | // --- Define a ghost volume containing the electronics and cooling of |
| 2779 | // a single ladder of layer #6 and fill it with air or vacuum |
| 2780 | |
| 2781 | dsrv[0] = (TMath::Sqrt(3.) / 2. * 4.2 + .47 + .05) / 2.; |
| 2782 | dsrv[1] = 3.75; |
| 2783 | dsrv[2] = 101.95/2.; |
| cfce8870 |
2784 | gMC->Gsvolu("SSV2", "BOX ", idtmed[253], dsrv, 3); |
| fe4da5cc |
2785 | |
| 2786 | // --- Make the ghost volume invisible |
| 2787 | |
| cfce8870 |
2788 | gMC->Gsatt("SSV2", "SEEN", 0); |
| fe4da5cc |
2789 | |
| 2790 | // --- Define a ghost volume containing the end-ladder stuff of |
| 2791 | // a single ladder of layer #6 and fill it with air or vacuum |
| 2792 | |
| 2793 | dela[0] = 2.; |
| 2794 | dela[1] = 3.5; |
| 2795 | dela[2] = 4.; |
| cfce8870 |
2796 | gMC->Gsvolu("ELL6", "BOX ", idtmed[253], dela, 3); |
| fe4da5cc |
2797 | |
| 2798 | // --- Make the ghost volume invisible |
| 2799 | |
| cfce8870 |
2800 | gMC->Gsatt("ELL6", "SEEN", 0); |
| fe4da5cc |
2801 | |
| 2802 | // --- Define a volume containing the sensitive part of the strips |
| 2803 | // (silicon, layer #6) |
| 2804 | |
| 2805 | dits[0] = .015; |
| 2806 | dits[1] = 3.75; |
| 2807 | dits[2] = 2.1; |
| cfce8870 |
2808 | gMC->Gsvolu("ITS6", "BOX ", idtmed[249], dits, 3); |
| fe4da5cc |
2809 | |
| 2810 | // --- Define a volume containing the electronics of the strips |
| 2811 | // (silicon, layer #6) |
| 2812 | |
| 2813 | dchi[0] = .02; |
| 2814 | dchi[1] = 3.4; |
| 2815 | dchi[2] = .525; |
| cfce8870 |
2816 | gMC->Gsvolu("SCH6", "BOX ", idtmed[250], dchi, 3); |
| fe4da5cc |
2817 | |
| 2818 | // --- Define the cooling tubes (aluminum, layer #6) |
| 2819 | |
| 2820 | dtub[0] = .09; |
| 2821 | dtub[1] = dtub[0] + .01; |
| 2822 | dtub[2] = 101.95/2.; |
| cfce8870 |
2823 | gMC->Gsvolu("STB6", "TUBE", idtmed[255], dtub, 3); |
| fe4da5cc |
2824 | |
| 2825 | // --- Define the cooling fluid (water or freon, layer #6) |
| 2826 | |
| 2827 | dwat[0] = 0.; |
| 2828 | dwat[1] = .09; |
| 2829 | dwat[2] = 101.95/2.; |
| cfce8870 |
2830 | gMC->Gsvolu("SWT6", "TUBE", idtmed[256], dwat, 3); |
| fe4da5cc |
2831 | // CALL GSVOLU('SWT6','TUBE',IDTMED(258),DWAT,3,IOUT) ! freon |
| 2832 | |
| 2833 | //--- Define the (triangular) element of the heat bridge (carbon, layer #6) |
| 2834 | |
| 2835 | // water |
| 2836 | dfra[0] = 120.; |
| 2837 | dfra[1] = 360.; |
| 2838 | dfra[2] = 3.; |
| 2839 | dfra[3] = 2.; |
| 2840 | dfra[4] = -.015; |
| 2841 | dfra[5] = TMath::Sqrt(3.) * 4.2 / 6.; |
| 2842 | dfra[6] = dfra[5] + .03; |
| 2843 | dfra[7] = .015; |
| 2844 | dfra[8] = dfra[5]; |
| 2845 | dfra[9] = dfra[6]; |
| cfce8870 |
2846 | gMC->Gsvolu("SFR6", "PGON", idtmed[252], dfra, 10); |
| fe4da5cc |
2847 | |
| 2848 | // --- Define the element connecting the triangles of the heat bridge |
| 2849 | // (carbon, layer #6) |
| 2850 | |
| 2851 | dcei[0] = 0.; |
| 2852 | dcei[1] = .03; |
| 2853 | dcei[2] = 101.95/2.; |
| cfce8870 |
2854 | gMC->Gsvolu("SCE6", "TUBE", idtmed[252], dcei, 3); |
| fe4da5cc |
2855 | |
| 2856 | // --- Define the part of the end-ladder stuff made of plastic (G10FR4) |
| 2857 | // (layer #6) |
| 2858 | |
| 2859 | dpla[0] = (10./(8.*7.))/2.; |
| 2860 | dpla[1] = 3.5; |
| 2861 | dpla[2] = 4.; |
| cfce8870 |
2862 | gMC->Gsvolu("EPL6", "BOX ", idtmed[262], dpla, 3); |
| fe4da5cc |
2863 | |
| 2864 | // --- Define the part of the end-ladder stuff made of copper (layer #6) |
| 2865 | |
| 2866 | dcop[0] = (2./(8.*7.))/2.; |
| 2867 | dcop[1] = 3.5; |
| 2868 | dcop[2] = 4.; |
| cfce8870 |
2869 | gMC->Gsvolu("ECU6", "BOX ", idtmed[259], dcop, 3); |
| fe4da5cc |
2870 | |
| 2871 | // --- Define the part of the end-ladder stuff made of epoxy (layer #6) |
| 2872 | |
| 2873 | depx[0] = (30./(8.*7.))/2.; |
| 2874 | depx[1] = 3.5; |
| 2875 | depx[2] = 4.; |
| cfce8870 |
2876 | gMC->Gsvolu("EPX6", "BOX ", idtmed[262], depx, 3); |
| fe4da5cc |
2877 | |
| 2878 | // --- Define the part of the end-ladder stuff made of silicon (bus) |
| 2879 | // (layer #6) |
| 2880 | |
| 2881 | dsil[0] = (20./(8.*7.))/2.; |
| 2882 | dsil[1] = 3.5; |
| 2883 | dsil[2] = 4.; |
| cfce8870 |
2884 | gMC->Gsvolu("ESI6", "BOX ", idtmed[251], dsil, 3); |
| fe4da5cc |
2885 | |
| 2886 | // --- Place the end-ladder stuff into its mother (ELL5) |
| 2887 | |
| 2888 | sep = (4. - (dpla[0] + dcop[0] + depx[0] + dsil[0]) * 2.) / 3.; |
| 2889 | ypos = 0.; |
| 2890 | zpos = 0.; |
| 2891 | |
| 2892 | // --- Plastic |
| 2893 | |
| 2894 | xpos = -dela[0] + dpla[0]; |
| cfce8870 |
2895 | gMC->Gspos("EPL6", 1, "ELL6", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2896 | |
| 2897 | // --- Copper |
| 2898 | |
| 2899 | xpos = -dela[0] + dpla[0] * 2. + sep + dcop[0]; |
| cfce8870 |
2900 | gMC->Gspos("ECU6", 1, "ELL6", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2901 | |
| 2902 | // --- Epoxy |
| 2903 | |
| 2904 | xpos = -dela[0] + dpla[0] * 2. + sep + dcop[0] * 2. + sep + depx[0]; |
| cfce8870 |
2905 | gMC->Gspos("EPX6", 1, "ELL6", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2906 | |
| 2907 | // --- Silicon (bus) |
| 2908 | |
| 2909 | xpos = -dela[0] + dpla[0] * 2. + sep + dcop[0] * 2. + sep + depx[0] * 2. + sep + dsil[0]; |
| cfce8870 |
2910 | gMC->Gspos("ESI6", 1, "ELL6", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2911 | |
| 2912 | // --- Place the sensitive part of the strips into its mother (ISV2) |
| 2913 | |
| 2914 | ypos = 0.; |
| e8189707 |
2915 | for (j = 1; j <= 26; ++j) { |
| fe4da5cc |
2916 | if (j % 2 == 0) xpos = dbox2[0] - dits[0]; |
| 2917 | else xpos = -dbox2[0] + dits[0]; |
| 2918 | zpos = ((j - 1) - 12.) * 3.91 - 1.96; |
| cfce8870 |
2919 | gMC->Gspos("ITS6", j, "ISV2", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2920 | } |
| 2921 | |
| 2922 | // --- Place the electronics of the strips into its mother (SSV2) |
| 2923 | |
| 2924 | ypos = 0.; |
| e8189707 |
2925 | for (j = 1; j <= 26; ++j) { |
| fe4da5cc |
2926 | if (j % 2 == 0) xpos = -dsrv[0] + .28; |
| 2927 | else xpos = -dsrv[0] + .28 - dits[0] * 2. - .03; |
| 2928 | zpos = ((j - 1) - 12.) * 3.91 - 1.96 + .85; |
| cfce8870 |
2929 | gMC->Gspos("SCH5", j, "SSV2", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2930 | } |
| 2931 | |
| 2932 | //--- Place the cooling tubes and the cooling fluid into their mother (SSV1) |
| 2933 | |
| 2934 | xpos = -dsrv[0] + .41; |
| 2935 | zpos = 0.; |
| 2936 | |
| 2937 | // --- Left tube (just a matter of convention) |
| 2938 | |
| 2939 | ypos = -2.25-0.1; |
| cfce8870 |
2940 | gMC->Gspos("STB6", 1, "SSV2", xpos, ypos, zpos, 0, "ONLY"); |
| 2941 | gMC->Gspos("SWT6", 1, "SSV2", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2942 | |
| 2943 | // --- Right tube (just a matter of convention) |
| 2944 | |
| 2945 | ypos = 2.25+0.; |
| cfce8870 |
2946 | gMC->Gspos("STB6", 2, "SSV2", xpos, ypos, zpos, 0, "ONLY"); |
| 2947 | gMC->Gspos("SWT6", 2, "SSV2", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2948 | |
| 2949 | // --- Place the heat bridge elements into their mother (SSV2) |
| 2950 | |
| 2951 | xpos = -dsrv[0] + .47 + TMath::Sqrt(3.) / 6. * 4.2; |
| 2952 | ypos = 0.; |
| e8189707 |
2953 | for (j = 1; j <= 27; ++j) { |
| fe4da5cc |
2954 | zpos = ((j - 1) - 12.) * 3.91 - 1.96 - 4.2/2.; |
| cfce8870 |
2955 | gMC->Gspos("SFR6", j, "SSV2", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2956 | } |
| 2957 | |
| 2958 | // --- Place the elements connecting the triangles of the heat bridge |
| 2959 | // into their mother (SSV2) |
| 2960 | |
| 2961 | zpos = 0.; |
| 2962 | |
| 2963 | // --- Left element (just a matter of convention) |
| 2964 | |
| 2965 | xpos = -dsrv[0] + .47; |
| 2966 | ypos = -(2.1+0.015); |
| cfce8870 |
2967 | gMC->Gspos("SCE6", 1, "SSV2", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2968 | |
| 2969 | // --- Right element |
| 2970 | |
| 2971 | xpos = -dsrv[0] + .47; |
| 2972 | ypos = 2.1+0.015; |
| cfce8870 |
2973 | gMC->Gspos("SCE6", 2, "SSV2", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2974 | |
| 2975 | // --- Top element |
| 2976 | |
| 2977 | xpos = -dsrv[0] + .47 + TMath::Sqrt(3.) / 2. * 4.2 + .015; |
| 2978 | ypos = 0.; |
| cfce8870 |
2979 | gMC->Gspos("SCE6", 3, "SSV2", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
2980 | |
| 2981 | // --- Place the ghost volumes containing the strip ladders (ISV2), |
| 2982 | // electronics/cooling (SSV2) and end-ladder stuff (ELL6) of layer #6 in |
| 2983 | // their mother volume (IT56) |
| 2984 | |
| 2985 | offset1 = TMath::ATan2(1., 45.); |
| 2986 | offset2 = 5.2; |
| 2987 | rzero = dbox2[0] + 45.; |
| 2988 | runo = dbox2[0] * 2. + 45. + dsrv[0]; |
| 2989 | rtwo = dbox2[0] * 2. + 45. + dela[0]; |
| e8189707 |
2990 | for (i = 1; i <= 39; ++i) { |
| b3a22d72 |
2991 | atheta = (i-1) * ktwopi * kraddeg / 39. + offset2; |
| fe4da5cc |
2992 | AliMatrix(idrotm[i+1599], 90., atheta, 90., atheta + 90., 0., 0.); |
| 2993 | |
| 2994 | // --- Strip ladders |
| 2995 | |
| b3a22d72 |
2996 | xpos = rzero * TMath::Cos((i-1) * ktwopi / 39. + offset1); |
| 2997 | ypos = rzero * TMath::Sin((i-1) * ktwopi / 39. + offset1); |
| fe4da5cc |
2998 | zpos = 0.; |
| cfce8870 |
2999 | gMC->Gspos("ISV2", i, "IT56", xpos, ypos, zpos, idrotm[i+1599], "ONLY"); |
| fe4da5cc |
3000 | |
| 3001 | // --- Electronics/cooling |
| 3002 | |
| b3a22d72 |
3003 | xpos = runo * TMath::Cos((i-1) * ktwopi / 39. + offset1); |
| 3004 | ypos = runo * TMath::Sin((i-1) * ktwopi / 39. + offset1); |
| fe4da5cc |
3005 | zpos = 0.; |
| cfce8870 |
3006 | gMC->Gspos("SSV2", i, "IT56", xpos, ypos, zpos, idrotm[i+1599], "ONLY"); |
| fe4da5cc |
3007 | |
| 3008 | // --- End-ladders (nagative-Z and positive-Z) |
| 3009 | |
| b3a22d72 |
3010 | xpos = rtwo * TMath::Cos((i-1) * ktwopi / 39. + offset1); |
| 3011 | ypos = rtwo * TMath::Sin((i-1) * ktwopi / 39. + offset1); |
| fe4da5cc |
3012 | zpos = -(dbox2[2] + dela[2] + 6.); |
| cfce8870 |
3013 | gMC->Gspos("ELL6", i, "IT56", xpos, ypos, zpos, idrotm[i+1599], "ONLY"); |
| fe4da5cc |
3014 | zpos = dbox2[2] + dela[2] + 6.; |
| cfce8870 |
3015 | gMC->Gspos("ELL6", i + 39, "IT56", xpos, ypos, zpos, idrotm[i+1599], "ONLY"); |
| fe4da5cc |
3016 | } |
| 3017 | //#ifdef NEVER |
| 3018 | } |
| 3019 | |
| 3020 | // --- Define SSD with the 32+36 lay-out |
| 3021 | |
| 58005f18 |
3022 | if (fMinorVersionV3 >2 && fMinorVersionV3 < 6) { |
| fe4da5cc |
3023 | |
| 3024 | //--- Define ghost volume containing the Strip Detectors and fill it with air |
| 3025 | // or vacuum |
| 3026 | |
| 3027 | xxm = (49.999-3.)/(70.-25.); |
| 3028 | dgh[0] = 0.; |
| 3029 | dgh[1] = 360.; |
| 3030 | dgh[2] = 4.; |
| 3031 | dgh[3] = -25. - (9.-3.01) / xxm - (9.01-9.) / xxm - |
| 3032 | (27.-9.01) / xxm - (36.-27.) / xxm - (49.998-36.) / xxm; |
| 3033 | dgh[4] = 49.998; |
| 3034 | dgh[5] = 49.998; |
| 3035 | dgh[6] = -25. - (9.-3.01) / xxm - |
| 3036 | (9.01-9.) / xxm - (27.-9.01) / xxm - (36.-27.) / xxm; |
| 3037 | dgh[7] = 36.; |
| 3038 | dgh[8] = 49.998; |
| 3039 | dgh[9] = (9.-3.01) / xxm + 25. + |
| 3040 | (9.01-9.) / xxm + (27.-9.01) / xxm + (36.-27.) / xxm; |
| 3041 | dgh[10] = 36.; |
| 3042 | dgh[11] = 49.998; |
| 3043 | dgh[12] = (9.-3.01) / xxm + 25. + (9.01-9.) / xxm + |
| 3044 | (27.-9.01) / xxm + (36.-27.) / xxm + (49.998-36.) / xxm; |
| 3045 | dgh[13] = 49.998; |
| 3046 | dgh[14] = 49.998; |
| cfce8870 |
3047 | gMC->Gsvolu("IT56", "PCON", idtmed[275], dgh, 15); |
| 3048 | gMC->Gspos("IT56", 1, "ITSV", 0., 0., 0., 0, "ONLY"); |
| 3049 | gMC->Gsatt("IT56", "SEEN", 0); |
| fe4da5cc |
3050 | |
| 3051 | // --- Layer #5 |
| 3052 | |
| 3053 | // GOTO 6678 ! skip ITS layer no. 5 |
| 3054 | |
| 3055 | //--- Define a ghost volume containing a single ladder of layer #5 andfill |
| 3056 | // it with air or vacuum |
| 3057 | |
| 3058 | dbox1[0] = (0.0600+2.*0.0150)/2.; |
| 3059 | dbox1[1] = 3.75; |
| 3060 | dbox1[2] = 86.31/2.; |
| cfce8870 |
3061 | gMC->Gsvolu("ISV1", "BOX ", idtmed[253], dbox1, 3); |
| fe4da5cc |
3062 | |
| 3063 | // --- Make the ghost volume invisible |
| 3064 | |
| cfce8870 |
3065 | gMC->Gsatt("ISV1", "SEEN", 0); |
| fe4da5cc |
3066 | |
| 3067 | // --- Define a ghost volume containing the electronics and cooling of |
| 3068 | // a single ladder of layer #5 and fill it with air or vacuum |
| 3069 | |
| 3070 | dsrv[0] = (TMath::Sqrt(3.) / 2. * 4.2 + .47 + .05) / 2.; |
| 3071 | dsrv[1] = 3.75; |
| 3072 | dsrv[2] = 86.31/2.; |
| cfce8870 |
3073 | gMC->Gsvolu("SSV1", "BOX ", idtmed[253], dsrv, 3); |
| fe4da5cc |
3074 | |
| 3075 | // --- Make the ghost volume invisible |
| 3076 | |
| cfce8870 |
3077 | gMC->Gsatt("SSV1", "SEEN", 0); |
| fe4da5cc |
3078 | |
| 3079 | // --- Define a ghost volume containing the end-ladder stuff of |
| 3080 | // a single ladder of layer #5 and fill it with air or vacuum |
| 3081 | |
| 3082 | dela[0] = 2.; |
| 3083 | dela[1] = 3.5; |
| 3084 | dela[2] = 4.; |
| cfce8870 |
3085 | gMC->Gsvolu("ELL5", "BOX ", idtmed[253], dela, 3); |
| fe4da5cc |
3086 | |
| 3087 | // --- Make the ghost volume invisible |
| 3088 | |
| cfce8870 |
3089 | gMC->Gsatt("ELL5", "SEEN", 0); |
| fe4da5cc |
3090 | |
| 3091 | // --- Define a volume containing the sensitive part of the strips |
| 3092 | // (silicon, layer #5) |
| 3093 | |
| 3094 | dits[0] = .015; |
| 3095 | dits[1] = 3.75; |
| 3096 | dits[2] = 2.1; |
| cfce8870 |
3097 | gMC->Gsvolu("ITS5", "BOX ", idtmed[249], dits, 3); |
| fe4da5cc |
3098 | |
| 3099 | // --- Define a volume containing the electronics of the strips |
| 3100 | // (silicon, layer #5) |
| 3101 | |
| 3102 | dchi[0] = .02; |
| 3103 | dchi[1] = 3.4; |
| 3104 | dchi[2] = .525; |
| cfce8870 |
3105 | gMC->Gsvolu("SCH5", "BOX ", idtmed[250], dchi, 3); |
| fe4da5cc |
3106 | |
| 3107 | // --- Define the cooling tubes (aluminum, layer #5) |
| 3108 | |
| 3109 | dtub[0] = .09; |
| 3110 | dtub[1] = dtub[0] + .01; |
| 3111 | dtub[2] = 86.31/2.; |
| cfce8870 |
3112 | gMC->Gsvolu("STB5", "TUBE", idtmed[255], dtub, 3); |
| fe4da5cc |
3113 | |
| 3114 | // --- Define the cooling fluid (water or freon, layer #5) |
| 3115 | |
| 3116 | dwat[0] = 0.; |
| 3117 | dwat[1] = .09; |
| 3118 | dwat[2] = 86.31/2.; |
| cfce8870 |
3119 | gMC->Gsvolu("SWT5", "TUBE", idtmed[256], dwat, 3); |
| fe4da5cc |
3120 | // CALL GSVOLU('SWT5','TUBE',IDTMED(258),DWAT,3,IOUT) ! freon |
| 3121 | |
| 3122 | //--- Define the (triangular) element of the heat bridge (carbon, layer #5) |
| 3123 | |
| 3124 | // water |
| 3125 | dfra[0] = 120.; |
| 3126 | dfra[1] = 360.; |
| 3127 | dfra[2] = 3.; |
| 3128 | dfra[3] = 2.; |
| 3129 | dfra[4] = -.015; |
| 3130 | dfra[5] = TMath::Sqrt(3.) * 4.2 / 6.; |
| 3131 | dfra[6] = dfra[5] + .03; |
| 3132 | dfra[7] = .015; |
| 3133 | dfra[8] = dfra[5]; |
| 3134 | dfra[9] = dfra[6]; |
| cfce8870 |
3135 | gMC->Gsvolu("SFR5", "PGON", idtmed[252], dfra, 10); |
| fe4da5cc |
3136 | |
| 3137 | // --- Define the element connecting the triangles of the heat bridge |
| 3138 | // (carbon, layer #5) |
| 3139 | |
| 3140 | dcei[0] = 0.; |
| 3141 | dcei[1] = .03; |
| 3142 | dcei[2] = 86.31/2.; |
| cfce8870 |
3143 | gMC->Gsvolu("SCE5", "TUBE", idtmed[252], dcei, 3); |
| fe4da5cc |
3144 | |
| 3145 | // --- Define the part of the end-ladder stuff made of plastic (G10FR4) |
| 3146 | // (layer #5) |
| 3147 | |
| 3148 | dpla[0] = (10./(8.*7.))/2; |
| 3149 | dpla[1] = 3.5; |
| 3150 | dpla[2] = 4.; |
| cfce8870 |
3151 | gMC->Gsvolu("EPL5", "BOX ", idtmed[262], dpla, 3); |
| fe4da5cc |
3152 | |
| 3153 | // --- Define the part of the end-ladder stuff made of copper (layer #5) |
| 3154 | |
| 3155 | dcop[0] = (2./(8.*7.))/2; |
| 3156 | dcop[1] = 3.5; |
| 3157 | dcop[2] = 4.; |
| cfce8870 |
3158 | gMC->Gsvolu("ECU5", "BOX ", idtmed[259], dcop, 3); |
| fe4da5cc |
3159 | |
| 3160 | // --- Define the part of the end-ladder stuff made of epoxy (layer #5) |
| 3161 | |
| 3162 | depx[0] = (30./(8.*7.))/2.; |
| 3163 | depx[1] = 3.5; |
| 3164 | depx[2] = 4.; |
| cfce8870 |
3165 | gMC->Gsvolu("EPX5", "BOX ", idtmed[262], depx, 3); |
| fe4da5cc |
3166 | |
| 3167 | // --- Define the part of the end-ladder stuff made of silicon (bus) |
| 3168 | // (layer #5) |
| 3169 | |
| 3170 | dsil[0] = (20./(8.*7.))/2.; |
| 3171 | dsil[1] = 3.5; |
| 3172 | dsil[2] = 4.; |
| cfce8870 |
3173 | gMC->Gsvolu("ESI5", "BOX ", idtmed[251], dsil, 3); |
| fe4da5cc |
3174 | |
| 3175 | // --- Place the end-ladder stuff into its mother (ELL5) |
| 3176 | |
| 3177 | sep = (4. - (dpla[0] + dcop[0] + depx[0] + dsil[0]) * 2.) / 3.; |
| 3178 | ypos = 0.; |
| 3179 | zpos = 0.; |
| 3180 | |
| 3181 | // --- Plastic |
| 3182 | |
| 3183 | xpos = -dela[0] + dpla[0]; |
| cfce8870 |
3184 | gMC->Gspos("EPL5", 1, "ELL5", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
3185 | |
| 3186 | // --- Copper |
| 3187 | |
| 3188 | xpos = -dela[0] + dpla[0] * 2. + sep + dcop[0]; |
| cfce8870 |
3189 | gMC->Gspos("ECU5", 1, "ELL5", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
3190 | |
| 3191 | // --- Epoxy |
| 3192 | |
| 3193 | xpos = -dela[0] + dpla[0] * 2. + sep + dcop[0] * 2. + sep + depx[0]; |
| cfce8870 |
3194 | gMC->Gspos("EPX5", 1, "ELL5", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
3195 | |
| 3196 | // --- Silicon (bus) |
| 3197 | |
| 3198 | xpos = -dela[0] + dpla[0] * 2. + sep + dcop[0] * 2. + sep + depx[0] * 2. + sep + dsil[0]; |
| cfce8870 |
3199 | gMC->Gspos("ESI5", 1, "ELL5", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
3200 | |
| 3201 | // --- Place the sensitive part of the strips into its mother (ISV1) |
| 3202 | |
| 3203 | ypos = 0.; |
| e8189707 |
3204 | for (j = 1; j <= 22; ++j) { |
| fe4da5cc |
3205 | if (j % 2 == 0) xpos = dbox1[0] - dits[0]; |
| 3206 | else xpos = -dbox1[0] + dits[0]; |
| 3207 | zpos = ((j - 1) - 10.) * 3.91 - 1.96; |
| cfce8870 |
3208 | gMC->Gspos("ITS5", j, "ISV1", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
3209 | } |
| 3210 | |
| 3211 | // --- Place the electronics of the strips into its mother (SSV1) |
| 3212 | |
| 3213 | ypos = 0.; |
| e8189707 |
3214 | for (j = 1; j <= 22; ++j) { |
| fe4da5cc |
3215 | if (j % 2 == 0) xpos = -dsrv[0] + .28; |
| 3216 | else xpos = -dsrv[0] + .28 - dits[0] * 2. - .03; |
| 3217 | zpos = ((j - 1) - 10.) * 3.91 - 1.96 + .85; |
| cfce8870 |
3218 | gMC->Gspos("SCH5", j, "SSV1", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
3219 | } |
| 3220 | |
| 3221 | //--- Place the cooling tubes and the cooling fluid into their mother (SSV1) |
| 3222 | |
| 3223 | xpos = -dsrv[0] + .41; |
| 3224 | zpos = 0.; |
| 3225 | |
| 3226 | // --- Left tube (just a matter of convention) |
| 3227 | |
| 3228 | ypos = -(2.25+0.1); |
| cfce8870 |
3229 | gMC->Gspos("STB5", 1, "SSV1", xpos, ypos, zpos, 0, "ONLY"); |
| 3230 | gMC->Gspos("SWT5", 1, "SSV1", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
3231 | |
| 3232 | // --- Right tube (just a matter of convention) |
| 3233 | |
| 3234 | ypos = (2.25+0.1); |
| cfce8870 |
3235 | gMC->Gspos("STB5", 2, "SSV1", xpos, ypos, zpos, 0, "ONLY"); |
| 3236 | gMC->Gspos("SWT5", 2, "SSV1", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
3237 | |
| 3238 | // --- Place the heat bridge elements into their mother (SSV1) |
| 3239 | |
| 3240 | xpos = -dsrv[0] + .47 + TMath::Sqrt(3.) / 6. * 4.2; |
| 3241 | ypos = 0.; |
| e8189707 |
3242 | for (j = 1; j <= 23; ++j) { |
| fe4da5cc |
3243 | zpos = ((j - 1) - 10.) * 3.91 - 1.96 - 4.2/2.; |
| cfce8870 |
3244 | gMC->Gspos("SFR5", j, "SSV1", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
3245 | } |
| 3246 | |
| 3247 | // --- Place the elements connecting the triangles of the heat bridge |
| 3248 | // into their mother (SSV1) |
| 3249 | |
| 3250 | zpos = 0.; |
| 3251 | |
| 3252 | // --- Left element (just a matter of convention) |
| 3253 | |
| 3254 | xpos = -dsrv[0] + .47; |
| 3255 | ypos = -(2.1+0.015); |
| cfce8870 |
3256 | gMC->Gspos("SCE5", 1, "SSV1", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
3257 | |
| 3258 | // --- Right element |
| 3259 | |
| 3260 | xpos = -dsrv[0] + .47; |
| 3261 | ypos = (2.1+0.015); |
| cfce8870 |
3262 | gMC->Gspos("SCE5", 2, "SSV1", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
3263 | |
| 3264 | // --- Top element |
| 3265 | |
| 3266 | xpos = -dsrv[0] + .47 + TMath::Sqrt(3.) / 2. * 4.2 + .015; |
| 3267 | ypos = 0.; |
| cfce8870 |
3268 | gMC->Gspos("SCE5", 3, "SSV1", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
3269 | |
| 3270 | // --- Place the ghost volumes containing the strip ladders (ISV1), |
| 3271 | // electronics/cooling (SSV1) and end-ladder stuff (ELL5) of layer #5 in |
| 3272 | // their mother volume (IT56) |
| 3273 | |
| 3274 | offset1 = TMath::ATan2(.8, 36.6); |
| 3275 | offset2 = 5.2; |
| 3276 | rzero = dbox1[0] + 36.6; |
| 3277 | runo = dbox1[0] * 2. + 36.6 + dsrv[0]; |
| 3278 | rtwo = dbox1[0] * 2. + 36.6 + dela[0]; |
| e8189707 |
3279 | for (i = 1; i <= 32; ++i) { |
| b3a22d72 |
3280 | atheta = (i-1) * ktwopi * kraddeg / 32. + offset2; |
| fe4da5cc |
3281 | AliMatrix(idrotm[i+1499], 90., atheta, 90., atheta + 90., 0., 0.); |
| 3282 | |
| 3283 | // --- Strip ladders |
| 3284 | |
| b3a22d72 |
3285 | xpos = rzero * TMath::Cos((i-1) * ktwopi / 32. + offset1); |
| 3286 | ypos = rzero * TMath::Sin((i-1) * ktwopi / 32. + offset1); |
| fe4da5cc |
3287 | zpos = 0.; |
| cfce8870 |
3288 | gMC->Gspos("ISV1", i, "IT56", xpos, ypos, zpos, idrotm[i+1499], "ONLY"); |
| fe4da5cc |
3289 | |
| 3290 | // --- Electronics/cooling |
| 3291 | |
| b3a22d72 |
3292 | xpos = runo * TMath::Cos((i-1) * ktwopi / 32. + offset1); |
| 3293 | ypos = runo * TMath::Sin((i-1) * ktwopi / 32. + offset1); |
| fe4da5cc |
3294 | zpos = 0.; |
| cfce8870 |
3295 | gMC->Gspos("SSV1", i, "IT56", xpos, ypos, zpos, idrotm[i+1499], "ONLY"); |
| fe4da5cc |
3296 | |
| 3297 | // --- End-ladders (nagative-Z and positive-Z) |
| 3298 | |
| b3a22d72 |
3299 | xpos = rtwo * TMath::Cos((i-1) * ktwopi / 32. + offset1); |
| 3300 | ypos = rtwo * TMath::Sin((i-1) * ktwopi / 32. + offset1); |
| fe4da5cc |
3301 | zpos = -(dbox1[2] + dela[2] + 6.); |
| cfce8870 |
3302 | gMC->Gspos("ELL5", i, "IT56", xpos, ypos, zpos, idrotm[i+1499], "ONLY"); |
| fe4da5cc |
3303 | zpos = dbox1[2] + dela[2] + 6.; |
| cfce8870 |
3304 | gMC->Gspos("ELL5", i + 35, "IT56", xpos, ypos, zpos, idrotm[i+1499], "ONLY"); |
| fe4da5cc |
3305 | } |
| 3306 | |
| 3307 | |
| 3308 | // --- Layer #6 |
| 3309 | |
| 3310 | // GOTO 6778 ! skip ITS layer no. 6 |
| 3311 | |
| 3312 | //--- Define a ghost volume containing a single ladder of layer #6 andfill |
| 3313 | // it with air or vacuum |
| 3314 | |
| 3315 | dbox2[0] = (0.0600+2.*0.0150)/2.; |
| 3316 | dbox2[1] = 3.75; |
| 3317 | dbox2[2] = 94.13/2.; |
| cfce8870 |
3318 | gMC->Gsvolu("ISV2", "BOX ", idtmed[253], dbox2, 3); |
| fe4da5cc |
3319 | |
| 3320 | // --- Make the ghost volume invisible |
| 3321 | |
| cfce8870 |
3322 | gMC->Gsatt("ISV2", "SEEN", 0); |
| fe4da5cc |
3323 | |
| 3324 | // --- Define a ghost volume containing the electronics and cooling of |
| 3325 | // a single ladder of layer #6 and fill it with air or vacuum |
| 3326 | |
| 3327 | dsrv[0] = (TMath::Sqrt(3.) / 2. * 4.2 + .47 + .05) / 2.; |
| 3328 | dsrv[1] = 3.75; |
| 3329 | dsrv[2] = 94.13/2.; |
| cfce8870 |
3330 | gMC->Gsvolu("SSV2", "BOX ", idtmed[253], dsrv, 3); |
| fe4da5cc |
3331 | |
| 3332 | // --- Make the ghost volume invisible |
| 3333 | |
| cfce8870 |
3334 | gMC->Gsatt("SSV2", "SEEN", 0); |
| fe4da5cc |
3335 | |
| 3336 | // --- Define a ghost volume containing the end-ladder stuff of |
| 3337 | // a single ladder of layer #6 and fill it with air or vacuum |
| 3338 | |
| 3339 | dela[0] = 2.; |
| 3340 | dela[1] = 3.5; |
| 3341 | dela[2] = 4.; |
| cfce8870 |
3342 | gMC->Gsvolu("ELL6", "BOX ", idtmed[253], dela, 3); |
| fe4da5cc |
3343 | |
| 3344 | // --- Make the ghost volume invisible |
| 3345 | |
| cfce8870 |
3346 | gMC->Gsatt("ELL6", "SEEN", 0); |
| fe4da5cc |
3347 | |
| 3348 | // --- Define a volume containing the sensitive part of the strips |
| 3349 | // (silicon, layer #6) |
| 3350 | |
| 3351 | dits[0] = .015; |
| 3352 | dits[1] = 3.75; |
| 3353 | dits[2] = 2.1; |
| cfce8870 |
3354 | gMC->Gsvolu("ITS6", "BOX ", idtmed[249], dits, 3); |
| fe4da5cc |
3355 | |
| 3356 | // --- Define a volume containing the electronics of the strips |
| 3357 | // (silicon, layer #6) |
| 3358 | |
| 3359 | dchi[0] = .02; |
| 3360 | dchi[1] = 3.4; |
| 3361 | dchi[2] = .525; |
| cfce8870 |
3362 | gMC->Gsvolu("SCH6", "BOX ", idtmed[250], dchi, 3); |
| fe4da5cc |
3363 | |
| 3364 | // --- Define the cooling tubes (aluminum, layer #6) |
| 3365 | |
| 3366 | dtub[0] = .09; |
| 3367 | dtub[1] = dtub[0] + .01; |
| 3368 | dtub[2] = 94.13/2.; |
| cfce8870 |
3369 | gMC->Gsvolu("STB6", "TUBE", idtmed[255], dtub, 3); |
| fe4da5cc |
3370 | |
| 3371 | // --- Define the cooling fluid (water or freon, layer #6) |
| 3372 | |
| 3373 | dwat[0] = 0.; |
| 3374 | dwat[1] = .09; |
| 3375 | dwat[2] = 94.13/2.; |
| cfce8870 |
3376 | gMC->Gsvolu("SWT6", "TUBE", idtmed[256], dwat, 3); |
| fe4da5cc |
3377 | // CALL GSVOLU('SWT6','TUBE',IDTMED(258),DWAT,3,IOUT) ! freon |
| 3378 | |
| 3379 | //--- Define the (triangular) element of the heat bridge (carbon, layer #6) |
| 3380 | |
| 3381 | // water |
| 3382 | dfra[0] = 120.; |
| 3383 | dfra[1] = 360.; |
| 3384 | dfra[2] = 3.; |
| 3385 | dfra[3] = 2.; |
| 3386 | dfra[4] = -.015; |
| 3387 | dfra[5] = TMath::Sqrt(3.) * 4.2 / 6.; |
| 3388 | dfra[6] = dfra[5] + .03; |
| 3389 | dfra[7] = .015; |
| 3390 | dfra[8] = dfra[5]; |
| 3391 | dfra[9] = dfra[6]; |
| cfce8870 |
3392 | gMC->Gsvolu("SFR6", "PGON", idtmed[252], dfra, 10); |
| fe4da5cc |
3393 | |
| 3394 | // --- Define the element connecting the triangles of the heat bridge |
| 3395 | // (carbon, layer #6) |
| 3396 | |
| 3397 | dcei[0] = 0.; |
| 3398 | dcei[1] = .03; |
| 3399 | dcei[2] = 94.13/2.; |
| cfce8870 |
3400 | gMC->Gsvolu("SCE6", "TUBE", idtmed[252], dcei, 3); |
| fe4da5cc |
3401 | |
| 3402 | // --- Define the part of the end-ladder stuff made of plastic (G10FR4) |
| 3403 | // (layer #6) |
| 3404 | |
| 3405 | dpla[0] = (10./(8.*7.))/2; |
| 3406 | dpla[1] = 3.5; |
| 3407 | dpla[2] = 4.; |
| cfce8870 |
3408 | gMC->Gsvolu("EPL6", "BOX ", idtmed[262], dpla, 3); |
| fe4da5cc |
3409 | |
| 3410 | // --- Define the part of the end-ladder stuff made of copper (layer #6) |
| 3411 | |
| 3412 | dcop[0] = (2./(8.*7.))/2; |
| 3413 | dcop[1] = 3.5; |
| 3414 | dcop[2] = 4.; |
| cfce8870 |
3415 | gMC->Gsvolu("ECU6", "BOX ", idtmed[259], dcop, 3); |
| fe4da5cc |
3416 | |
| 3417 | // --- Define the part of the end-ladder stuff made of epoxy (layer #6) |
| 3418 | |
| 3419 | depx[0] = (30./(8.*7.))/2.; |
| 3420 | depx[1] = 3.5; |
| 3421 | depx[2] = 4.; |
| cfce8870 |
3422 | gMC->Gsvolu("EPX6", "BOX ", idtmed[262], depx, 3); |
| fe4da5cc |
3423 | |
| 3424 | // --- Define the part of the end-ladder stuff made of silicon (bus) |
| 3425 | // (layer #6) |
| 3426 | |
| 3427 | dsil[0] = (20./(8.*7.))/2.; |
| 3428 | dsil[1] = 3.5; |
| 3429 | dsil[2] = 4.; |
| cfce8870 |
3430 | gMC->Gsvolu("ESI6", "BOX ", idtmed[251], dsil, 3); |
| fe4da5cc |
3431 | |
| 3432 | // --- Place the end-ladder stuff into its mother (ELL5) |
| 3433 | |
| 3434 | sep = (4. - (dpla[0] + dcop[0] + depx[0] + dsil[0]) * 2.) / 3.; |
| 3435 | ypos = 0.; |
| 3436 | zpos = 0.; |
| 3437 | |
| 3438 | // --- Plastic |
| 3439 | |
| 3440 | xpos = -dela[0] + dpla[0]; |
| cfce8870 |
3441 | gMC->Gspos("EPL6", 1, "ELL6", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
3442 | |
| 3443 | // --- Copper |
| 3444 | |
| 3445 | xpos = -dela[0] + dpla[0] * 2. + sep + dcop[0]; |
| cfce8870 |
3446 | gMC->Gspos("ECU6", 1, "ELL6", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
3447 | |
| 3448 | // --- Epoxy |
| 3449 | |
| 3450 | xpos = -dela[0] + dpla[0] * 2. + sep + dcop[0] * 2. + sep + depx[0]; |
| cfce8870 |
3451 | gMC->Gspos("EPX6", 1, "ELL6", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
3452 | |
| 3453 | // --- Silicon (bus) |
| 3454 | |
| 3455 | xpos = -dela[0] + dpla[0] * 2. + sep + dcop[0] * 2. + sep + depx[0] * 2. + sep + dsil[0]; |
| cfce8870 |
3456 | gMC->Gspos("ESI6", 1, "ELL6", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
3457 | |
| 3458 | // --- Place the sensitive part of the strips into its mother (ISV2) |
| 3459 | |
| 3460 | ypos = 0.; |
| e8189707 |
3461 | for (j = 1; j <= 24; ++j) { |
| fe4da5cc |
3462 | if (j % 2 == 0) xpos = -dbox2[0] + dits[0]; |
| 3463 | else xpos = dbox2[0] - dits[0]; |
| 3464 | zpos = ((j - 1) - 11.) * 3.91 - 1.96; |
| cfce8870 |
3465 | gMC->Gspos("ITS6", j, "ISV2", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
3466 | } |
| 3467 | |
| 3468 | // --- Place the electronics of the strips into its mother (SSV2) |
| 3469 | |
| 3470 | ypos = 0.; |
| e8189707 |
3471 | for (j = 1; j <= 24; ++j) { |
| fe4da5cc |
3472 | if (j % 2 == 0) xpos = -dsrv[0] + .28 - dits[0] * 2. - .03; |
| 3473 | else xpos = -dsrv[0] + .28; |
| 3474 | zpos = ((j - 1) - 11.) * 3.91 - 1.96 + .85; |
| cfce8870 |
3475 | gMC->Gspos("SCH5", j, "SSV1", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
3476 | } |
| 3477 | |
| 3478 | //--- Place the cooling tubes and the cooling fluid into their mother (SSV2) |
| 3479 | |
| 3480 | xpos = -dsrv[0] + .41; |
| 3481 | zpos = 0.; |
| 3482 | |
| 3483 | // --- Left tube (just a matter of convention) |
| 3484 | |
| 3485 | ypos = -(2.25+0.1); |
| cfce8870 |
3486 | gMC->Gspos("STB6", 1, "SSV2", xpos, ypos, zpos, 0, "ONLY"); |
| 3487 | gMC->Gspos("SWT6", 1, "SSV2", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
3488 | |
| 3489 | // --- Right tube (just a matter of convention) |
| 3490 | |
| 3491 | ypos = (2.25+0.1); |
| cfce8870 |
3492 | gMC->Gspos("STB6", 2, "SSV2", xpos, ypos, zpos, 0, "ONLY"); |
| 3493 | gMC->Gspos("SWT6", 2, "SSV2", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
3494 | |
| 3495 | // --- Place the heat bridge elements into their mother (SSV2) |
| 3496 | |
| 3497 | xpos = -dsrv[0] + .47 + TMath::Sqrt(3.) / 6. * 4.2; |
| 3498 | ypos = 0.; |
| e8189707 |
3499 | for (j = 1; j <= 25; ++j) { |
| fe4da5cc |
3500 | zpos = ((j - 1) - 11.) * 3.91 - 1.96 - 4.2/2.; |
| cfce8870 |
3501 | gMC->Gspos("SFR6", j, "SSV2", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
3502 | } |
| 3503 | |
| 3504 | // --- Place the elements connecting the triangles of the heat bridge |
| 3505 | // into their mother (SSV2) |
| 3506 | |
| 3507 | zpos = 0.; |
| 3508 | |
| 3509 | // --- Left element (just a matter of convention) |
| 3510 | |
| 3511 | xpos = -dsrv[0] + .47; |
| 3512 | ypos = -(2.1+0.015); |
| cfce8870 |
3513 | gMC->Gspos("SCE6", 1, "SSV2", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
3514 | |
| 3515 | // --- Right element |
| 3516 | |
| 3517 | xpos = -dsrv[0] + .47; |
| 3518 | ypos = (2.1+0.015); |
| cfce8870 |
3519 | gMC->Gspos("SCE6", 2, "SSV2", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
3520 | |
| 3521 | // --- Top element |
| 3522 | |
| 3523 | xpos = -dsrv[0] + .47 + TMath::Sqrt(3.) / 2. * 4.2 + .015; |
| 3524 | ypos = 0.; |
| cfce8870 |
3525 | gMC->Gspos("SCE6", 3, "SSV2", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
3526 | |
| 3527 | // --- Place the ghost volumes containing the strip ladders (ISV2), |
| 3528 | // electronics/cooling (SSV2) and end-ladder stuff (ELL6) of layer #6 in |
| 3529 | // their mother volume (IT56) |
| 3530 | |
| 3531 | offset1 = TMath::ATan2(.9, 41.2); |
| 3532 | offset2 = 5.2; |
| 3533 | rzero = dbox2[0] + 41.2; |
| 3534 | runo = dbox2[0] * 2. + 41.2 + dsrv[0]; |
| 3535 | rtwo = dbox2[0] * 2. + 41.2 + dela[0]; |
| e8189707 |
3536 | for (i = 1; i <= 36; ++i) { |
| b3a22d72 |
3537 | atheta = (i-1) * ktwopi * kraddeg / 36. + offset2; |
| fe4da5cc |
3538 | AliMatrix(idrotm[i+1599], 90., atheta, 90., atheta + 90., 0., 0.); |
| 3539 | |
| 3540 | // --- Strip ladders |
| 3541 | |
| b3a22d72 |
3542 | xpos = rzero * TMath::Cos((i-1) * ktwopi / 36. + offset1); |
| 3543 | ypos = rzero * TMath::Sin((i-1) * ktwopi / 36. + offset1); |
| fe4da5cc |
3544 | zpos = 0.; |
| cfce8870 |
3545 | gMC->Gspos("ISV2", i, "IT56", xpos, ypos, zpos, idrotm[i+1599], "ONLY"); |
| fe4da5cc |
3546 | |
| 3547 | // --- Electronics/cooling |
| 3548 | |
| b3a22d72 |
3549 | xpos = runo * TMath::Cos((i-1) * ktwopi / 36. + offset1); |
| 3550 | ypos = runo * TMath::Sin((i-1) * ktwopi / 36. + offset1); |
| fe4da5cc |
3551 | zpos = 0.; |
| cfce8870 |
3552 | gMC->Gspos("SSV2", i, "IT56", xpos, ypos, zpos, idrotm[i+1599], "ONLY"); |
| fe4da5cc |
3553 | |
| 3554 | // --- End-ladders (nagative-Z and positive-Z) |
| 3555 | |
| b3a22d72 |
3556 | xpos = rtwo * TMath::Cos((i-1) * ktwopi / 36. + offset1); |
| 3557 | ypos = rtwo * TMath::Sin((i-1) * ktwopi / 36. + offset1); |
| fe4da5cc |
3558 | zpos = -(dbox2[2] + dela[2] + 6.); |
| cfce8870 |
3559 | gMC->Gspos("ELL6", i, "IT56", xpos, ypos, zpos, idrotm[i+1599], "ONLY"); |
| fe4da5cc |
3560 | zpos = dbox2[2] + dela[2] + 6.; |
| cfce8870 |
3561 | gMC->Gspos("ELL6", i + 39, "IT56", xpos, ypos, zpos, idrotm[i+1599], "ONLY"); |
| fe4da5cc |
3562 | } |
| 3563 | |
| 3564 | |
| 3565 | } |
| 3566 | |
| 3567 | //************************************************************************ |
| 3568 | //* * |
| 3569 | //* E N D - C A P S A N D F R A M E S * |
| 3570 | //* ========================================= * |
| 3571 | //* * |
| 3572 | //************************************************************************ |
| 3573 | |
| 3574 | // --- Define a dummy cylinder for multiple scattering tests |
| 3575 | |
| 3576 | // GOTO 7890 ! skip dummy cylinder for multiple scatteringtests |
| 3577 | |
| 3578 | // DITS(1)=49. |
| 3579 | // DITS(2)=DITS(1)+0.1 |
| 3580 | // DITS(3)=60.3 |
| 3581 | // CALL GSVOLU('ITST','TUBE',IDTMED(255),DITS,3,IOUT) |
| 3582 | // CALL GSPOS('ITST',1,'ITSV',0.,0.,0.,0,'ONLY') |
| 3583 | // 7890 CONTINUE |
| 3584 | |
| 3585 | // --- The 0.74% X0 outer wall (C) of the gas vessel at r=50cm --- |
| 3586 | |
| 3587 | // GOTO 8901 ! skip outer wall |
| 3588 | |
| 58005f18 |
3589 | if (fMinorVersionV3 == 0 || fMinorVersionV3 == 3) { |
| fe4da5cc |
3590 | |
| 3591 | dits[0] = 49.9; |
| 3592 | dits[1] = dits[0] + .06926; |
| 3593 | dits[2] = dpcb[2] * 2. + 62.7 - 10.5; |
| 3594 | // old value 60.3 |
| cfce8870 |
3595 | gMC->Gsvolu("ITSG", "TUBE", idtmed[274], dits, 3); |
| 3596 | gMC->Gspos("ITSG", 1, "ITSV", 0., 0., 0., 0, "ONLY"); |
| fe4da5cc |
3597 | } else { |
| 3598 | goto L8901; |
| 3599 | } |
| 3600 | L8901: |
| 3601 | // --- The frame between the end-caps (octagonal lay-out) --- |
| 3602 | |
| 3603 | // GOTO 9012 ! skip octagonal frame |
| 3604 | |
| 58005f18 |
3605 | if (fMinorVersionV3 == 1) { |
| fe4da5cc |
3606 | |
| 3607 | rzero = 34.; |
| 3608 | dtra[0] = .92; |
| 3609 | dtra[1] = 1.; |
| 3610 | dtra[2] = dpcb[2] * 2. + 50.5 - 10.5; |
| 3611 | dtra1[0] = .92; |
| 3612 | dtra1[1] = 1.; |
| 3613 | dtra1[2] = TMath::Sqrt(dtra[2] * dtra[2] + (55.4*55.4-50.5*50.5))/2.; |
| 3614 | angle = 45.; |
| 3615 | offset = angle / 2.; |
| e8189707 |
3616 | for (i = 0; i < 8; ++i) { |
| b3a22d72 |
3617 | xtra[i] = rzero * TMath::Cos(i * angle * kdegrad); |
| 3618 | ytra[i] = rzero * TMath::Sin(i * angle * kdegrad); |
| fe4da5cc |
3619 | ztra[i] = 0.; |
| b3a22d72 |
3620 | gMC->Gsvolu(knatra[i], "TUBE", idtmed[274], dtra, 3); |
| 3621 | gMC->Gspos(knatra[i], 1, "ITSV", xtra[i], ytra[i], ztra[i], 0, "ONLY"); |
| fe4da5cc |
3622 | } |
| 3623 | |
| 3624 | atheta = 22.5; |
| b3a22d72 |
3625 | aphi1 = TMath::ACos(dtra[2] / TMath::Sqrt(dtra[2] * dtra[2] + (50.5 / cos(28.*kdegrad) * (50.5 / cos(28.*kdegrad))- 50.5*50.5))) * kraddeg; |
| fe4da5cc |
3626 | aphi2 = 180. - aphi1; |
| 3627 | xpos = (xtra[0] + xtra[1]) / 2.; |
| 3628 | ypos = (ytra[0] + ytra[1]) / 2.; |
| 3629 | zpos = dtra[2] / 2.; |
| b3a22d72 |
3630 | gMC->Gsvolu(knatra1[0], "TUBE", idtmed[274], dtra1, 3); |
| fe4da5cc |
3631 | r2 = atheta + 90.; |
| 3632 | r3 = atheta + 90.; |
| 3633 | AliMatrix(idrotm[5100], 90., atheta, aphi1 + 90., r2, aphi1, r3); |
| b3a22d72 |
3634 | gMC->Gspos(knatra1[0], 1, "ITSV", xpos, ypos, zpos, idrotm[5100], "ONLY"); |
| fe4da5cc |
3635 | zpos = -dtra[2] / 2.; |
| b3a22d72 |
3636 | gMC->Gsvolu(knatra1[1], "TUBE", idtmed[274], dtra1, 3); |
| fe4da5cc |
3637 | r2 = atheta + 90.; |
| 3638 | r3 = atheta + 90.; |
| 3639 | AliMatrix(idrotm[5101], 90., atheta, aphi2 + 90., r2, aphi2, r3); |
| b3a22d72 |
3640 | gMC->Gspos(knatra1[1], 1, "ITSV", xpos, ypos, zpos, idrotm[5101], "ONLY"); |
| fe4da5cc |
3641 | |
| 3642 | atheta = 67.5; |
| b3a22d72 |
3643 | aphi2 = TMath::ACos(dtra[2] / TMath::Sqrt(dtra[2] * dtra[2] + (50.5 / cos(28.*kdegrad) * (50.5 / cos(28.*kdegrad))- 50.5*50.5))) * kraddeg; |
| fe4da5cc |
3644 | aphi1 = 180. - aphi2; |
| 3645 | xpos = (xtra[1] + xtra[2]) / 2.; |
| 3646 | ypos = (ytra[1] + ytra[2]) / 2.; |
| 3647 | zpos = dtra[2] / 2.; |
| b3a22d72 |
3648 | gMC->Gsvolu(knatra1[2], "TUBE", idtmed[274], dtra1, 3); |
| fe4da5cc |
3649 | r2 = atheta + 90.; |
| 3650 | r3 = atheta + 90.; |
| 3651 | AliMatrix(idrotm[5102], 90., atheta, aphi1 + 90., r2, aphi1, r3); |
| b3a22d72 |
3652 | gMC->Gspos(knatra1[2], 1, "ITSV", xpos, ypos, zpos, idrotm[5102], "ONLY"); |
| fe4da5cc |
3653 | zpos = -dtra[2] / 2.; |
| b3a22d72 |
3654 | gMC->Gsvolu(knatra1[3], "TUBE", idtmed[274], dtra1, 3); |
| fe4da5cc |
3655 | r2 = atheta + 90.; |
| 3656 | r3 = atheta + 90.; |
| 3657 | AliMatrix(idrotm[5103], 90., atheta, aphi2 + 90., r2, aphi2, r3); |
| b3a22d72 |
3658 | gMC->Gspos(knatra1[3], 1, "ITSV", xpos, ypos, zpos, idrotm[5103], "ONLY"); |
| fe4da5cc |
3659 | |
| 3660 | atheta = 112.5; |
| b3a22d72 |
3661 | aphi1 = TMath::ACos(dtra[2] / TMath::Sqrt(dtra[2] * dtra[2] + (50.5 / cos(28.*kdegrad) * (50.5 / cos(28.*kdegrad))- 50.5*50.5))) * kraddeg; |
| fe4da5cc |
3662 | aphi2 = 180. - aphi1; |
| 3663 | xpos = (xtra[2] + xtra[3]) / 2.; |
| 3664 | ypos = (ytra[2] + ytra[3]) / 2.; |
| 3665 | zpos = dtra[2] / 2.; |
| b3a22d72 |
3666 | gMC->Gsvolu(knatra1[4], "TUBE", idtmed[274], dtra1, 3); |
| fe4da5cc |
3667 | r2 = atheta + 90.; |
| 3668 | r3 = atheta + 90.; |
| 3669 | AliMatrix(idrotm[5104], 90., atheta, aphi1 + 90., r2, aphi1, r3); |
| b3a22d72 |
3670 | gMC->Gspos(knatra1[4], 1, "ITSV", xpos, ypos, zpos, idrotm[5104], "ONLY"); |
| fe4da5cc |
3671 | zpos = -dtra[2] / 2.; |
| b3a22d72 |
3672 | gMC->Gsvolu(knatra1[5], "TUBE", idtmed[274], dtra1, 3); |
| fe4da5cc |
3673 | r2 = atheta + 90.; |
| 3674 | r3 = atheta + 90.; |
| 3675 | AliMatrix(idrotm[5105], 90., atheta, aphi2 + 90., r2, aphi2, r3); |
| b3a22d72 |
3676 | gMC->Gspos(knatra1[5], 1, "ITSV", xpos, ypos, zpos, idrotm[5105], "ONLY"); |
| fe4da5cc |
3677 | |
| 3678 | atheta = 157.5; |
| b3a22d72 |
3679 | aphi2 = TMath::ACos(dtra[2] / TMath::Sqrt(dtra[2] * dtra[2] + (50.5 / cos(28.*kdegrad) * (50.5 / cos(28.*kdegrad))- 50.5*50.5))) * kraddeg; |
| fe4da5cc |
3680 | aphi1 = 180. - aphi2; |
| 3681 | xpos = (xtra[3] + xtra[4]) / 2.; |
| 3682 | ypos = (ytra[3] + ytra[4]) / 2.; |
| 3683 | zpos = dtra[2] / 2.; |
| b3a22d72 |
3684 | gMC->Gsvolu(knatra1[6], "TUBE", idtmed[274], dtra1, 3); |
| fe4da5cc |
3685 | r2 = atheta + 90.; |
| 3686 | r3 = atheta + 90.; |
| 3687 | AliMatrix(idrotm[5106], 90., atheta, aphi1 + 90., r2, aphi1, r3); |
| b3a22d72 |
3688 | gMC->Gspos(knatra1[6], 1, "ITSV", xpos, ypos, zpos, idrotm[5106], "ONLY"); |
| fe4da5cc |
3689 | zpos = -dtra[2] / 2.; |
| b3a22d72 |
3690 | gMC->Gsvolu(knatra1[7], "TUBE", idtmed[274], dtra1, 3); |
| fe4da5cc |
3691 | r2 = atheta + 90.; |
| 3692 | r3 = atheta + 90.; |
| 3693 | AliMatrix(idrotm[5107], 90., atheta, aphi2 + 90., r2, aphi2, r3); |
| b3a22d72 |
3694 | gMC->Gspos(knatra1[7], 1, "ITSV", xpos, ypos, zpos, idrotm[5107], "ONLY"); |
| fe4da5cc |
3695 | |
| 3696 | atheta = 22.5; |
| b3a22d72 |
3697 | aphi2 = TMath::ACos(dtra[2] / TMath::Sqrt(dtra[2] * dtra[2] + (50.5 / cos(28.*kdegrad) * (50.5 / cos(28.*kdegrad))- 50.5*50.5))) * kraddeg; |
| fe4da5cc |
3698 | aphi1 = 180. - aphi2; |
| 3699 | xpos = (xtra[4] + xtra[5]) / 2.; |
| 3700 | ypos = (ytra[4] + ytra[5]) / 2.; |
| 3701 | zpos = dtra[2] / 2.; |
| b3a22d72 |
3702 | gMC->Gsvolu(knatra1[8], "TUBE", idtmed[274], dtra1, 3); |
| fe4da5cc |
3703 | r2 = atheta + 90.; |
| 3704 | r3 = atheta + 90.; |
| 3705 | AliMatrix(idrotm[5108], 90., atheta, aphi1 + 90., r2, aphi1, r3); |
| b3a22d72 |
3706 | gMC->Gspos(knatra1[8], 1, "ITSV", xpos, ypos, zpos, idrotm[5108], "ONLY"); |
| fe4da5cc |
3707 | zpos = -dtra[2] / 2.; |
| b3a22d72 |
3708 | gMC->Gsvolu(knatra1[9], "TUBE", idtmed[274], dtra1, 3); |
| fe4da5cc |
3709 | r2 = atheta + 90.; |
| 3710 | r3 = atheta + 90.; |
| 3711 | AliMatrix(idrotm[5109], 90., atheta, aphi2 + 90., r2, aphi2, r3); |
| b3a22d72 |
3712 | gMC->Gspos(knatra1[9], 1, "ITSV", xpos, ypos, zpos, idrotm[5109], "ONLY"); |
| fe4da5cc |
3713 | |
| 3714 | atheta = 67.5; |
| b3a22d72 |
3715 | aphi1 = TMath::ACos(dtra[2] / TMath::Sqrt(dtra[2] * dtra[2] + (50.5 / cos(28.*kdegrad) * (50.5 / cos(28.*kdegrad))- 50.5*50.5))) * kraddeg; |
| fe4da5cc |
3716 | aphi2 = 180. - aphi1; |
| 3717 | xpos = (xtra[5] + xtra[6]) / 2.; |
| 3718 | ypos = (ytra[5] + ytra[6]) / 2.; |
| 3719 | zpos = dtra[2] / 2.; |
| b3a22d72 |
3720 | gMC->Gsvolu(knatra1[10], "TUBE", idtmed[274], dtra1, 3); |
| fe4da5cc |
3721 | r2 = atheta + 90.; |
| 3722 | r3 = atheta + 90.; |
| 3723 | AliMatrix(idrotm[5110], 90., atheta, aphi1 + 90., r2, aphi1, r3); |
| b3a22d72 |
3724 | gMC->Gspos(knatra1[10], 1, "ITSV", xpos, ypos, zpos, idrotm[5110], "ONLY"); |
| fe4da5cc |
3725 | zpos = -dtra[2] / 2.; |
| b3a22d72 |
3726 | gMC->Gsvolu(knatra1[11], "TUBE", idtmed[274], dtra1, 3); |
| fe4da5cc |
3727 | r2 = atheta + 90.; |
| 3728 | r3 = atheta + 90.; |
| 3729 | AliMatrix(idrotm[5111], 90., atheta, aphi2 + 90., r2, aphi2, r3); |
| b3a22d72 |
3730 | gMC->Gspos(knatra1[11], 1, "ITSV", xpos, ypos, zpos, idrotm[5111], "ONLY"); |
| fe4da5cc |
3731 | |
| 3732 | atheta = 112.5; |
| b3a22d72 |
3733 | aphi2 = TMath::ACos(dtra[2] / TMath::Sqrt(dtra[2] * dtra[2] + (50.5 / cos(28.*kdegrad) * (50.5 / cos(28.*kdegrad))- 50.5*50.5))) * kraddeg; |
| fe4da5cc |
3734 | aphi1 = 180. - aphi2; |
| 3735 | xpos = (xtra[6] + xtra[7]) / 2.; |
| 3736 | ypos = (ytra[6] + ytra[7]) / 2.; |
| 3737 | zpos = dtra[2] / 2.; |
| b3a22d72 |
3738 | gMC->Gsvolu(knatra1[12], "TUBE", idtmed[274], dtra1, 3); |
| fe4da5cc |
3739 | r2 = atheta + 90.; |
| 3740 | r3 = atheta + 90.; |
| 3741 | AliMatrix(idrotm[5112], 90., atheta, aphi1 + 90., r2, aphi1, r3); |
| b3a22d72 |
3742 | gMC->Gspos(knatra1[12], 1, "ITSV", xpos, ypos, zpos, idrotm[5112], "ONLY"); |
| fe4da5cc |
3743 | zpos = -dtra[2] / 2.; |
| b3a22d72 |
3744 | gMC->Gsvolu(knatra1[13], "TUBE", idtmed[274], dtra1, 3); |
| fe4da5cc |
3745 | r2 = atheta + 90.; |
| 3746 | r3 = atheta + 90.; |
| 3747 | AliMatrix(idrotm[5113], 90., atheta, aphi2 + 90., r2, aphi2, r3); |
| b3a22d72 |
3748 | gMC->Gspos(knatra1[13], 1, "ITSV", xpos, ypos, zpos, idrotm[5113], "ONLY"); |
| fe4da5cc |
3749 | |
| 3750 | atheta = 157.5; |
| b3a22d72 |
3751 | aphi1 = TMath::ACos(dtra[2] / TMath::Sqrt(dtra[2] * dtra[2] + (50.5 / cos(28.*kdegrad) * (50.5 / cos(28.*kdegrad))- 50.5*50.5))) * kraddeg; |
| fe4da5cc |
3752 | aphi2 = 180. - aphi1; |
| 3753 | xpos = (xtra[7] + xtra[0]) / 2.; |
| 3754 | ypos = (ytra[7] + ytra[0]) / 2.; |
| 3755 | zpos = dtra[2] / 2.; |
| b3a22d72 |
3756 | gMC->Gsvolu(knatra1[14], "TUBE", idtmed[274], dtra1, 3); |
| fe4da5cc |
3757 | r2 = atheta + 90.; |
| 3758 | r3 = atheta + 90.; |
| 3759 | AliMatrix(idrotm[5114], 90., atheta, aphi1 + 90., r2, aphi1, r3); |
| b3a22d72 |
3760 | gMC->Gspos(knatra1[14], 1, "ITSV", xpos, ypos, zpos, idrotm[5114], "ONLY"); |
| fe4da5cc |
3761 | zpos = -dtra[2] / 2.; |
| b3a22d72 |
3762 | gMC->Gsvolu(knatra1[15], "TUBE", idtmed[274], dtra1, 3); |
| fe4da5cc |
3763 | r2 = atheta + 90.; |
| 3764 | r3 = atheta + 90.; |
| 3765 | AliMatrix(idrotm[5115], 90., atheta, aphi2 + 90., r2, aphi2, r3); |
| b3a22d72 |
3766 | gMC->Gspos(knatra1[15], 1, "ITSV", xpos, ypos, zpos, idrotm[5115], "ONLY"); |
| fe4da5cc |
3767 | |
| 3768 | |
| 58005f18 |
3769 | } else if (fMinorVersionV3 == 4) { |
| fe4da5cc |
3770 | |
| 3771 | |
| 3772 | rzero = 34.; |
| 3773 | dtra[0] = .92; |
| 3774 | dtra[1] = 1.; |
| 3775 | dtra[2] = dpcb[2] * 2. + 50.5 - 10.5; |
| 3776 | dtra1[0] = .92; |
| 3777 | dtra1[1] = 1.; |
| 3778 | dtra1[2] = TMath::Sqrt(dtra[2] * dtra[2] + (55.4*55.4-50.5*50.5))/2.; |
| 3779 | angle = 45.; |
| 3780 | offset = angle / 2.; |
| e8189707 |
3781 | for (i = 0; i < 8; ++i) { |
| b3a22d72 |
3782 | xtra[i] = rzero * TMath::Cos(i * angle * kdegrad); |
| 3783 | ytra[i] = rzero * TMath::Sin(i * angle * kdegrad); |
| fe4da5cc |
3784 | ztra[i] = 0.; |
| b3a22d72 |
3785 | gMC->Gsvolu(knatra[i], "TUBE", idtmed[274], dtra, 3); |
| 3786 | gMC->Gspos(knatra[i], 1, "ITSV", xtra[i], ytra[i], ztra[i], 0, "ONLY"); |
| fe4da5cc |
3787 | } |
| 3788 | |
| 3789 | atheta = 22.5; |
| b3a22d72 |
3790 | aphi1 = TMath::ACos(dtra[2] / TMath::Sqrt(dtra[2] * dtra[2] + (50.5 / cos(28.*kdegrad) * (50.5 / cos(28.*kdegrad))- 50.5*50.5))) * kraddeg; |
| fe4da5cc |
3791 | aphi2 = 180. - aphi1; |
| 3792 | xpos = (xtra[0] + xtra[1]) / 2.; |
| 3793 | ypos = (ytra[0] + ytra[1]) / 2.; |
| 3794 | zpos = dtra[2] / 2.; |
| b3a22d72 |
3795 | gMC->Gsvolu(knatra1[0], "TUBE", idtmed[274], dtra1, 3); |
| fe4da5cc |
3796 | r2 = atheta + 90.; |
| 3797 | r3 = atheta + 90.; |
| 3798 | AliMatrix(idrotm[5100], 90., atheta, aphi1 + 90., r2, aphi1, r3); |
| b3a22d72 |
3799 | gMC->Gspos(knatra1[0], 1, "ITSV", xpos, ypos, zpos, idrotm[5100], "ONLY"); |
| fe4da5cc |
3800 | zpos = -dtra[2] / 2.; |
| b3a22d72 |
3801 | gMC->Gsvolu(knatra1[1], "TUBE", idtmed[274], dtra1, 3); |
| fe4da5cc |
3802 | r2 = atheta + 90.; |
| 3803 | r3 = atheta + 90.; |
| 3804 | AliMatrix(idrotm[5101], 90., atheta, aphi2 + 90., r2, aphi2, r3); |
| b3a22d72 |
3805 | gMC->Gspos(knatra1[1], 1, "ITSV", xpos, ypos, zpos, idrotm[5101], "ONLY"); |
| fe4da5cc |
3806 | |
| 3807 | atheta = 67.5; |
| b3a22d72 |
3808 | aphi2 = TMath::ACos(dtra[2] / TMath::Sqrt(dtra[2] * dtra[2] + (50.5 / cos(28.*kdegrad) * (50.5 / cos(28.*kdegrad))- 50.5*50.5))) * kraddeg; |
| fe4da5cc |
3809 | aphi1 = 180. - aphi2; |
| 3810 | xpos = (xtra[1] + xtra[2]) / 2.; |
| 3811 | ypos = (ytra[1] + ytra[2]) / 2.; |
| 3812 | zpos = dtra[2] / 2.; |
| b3a22d72 |
3813 | gMC->Gsvolu(knatra1[2], "TUBE", idtmed[274], dtra1, 3); |
| fe4da5cc |
3814 | r2 = atheta + 90.; |
| 3815 | r3 = atheta + 90.; |
| 3816 | AliMatrix(idrotm[5102], 90., atheta, aphi1 + 90., r2, aphi1, r3); |
| b3a22d72 |
3817 | gMC->Gspos(knatra1[2], 1, "ITSV", xpos, ypos, zpos, idrotm[5102], "ONLY"); |
| fe4da5cc |
3818 | zpos = -dtra[2] / 2.; |
| b3a22d72 |
3819 | gMC->Gsvolu(knatra1[3], "TUBE", idtmed[274], dtra1, 3); |
| fe4da5cc |
3820 | r2 = atheta + 90.; |
| 3821 | r3 = atheta + 90.; |
| 3822 | AliMatrix(idrotm[5103], 90., atheta, aphi2 + 90., r2, aphi2, r3); |
| b3a22d72 |
3823 | gMC->Gspos(knatra1[3], 1, "ITSV", xpos, ypos, zpos, idrotm[5103], "ONLY"); |
| fe4da5cc |
3824 | |
| 3825 | atheta = 112.5; |
| b3a22d72 |
3826 | aphi1 = TMath::ACos(dtra[2] / TMath::Sqrt(dtra[2] * dtra[2] + (50.5 / cos(28.*kdegrad) * (50.5 / cos(28.*kdegrad))- 50.5*50.5))) * kraddeg; |
| fe4da5cc |
3827 | aphi2 = 180. - aphi1; |
| 3828 | xpos = (xtra[2] + xtra[3]) / 2.; |
| 3829 | ypos = (ytra[2] + ytra[3]) / 2.; |
| 3830 | zpos = dtra[2] / 2.; |
| b3a22d72 |
3831 | gMC->Gsvolu(knatra1[4], "TUBE", idtmed[274], dtra1, 3); |
| fe4da5cc |
3832 | r2 = atheta + 90.; |
| 3833 | r3 = atheta + 90.; |
| 3834 | AliMatrix(idrotm[5104], 90., atheta, aphi1 + 90., r2, aphi1, r3); |
| b3a22d72 |
3835 | gMC->Gspos(knatra1[4], 1, "ITSV", xpos, ypos, zpos, idrotm[5104], "ONLY"); |
| fe4da5cc |
3836 | zpos = -dtra[2] / 2.; |
| b3a22d72 |
3837 | gMC->Gsvolu(knatra1[5], "TUBE", idtmed[274], dtra1, 3); |
| fe4da5cc |
3838 | r2 = atheta + 90.; |
| 3839 | r3 = atheta + 90.; |
| 3840 | AliMatrix(idrotm[5105], 90., atheta, aphi2 + 90., r2, aphi2, r3); |
| b3a22d72 |
3841 | gMC->Gspos(knatra1[5], 1, "ITSV", xpos, ypos, zpos, idrotm[5105], "ONLY"); |
| fe4da5cc |
3842 | |
| 3843 | atheta = 157.5; |
| b3a22d72 |
3844 | aphi2 = TMath::ACos(dtra[2] / TMath::Sqrt(dtra[2] * dtra[2] + (50.5 / cos(28.*kdegrad) * (50.5 / cos(28.*kdegrad))- 50.5*50.5))) * kraddeg; |
| fe4da5cc |
3845 | aphi1 = 180. - aphi2; |
| 3846 | xpos = (xtra[3] + xtra[4]) / 2.; |
| 3847 | ypos = (ytra[3] + ytra[4]) / 2.; |
| 3848 | zpos = dtra[2] / 2.; |
| b3a22d72 |
3849 | gMC->Gsvolu(knatra1[6], "TUBE", idtmed[274], dtra1, 3); |
| fe4da5cc |
3850 | r2 = atheta + 90.; |
| 3851 | r3 = atheta + 90.; |
| 3852 | AliMatrix(idrotm[5106], 90., atheta, aphi1 + 90., r2, aphi1, r3); |
| b3a22d72 |
3853 | gMC->Gspos(knatra1[6], 1, "ITSV", xpos, ypos, zpos, idrotm[5106], "ONLY"); |
| fe4da5cc |
3854 | zpos = -dtra[2] / 2.; |
| b3a22d72 |
3855 | gMC->Gsvolu(knatra1[7], "TUBE", idtmed[274], dtra1, 3); |
| fe4da5cc |
3856 | r2 = atheta + 90.; |
| 3857 | r3 = atheta + 90.; |
| 3858 | AliMatrix(idrotm[5107], 90., atheta, aphi2 + 90., r2, aphi2, r3); |
| b3a22d72 |
3859 | gMC->Gspos(knatra1[7], 1, "ITSV", xpos, ypos, zpos, idrotm[5107], "ONLY"); |
| fe4da5cc |
3860 | |
| 3861 | atheta = 22.5; |
| b3a22d72 |
3862 | aphi2 = TMath::ACos(dtra[2] / TMath::Sqrt(dtra[2] * dtra[2] + (50.5 / cos(28.*kdegrad) * (50.5 / cos(28.*kdegrad))- 50.5*50.5))) * kraddeg; |
| fe4da5cc |
3863 | aphi1 = 180. - aphi2; |
| 3864 | xpos = (xtra[4] + xtra[5]) / 2.; |
| 3865 | ypos = (ytra[4] + ytra[5]) / 2.; |
| 3866 | zpos = dtra[2] / 2.; |
| b3a22d72 |
3867 | gMC->Gsvolu(knatra1[8], "TUBE", idtmed[274], dtra1, 3); |
| fe4da5cc |
3868 | r2 = atheta + 90.; |
| 3869 | r3 = atheta + 90.; |
| 3870 | AliMatrix(idrotm[5108], 90., atheta, aphi1 + 90., r2, aphi1, r3); |
| b3a22d72 |
3871 | gMC->Gspos(knatra1[8], 1, "ITSV", xpos, ypos, zpos, idrotm[5108], "ONLY"); |
| fe4da5cc |
3872 | zpos = -dtra[2] / 2.; |
| b3a22d72 |
3873 | gMC->Gsvolu(knatra1[9], "TUBE", idtmed[274], dtra1, 3); |
| fe4da5cc |
3874 | r2 = atheta + 90.; |
| 3875 | r3 = atheta + 90.; |
| 3876 | AliMatrix(idrotm[5109], 90., atheta, aphi2 + 90., r2, aphi2, r3); |
| b3a22d72 |
3877 | gMC->Gspos(knatra1[9], 1, "ITSV", xpos, ypos, zpos, idrotm[5109], "ONLY"); |
| fe4da5cc |
3878 | |
| 3879 | atheta = 67.5; |
| b3a22d72 |
3880 | aphi1 = TMath::ACos(dtra[2] / TMath::Sqrt(dtra[2] * dtra[2] + (50.5 / cos(28.*kdegrad) * (50.5 / cos(28.*kdegrad))- 50.5*50.5))) * kraddeg; |
| fe4da5cc |
3881 | aphi2 = 180. - aphi1; |
| 3882 | xpos = (xtra[5] + xtra[6]) / 2.; |
| 3883 | ypos = (ytra[5] + ytra[6]) / 2.; |
| 3884 | zpos = dtra[2] / 2.; |
| b3a22d72 |
3885 | gMC->Gsvolu(knatra1[10], "TUBE", idtmed[274], dtra1, 3); |
| fe4da5cc |
3886 | r2 = atheta + 90.; |
| 3887 | r3 = atheta + 90.; |
| 3888 | AliMatrix(idrotm[5110], 90., atheta, aphi1 + 90., r2, aphi1, r3); |
| b3a22d72 |
3889 | gMC->Gspos(knatra1[10], 1, "ITSV", xpos, ypos, zpos, idrotm[5110], "ONLY"); |
| fe4da5cc |
3890 | zpos = -dtra[2] / 2.; |
| b3a22d72 |
3891 | gMC->Gsvolu(knatra1[11], "TUBE", idtmed[274], dtra1, 3); |
| fe4da5cc |
3892 | r2 = atheta + 90.; |
| 3893 | r3 = atheta + 90.; |
| 3894 | AliMatrix(idrotm[5111], 90., atheta, aphi2 + 90., r2, aphi2, r3); |
| b3a22d72 |
3895 | gMC->Gspos(knatra1[11], 1, "ITSV", xpos, ypos, zpos, idrotm[5111], "ONLY"); |
| fe4da5cc |
3896 | |
| 3897 | atheta = 112.5; |
| b3a22d72 |
3898 | aphi2 = TMath::ACos(dtra[2] / TMath::Sqrt(dtra[2] * dtra[2] + (50.5 / cos(28.*kdegrad) * (50.5 / cos(28.*kdegrad))- 50.5*50.5))) * kraddeg; |
| fe4da5cc |
3899 | aphi1 = 180. - aphi2; |
| 3900 | xpos = (xtra[6] + xtra[7]) / 2.; |
| 3901 | ypos = (ytra[6] + ytra[7]) / 2.; |
| 3902 | zpos = dtra[2] / 2.; |
| b3a22d72 |
3903 | gMC->Gsvolu(knatra1[12], "TUBE", idtmed[274], dtra1, 3); |
| fe4da5cc |
3904 | r2 = atheta + 90.; |
| 3905 | r3 = atheta + 90.; |
| 3906 | AliMatrix(idrotm[5112], 90., atheta, aphi1 + 90., r2, aphi1, r3); |
| b3a22d72 |
3907 | gMC->Gspos(knatra1[12], 1, "ITSV", xpos, ypos, zpos, idrotm[5112], "ONLY"); |
| fe4da5cc |
3908 | zpos = -dtra[2] / 2.; |
| b3a22d72 |
3909 | gMC->Gsvolu(knatra1[13], "TUBE", idtmed[274], dtra1, 3); |
| fe4da5cc |
3910 | r2 = atheta + 90.; |
| 3911 | r3 = atheta + 90.; |
| 3912 | AliMatrix(idrotm[5113], 90., atheta, aphi2 + 90., r2, aphi2, r3); |
| b3a22d72 |
3913 | gMC->Gspos(knatra1[13], 1, "ITSV", xpos, ypos, zpos, idrotm[5113], "ONLY"); |
| fe4da5cc |
3914 | |
| 3915 | atheta = 157.5; |
| b3a22d72 |
3916 | aphi1 = TMath::ACos(dtra[2] / TMath::Sqrt(dtra[2] * dtra[2] + (50.5 / cos(28.*kdegrad) * (50.5 / cos(28.*kdegrad))- 50.5*50.5))) * kraddeg; |
| fe4da5cc |
3917 | aphi2 = 180. - aphi1; |
| 3918 | xpos = (xtra[7] + xtra[0]) / 2.; |
| 3919 | ypos = (ytra[7] + ytra[0]) / 2.; |
| 3920 | zpos = dtra[2] / 2.; |
| b3a22d72 |
3921 | gMC->Gsvolu(knatra1[14], "TUBE", idtmed[274], dtra1, 3); |
| fe4da5cc |
3922 | r2 = atheta + 90.; |
| 3923 | r3 = atheta + 90.; |
| 3924 | AliMatrix(idrotm[5114], 90., atheta, aphi1 + 90., r2, aphi1, r3); |
| b3a22d72 |
3925 | gMC->Gspos(knatra1[14], 1, "ITSV", xpos, ypos, zpos, idrotm[5114], "ONLY"); |
| fe4da5cc |
3926 | zpos = -dtra[2] / 2.; |
| b3a22d72 |
3927 | gMC->Gsvolu(knatra1[15], "TUBE", idtmed[274], dtra1, 3); |
| fe4da5cc |
3928 | r2 = atheta + 90.; |
| 3929 | r3 = atheta + 90.; |
| 3930 | AliMatrix(idrotm[5115], 90., atheta, aphi2 + 90., r2, aphi2, r3); |
| b3a22d72 |
3931 | gMC->Gspos(knatra1[15], 1, "ITSV", xpos, ypos, zpos, idrotm[5115], "ONLY"); |
| fe4da5cc |
3932 | } else { |
| 3933 | goto L9012; |
| 3934 | } |
| 3935 | |
| 3936 | L9012: |
| 3937 | // --- The frame between the end-caps (hexagonal lay-out) --- |
| 3938 | |
| 3939 | // GOTO 9123 ! skip hexagonal frame |
| 3940 | |
| 58005f18 |
3941 | if (fMinorVersionV3 == 2) { |
| fe4da5cc |
3942 | |
| 3943 | rzero = 33.5; |
| 3944 | dtra2[0] = .92; |
| 3945 | dtra2[1] = 1.; |
| 3946 | dtra2[2] = dpcb[2] * 2. + 50. - 10.5; |
| 3947 | dtra3[0] = .92; |
| 3948 | dtra3[1] = 1.; |
| 3949 | dtra3[2] = 16.75; |
| 3950 | dtra4[0] = .92; |
| 3951 | dtra4[1] = 1.; |
| 3952 | dtra4[2] = TMath::Sqrt(dtra2[2] * dtra2[2] + (59.9*59.9-50.*50.)) / 2.; |
| 3953 | angle = 60.; |
| 3954 | offset = angle / 2.; |
| e8189707 |
3955 | for (i = 0; i < 6; ++i) { |
| b3a22d72 |
3956 | xtra1[i] = rzero * TMath::Cos((i * angle + offset) *kdegrad); |
| 3957 | ytra1[i] = rzero * TMath::Sin((i * angle + offset) *kdegrad); |
| fe4da5cc |
3958 | ztra1[i] = 0.; |
| b3a22d72 |
3959 | gMC->Gsvolu(knatra2[i], "TUBE", idtmed[274], dtra2, 3); |
| 3960 | gMC->Gspos(knatra2[i], 1, "ITSV", xtra1[i], ytra1[i], ztra1[i], 0, "ONLY"); |
| fe4da5cc |
3961 | } |
| 3962 | |
| 3963 | atheta = 60.; |
| 3964 | aphi = 90.; |
| 3965 | xpos = (xtra1[0] + xtra1[1]) / 2.; |
| 3966 | ypos = (ytra1[0] + ytra1[1]) / 2.; |
| 3967 | zpos = 0.; |
| b3a22d72 |
3968 | gMC->Gsvolu(knatra3[0], "TUBE", idtmed[274], dtra3, 3); |
| fe4da5cc |
3969 | r2 = atheta + 90.; |
| 3970 | r3 = atheta + 90.; |
| 3971 | AliMatrix(idrotm[5200], 90., atheta, aphi + 90., r2, aphi, r3); |
| b3a22d72 |
3972 | gMC->Gspos(knatra3[0], 1, "ITSV", xpos, ypos, zpos, idrotm[5200], "ONLY"); |
| fe4da5cc |
3973 | |
| 3974 | atheta = 120.; |
| 3975 | aphi = 90.; |
| 3976 | xpos = (xtra1[1] + xtra1[2]) / 2.; |
| 3977 | ypos = (ytra1[1] + ytra1[2]) / 2.; |
| 3978 | zpos = 0.; |
| b3a22d72 |
3979 | gMC->Gsvolu(knatra3[1], "TUBE", idtmed[274], dtra3, 3); |
| fe4da5cc |
3980 | r2 = atheta + 90.; |
| 3981 | r3 = atheta + 90.; |
| 3982 | AliMatrix(idrotm[5201], 90., atheta, aphi + 90., r2, aphi, r3); |
| b3a22d72 |
3983 | gMC->Gspos(knatra3[1], 1, "ITSV", xpos, ypos, zpos, idrotm[5201], "ONLY"); |
| fe4da5cc |
3984 | |
| 3985 | atheta = 180.; |
| 3986 | aphi = 90.; |
| 3987 | xpos = (xtra1[2] + xtra1[3]) / 2.; |
| 3988 | ypos = (ytra1[2] + ytra1[3]) / 2.; |
| 3989 | zpos = 0.; |
| b3a22d72 |
3990 | gMC->Gsvolu(knatra3[2], "TUBE", idtmed[274], dtra3, 3); |
| fe4da5cc |
3991 | r2 = atheta + 90.; |
| 3992 | r3 = atheta + 90.; |
| 3993 | AliMatrix(idrotm[5202], 90., atheta, aphi + 90., r2, aphi, r3); |
| b3a22d72 |
3994 | gMC->Gspos(knatra3[2], 1, "ITSV", xpos, ypos, zpos, idrotm[5202], "ONLY"); |
| fe4da5cc |
3995 | |
| 3996 | atheta = 60.; |
| 3997 | aphi = 90.; |
| 3998 | xpos = (xtra1[3] + xtra1[4]) / 2.; |
| 3999 | ypos = (ytra1[3] + ytra1[4]) / 2.; |
| 4000 | zpos = 0.; |
| b3a22d72 |
4001 | gMC->Gsvolu(knatra3[3], "TUBE", idtmed[274], dtra3, 3); |
| fe4da5cc |
4002 | r2 = atheta + 90.; |
| 4003 | r3 = atheta + 90.; |
| 4004 | AliMatrix(idrotm[5203], 90., atheta, aphi + 90., r2, aphi, r3); |
| b3a22d72 |
4005 | gMC->Gspos(knatra3[3], 1, "ITSV", xpos, ypos, zpos, idrotm[5203], "ONLY"); |
| fe4da5cc |
4006 | |
| 4007 | atheta = 120.; |
| 4008 | aphi = 90.; |
| 4009 | xpos = (xtra1[4] + xtra1[5]) / 2.; |
| 4010 | ypos = (ytra1[4] + ytra1[5]) / 2.; |
| 4011 | zpos = 0.; |
| b3a22d72 |
4012 | gMC->Gsvolu(knatra3[4], "TUBE", idtmed[274], dtra3, 3); |
| fe4da5cc |
4013 | r2 = atheta + 90.; |
| 4014 | r3 = atheta + 90.; |
| 4015 | AliMatrix(idrotm[5204], 90., atheta, aphi + 90., r2, aphi, r3); |
| b3a22d72 |
4016 | gMC->Gspos(knatra3[4], 1, "ITSV", xpos, ypos, zpos, idrotm[5204], "ONLY"); |
| fe4da5cc |
4017 | |
| 4018 | atheta = 180.; |
| 4019 | aphi = 90.; |
| 4020 | xpos = (xtra1[5] + xtra1[0]) / 2.; |
| 4021 | ypos = (ytra1[5] + ytra1[0]) / 2.; |
| 4022 | zpos = 0.; |
| b3a22d72 |
4023 | gMC->Gsvolu(knatra3[5], "TUBE", idtmed[274], dtra3, 3); |
| fe4da5cc |
4024 | r2 = atheta + 90.; |
| 4025 | r3 = atheta + 90.; |
| 4026 | AliMatrix(idrotm[5205], 90., atheta, aphi + 90., r2, aphi, r3); |
| b3a22d72 |
4027 | gMC->Gspos(knatra3[5], 1, "ITSV", xpos, ypos, zpos, idrotm[5205], "ONLY"); |
| fe4da5cc |
4028 | |
| 4029 | atheta = 60.; |
| b3a22d72 |
4030 | aphi2 = TMath::ACos(dtra2[2] / TMath::Sqrt(dtra2[2] * dtra2[2] + (50. / cos(34.*kdegrad) * (50. / cos(34.*kdegrad))- 50.*50.))) * kraddeg; |
| fe4da5cc |
4031 | aphi1 = 180. - aphi2; |
| 4032 | xpos = (xtra1[0] + xtra1[1]) / 2.; |
| 4033 | ypos = (ytra1[0] + ytra1[1]) / 2.; |
| 4034 | zpos = dtra2[2] / 2.; |
| b3a22d72 |
4035 | gMC->Gsvolu(knatra4[0], "TUBE", idtmed[274], dtra4, 3); |
| fe4da5cc |
4036 | r2 = atheta + 90.; |
| 4037 | r3 = atheta + 90.; |
| 4038 | AliMatrix(idrotm[5210], 90., atheta, aphi1 + 90., r2, aphi1, r3); |
| b3a22d72 |
4039 | gMC->Gspos(knatra4[0], 1, "ITSV", xpos, ypos, zpos, idrotm[5210], "ONLY"); |
| fe4da5cc |
4040 | zpos = -dtra2[2] / 2.; |
| b3a22d72 |
4041 | gMC->Gsvolu(knatra4[1], "TUBE", idtmed[274], dtra4, 3); |
| fe4da5cc |
4042 | r2 = atheta + 90.; |
| 4043 | r3 = atheta + 90.; |
| 4044 | AliMatrix(idrotm[5211], 90., atheta, aphi2 + 90., r2, aphi2, r3); |
| b3a22d72 |
4045 | gMC->Gspos(knatra4[1], 1, "ITSV", xpos, ypos, zpos, idrotm[5211], "ONLY"); |
| fe4da5cc |
4046 | |
| 4047 | atheta = 120.; |
| b3a22d72 |
4048 | aphi1 = TMath::ACos(dtra2[2] / TMath::Sqrt(dtra2[2] * dtra2[2] + (50. / cos(34.*kdegrad) * (50. / cos(34.*kdegrad))- 50.*50.))) * kraddeg; |
| fe4da5cc |
4049 | aphi2 = 180. - aphi1; |
| 4050 | xpos = (xtra1[1] + xtra1[2]) / 2.; |
| 4051 | ypos = (ytra1[1] + ytra1[2]) / 2.; |
| 4052 | zpos = dtra2[2] / 2.; |
| b3a22d72 |
4053 | gMC->Gsvolu(knatra4[2], "TUBE", idtmed[274], dtra4, 3); |
| fe4da5cc |
4054 | r2 = atheta + 90.; |
| 4055 | r3 = atheta + 90.; |
| 4056 | AliMatrix(idrotm[5212], 90., atheta, aphi1 + 90., r2, aphi1, r3); |
| b3a22d72 |
4057 | gMC->Gspos(knatra4[2], 1, "ITSV", xpos, ypos, zpos, idrotm[5212], "ONLY"); |
| fe4da5cc |
4058 | zpos = -dtra2[2] / 2.; |
| b3a22d72 |
4059 | gMC->Gsvolu(knatra4[3], "TUBE", idtmed[274], dtra4, 3); |
| fe4da5cc |
4060 | r2 = atheta + 90.; |
| 4061 | r3 = atheta + 90.; |
| 4062 | AliMatrix(idrotm[5213], 90., atheta, aphi2 + 90., r2, aphi2, r3); |
| b3a22d72 |
4063 | gMC->Gspos(knatra4[3], 1, "ITSV", xpos, ypos, zpos, idrotm[5213], "ONLY"); |
| fe4da5cc |
4064 | |
| 4065 | atheta = 180.; |
| b3a22d72 |
4066 | aphi2 = TMath::ACos(dtra2[2] / TMath::Sqrt(dtra2[2] * dtra2[2] + (50. / cos(34.*kdegrad) * (50. / cos(34.*kdegrad))- 50.*50.))) * kraddeg; |
| fe4da5cc |
4067 | aphi1 = 180. - aphi2; |
| 4068 | xpos = (xtra1[2] + xtra1[3]) / 2.; |
| 4069 | ypos = (ytra1[2] + ytra1[3]) / 2.; |
| 4070 | zpos = dtra2[2] / 2.; |
| b3a22d72 |
4071 | gMC->Gsvolu(knatra4[4], "TUBE", idtmed[274], dtra4, 3); |
| fe4da5cc |
4072 | r2 = atheta + 90.; |
| 4073 | r3 = atheta + 90.; |
| 4074 | AliMatrix(idrotm[5214], 90., atheta, aphi1 + 90., r2, aphi1, r3); |
| b3a22d72 |
4075 | gMC->Gspos(knatra4[4], 1, "ITSV", xpos, ypos, zpos, idrotm[5214], "ONLY"); |
| fe4da5cc |
4076 | zpos = -dtra2[2] / 2.; |
| b3a22d72 |
4077 | gMC->Gsvolu(knatra4[5], "TUBE", idtmed[274], dtra4, 3); |
| fe4da5cc |
4078 | r2 = atheta + 90.; |
| 4079 | r3 = atheta + 90.; |
| 4080 | AliMatrix(idrotm[5215], 90., atheta, aphi2 + 90., r2, aphi2, r3); |
| b3a22d72 |
4081 | gMC->Gspos(knatra4[5], 1, "ITSV", xpos, ypos, zpos, idrotm[5215], "ONLY"); |
| fe4da5cc |
4082 | atheta = 180.; |
| b3a22d72 |
4083 | aphi1 = TMath::ACos(dtra2[2] / TMath::Sqrt(dtra2[2] * dtra2[2] + (50. / cos(34.*kdegrad) * (50. / cos(34.*kdegrad)) |
| 4084 | - 50.*50.))) * kraddeg; |
| fe4da5cc |
4085 | aphi2 = 180. - aphi1; |
| 4086 | xpos = (xtra1[2] + xtra1[3]) / 2.; |
| 4087 | ypos = (ytra1[2] + ytra1[3]) / 2.; |
| 4088 | zpos = dtra2[2] / 2.; |
| b3a22d72 |
4089 | gMC->Gsvolu(knatra4[6], "TUBE", idtmed[274], dtra4, 3); |
| fe4da5cc |
4090 | r2 = atheta + 90.; |
| 4091 | r3 = atheta + 90.; |
| 4092 | AliMatrix(idrotm[5216], 90., atheta, aphi1 + 90., r2, aphi1, r3); |
| b3a22d72 |
4093 | gMC->Gspos(knatra4[6], 1, "ITSV", xpos, ypos, zpos, idrotm[5216], "ONLY"); |
| fe4da5cc |
4094 | zpos = -dtra2[2] / 2.; |
| b3a22d72 |
4095 | gMC->Gsvolu(knatra4[7], "TUBE", idtmed[274], dtra4, 3); |
| fe4da5cc |
4096 | r2 = atheta + 90.; |
| 4097 | r3 = atheta + 90.; |
| 4098 | AliMatrix(idrotm[5217], 90., atheta, aphi2 + 90., r2, aphi2, r3); |
| b3a22d72 |
4099 | gMC->Gspos(knatra4[7], 1, "ITSV", xpos, ypos, zpos, idrotm[5217], "ONLY"); |
| fe4da5cc |
4100 | |
| 4101 | atheta = 60.; |
| b3a22d72 |
4102 | aphi2 = TMath::ACos(dtra2[2] / TMath::Sqrt(dtra2[2] * dtra2[2] + (50. / cos(34.*kdegrad) * (50. / cos(34.*kdegrad))- 50.*50.))) * kraddeg; |
| fe4da5cc |
4103 | aphi1 = 180. - aphi2; |
| 4104 | xpos = (xtra1[3] + xtra1[4]) / 2.; |
| 4105 | ypos = (ytra1[3] + ytra1[4]) / 2.; |
| 4106 | zpos = dtra2[2] / 2.; |
| b3a22d72 |
4107 | gMC->Gsvolu(knatra4[8], "TUBE", idtmed[274], dtra4, 3); |
| fe4da5cc |
4108 | r2 = atheta + 90.; |
| 4109 | r3 = atheta + 90.; |
| 4110 | AliMatrix(idrotm[5218], 90., atheta, aphi1 + 90., r2, aphi1, r3); |
| b3a22d72 |
4111 | gMC->Gspos(knatra4[8], 1, "ITSV", xpos, ypos, zpos, idrotm[5218], "ONLY"); |
| fe4da5cc |
4112 | zpos = -dtra2[2] / 2.; |
| b3a22d72 |
4113 | gMC->Gsvolu(knatra4[9], "TUBE", idtmed[274], dtra4, 3); |
| fe4da5cc |
4114 | r2 = atheta + 90.; |
| 4115 | r3 = atheta + 90.; |
| 4116 | AliMatrix(idrotm[5219], 90., atheta, aphi2 + 90., r2, aphi2, r3); |
| b3a22d72 |
4117 | gMC->Gspos(knatra4[9], 1, "ITSV", xpos, ypos, zpos, idrotm[5219], "ONLY"); |
| fe4da5cc |
4118 | |
| 4119 | atheta = 120.; |
| b3a22d72 |
4120 | aphi1 = TMath::ACos(dtra2[2] / TMath::Sqrt(dtra2[2] * dtra2[2] + (50. / cos(34.*kdegrad) * (50. / cos(34.*kdegrad))- 50.*50.))) * kraddeg; |
| fe4da5cc |
4121 | aphi2 = 180. - aphi1; |
| 4122 | xpos = (xtra1[4] + xtra1[5]) / 2.; |
| 4123 | ypos = (ytra1[4] + ytra1[5]) / 2.; |
| 4124 | zpos = dtra2[2] / 2.; |
| b3a22d72 |
4125 | gMC->Gsvolu(knatra4[10], "TUBE", idtmed[274], dtra4, 3); |
| fe4da5cc |
4126 | r2 = atheta + 90.; |
| 4127 | r3 = atheta + 90.; |
| 4128 | AliMatrix(idrotm[5220], 90., atheta, aphi1 + 90., r2, aphi1, r3); |
| b3a22d72 |
4129 | gMC->Gspos(knatra4[10], 1, "ITSV", xpos, ypos, zpos, idrotm[5220], "ONLY"); |
| fe4da5cc |
4130 | zpos = -dtra2[2] / 2.; |
| b3a22d72 |
4131 | gMC->Gsvolu(knatra4[11], "TUBE", idtmed[274], dtra4, 3); |
| fe4da5cc |
4132 | r2 = atheta + 90.; |
| 4133 | r3 = atheta + 90.; |
| 4134 | AliMatrix(idrotm[5221], 90., atheta, aphi2 + 90., r2, aphi2, r3); |
| b3a22d72 |
4135 | gMC->Gspos(knatra4[11], 1, "ITSV", xpos, ypos, zpos, idrotm[5221], "ONLY"); |
| fe4da5cc |
4136 | |
| 4137 | atheta = 180.; |
| b3a22d72 |
4138 | aphi2 = TMath::ACos(dtra2[2] / TMath::Sqrt(dtra2[2] * dtra2[2] + (50. / cos(34.*kdegrad) * (50. / cos(34.*kdegrad))- 50.*50.))) * kraddeg; |
| fe4da5cc |
4139 | aphi1 = 180. - aphi2; |
| 4140 | xpos = (xtra1[5] + xtra1[0]) / 2.; |
| 4141 | ypos = (ytra1[5] + ytra1[0]) / 2.; |
| 4142 | zpos = dtra2[2] / 2.; |
| b3a22d72 |
4143 | gMC->Gsvolu(knatra4[12], "TUBE", idtmed[274], dtra4, 3); |
| fe4da5cc |
4144 | r2 = atheta + 90.; |
| 4145 | r3 = atheta + 90.; |
| 4146 | AliMatrix(idrotm[5222], 90., atheta, aphi1 + 90., r2, aphi1, r3); |
| b3a22d72 |
4147 | gMC->Gspos(knatra4[12], 1, "ITSV", xpos, ypos, zpos, idrotm[5222], "ONLY"); |
| fe4da5cc |
4148 | zpos = -dtra2[2] / 2.; |
| b3a22d72 |
4149 | gMC->Gsvolu(knatra4[13], "TUBE", idtmed[274], dtra4, 3); |
| fe4da5cc |
4150 | r2 = atheta + 90.; |
| 4151 | r3 = atheta + 90.; |
| 4152 | AliMatrix(idrotm[5223], 90., atheta, aphi2 + 90., r2, aphi2, r3); |
| b3a22d72 |
4153 | gMC->Gspos(knatra4[13], 1, "ITSV", xpos, ypos, zpos, idrotm[5223], "ONLY"); |
| fe4da5cc |
4154 | atheta = 180.; |
| b3a22d72 |
4155 | aphi1 = TMath::ACos(dtra2[2] / TMath::Sqrt(dtra2[2] * dtra2[2] + (50. / cos(34.*kdegrad) * (50. / cos(34.*kdegrad))- 50.*50.))) * kraddeg; |
| fe4da5cc |
4156 | aphi2 = 180. - aphi1; |
| 4157 | xpos = (xtra1[5] + xtra1[0]) / 2.; |
| 4158 | ypos = (ytra1[5] + ytra1[0]) / 2.; |
| 4159 | zpos = dtra2[2] / 2.; |
| b3a22d72 |
4160 | gMC->Gsvolu(knatra4[14], "TUBE", idtmed[274], dtra4, 3); |
| fe4da5cc |
4161 | r2 = atheta + 90.; |
| 4162 | r3 = atheta + 90.; |
| 4163 | AliMatrix(idrotm[5224], 90., atheta, aphi1 + 90., r2, aphi1, r3); |
| b3a22d72 |
4164 | gMC->Gspos(knatra4[14], 1, "ITSV", xpos, ypos, zpos, idrotm[5224], "ONLY"); |
| fe4da5cc |
4165 | zpos = -dtra2[2] / 2.; |
| b3a22d72 |
4166 | gMC->Gsvolu(knatra4[15], "TUBE", idtmed[274], dtra4, 3); |
| fe4da5cc |
4167 | r2 = atheta + 90.; |
| 4168 | r3 = atheta + 90.; |
| 4169 | AliMatrix(idrotm[5225], 90., atheta, aphi2 + 90., r2, aphi2, r3); |
| b3a22d72 |
4170 | gMC->Gspos(knatra4[15], 1, "ITSV", xpos, ypos, zpos, idrotm[5225], "ONLY"); |
| fe4da5cc |
4171 | |
| 4172 | |
| 58005f18 |
4173 | } else if (fMinorVersionV3 == 5) { |
| fe4da5cc |
4174 | |
| 4175 | |
| 4176 | rzero = 33.5; |
| 4177 | dtra2[0] = .92; |
| 4178 | dtra2[1] = 1.; |
| 4179 | dtra2[2] = dpcb[2] * 2. + 50. - 10.5; |
| 4180 | dtra3[0] = .92; |
| 4181 | dtra3[1] = 1.; |
| 4182 | dtra3[2] = 16.75; |
| 4183 | dtra4[0] = .92; |
| 4184 | dtra4[1] = 1.; |
| 4185 | dtra4[2] = TMath::Sqrt(dtra2[2] * dtra2[2] + (59.9*59.9-50.*50.)) / 2.; |
| 4186 | angle = 60.; |
| 4187 | offset = angle / 2.; |
| e8189707 |
4188 | for (i = 0; i < 6; ++i) { |
| b3a22d72 |
4189 | xtra1[i] = rzero * TMath::Cos((i * angle + offset) *kdegrad); |
| 4190 | ytra1[i] = rzero * TMath::Sin((i * angle + offset) *kdegrad); |
| fe4da5cc |
4191 | ztra1[i] = 0.; |
| b3a22d72 |
4192 | gMC->Gsvolu(knatra2[i], "TUBE", idtmed[274], dtra2, 3); |
| 4193 | gMC->Gspos(knatra2[i], 1, "ITSV", xtra1[i], ytra1[i], ztra1[i], 0, "ONLY"); |
| fe4da5cc |
4194 | } |
| 4195 | |
| 4196 | atheta = 60.; |
| 4197 | aphi = 90.; |
| 4198 | xpos = (xtra1[0] + xtra1[1]) / 2.; |
| 4199 | ypos = (ytra1[0] + ytra1[1]) / 2.; |
| 4200 | zpos = 0.; |
| b3a22d72 |
4201 | gMC->Gsvolu(knatra3[0], "TUBE", idtmed[274], dtra3, 3); |
| fe4da5cc |
4202 | r2 = atheta + 90.; |
| 4203 | r3 = atheta + 90.; |
| 4204 | AliMatrix(idrotm[5200], 90., atheta, aphi + 90., r2, aphi, r3); |
| b3a22d72 |
4205 | gMC->Gspos(knatra3[0], 1, "ITSV", xpos, ypos, zpos, idrotm[5200], "ONLY"); |
| fe4da5cc |
4206 | |
| 4207 | atheta = 120.; |
| 4208 | aphi = 90.; |
| 4209 | xpos = (xtra1[1] + xtra1[2]) / 2.; |
| 4210 | ypos = (ytra1[1] + ytra1[2]) / 2.; |
| 4211 | zpos = 0.; |
| b3a22d72 |
4212 | gMC->Gsvolu(knatra3[1], "TUBE", idtmed[274], dtra3, 3); |
| fe4da5cc |
4213 | r2 = atheta + 90.; |
| 4214 | r3 = atheta + 90.; |
| 4215 | AliMatrix(idrotm[5201], 90., atheta, aphi + 90., r2, aphi, r3); |
| b3a22d72 |
4216 | gMC->Gspos(knatra3[1], 1, "ITSV", xpos, ypos, zpos, idrotm[5201], "ONLY"); |
| fe4da5cc |
4217 | |
| 4218 | atheta = 180.; |
| 4219 | aphi = 90.; |
| 4220 | xpos = (xtra1[2] + xtra1[3]) / 2.; |
| 4221 | ypos = (ytra1[2] + ytra1[3]) / 2.; |
| 4222 | zpos = 0.; |
| b3a22d72 |
4223 | gMC->Gsvolu(knatra3[2], "TUBE", idtmed[274], dtra3, 3); |
| fe4da5cc |
4224 | r2 = atheta + 90.; |
| 4225 | r3 = atheta + 90.; |
| 4226 | AliMatrix(idrotm[5202], 90., atheta, aphi + 90., r2, aphi, r3); |
| b3a22d72 |
4227 | gMC->Gspos(knatra3[2], 1, "ITSV", xpos, ypos, zpos, idrotm[5202], "ONLY"); |
| fe4da5cc |
4228 | |
| 4229 | atheta = 60.; |
| 4230 | aphi = 90.; |
| 4231 | xpos = (xtra1[3] + xtra1[4]) / 2.; |
| 4232 | ypos = (ytra1[3] + ytra1[4]) / 2.; |
| 4233 | zpos = 0.; |
| b3a22d72 |
4234 | gMC->Gsvolu(knatra3[3], "TUBE", idtmed[274], dtra3, 3); |
| fe4da5cc |
4235 | r2 = atheta + 90.; |
| 4236 | r3 = atheta + 90.; |
| 4237 | AliMatrix(idrotm[5203], 90., atheta, aphi + 90., r2, aphi, r3); |
| b3a22d72 |
4238 | gMC->Gspos(knatra3[3], 1, "ITSV", xpos, ypos, zpos, idrotm[5203], "ONLY"); |
| fe4da5cc |
4239 | |
| 4240 | atheta = 120.; |
| 4241 | aphi = 90.; |
| 4242 | xpos = (xtra1[4] + xtra1[5]) / 2.; |
| 4243 | ypos = (ytra1[4] + ytra1[5]) / 2.; |
| 4244 | zpos = 0.; |
| b3a22d72 |
4245 | gMC->Gsvolu(knatra3[4], "TUBE", idtmed[274], dtra3, 3); |
| fe4da5cc |
4246 | r2 = atheta + 90.; |
| 4247 | r3 = atheta + 90.; |
| 4248 | AliMatrix(idrotm[5204], 90., atheta, aphi + 90., r2, aphi, r3); |
| b3a22d72 |
4249 | gMC->Gspos(knatra3[4], 1, "ITSV", xpos, ypos, zpos, idrotm[5204], "ONLY"); |
| fe4da5cc |
4250 | |
| 4251 | atheta = 180.; |
| 4252 | aphi = 90.; |
| 4253 | xpos = (xtra1[5] + xtra1[0]) / 2.; |
| 4254 | ypos = (ytra1[5] + ytra1[0]) / 2.; |
| 4255 | zpos = 0.; |
| b3a22d72 |
4256 | gMC->Gsvolu(knatra3[5], "TUBE", idtmed[274], dtra3, 3); |
| fe4da5cc |
4257 | r2 = atheta + 90.; |
| 4258 | r3 = atheta + 90.; |
| 4259 | AliMatrix(idrotm[5205], 90., atheta, aphi + 90., r2, aphi, r3); |
| b3a22d72 |
4260 | gMC->Gspos(knatra3[5], 1, "ITSV", xpos, ypos, zpos, idrotm[5205], "ONLY"); |
| fe4da5cc |
4261 | |
| 4262 | atheta = 60.; |
| b3a22d72 |
4263 | aphi2 = TMath::ACos(dtra2[2] / TMath::Sqrt(dtra2[2] * dtra2[2] + (50. / cos(34.*kdegrad) * (50. / cos(34.*kdegrad))- 50.*50.))) * kraddeg; |
| fe4da5cc |
4264 | aphi1 = 180. - aphi2; |
| 4265 | xpos = (xtra1[0] + xtra1[1]) / 2.; |
| 4266 | ypos = (ytra1[0] + ytra1[1]) / 2.; |
| 4267 | zpos = dtra2[2] / 2.; |
| b3a22d72 |
4268 | gMC->Gsvolu(knatra4[0], "TUBE", idtmed[274], dtra4, 3); |
| fe4da5cc |
4269 | r2 = atheta + 90.; |
| 4270 | r3 = atheta + 90.; |
| 4271 | AliMatrix(idrotm[5210], 90., atheta, aphi1 + 90., r2, aphi1, r3); |
| b3a22d72 |
4272 | gMC->Gspos(knatra4[0], 1, "ITSV", xpos, ypos, zpos, idrotm[5210], "ONLY"); |
| fe4da5cc |
4273 | zpos = -dtra2[2] / 2.; |
| b3a22d72 |
4274 | gMC->Gsvolu(knatra4[1], "TUBE", idtmed[274], dtra4, 3); |
| fe4da5cc |
4275 | r2 = atheta + 90.; |
| 4276 | r3 = atheta + 90.; |
| 4277 | AliMatrix(idrotm[5211], 90., atheta, aphi2 + 90., r2, aphi2, r3); |
| b3a22d72 |
4278 | gMC->Gspos(knatra4[1], 1, "ITSV", xpos, ypos, zpos, idrotm[5211], "ONLY"); |
| fe4da5cc |
4279 | |
| 4280 | atheta = 120.; |
| b3a22d72 |
4281 | aphi1 = TMath::ACos(dtra2[2] / TMath::Sqrt(dtra2[2] * dtra2[2] + (50. / cos(34.*kdegrad) * (50. / cos(34.*kdegrad))- 50.*50.))) * kraddeg; |
| fe4da5cc |
4282 | aphi2 = 180. - aphi1; |
| 4283 | xpos = (xtra1[1] + xtra1[2]) / 2.; |
| 4284 | ypos = (ytra1[1] + ytra1[2]) / 2.; |
| 4285 | zpos = dtra2[2] / 2.; |
| b3a22d72 |
4286 | gMC->Gsvolu(knatra4[2], "TUBE", idtmed[274], dtra4, 3); |
| fe4da5cc |
4287 | r2 = atheta + 90.; |
| 4288 | r3 = atheta + 90.; |
| 4289 | AliMatrix(idrotm[5212], 90., atheta, aphi1 + 90., r2, aphi1, r3); |
| b3a22d72 |
4290 | gMC->Gspos(knatra4[2], 1, "ITSV", xpos, ypos, zpos, idrotm[5212], "ONLY"); |
| fe4da5cc |
4291 | zpos = -dtra2[2] / 2.; |
| b3a22d72 |
4292 | gMC->Gsvolu(knatra4[3], "TUBE", idtmed[274], dtra4, 3); |
| fe4da5cc |
4293 | r2 = atheta + 90.; |
| 4294 | r3 = atheta + 90.; |
| 4295 | AliMatrix(idrotm[5213], 90., atheta, aphi2 + 90., r2, aphi2, r3); |
| b3a22d72 |
4296 | gMC->Gspos(knatra4[3], 1, "ITSV", xpos, ypos, zpos, idrotm[5213], "ONLY"); |
| fe4da5cc |
4297 | |
| 4298 | atheta = 180.; |
| b3a22d72 |
4299 | aphi2 = TMath::ACos(dtra2[2] / TMath::Sqrt(dtra2[2] * dtra2[2] + (50. / cos(34.*kdegrad) * (50. / cos(34.*kdegrad))- 50.*50.))) * kraddeg; |
| fe4da5cc |
4300 | aphi1 = 180. - aphi2; |
| 4301 | xpos = (xtra1[2] + xtra1[3]) / 2.; |
| 4302 | ypos = (ytra1[2] + ytra1[3]) / 2.; |
| 4303 | zpos = dtra2[2] / 2.; |
| b3a22d72 |
4304 | gMC->Gsvolu(knatra4[4], "TUBE", idtmed[274], dtra4, 3); |
| fe4da5cc |
4305 | r2 = atheta + 90.; |
| 4306 | r3 = atheta + 90.; |
| 4307 | AliMatrix(idrotm[5214], 90., atheta, aphi1 + 90., r2, aphi1, r3); |
| b3a22d72 |
4308 | gMC->Gspos(knatra4[4], 1, "ITSV", xpos, ypos, zpos, idrotm[5214], "ONLY"); |
| fe4da5cc |
4309 | zpos = -dtra2[2] / 2.; |
| b3a22d72 |
4310 | gMC->Gsvolu(knatra4[5], "TUBE", idtmed[274], dtra4, 3); |
| fe4da5cc |
4311 | r2 = atheta + 90.; |
| 4312 | r3 = atheta + 90.; |
| 4313 | AliMatrix(idrotm[5215], 90., atheta, aphi2 + 90., r2, aphi2, r3); |
| b3a22d72 |
4314 | gMC->Gspos(knatra4[5], 1, "ITSV", xpos, ypos, zpos, idrotm[5215], "ONLY"); |
| fe4da5cc |
4315 | atheta = 180.; |
| b3a22d72 |
4316 | aphi1 = TMath::ACos(dtra2[2] / TMath::Sqrt(dtra2[2] * dtra2[2] + (50. / cos(34.*kdegrad) * (50. / cos(34.*kdegrad))- 50.*50.))) * kraddeg; |
| fe4da5cc |
4317 | aphi2 = 180. - aphi1; |
| 4318 | xpos = (xtra1[2] + xtra1[3]) / 2.; |
| 4319 | ypos = (ytra1[2] + ytra1[3]) / 2.; |
| 4320 | zpos = dtra2[2] / 2.; |
| b3a22d72 |
4321 | gMC->Gsvolu(knatra4[6], "TUBE", idtmed[274], dtra4, 3); |
| fe4da5cc |
4322 | r2 = atheta + 90.; |
| 4323 | r3 = atheta + 90.; |
| 4324 | AliMatrix(idrotm[5216], 90., atheta, aphi1 + 90., r2, aphi1, r3); |
| b3a22d72 |
4325 | gMC->Gspos(knatra4[6], 1, "ITSV", xpos, ypos, zpos, idrotm[5216], "ONLY"); |
| fe4da5cc |
4326 | zpos = -dtra2[2] / 2.; |
| b3a22d72 |
4327 | gMC->Gsvolu(knatra4[7], "TUBE", idtmed[274], dtra4, 3); |
| fe4da5cc |
4328 | r2 = atheta + 90.; |
| 4329 | r3 = atheta + 90.; |
| 4330 | AliMatrix(idrotm[5217], 90., atheta, aphi2 + 90., r2, aphi2, r3); |
| b3a22d72 |
4331 | gMC->Gspos(knatra4[7], 1, "ITSV", xpos, ypos, zpos, idrotm[5217], "ONLY"); |
| fe4da5cc |
4332 | |
| 4333 | atheta = 60.; |
| b3a22d72 |
4334 | aphi2 = TMath::ACos(dtra2[2] / TMath::Sqrt(dtra2[2] * dtra2[2] + (50. / cos(34.*kdegrad) * (50. / cos(34.*kdegrad))- 50.*50.))) * kraddeg; |
| fe4da5cc |
4335 | aphi1 = 180. - aphi2; |
| 4336 | xpos = (xtra1[3] + xtra1[4]) / 2.; |
| 4337 | ypos = (ytra1[3] + ytra1[4]) / 2.; |
| 4338 | zpos = dtra2[2] / 2.; |
| b3a22d72 |
4339 | gMC->Gsvolu(knatra4[8], "TUBE", idtmed[274], dtra4, 3); |
| fe4da5cc |
4340 | r2 = atheta + 90.; |
| 4341 | r3 = atheta + 90.; |
| 4342 | AliMatrix(idrotm[5218], 90., atheta, aphi1 + 90., r2, aphi1, r3); |
| b3a22d72 |
4343 | gMC->Gspos(knatra4[8], 1, "ITSV", xpos, ypos, zpos, idrotm[5218], "ONLY"); |
| fe4da5cc |
4344 | zpos = -dtra2[2] / 2.; |
| b3a22d72 |
4345 | gMC->Gsvolu(knatra4[9], "TUBE", idtmed[274], dtra4, 3); |
| fe4da5cc |
4346 | r2 = atheta + 90.; |
| 4347 | r3 = atheta + 90.; |
| 4348 | AliMatrix(idrotm[5219], 90., atheta, aphi2 + 90., r2, aphi2, r3); |
| b3a22d72 |
4349 | gMC->Gspos(knatra4[9], 1, "ITSV", xpos, ypos, zpos, idrotm[5219], "ONLY"); |
| fe4da5cc |
4350 | |
| 4351 | atheta = 120.; |
| b3a22d72 |
4352 | aphi1 = TMath::ACos(dtra2[2] / TMath::Sqrt(dtra2[2] * dtra2[2] + (50. / cos(34.*kdegrad) * (50. / cos(34.*kdegrad))- 50.*50.))) * kraddeg; |
| fe4da5cc |
4353 | aphi2 = 180. - aphi1; |
| 4354 | xpos = (xtra1[4] + xtra1[5]) / 2.; |
| 4355 | ypos = (ytra1[4] + ytra1[5]) / 2.; |
| 4356 | zpos = dtra2[2] / 2.; |
| b3a22d72 |
4357 | gMC->Gsvolu(knatra4[10], "TUBE", idtmed[274], dtra4, 3); |
| fe4da5cc |
4358 | r2 = atheta + 90.; |
| 4359 | r3 = atheta + 90.; |
| 4360 | AliMatrix(idrotm[5220], 90., atheta, aphi1 + 90., r2, aphi1, r3); |
| b3a22d72 |
4361 | gMC->Gspos(knatra4[10], 1, "ITSV", xpos, ypos, zpos, idrotm[5220], "ONLY"); |
| fe4da5cc |
4362 | zpos = -dtra2[2] / 2.; |
| b3a22d72 |
4363 | gMC->Gsvolu(knatra4[11], "TUBE", idtmed[274], dtra4, 3); |
| fe4da5cc |
4364 | r2 = atheta + 90.; |
| 4365 | r3 = atheta + 90.; |
| 4366 | AliMatrix(idrotm[5221], 90., atheta, aphi2 + 90., r2, aphi2, r3); |
| b3a22d72 |
4367 | gMC->Gspos(knatra4[11], 1, "ITSV", xpos, ypos, zpos, idrotm[5221], "ONLY"); |
| fe4da5cc |
4368 | |
| 4369 | atheta = 180.; |
| b3a22d72 |
4370 | aphi2 = TMath::ACos(dtra2[2] / TMath::Sqrt(dtra2[2] * dtra2[2] + (50. / cos(34.*kdegrad) * (50. / cos(34.*kdegrad))- 50.*50.))) * kraddeg; |
| fe4da5cc |
4371 | aphi1 = 180. - aphi2; |
| 4372 | xpos = (xtra1[5] + xtra1[0]) / 2.; |
| 4373 | ypos = (ytra1[5] + ytra1[0]) / 2.; |
| 4374 | zpos = dtra2[2] / 2.; |
| b3a22d72 |
4375 | gMC->Gsvolu(knatra4[12], "TUBE", idtmed[274], dtra4, 3); |
| fe4da5cc |
4376 | r2 = atheta + 90.; |
| 4377 | r3 = atheta + 90.; |
| 4378 | AliMatrix(idrotm[5222], 90., atheta, aphi1 + 90., r2, aphi1, r3); |
| b3a22d72 |
4379 | gMC->Gspos(knatra4[12], 1, "ITSV", xpos, ypos, zpos, idrotm[5222], "ONLY"); |
| fe4da5cc |
4380 | zpos = -dtra2[2] / 2.; |
| b3a22d72 |
4381 | gMC->Gsvolu(knatra4[13], "TUBE", idtmed[274], dtra4, 3); |
| fe4da5cc |
4382 | r2 = atheta + 90.; |
| 4383 | r3 = atheta + 90.; |
| 4384 | AliMatrix(idrotm[5223], 90., atheta, aphi2 + 90., r2, aphi2, r3); |
| b3a22d72 |
4385 | gMC->Gspos(knatra4[13], 1, "ITSV", xpos, ypos, zpos, idrotm[5223], "ONLY"); |
| fe4da5cc |
4386 | atheta = 180.; |
| b3a22d72 |
4387 | aphi1 = TMath::ACos(dtra2[2] / TMath::Sqrt(dtra2[2] * dtra2[2] + (50. / cos(34.*kdegrad) * (50. / cos(34.*kdegrad))- 50.*50.))) * kraddeg; |
| fe4da5cc |
4388 | aphi2 = 180. - aphi1; |
| 4389 | xpos = (xtra1[5] + xtra1[0]) / 2.; |
| 4390 | ypos = (ytra1[5] + ytra1[0]) / 2.; |
| 4391 | zpos = dtra2[2] / 2.; |
| b3a22d72 |
4392 | gMC->Gsvolu(knatra4[14], "TUBE", idtmed[274], dtra4, 3); |
| fe4da5cc |
4393 | r2 = atheta + 90.; |
| 4394 | r3 = atheta + 90.; |
| 4395 | AliMatrix(idrotm[5224], 90., atheta, aphi1 + 90., r2, aphi1, r3); |
| b3a22d72 |
4396 | gMC->Gspos(knatra4[14], 1, "ITSV", xpos, ypos, zpos, idrotm[5224], "ONLY"); |
| fe4da5cc |
4397 | zpos = -dtra2[2] / 2.; |
| b3a22d72 |
4398 | gMC->Gsvolu(knatra4[15], "TUBE", idtmed[274], dtra4, 3); |
| fe4da5cc |
4399 | r2 = atheta + 90.; |
| 4400 | r3 = atheta + 90.; |
| 4401 | AliMatrix(idrotm[5225], 90., atheta, aphi2 + 90., r2, aphi2, r3); |
| b3a22d72 |
4402 | gMC->Gspos(knatra4[15], 1, "ITSV", xpos, ypos, zpos, idrotm[5225], "ONLY"); |
| fe4da5cc |
4403 | } else { |
| 4404 | goto L9123; |
| 4405 | } |
| 4406 | |
| 4407 | L9123: |
| 4408 | // --- Define the end-caps |
| 4409 | |
| 4410 | // GOTO 9234 ! skip both end-caps |
| 4411 | |
| 4412 | // --- Define the Z>0 end-cap |
| 4413 | |
| 4414 | // GOTO 9345 ! skip the Z>0 end-cap |
| 4415 | |
| 4416 | dcone[0] = 16.75; |
| 4417 | dcone[1] = 12.; |
| 4418 | dcone[2] = 12.02; |
| 4419 | dcone[3] = (338.-3.)*455./(338.-3.-10.)/10.; |
| b3a22d72 |
4420 | dcone[4] = .02 / TMath::Cos(45.*kdegrad) + (338.-3.)*455./(338.-3.-10.)/10.; |
| fe4da5cc |
4421 | xpos = 0.; |
| 4422 | ypos = 0.; |
| 4423 | zpos = dpcb[2] * 2. + (583.+(338.-3.))/2./10. - 10.5; |
| 4424 | // end-ladder electro |
| cfce8870 |
4425 | gMC->Gsvolu("RCON", "CONE", idtmed[274], dcone, 5); |
| 4426 | gMC->Gspos("RCON", 1, "ITSV", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
4427 | |
| b3a22d72 |
4428 | dtube[0] = .02 / TMath::Cos(45.*kdegrad) + (338.-3.)*455./(338.-3.-10.)/10.; |
| fe4da5cc |
4429 | dtube[1] = 49.9; |
| 4430 | // In the Simonetti's drawings 52. In the TP 50. |
| 4431 | dtube[2] = .15; |
| 4432 | xpos = 0.; |
| 4433 | ypos = 0.; |
| 4434 | zpos = dpcb[2] * 2. + (583./2.+(338-1.5))/10. - 10.5; |
| 4435 | // end-ladder electro |
| cfce8870 |
4436 | gMC->Gsvolu("RTB1", "TUBE", idtmed[274], dtube, 3); |
| 4437 | gMC->Gspos("RTB1", 1, "ITSV", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
4438 | |
| 4439 | dtube[0] = 10.5; |
| 4440 | dtube[1] = 12.; |
| 4441 | dtube[2] = 26.8/2./10.; |
| 4442 | xpos = 0.; |
| 4443 | ypos = 0.; |
| 4444 | zpos = dpcb[2] * 2. + (583./2.-89.+26.8/2.)/10. - 10.5; |
| 4445 | // end-ladder elect |
| cfce8870 |
4446 | gMC->Gsvolu("RTB2", "TUBE", idtmed[274], dtube, 3); |
| 4447 | gMC->Gspos("RTB2", 1, "ITSV", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
4448 | |
| 4449 | dpgon[0] = 15.; |
| 4450 | dpgon[1] = 360.; |
| 4451 | dpgon[2] = 12.; |
| 4452 | dpgon[3] = 2.; |
| 4453 | dpgon[4] = dpcb[2] * 2. + (583./2.-62.2)/10. - 10.5; |
| 4454 | // end-ladder electron |
| 4455 | dpgon[5] = 12.; |
| 4456 | dpgon[6] = 13.5; |
| 4457 | dpgon[7] = dpcb[2] * 2. + 583./2./10. - 10.5; |
| 4458 | // end-ladder electronics |
| 4459 | dpgon[8] = 12.; |
| 4460 | dpgon[9] = 13.5; |
| 4461 | xpos = 0.; |
| 4462 | ypos = 0.; |
| 4463 | zpos = 0.; |
| cfce8870 |
4464 | gMC->Gsvolu("RP03", "PGON", idtmed[274], dpgon, 10); |
| 4465 | gMC->Gspos("RP03", 1, "ITSV", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
4466 | |
| 4467 | dpgon[0] = 7.5; |
| 4468 | dpgon[1] = 360.; |
| 4469 | dpgon[2] = 24.; |
| 4470 | dpgon[3] = 2.; |
| 4471 | dpgon[4] = dpcb[2] * 2. + (583./2.+(338.-273.))/10. - 10.5; |
| 4472 | // end-ladder e |
| 4473 | dpgon[5] = 21.; |
| 4474 | dpgon[6] = 23.; |
| 4475 | dpgon[7] = dpcb[2] * 2. + (583./2.+(338.-273.+15.))/10. - 10.5; |
| 4476 | // end-ladde |
| 4477 | dpgon[8] = 21.; |
| 4478 | dpgon[9] = 23.; |
| 4479 | xpos = 0.; |
| 4480 | ypos = 0.; |
| 4481 | zpos = 0.; |
| cfce8870 |
4482 | gMC->Gsvolu("RP04", "PGON", idtmed[274], dpgon, 10); |
| 4483 | gMC->Gspos("RP04", 1, "ITSV", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
4484 | |
| 58005f18 |
4485 | if (fMinorVersionV3 < 3 ) { |
| fe4da5cc |
4486 | offset2 = 5.2; |
| 4487 | dpgon[0] = offset2 + 360./(2.*35.); |
| 4488 | dpgon[1] = 360.; |
| 4489 | dpgon[2] = 35.; |
| 4490 | dpgon[3] = 2.; |
| 4491 | dpgon[4] = dpcb[2] * 2. + (583./2.+(338.-106.))/10. - 10.5; |
| 4492 | // end-ladde |
| 4493 | dpgon[5] = 37.7; |
| 4494 | dpgon[6] = 40.; |
| 4495 | dpgon[7] = dpcb[2] * 2. + (583./2.+(338.-106.+15.))/10. - 10.5; |
| 4496 | // end-la |
| 4497 | dpgon[8] = 37.7; |
| 4498 | dpgon[9] = 40.; |
| 4499 | xpos = 0.; |
| 4500 | ypos = 0.; |
| 4501 | zpos = 0.; |
| cfce8870 |
4502 | gMC->Gsvolu("RP05", "PGON", idtmed[274], dpgon, 10); |
| 4503 | gMC->Gspos("RP05", 1, "ITSV", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
4504 | |
| 4505 | dpgon[0] = offset2 + 360./(2.*39.); |
| 4506 | dpgon[1] = 360.; |
| 4507 | dpgon[2] = 39.; |
| 4508 | dpgon[3] = 2.; |
| 4509 | dpgon[4] = dpcb[2] * 2. + (583./2.+(338.-56.))/10. - 10.5; |
| 4510 | // end-ladder |
| 4511 | dpgon[5] = 42.7; |
| 4512 | dpgon[6] = 45.; |
| 4513 | dpgon[7] = dpcb[2] * 2. + (583./2.+(338.-56.+15.))/10. - 10.5; |
| 4514 | // end-la |
| 4515 | dpgon[8] = 42.7; |
| 4516 | dpgon[9] = 45.; |
| 4517 | xpos = 0.; |
| 4518 | ypos = 0.; |
| 4519 | zpos = 0.; |
| cfce8870 |
4520 | gMC->Gsvolu("RP06", "PGON", idtmed[274], dpgon, 10); |
| 4521 | gMC->Gspos("RP06", 1, "ITSV", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
4522 | } |
| 58005f18 |
4523 | if (fMinorVersionV3 > 2 && fMinorVersionV3 < 6) { |
| fe4da5cc |
4524 | offset2 = 5.2; |
| 4525 | dpgon[0] = offset2 + 5.625; |
| 4526 | dpgon[1] = 360.; |
| 4527 | dpgon[2] = 32.; |
| 4528 | dpgon[3] = 2.; |
| b3a22d72 |
4529 | dpgon[4] = (583./2.+(338.-106.))/10. - (40.-36.6) / TMath::Tan(45.*kdegrad) + dpcb[2] * 2. - 10.5; |
| fe4da5cc |
4530 | // end-ladder electronics |
| 4531 | dpgon[5] = 34.3; |
| 4532 | dpgon[6] = 36.6; |
| b3a22d72 |
4533 | dpgon[7] = (583./2.+(338.-106.+15.))/10. - (40.-36.6) / TMath::Tan(45.*kdegrad) + dpcb[2] * 2. - 10.5; |
| fe4da5cc |
4534 | // end-ladder electr |
| 4535 | dpgon[8] = 34.3; |
| 4536 | dpgon[9] = 36.6; |
| 4537 | xpos = 0.; |
| 4538 | ypos = 0.; |
| 4539 | zpos = 0.; |
| cfce8870 |
4540 | gMC->Gsvolu("RP05", "PGON", idtmed[274], dpgon, 10); |
| 4541 | gMC->Gspos("RP05", 1, "ITSV", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
4542 | |
| 4543 | dpgon[0] = offset2 + 5.; |
| 4544 | dpgon[1] = 360.; |
| 4545 | dpgon[2] = 36.; |
| 4546 | dpgon[3] = 2.; |
| b3a22d72 |
4547 | dpgon[4] = (583./2.+(338.-56.))/10. - (45.-41.2) / TMath::Tan(45.*kdegrad) + dpcb[2] * 2. - 10.5; |
| fe4da5cc |
4548 | // end-ladder electronics |
| 4549 | dpgon[5] = 38.9; |
| 4550 | dpgon[6] = 41.2; |
| b3a22d72 |
4551 | dpgon[7] = (583./2.+(338.-56.+15.))/10. - (45.-41.2) / TMath::Tan(45.*kdegrad) + dpcb[2] * 2. - 10.5; |
| fe4da5cc |
4552 | // end-ladder electr |
| 4553 | dpgon[8] = 38.9; |
| 4554 | dpgon[9] = 41.2; |
| 4555 | xpos = 0.; |
| 4556 | ypos = 0.; |
| 4557 | zpos = 0.; |
| cfce8870 |
4558 | gMC->Gsvolu("RP06", "PGON", idtmed[274], dpgon, 10); |
| 4559 | gMC->Gspos("RP06", 1, "ITSV", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
4560 | } |
| 4561 | |
| 4562 | // 9345 CONTINUE |
| 4563 | |
| 4564 | // --- Define the Z<0 end-cap |
| 4565 | |
| 4566 | // GOTO 9456 ! skip the Z<0 end-cap |
| 4567 | |
| 4568 | dcone[0] = 16.75; |
| 4569 | dcone[1] = (338.-3.)*455./(338.-3.-10.)/10.; |
| b3a22d72 |
4570 | dcone[2] = .02 / TMath::Cos(45.*kdegrad) + (338.-3.)*455./(338.-3.-10.)/10.; |
| fe4da5cc |
4571 | dcone[3] = 12.; |
| 4572 | dcone[4] = 12.02; |
| 4573 | xpos = 0.; |
| 4574 | ypos = 0.; |
| 4575 | zpos = -(583.+(338.-3.))/2./10. - dpcb[2] * 2. + 10.5; |
| 4576 | // end-ladder electr |
| cfce8870 |
4577 | gMC->Gsvolu("LCON", "CONE", idtmed[274], dcone, 5); |
| fe4da5cc |
4578 | |
| cfce8870 |
4579 | gMC->Gspos("LCON", 1, "ITSV", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
4580 | |
| b3a22d72 |
4581 | dtube[0] = .02 / TMath::Cos(45.*kdegrad) + (338.-3.)*455./(338.-3.-10.)/10.; |
| fe4da5cc |
4582 | dtube[1] = 49.9; |
| 4583 | // In the Simonetti's drawings 52. In the TP 50. |
| 4584 | dtube[2] = .15; |
| 4585 | xpos = 0.; |
| 4586 | ypos = 0.; |
| 4587 | zpos = -(583./2.+(338-1.5))/10. - dpcb[2] * 2. + 10.5; |
| 4588 | // end-ladder electr |
| cfce8870 |
4589 | gMC->Gsvolu("LTB1", "TUBE", idtmed[274], dtube, 3); |
| fe4da5cc |
4590 | |
| cfce8870 |
4591 | gMC->Gspos("LTB1", 1, "ITSV", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
4592 | |
| 4593 | dtube[0] = 10.5; |
| 4594 | dtube[1] = 12.; |
| 4595 | dtube[2] = 26.8/2./10.; |
| 4596 | xpos = 0.; |
| 4597 | ypos = 0.; |
| 4598 | zpos = -(583./2.-89.+26.8/2.)/10. - dpcb[2] * 2. + 10.5; |
| 4599 | // end-ladder elec |
| cfce8870 |
4600 | gMC->Gsvolu("LTB2", "TUBE", idtmed[274], dtube, 3); |
| fe4da5cc |
4601 | ; |
| cfce8870 |
4602 | gMC->Gspos("LTB2", 1, "ITSV", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
4603 | |
| 4604 | dpgon[0] = 15.; |
| 4605 | dpgon[1] = 360.; |
| 4606 | dpgon[2] = 12.; |
| 4607 | dpgon[3] = 2.; |
| 4608 | dpgon[4] = -583./2./10. - dpcb[2] * 2. + 10.5; |
| 4609 | // end-ladder electronics |
| 4610 | dpgon[5] = 12.; |
| 4611 | dpgon[6] = 13.5; |
| 4612 | dpgon[7] = -(583./2.-62.2)/10. - dpcb[2] * 2. + 10.5; |
| 4613 | // end-ladder electro |
| 4614 | dpgon[8] = 12.; |
| 4615 | dpgon[9] = 13.5; |
| 4616 | xpos = 0.; |
| 4617 | ypos = 0.; |
| 4618 | zpos = 0.; |
| cfce8870 |
4619 | gMC->Gsvolu("LP03", "PGON", idtmed[274], dpgon, 10); |
| 4620 | gMC->Gspos("LP03", 1, "ITSV", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
4621 | |
| 4622 | dpgon[0] = 7.5; |
| 4623 | dpgon[1] = 360.; |
| 4624 | dpgon[2] = 24.; |
| 4625 | dpgon[3] = 2.; |
| 4626 | dpgon[4] = -(583./2.+(338.-273.+15.))/10. - dpcb[2] * 2. + 10.5; |
| 4627 | // end-ladd |
| 4628 | dpgon[5] = 21.; |
| 4629 | dpgon[6] = 23.; |
| 4630 | dpgon[7] = -(583./2.+(338.-273.))/10. - dpcb[2] * 2. + 10.5; |
| 4631 | // end-ladder |
| 4632 | dpgon[8] = 21.; |
| 4633 | dpgon[9] = 23.; |
| 4634 | xpos = 0.; |
| 4635 | ypos = 0.; |
| 4636 | zpos = 0.; |
| cfce8870 |
4637 | gMC->Gsvolu("LP04", "PGON", idtmed[274], dpgon, 10); |
| 4638 | gMC->Gspos("LP04", 1, "ITSV", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
4639 | |
| 58005f18 |
4640 | if (fMinorVersionV3 < 3) { |
| fe4da5cc |
4641 | offset2 = 5.2; |
| 4642 | dpgon[0] = offset2 + 360./(2.*35.); |
| 4643 | dpgon[1] = 360.; |
| 4644 | dpgon[2] = 35.; |
| 4645 | dpgon[3] = 2.; |
| 4646 | dpgon[4] = -(583./2.+(338.-106.))/10. - dpcb[2] * 2. + 10.5; |
| 4647 | // end-ladd |
| 4648 | dpgon[5] = 37.7; |
| 4649 | dpgon[6] = 40.; |
| 4650 | dpgon[7] = -(583./2.+(338.-106.+15.))/10. - dpcb[2] * 2. + 10.5; |
| 4651 | // end-l |
| 4652 | dpgon[8] = 37.7; |
| 4653 | dpgon[9] = 40.; |
| 4654 | xpos = 0.; |
| 4655 | ypos = 0.; |
| 4656 | zpos = 0.; |
| cfce8870 |
4657 | gMC->Gsvolu("LP05", "PGON", idtmed[274], dpgon, 10); |
| 4658 | gMC->Gspos("LP05", 1, "ITSV", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
4659 | |
| 4660 | dpgon[0] = offset2 + 360./(2.*39.); |
| 4661 | dpgon[1] = 360.; |
| 4662 | dpgon[2] = 39.; |
| 4663 | dpgon[3] = 2.; |
| 4664 | dpgon[4] = -(583./2.+(338.-56.))/10. - dpcb[2] * 2. + 10.5; |
| 4665 | // end-ladde |
| 4666 | dpgon[5] = 42.7; |
| 4667 | dpgon[6] = 45.; |
| 4668 | dpgon[7] = -(583./2.+(338.-56.+15.))/10. - dpcb[2] * 2. + 10.5; |
| 4669 | // end-l |
| 4670 | dpgon[8] = 42.7; |
| 4671 | dpgon[9] = 45.; |
| 4672 | xpos = 0.; |
| 4673 | ypos = 0.; |
| 4674 | zpos = 0.; |
| cfce8870 |
4675 | gMC->Gsvolu("LP06", "PGON", idtmed[274], dpgon, 10); |
| 4676 | gMC->Gspos("LP06", 1, "ITSV", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
4677 | } |
| 58005f18 |
4678 | if (fMinorVersionV3 > 2 && fMinorVersionV3 < 6) { |
| fe4da5cc |
4679 | offset2 = 5.2; |
| 4680 | dpgon[0] = offset2 + 5.625; |
| 4681 | dpgon[1] = 360.; |
| 4682 | dpgon[2] = 32.; |
| 4683 | dpgon[3] = 2.; |
| b3a22d72 |
4684 | dpgon[4] = (40.-36.6) / TMath::Tan(45.*kdegrad) - (583./2.+(338.-106.))/10. - dpcb[2] * 2. + 10.5; |
| fe4da5cc |
4685 | // end-ladder electronics |
| 4686 | dpgon[5] = 34.3; |
| 4687 | dpgon[6] = 36.6; |
| b3a22d72 |
4688 | dpgon[7] = (40.-36.6) / TMath::Tan(45.*kdegrad) - (583./2.+(338.-106.+15.))/10. - dpcb[2] * 2. + 10.5; |
| fe4da5cc |
4689 | // end-ladder electr |
| 4690 | dpgon[8] = 34.3; |
| 4691 | dpgon[9] = 36.6; |
| 4692 | xpos = 0.; |
| 4693 | ypos = 0.; |
| 4694 | zpos = 0.; |
| cfce8870 |
4695 | gMC->Gsvolu("LP05", "PGON", idtmed[274], dpgon, 10); |
| 4696 | gMC->Gspos("LP05", 1, "ITSV", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
4697 | |
| 4698 | dpgon[0] = offset2 + 5.; |
| 4699 | dpgon[1] = 360.; |
| 4700 | dpgon[2] = 36.; |
| 4701 | dpgon[3] = 2.; |
| b3a22d72 |
4702 | dpgon[4] = (45.-41.2) / TMath::Tan(45.*kdegrad) - (583./2.+(338.-56.))/10. - dpcb[2] * 2. + 10.5; |
| fe4da5cc |
4703 | // end-ladder electronics |
| 4704 | dpgon[5] = 38.9; |
| 4705 | dpgon[6] = 41.2; |
| b3a22d72 |
4706 | dpgon[7] = (45.-41.2) / TMath::Tan(45.*kdegrad) - (583./2.+(338.-56.+15.))/10. - dpcb[2] * 2. + 10.5; |
| fe4da5cc |
4707 | // end-ladder electr |
| 4708 | dpgon[8] = 38.9; |
| 4709 | dpgon[9] = 41.2; |
| 4710 | xpos = 0.; |
| 4711 | ypos = 0.; |
| 4712 | zpos = 0.; |
| cfce8870 |
4713 | gMC->Gsvolu("LP06", "PGON", idtmed[274], dpgon, 10); |
| 4714 | gMC->Gspos("LP06", 1, "ITSV", xpos, ypos, zpos, 0, "ONLY"); |
| fe4da5cc |
4715 | } |
| 4716 | |
| 4717 | // 9456 CONTINUE |
| 4718 | |
| 4719 | |
| 4720 | // --- Outputs the geometry tree in the EUCLID/CAD format |
| 4721 | |
| 4722 | if (fEuclidOut) { |
| cfce8870 |
4723 | gMC->WriteEuclid("ITSgeometry", "ITSV", 1, 5); |
| fe4da5cc |
4724 | } |
| 58005f18 |
4725 | fMinorVersion = fMinorVersionV3; |
| 56d6a1ef |
4726 | } |
| fe4da5cc |
4727 | //_____________________________________________________________________________ |
| 56d6a1ef |
4728 | void AliITSv3::CreateMaterials(){ |
| 4729 | //////////////////////////////////////////////////////////////////////// |
| c9a71be1 |
4730 | // |
| 4731 | // Create ITS materials |
| 4732 | // This function defines the default materials used in the Geant |
| b3a22d72 |
4733 | // Monte Carlo simulations for the geometries AliITSv1 and AliITSv3. |
| 4734 | // In general it is automatically replaced by |
| c9a71be1 |
4735 | // the CreatMaterials routine defined in AliITSv?. Should the function |
| 4736 | // CreateMaterials not exist for the geometry version you are using this |
| 4737 | // one is used. See the definition found in AliITSv5 or the other routine |
| 4738 | // for a complete definition. |
| 4739 | // |
| 4740 | // Water H2O |
| 4741 | Float_t awat[2] = { 1.00794,15.9994 }; |
| 4742 | Float_t zwat[2] = { 1.,8. }; |
| 4743 | Float_t wwat[2] = { 2.,1. }; |
| 4744 | Float_t denswat = 1.; |
| 4745 | // Freon |
| 4746 | Float_t afre[2] = { 12.011,18.9984032 }; |
| 4747 | Float_t zfre[2] = { 6.,9. }; |
| 4748 | Float_t wfre[2] = { 5.,12. }; |
| 4749 | Float_t densfre = 1.5; |
| 4750 | // Ceramics |
| 4751 | // 94.4% Al2O3 , 2.8% SiO2 , 2.3% MnO , 0.5% Cr2O3 |
| 4752 | Float_t acer[5] = { 26.981539,15.9994,28.0855,54.93805,51.9961 }; |
| 4753 | Float_t zcer[5] = { 13.,8.,14.,25., 24. }; |
| 4754 | Float_t wcer[5] = { .49976,1.01233,.01307, .01782,.00342 }; |
| 4755 | Float_t denscer = 3.6; |
| 4756 | // |
| 4757 | // 60% SiO2 , 40% G10FR4 |
| 4758 | // PC board |
| 4759 | Float_t apcb[3] = { 28.0855,15.9994,17.749 }; |
| 4760 | Float_t zpcb[3] = { 14.,8.,8.875 }; |
| 4761 | Float_t wpcb[3] = { .28,.32,.4 }; |
| 4762 | Float_t denspcb = 1.8; |
| 4763 | // POLYETHYL |
| 4764 | Float_t apoly[2] = { 12.01,1. }; |
| 4765 | Float_t zpoly[2] = { 6.,1. }; |
| 4766 | Float_t wpoly[2] = { .33,.67 }; |
| 4767 | // SERVICES |
| 4768 | Float_t zserv[4] = { 1.,6.,26.,29. }; |
| 4769 | Float_t aserv[4] = { 1.,12.,55.8,63.5 }; |
| 4770 | Float_t wserv[4] = { .014,.086,.42,.48 }; |
| 4771 | |
| b3a22d72 |
4772 | Int_t isxfld = gAlice->Field()->Integ(); |
| 4773 | Float_t sxmgmx = gAlice->Field()->Max(); |
| c9a71be1 |
4774 | |
| 4775 | |
| 4776 | // --- Define the various materials for GEANT --- |
| 4777 | |
| 4778 | // 200-224 --> Silicon Pixel Detectors (detectors, chips, buses, cooling,..) |
| 4779 | |
| 4780 | AliMaterial(0, "SPD Si$", 28.0855, 14., 2.33, 9.36, 999); |
| 4781 | AliMaterial(1, "SPD Si chip$", 28.0855, 14., 2.33, 9.36, 999); |
| 4782 | AliMaterial(2, "SPD Si bus$", 28.0855, 14., 2.33, 9.36, 999); |
| 4783 | AliMaterial(3, "SPD C$", 12.011, 6., 2.265,18.8, 999); |
| 4784 | // v. dens |
| 4785 | AliMaterial(4, "SPD Air$", 14.61, 7.3, .001205, 30423., 999); |
| 4786 | AliMaterial(5, "SPD Vacuum$", 1e-16, 1e-16, 1e-16, 1e16, 1e16); |
| 4787 | AliMaterial(6, "SPD Al$", 26.981539, 13., 2.6989, 8.9, 999); |
| 4788 | AliMixture( 7, "SPD Water $", awat, zwat, denswat, -2, wwat); |
| 4789 | AliMixture( 8, "SPD Freon$", afre, zfre, densfre, -2, wfre); |
| 4790 | // ** |
| b3a22d72 |
4791 | AliMedium(0, "SPD Si$", 0, 1,isxfld,sxmgmx, 10., .01, .1, .003, .003); |
| 4792 | AliMedium(1, "SPD Si chip$", 1, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003); |
| 4793 | AliMedium(2, "SPD Si bus$", 2, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003); |
| 4794 | AliMedium(3, "SPD C$", 3, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003); |
| 4795 | AliMedium(4, "SPD Air$", 4, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003); |
| 4796 | AliMedium(5, "SPD Vacuum$", 5, 0,isxfld,sxmgmx, 10.,1.00, .1, .100,10.00); |
| 4797 | AliMedium(6, "SPD Al$", 6, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003); |
| 4798 | AliMedium(7, "SPD Water $", 7, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003); |
| 4799 | AliMedium(8, "SPD Freon$", 8, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003); |
| c9a71be1 |
4800 | |
| 4801 | // 225-249 --> Silicon Drift Detectors (detectors, chips, buses, cooling,..) |
| 4802 | |
| 4803 | AliMaterial(25, "SDD Si$", 28.0855, 14., 2.33, 9.36, 999); |
| 4804 | AliMaterial(26, "SDD Si chip$", 28.0855, 14., 2.33, 9.36, 999); |
| 4805 | AliMaterial(27, "SDD Si bus$", 28.0855, 14., 2.33, 9.36, 999); |
| 4806 | AliMaterial(28, "SDD C$", 12.011, 6., 2.265,18.8, 999); |
| 4807 | // v. dens |
| 4808 | AliMaterial(29, "SDD Air$", 14.61, 7.3, .001205, 30423., 999); |
| 4809 | AliMaterial(30, "SDD Vacuum$", 1e-16, 1e-16, 1e-16, 1e16, 1e16); |
| 4810 | AliMaterial(31, "SDD Al$", 26.981539, 13., 2.6989, 8.9, 999); |
| 4811 | // After a call with ratios by number (negative number of elements), |
| 4812 | // the ratio array is changed to the ratio by weight, so all successive |
| 4813 | // calls with the same array must specify the number of elements as |
| 4814 | // positive |
| 4815 | AliMixture(32, "SDD Water $", awat, zwat, denswat, 2, wwat); |
| 4816 | // After a call with ratios by number (negative number of elements), |
| 4817 | // the ratio array is changed to the ratio by weight, so all successive |
| 4818 | // calls with the same array must specify the number of elements as |
| 4819 | // positive |
| 4820 | AliMixture( 33, "SDD Freon$", afre, zfre, densfre, 2, wfre); |
| 4821 | AliMixture( 34, "SDD PCB$", apcb, zpcb, denspcb, 3, wpcb); |
| 4822 | AliMaterial(35, "SDD Copper$", 63.546, 29., 8.96, 1.43, 999); |
| 4823 | AliMixture( 36, "SDD Ceramics$", acer, zcer, denscer, -5, wcer); |
| 4824 | AliMaterial(37, "SDD Kapton$", 12.011, 6., 1.3, 31.27, 999); |
| 4825 | // ** |
| 4826 | // check A and Z |
| b3a22d72 |
4827 | AliMedium(25, "SDD Si$", 25, 1,isxfld,sxmgmx, 10., .01, .1, .003, .003); |
| 4828 | AliMedium(26, "SDD Si chip$", 26, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003); |
| 4829 | AliMedium(27, "SDD Si bus$", 27, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003); |
| 4830 | AliMedium(28, "SDD C$", 28, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003); |
| 4831 | AliMedium(29, "SDD Air$", 29, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003); |
| 4832 | AliMedium(30, "SDD Vacuum$", 30, 0,isxfld,sxmgmx, 10.,1.00, .1, .100,10.00); |
| 4833 | AliMedium(31, "SDD Al$", 31, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003); |
| 4834 | AliMedium(32, "SDD Water $", 32, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003); |
| 4835 | AliMedium(33, "SDD Freon$", 33, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003); |
| 4836 | AliMedium(34, "SDD PCB$", 34, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003); |
| 4837 | AliMedium(35, "SDD Copper$", 35, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003); |
| 4838 | AliMedium(36, "SDD Ceramics$",36, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003); |
| 4839 | AliMedium(37, "SDD Kapton$", 37, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003); |
| c9a71be1 |
4840 | |
| 4841 | // 250-274 --> Silicon Strip Detectors (detectors, chips, buses, cooling,..) |
| 4842 | |
| 4843 | AliMaterial(50, "SSD Si$", 28.0855, 14., 2.33, 9.36, 999.); |
| 4844 | AliMaterial(51, "SSD Si chip$", 28.0855, 14., 2.33, 9.36, 999.); |
| 4845 | AliMaterial(52, "SSD Si bus$", 28.0855, 14., 2.33, 9.36, 999.); |
| 4846 | AliMaterial(53, "SSD C$", 12.011, 6., 2.265,18.8, 999.); |
| 4847 | // v. dens |
| 4848 | AliMaterial(54, "SSD Air$", 14.61, 7.3, .001205, 30423., 999); |
| 4849 | AliMaterial(55, "SSD Vacuum$", 1e-16, 1e-16, 1e-16, 1e16, 1e16); |
| 4850 | AliMaterial(56, "SSD Al$", 26.981539, 13., 2.6989, 8.9, 999); |
| 4851 | // After a call with ratios by number (negative number of elements), |
| 4852 | // the ratio array is changed to the ratio by weight, so all successive |
| 4853 | // calls with the same array must specify the number of elements as |
| 4854 | // positive |
| 4855 | AliMixture(57, "SSD Water $", awat, zwat, denswat, 2, wwat); |
| 4856 | // After a call with ratios by number (negative number of elements), |
| 4857 | // the ratio array is changed to the ratio by weight, so all successive |
| 4858 | // calls with the same array must specify the number of elements as |
| 4859 | // positive |
| 4860 | AliMixture(58, "SSD Freon$", afre, zfre, densfre, 2, wfre); |
| 4861 | AliMixture(59, "SSD PCB$", apcb, zpcb, denspcb, 3, wpcb); |
| 4862 | AliMaterial(60, "SSD Copper$", 63.546, 29., 8.96, 1.43, 999.); |
| 4863 | // After a call with ratios by number (negative number of elements), |
| 4864 | // the ratio array is changed to the ratio by weight, so all successive |
| 4865 | // calls with the same array must specify the number of elements as |
| 4866 | // positive |
| 4867 | AliMixture( 61, "SSD Ceramics$", acer, zcer, denscer, 5, wcer); |
| 4868 | AliMaterial(62, "SSD Kapton$", 12.011, 6., 1.3, 31.27, 999.); |
| 4869 | // check A and Z |
| 4870 | AliMaterial(63, "SDD G10FR4$", 17.749, 8.875, 1.8, 21.822, 999.); |
| 4871 | // ** |
| b3a22d72 |
4872 | AliMedium(50, "SSD Si$", 50, 1,isxfld,sxmgmx, 10., .01, .1, .003, .003); |
| 4873 | AliMedium(51, "SSD Si chip$", 51, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003); |
| 4874 | AliMedium(52, "SSD Si bus$", 52, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003); |
| 4875 | AliMedium(53, "SSD C$", 53, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003); |
| 4876 | AliMedium(54, "SSD Air$", 54, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003); |
| 4877 | AliMedium(55, "SSD Vacuum$", 55, 0,isxfld,sxmgmx, 10.,1.00, .1, .100,10.00); |
| 4878 | AliMedium(56, "SSD Al$", 56, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003); |
| 4879 | AliMedium(57, "SSD Water $", 57, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003); |
| 4880 | AliMedium(58, "SSD Freon$", 58, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003); |
| 4881 | AliMedium(59, "SSD PCB$", 59, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003); |
| 4882 | AliMedium(60, "SSD Copper$", 60, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003); |
| 4883 | AliMedium(61, "SSD Ceramics$",61, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003); |
| 4884 | AliMedium(62, "SSD Kapton$", 62, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003); |
| 4885 | AliMedium(63, "SSD G10FR4$", 63, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003); |
| c9a71be1 |
4886 | |
| 4887 | // 275-299 --> General (end-caps, frames, cooling, cables, etc.) |
| 4888 | |
| 4889 | AliMaterial(75, "GEN C$", 12.011, 6., 2.265, 18.8, 999.); |
| 4890 | // verify density |
| 4891 | AliMaterial(76, "GEN Air$", 14.61, 7.3, .001205, 30423., 999); |
| 4892 | AliMaterial(77, "GEN Vacuum$", 1e-16, 1e-16, 1e-16, 1e16, 1e16); |
| 4893 | AliMixture( 78, "GEN POLYETHYL$", apoly, zpoly, .95, -2, wpoly); |
| 4894 | AliMixture( 79, "GEN SERVICES$", aserv, zserv, 4.68, 4, wserv); |
| 4895 | AliMaterial(80, "GEN Copper$", 63.546, 29., 8.96, 1.43, 999.); |
| 4896 | // After a call with ratios by number (negative number of elements), |
| 4897 | // the ratio array is changed to the ratio by weight, so all successive |
| 4898 | // calls with the same array must specify the number of elements as |
| 4899 | // positive |
| 4900 | AliMixture(81, "GEN Water $", awat, zwat, denswat, 2, wwat); |
| 4901 | // ** |
| b3a22d72 |
4902 | AliMedium(75,"GEN C$", 75, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003); |
| 4903 | AliMedium(76,"GEN Air$", 76, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003); |
| 4904 | AliMedium(77,"GEN Vacuum$", 77, 0,isxfld,sxmgmx, 10., .10, .1, .100,10.00); |
| 4905 | AliMedium(78,"GEN POLYETHYL$",78, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003); |
| 4906 | AliMedium(79,"GEN SERVICES$", 79, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003); |
| 4907 | AliMedium(80,"GEN Copper$", 80, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003); |
| 4908 | AliMedium(81,"GEN Water $", 81, 0,isxfld,sxmgmx, 10., .01, .1, .003, .003); |
| fe4da5cc |
4909 | } |
| fe4da5cc |
4910 | //_____________________________________________________________________________ |
| 593d2ea1 |
4911 | void AliITSv3::Init(){ |
| 56d6a1ef |
4912 | //////////////////////////////////////////////////////////////////////// |
| 4913 | // Initialise the ITS after it has been created. |
| 4914 | //////////////////////////////////////////////////////////////////////// |
| 593d2ea1 |
4915 | |
| 593d2ea1 |
4916 | AliITS::Init(); |
| 4917 | fMajorVersion = 3; |
| 4918 | fMinorVersion = fMinorVersionV3; |
| 56d6a1ef |
4919 | } |
| fe4da5cc |
4920 | //_____________________________________________________________________________ |
| 56d6a1ef |
4921 | void AliITSv3::StepManager(){ |
| 4922 | //////////////////////////////////////////////////////////////////////// |
| 4923 | // Called for every step in the ITS, then calles the AliITShit class |
| 4924 | // creator with the information to be recoreded about that hit. |
| 4925 | // The value of the macro ALIITSPRINTGEOM if set to 1 will allow the |
| 4926 | // printing of information to a file which can be used to create a .det |
| 4927 | // file read in by the routine CreateGeometry(). If set to 0 or any other |
| 4928 | // value except 1, the default behavior, then no such file is created nor |
| 4929 | // it the extra variables and the like used in the printing allocated. |
| 4930 | //////////////////////////////////////////////////////////////////////// |
| fe4da5cc |
4931 | Int_t copy, id; |
| 58005f18 |
4932 | Float_t hits[8]; |
| 4933 | Int_t vol[4]; |
| 0a6d8768 |
4934 | TLorentzVector position, momentum; |
| fe4da5cc |
4935 | TClonesArray &lhits = *fHits; |
| 56d6a1ef |
4936 | #if ALIITSPRINTGEOM==1 |
| 4937 | FILE *fp; |
| 4938 | Int_t i; |
| 4939 | Float_t xl[3],xt[3],angl[6]; |
| 4940 | // Float_t par[20],att[20]; |
| 4941 | Float_t mat[9]; |
| 4942 | static Bool_t first=kTRUE,printit[6][50][50]; |
| 4943 | if(first){ for(copy1=0;copy1<6;copy1++)for(copy2=0;copy2<50;copy2++) |
| 4944 | for(id=0;id<50;id++) printit[copy1][copy2][id] = kTRUE; |
| 4945 | first = kFALSE; |
| 4946 | } |
| 4947 | // end if first |
| 4948 | #endif |
| fe4da5cc |
4949 | // |
| 58005f18 |
4950 | // Track status |
| 4951 | vol[3] = 0; |
| 4952 | if(gMC->IsTrackInside()) vol[3] += 1; |
| 4953 | if(gMC->IsTrackEntering()) vol[3] += 2; |
| 4954 | if(gMC->IsTrackExiting()) vol[3] += 4; |
| 4955 | if(gMC->IsTrackOut()) vol[3] += 8; |
| 4956 | if(gMC->IsTrackDisappeared()) vol[3] += 16; |
| 4957 | if(gMC->IsTrackStop()) vol[3] += 32; |
| 4958 | if(gMC->IsTrackAlive()) vol[3] += 64; |
| 4959 | // |
| 4960 | // Fill hit structure. |
| 56d6a1ef |
4961 | if(!(gMC->TrackCharge())) return; |
| fe4da5cc |
4962 | // |
| 4963 | // Only entering charged tracks |
| 58005f18 |
4964 | if((id=gMC->CurrentVolID(copy))==fIdSens[0]) { |
| fe4da5cc |
4965 | vol[0]=1; |
| 0a6d8768 |
4966 | id=gMC->CurrentVolOffID(1,copy); |
| fe4da5cc |
4967 | vol[1]=copy; |
| 0a6d8768 |
4968 | id=gMC->CurrentVolOffID(2,copy); |
| fe4da5cc |
4969 | vol[2]=copy; |
| 58005f18 |
4970 | } else if(id==fIdSens[1]) { |
| fe4da5cc |
4971 | vol[0]=2; |
| 0a6d8768 |
4972 | id=gMC->CurrentVolOffID(1,copy); |
| fe4da5cc |
4973 | vol[1]=copy; |
| 0a6d8768 |
4974 | id=gMC->CurrentVolOffID(2,copy); |
| fe4da5cc |
4975 | vol[2]=copy; |
| 58005f18 |
4976 | } else if(id==fIdSens[2]) { |
| fe4da5cc |
4977 | vol[0]=3; |
| 4978 | vol[1]=copy; |
| 0a6d8768 |
4979 | id=gMC->CurrentVolOffID(1,copy); |
| fe4da5cc |
4980 | vol[2]=copy; |
| 58005f18 |
4981 | } else if(id==fIdSens[3]) { |
| fe4da5cc |
4982 | vol[0]=4; |
| 4983 | vol[1]=copy; |
| 0a6d8768 |
4984 | id=gMC->CurrentVolOffID(1,copy); |
| fe4da5cc |
4985 | vol[2]=copy; |
| 58005f18 |
4986 | } else if(id==fIdSens[4]) { |
| fe4da5cc |
4987 | vol[0]=5; |
| 4988 | vol[1]=copy; |
| 0a6d8768 |
4989 | id=gMC->CurrentVolOffID(1,copy); |
| fe4da5cc |
4990 | vol[2]=copy; |
| 58005f18 |
4991 | } else if(id==fIdSens[5]) { |
| fe4da5cc |
4992 | vol[0]=6; |
| 4993 | vol[1]=copy; |
| 0a6d8768 |
4994 | id=gMC->CurrentVolOffID(1,copy); |
| fe4da5cc |
4995 | vol[2]=copy; |
| 4996 | } else return; |
| cfce8870 |
4997 | gMC->TrackPosition(position); |
| 4998 | gMC->TrackMomentum(momentum); |
| fe4da5cc |
4999 | hits[0]=position[0]; |
| 5000 | hits[1]=position[1]; |
| 5001 | hits[2]=position[2]; |
| 0a6d8768 |
5002 | hits[3]=momentum[0]; |
| 5003 | hits[4]=momentum[1]; |
| 5004 | hits[5]=momentum[2]; |
| cfce8870 |
5005 | hits[6]=gMC->Edep(); |
| 58005f18 |
5006 | hits[7]=gMC->TrackTime(); |
| fe4da5cc |
5007 | new(lhits[fNhits++]) AliITShit(fIshunt,gAlice->CurrentTrack(),vol,hits); |
| 56d6a1ef |
5008 | #if ALIITSPRINTGEOM==1 |
| 5009 | if(printit[vol[0]][vol[2]][vol[1]]){ |
| 5010 | printit[vol[0]][vol[2]][vol[1]] = kFALSE; |
| 5011 | xl[0] = xl[1] = xl[2] = 0.0; |
| 5012 | gMC->Gdtom(xl,xt,1); |
| 5013 | for(i=0;i<9;i++) mat[i] = 0.0; |
| 5014 | mat[0] = mat[4] = mat[8] = 1.0; // default with identity matrix |
| 5015 | xl[0] = 1.0; |
| 5016 | xl[1] = xl[2] =0.0; |
| 5017 | gMC->Gdtom(xl,&(mat[0]),2); |
| 5018 | xl[1] = 1.0; |
| 5019 | xl[0] = xl[2] =0.0; |
| 5020 | gMC->Gdtom(xl,&(mat[3]),2); |
| 5021 | xl[2] = 1.0; |
| 5022 | xl[1] = xl[0] =0.0; |
| 5023 | gMC->Gdtom(xl,&(mat[6]),2); |
| 593d2ea1 |
5024 | |
| 56d6a1ef |
5025 | angl[0] = TMath::ACos(mat[2]); |
| 5026 | if(mat[2]==1.0) angl[0] = 0.0; |
| 5027 | angl[1] = TMath::ATan2(mat[1],mat[0]); |
| 5028 | if(angl[1]<0.0) angl[1] += 2.0*TMath::Pi(); |
| 5029 | |
| 5030 | angl[2] = TMath::ACos(mat[5]); |
| 5031 | if(mat[5]==1.0) angl[2] = 0.0; |
| 5032 | angl[3] = TMath::ATan2(mat[4],mat[3]); |
| 5033 | if(angl[3]<0.0) angl[3] += 2.0*TMath::Pi(); |
| 593d2ea1 |
5034 | |
| 56d6a1ef |
5035 | angl[4] = TMath::ACos(mat[8]); |
| 5036 | if(mat[8]==1.0) angl[4] = 0.0; |
| 5037 | angl[5] = TMath::ATan2(mat[7],mat[6]); |
| 5038 | if(angl[5]<0.0) angl[5] += 2.0*TMath::Pi(); |
| 5039 | |
| 5040 | for(i=0;i<6;i++) angl[i] *= 180.0/TMath::Pi(); // degrees |
| 5041 | // i = gMC->CurrentVolID(copy); |
| 5042 | // gMC->Gfpara(gMC->CurrentVolName(),copy,1,copy1,copy2,par,att); |
| 5043 | fp = fopen("ITSgeometry_v5.det","a"); |
| 5044 | fprintf(fp,"%2d %2d %2d %9e %9e %9e %9e %9e %9e %9e %9e %9e ", |
| 5045 | vol[0],vol[2],vol[1], // layer ladder detector |
| 5046 | xt[0],xt[1],xt[2], // Translation vector |
| 5047 | angl[0],angl[1],angl[2],angl[3],angl[4],angl[5] // Geant rotaion |
| 5048 | // angles (degrees) |
| 5049 | ); |
| 5050 | fprintf(fp,"%9e %9e %9e %9e %9e %9e %9e %9e %9e", |
| 5051 | mat[0],mat[1],mat[2],mat[3],mat[4],mat[5],mat[6],mat[7],mat[8] |
| 5052 | ); // Adding the rotation matrix. |
| 5053 | fprintf(fp,"\n"); |
| 5054 | fclose(fp); |
| 5055 | } // end if printit[layer][ladder][detector] |
| 5056 | #endif |
| 5057 | } |
| 5058 | //____________________________________________________________________________ |
| 5059 | void AliITSv3::Streamer(TBuffer &R__b){ |
| 5060 | //////////////////////////////////////////////////////////////////////// |
| 5061 | // A dummy Streamer function for this class AliITSv3. By default it |
| 5062 | // only streams the AliITS class as it is required. Since this class |
| 5063 | // dosen't contain any "real" data to be saved, it doesn't. |
| 5064 | //////////////////////////////////////////////////////////////////////// |
| b3a22d72 |
5065 | |
| 593d2ea1 |
5066 | if (R__b.IsReading()) { |
| 56d6a1ef |
5067 | Version_t R__v = R__b.ReadVersion(); |
| 5068 | if (R__v==1) { |
| 5069 | AliITS::Streamer(R__b); |
| 56d6a1ef |
5070 | }else{ |
| e8189707 |
5071 | AliITS::Streamer(R__b); |
| 56d6a1ef |
5072 | } // end if |
| 593d2ea1 |
5073 | } else { |
| 5074 | R__b.WriteVersion(AliITSv3::IsA()); |
| 5075 | AliITS::Streamer(R__b); |
| 56d6a1ef |
5076 | } // end if R__b.IsReading() |
| 593d2ea1 |
5077 | } |
| e8189707 |
5078 | |
| 5079 | |
git://git.uio.no / u / mrichter / AliRoot.git / blame