]>
Commit | Line | Data |
---|---|---|
2012850d | 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 | **************************************************************************/ | |
2012850d | 15 | /* $Id$ */ |
16 | ||
17 | //_________________________________________________________________________ | |
18 | // Implementation version v0 of EMCAL Manager class | |
19 | // An object of this class does not produce hits nor digits | |
20 | // It is the one to use if you do not want to produce outputs in TREEH or TREED | |
ffa6d63b | 21 | // This class places a Geometry of the EMCAL in the ALICE Detector as defined in AliEMCALGeometry.cxx |
2012850d | 22 | //*-- Author: Yves Schutz (SUBATECH) |
b13bbe81 | 23 | //*-- and : Sahal Yacoob (LBL / UCT) |
2012850d | 24 | |
09641ef5 | 25 | // This Version of AliEMCALv0 reduces the number of volumes placed in XEN1 (the envelope) to less than five hundred |
26 | // The Envelope is Placed in Alice, And the Aluminium layer. Mini envelopes (XU) are then placed in XEN1. | |
fdebddeb | 27 | // Each mini envelope contains 1 scintillator, and 1 lead layer, except the last one which contains just one scintillator layer. |
09641ef5 | 28 | // At the moment I cannot place the 36 and above layers in the mini envelopes so all layers are still placed in XEN1 |
29 | ||
30 | ||
2012850d | 31 | // --- ROOT system --- |
a1469a24 | 32 | |
d64c959b | 33 | //#include "TPGON.h" |
2012850d | 34 | #include "TTUBS.h" |
35 | #include "TNode.h" | |
2012850d | 36 | #include "TGeometry.h" |
5d12ce38 | 37 | #include "TVirtualMC.h" |
d64c959b | 38 | #include "TArrayI.h" |
a1469a24 | 39 | |
2012850d | 40 | // --- Standard library --- |
41 | ||
d64c959b | 42 | //#include <stdio.h> |
2012850d | 43 | |
44 | // --- AliRoot header files --- | |
45 | ||
46 | #include "AliEMCALv0.h" | |
47 | #include "AliEMCALGeometry.h" | |
48 | #include "AliRun.h" | |
2012850d | 49 | |
50 | ClassImp(AliEMCALv0) | |
51 | ||
b13bbe81 | 52 | //______________________________________________________________________ |
2012850d | 53 | AliEMCALv0::AliEMCALv0(const char *name, const char *title): |
05a92d59 | 54 | AliEMCAL(name,title) |
55 | { | |
56 | // ctor : title is used to identify the layout | |
57 | GetGeometry() ; | |
a1469a24 | 58 | |
2012850d | 59 | } |
a1469a24 | 60 | |
b13bbe81 | 61 | //______________________________________________________________________ |
05a92d59 | 62 | void AliEMCALv0::BuildGeometry() |
63 | { | |
b13bbe81 | 64 | // Display Geometry for display.C |
2012850d | 65 | |
b13bbe81 | 66 | const Int_t kColorArm1 = kBlue ; |
91e9918b | 67 | |
05a92d59 | 68 | AliEMCALGeometry * geom = GetGeometry() ; |
a1469a24 | 69 | |
05a92d59 | 70 | // Define the shape of the Calorimeter |
5502a765 | 71 | TNode * top = gAlice->GetGeometry()->GetNode("alice") ; |
b13bbe81 | 72 | new TTUBS("Envelop1", "Tubs that contains arm 1", "void", |
05a92d59 | 73 | geom->GetEnvelop(0), // rmin |
fdebddeb | 74 | geom->GetEnvelop(1) +30 ,// rmax |
05a92d59 | 75 | geom->GetEnvelop(2)/2.0, // half length in Z |
fdebddeb | 76 | geom->GetArm1PhiMin(), // minimum phi angle |
77 | geom->GetArm1PhiMax() // maximum phi angle | |
b13bbe81 | 78 | ); |
a1469a24 | 79 | |
ffa6d63b | 80 | // Place the Node |
5502a765 | 81 | top->cd(); |
5502a765 | 82 | TNode * envelop1node = new TNode("Envelop1", "Arm1 Envelop", "Envelop1" |
83 | ,0., 0., 0., "") ; | |
b13bbe81 | 84 | envelop1node->SetLineColor(kColorArm1) ; |
85 | fNodes->Add(envelop1node) ; | |
2012850d | 86 | } |
a1469a24 | 87 | |
b13bbe81 | 88 | //______________________________________________________________________ |
05a92d59 | 89 | void AliEMCALv0::CreateGeometry() |
90 | { | |
f590bb15 | 91 | // Create the EMCAL geometry for Geant |
92 | // Geometry of a tower | |
93 | //|-----------------------------------------------------| XEN1 | |
94 | //| | | | | |
95 | //| | Al thickness = GetAlFrontThickness() | | | |
96 | //| | | | | |
97 | //| | | | | |
98 | //| | | | | |
99 | //| ------------------------------------------------- | | |
100 | //| | Air Gap = GetGap2Active() | | | |
101 | //| | | | | |
102 | //| ------------------------------------------------- | | |
ca148d5b | 103 | //| | XU1 : XPST (ECAL e = GetECScintThick() ) | | |
f590bb15 | 104 | //| ------------------------------------------------- | |
ca148d5b | 105 | //| | XU1 : XPBX (ECAL e = GetECPbRadThick() ) | | |
f590bb15 | 106 | //| ------------------------------------------------- | |
ca148d5b | 107 | //| | XU1 : XPST (ECAL e = GetECScintThick() | | |
f590bb15 | 108 | //| ------------------------------------------------- | |
ca148d5b | 109 | //| | XU1 : XPBX (ECAL e = GetECPbRadThick() ) | | |
f590bb15 | 110 | //| ------------------------------------------------- | |
fdebddeb | 111 | //| etc ..... GetNECLayers() - 1 times | |
ca148d5b | 112 | //| ------------------------------------------------- | |
fdebddeb | 113 | //| | XUNLayer : XPST (ECAL e = GetECScintThick() | | |
ca148d5b | 114 | //| ------------------------------------------------- | |
fdebddeb | 115 | |
a1469a24 | 116 | Float_t etamin,etamax; |
3ca04a8a | 117 | Float_t *dum=0; |
118 | ||
05a92d59 | 119 | AliEMCALGeometry * geom = GetGeometry() ; |
a1469a24 | 120 | |
05a92d59 | 121 | if(!(geom->IsInitialized())){ |
a1469a24 | 122 | Error("CreateGeometry","EMCAL Geometry class has not been set up."); |
b13bbe81 | 123 | } // end if |
a1469a24 | 124 | |
b13bbe81 | 125 | // Get pointer to the array containing media indices |
126 | Int_t *idtmed = fIdtmed->GetArray() - 1599 ; | |
e13bd4f0 | 127 | |
09641ef5 | 128 | Int_t idrotm = 1; |
129 | AliMatrix(idrotm, 90.0, 0., 90.0, 90.0, 0.0, 0.0) ; | |
130 | ||
c13b5a7c | 131 | // Create the EMCAL Mother Volume (a polygone) within which to place the Detector and named XEN1 |
132 | ||
133 | Float_t envelopA[10]; | |
134 | envelopA[0] = geom->GetArm1PhiMin(); // minimum phi angle | |
135 | envelopA[1] = geom->GetArm1PhiMax() - geom->GetArm1PhiMin(); // angular range in phi | |
136 | envelopA[2] = geom->GetNPhi(); // number of sections in phi | |
137 | envelopA[3] = 2; // 2 z coordinates | |
c27ad3fb | 138 | envelopA[4] = geom->ZFromEtaR(geom->GetEnvelop(1), |
c13b5a7c | 139 | geom->GetArm1EtaMin()); // z coordinate 1 |
fdebddeb | 140 | //add some padding for mother volume |
c13b5a7c | 141 | envelopA[5] = geom->GetEnvelop(0) ; // rmin at z1 |
142 | envelopA[6] = geom->GetEnvelop(1) ; // rmax at z1 | |
c27ad3fb | 143 | envelopA[7] = geom->ZFromEtaR(geom->GetEnvelop(1), |
c13b5a7c | 144 | geom->GetArm1EtaMax()); // z coordinate 2 |
145 | envelopA[8] = envelopA[5] ; // radii are the same. | |
146 | envelopA[9] = envelopA[6] ; // radii are the same. | |
147 | ||
148 | gMC->Gsvolu("XEN1", "PGON ", idtmed[1599], envelopA, 10) ; // Polygone filled with air | |
09641ef5 | 149 | |
c13b5a7c | 150 | // Position the EMCAL Mother Volume (XEN1) in Alice (ALIC) |
09641ef5 | 151 | |
c13b5a7c | 152 | gMC->Gspos("XEN1", 1, "ALIC", 0.0, 0.0, 0.0, idrotm, "ONLY") ; |
153 | ||
fdebddeb | 154 | if (gDebug==2) { |
155 | printf("CreateGeometry: XEN1 = %f, %f\n", envelopA[5], envelopA[6]); | |
156 | printf("CreateGeometry: XU0 = %f, %f\n", envelopA[5], envelopA[6]); | |
157 | } | |
158 | // Create mini-envelopes which will contain the Tower scintillator-radiator | |
c13b5a7c | 159 | |
a63e0d5e | 160 | TString label ; |
fdebddeb | 161 | |
a63e0d5e | 162 | envelopA[5] = envelopA[5] + geom->GetGap2Active() // we are at the first scintllator |
163 | + geom->GetAlFrontThickness(); // rmin at z1 | |
164 | envelopA[6] = envelopA[5] ; | |
165 | ||
c27ad3fb | 166 | |
f590bb15 | 167 | Int_t i ; |
a63e0d5e | 168 | |
fdebddeb | 169 | Int_t nLayers = geom->GetNECLayers(); |
a63e0d5e | 170 | |
fdebddeb | 171 | for (i = 0; i < (nLayers-1); i++ ){ |
a1469a24 | 172 | label = "XU" ; |
a1469a24 | 173 | label += i ; |
a63e0d5e | 174 | Float_t tseg ; |
fdebddeb | 175 | tseg = geom->GetECScintThick()+geom->GetECPbRadThick(); // thickness of scintillator+Pb in E Cal |
c13b5a7c | 176 | envelopA[5] = envelopA[6] ; // rmin at z1 |
c27ad3fb | 177 | envelopA[4] = geom->ZFromEtaR(envelopA[5] + tseg, |
c13b5a7c | 178 | geom->GetArm1EtaMin()); // z coordinate 1 |
c27ad3fb | 179 | envelopA[7] = geom->ZFromEtaR(envelopA[5] + tseg, |
c13b5a7c | 180 | geom->GetArm1EtaMax()); // z coordinate 2 |
a63e0d5e | 181 | envelopA[6] = envelopA[5] + tseg ; // rmax at z1 |
c13b5a7c | 182 | envelopA[8] = envelopA[5] ; // radii are the same. |
183 | envelopA[9] = envelopA[6] ; // radii are the same. | |
184 | ||
185 | gMC->Gsvolu(label.Data(), "PGON", idtmed[1599], envelopA, 10);// Polygone filled with air | |
a1469a24 | 186 | |
c13b5a7c | 187 | // Position XUi in XEN1 |
188 | ||
a1469a24 | 189 | gMC->Gspos(label.Data(), 1, "XEN1", 0.0, 0.0, 0.0, idrotm, "ONLY") ; |
c13b5a7c | 190 | |
c27ad3fb | 191 | if (gDebug == 2) |
fdebddeb | 192 | printf("CreateGeometry: XU%d = %f, %f\n", i, envelopA[5], envelopA[6]); |
c13b5a7c | 193 | |
a1469a24 | 194 | } // end i |
f590bb15 | 195 | |
c13b5a7c | 196 | |
fdebddeb | 197 | // Create one mini-envelope which will contain the last scintillator XU(nlayers-1) because there is one more scintillator than Pb layer XU(nlayers-1) |
c13b5a7c | 198 | |
f590bb15 | 199 | label = "XU" ; |
200 | label += i ; | |
c13b5a7c | 201 | envelopA[5] = envelopA[6] ; // rmin at z1 |
fdebddeb | 202 | envelopA[4] = geom->ZFromEtaR(envelopA[5] + geom->GetECScintThick(), |
c13b5a7c | 203 | geom->GetArm1EtaMin()); // z coordinate 1 |
fdebddeb | 204 | envelopA[7] = geom->ZFromEtaR(envelopA[5] + geom->GetECScintThick(), |
c13b5a7c | 205 | geom->GetArm1EtaMax()); // z coordinate 2 |
fdebddeb | 206 | envelopA[6] = envelopA[5] + geom->GetECScintThick() ; // rmax at z1 |
c13b5a7c | 207 | envelopA[8] = envelopA[5] ; // radii are the same. |
208 | envelopA[9] = envelopA[6] ; // radii are the same. | |
209 | ||
210 | gMC->Gsvolu(label.Data(), "PGON", idtmed[1599], envelopA, 10); // Polygone filled with air | |
211 | ||
a63e0d5e | 212 | // Position the last minienvelope in XEN1 |
c13b5a7c | 213 | |
f590bb15 | 214 | gMC->Gspos(label.Data(), 1, "XEN1", 0.0, 0.0, 0.0, idrotm, "ONLY") ; |
fdebddeb | 215 | |
c27ad3fb | 216 | if(gDebug == 2) |
fdebddeb | 217 | printf("CreateGeometry: XEN%d = %f, %f\n", i, envelopA[5], envelopA[6]); |
f590bb15 | 218 | |
a1469a24 | 219 | // Create the shapes of active material (LEAD/Aluminium/Scintillator) |
a1469a24 | 220 | // to be placed |
ffa6d63b | 221 | Float_t envelopB[10]; // First Layer of Aluminium |
222 | Float_t envelopC[10]; // Scintillator Layers | |
a1469a24 | 223 | Float_t envelopD[10]; // Lead Layers |
224 | ||
c13b5a7c | 225 | envelopC[0] = envelopD[0] = envelopB[0] = envelopA[0] ; // starting position in Phi |
226 | envelopC[1] = envelopD[1] = envelopB[1] = envelopA[1] ; // angular range in phi | |
227 | envelopC[2] = envelopD[2] = envelopB[2] = envelopA[2] ; // number of sections in Phi | |
fdebddeb | 228 | envelopC[3] = envelopD[3] = envelopB[3] = envelopA[3] ; // 2 z coordinates |
a1469a24 | 229 | |
c27ad3fb | 230 | Float_t dist = geom->GetEnvelop(0) + geom->GetAlFrontThickness() + geom->GetGap2Active() ; |
231 | envelopB[4] = geom->ZFromEtaR(dist, | |
c13b5a7c | 232 | geom->GetArm1EtaMin()); // z co-ordinate 1 |
233 | envelopB[5] = geom->GetEnvelop(0) ; // rmin at z1 | |
234 | envelopB[6] = envelopB[5] + geom->GetAlFrontThickness();// rmax at z1 | |
c27ad3fb | 235 | envelopB[7] = geom->ZFromEtaR(dist, |
c13b5a7c | 236 | geom->GetArm1EtaMax()); // z co-ordinate 2 |
237 | envelopB[8] = envelopB[5] ; // radii are the same. | |
238 | envelopB[9] = envelopB[6] ; // radii are the same. | |
ffa6d63b | 239 | |
c13b5a7c | 240 | // Define active volumes completely |
241 | ||
242 | gMC->Gsvolu("XALU", "PGON", idtmed[1602], envelopB, 10); // PGON filled with Al | |
243 | ||
244 | gMC->Gspos("XALU", 1, "XEN1", 0.0, 0.0, 0.0 , idrotm, "ONLY") ; // Position Aluminium Layer in XEN1 | |
a1469a24 | 245 | |
c13b5a7c | 246 | gMC->Gsvolu("XPST", "PGON", idtmed[1601], dum, 0); // PGON filled with Scintillator (shape to be defined by GSPOSP) |
247 | ||
248 | gMC->Gsvolu("XPBX", "PGON", idtmed[1600], dum, 0); // PGON filled with Lead (shape to be defined by GSPOSP) | |
249 | ||
fdebddeb | 250 | //gMC->Gsvolu("XCUX", "PGON", idtmed[1603], dum, 0); // PGON filled with Copper (shape to be defined by GSPOSP) |
a63e0d5e | 251 | |
c13b5a7c | 252 | gMC->Gsdvn("XPHI", "XPST", geom->GetNPhi(), 2); // Divide eta section of scintillators into phi segments. |
253 | ||
254 | // Position alternatively scintillator and Lead Layers in XUi. | |
a1469a24 | 255 | |
c13b5a7c | 256 | envelopD[6] = envelopB[6] + geom->GetGap2Active() ;// gap between Al layer and XU0 |
a63e0d5e | 257 | |
258 | for (int i = 0; i < nLayers; i++ ){ | |
259 | label = "XU" ; | |
fdebddeb | 260 | label += i ; // we will place one layer in each mini envelope) |
a63e0d5e | 261 | |
262 | Float_t scthick ; // scintillator thickness | |
fdebddeb | 263 | scthick = geom->GetECScintThick() ; |
a63e0d5e | 264 | |
265 | envelopC[5] = envelopD[6] ; //rmin | |
266 | envelopC[6] = envelopC[5] + scthick ; //rmax | |
267 | envelopC[8] = envelopC[5] ; //rmin | |
268 | envelopC[9] = envelopC[6] ; //rmax | |
269 | ||
c27ad3fb | 270 | if(gDebug == 2 ) |
fdebddeb | 271 | printf("CreateGeometry: volume = %s, name = XPST thickness = %f deb = %f/%f fin = %f/%f", label.Data(), scthick, envelopC[5], envelopC[8], envelopC[6], envelopC[9]) ; |
a63e0d5e | 272 | |
273 | for (int j =0; j < (geom->GetNEta()) ; j++){ | |
274 | etamin = geom->GetArm1EtaMin()+ | |
275 | (j*geom->GetDeltaEta()); | |
276 | etamax = geom->GetArm1EtaMin()+ | |
277 | ((j+1)*geom->GetDeltaEta()); | |
278 | envelopC[4] = geom->ZFromEtaR(envelopC[5],etamin); //z begin | |
279 | envelopC[7] = geom->ZFromEtaR(envelopC[5],etamax);// z end | |
280 | ||
281 | gMC->Gsposp("XPST",1+j+i*(geom->GetNEta()), label.Data(), | |
282 | 0.0, 0.0, 0.0 , idrotm, "ONLY", envelopC, 10); // Position and define layer | |
283 | } // end for j | |
284 | ||
a63e0d5e | 285 | Float_t radthick ; // radiator thickness |
286 | TString radname ; // radiator name | |
fdebddeb | 287 | radthick = geom->GetECPbRadThick(); |
288 | radname = "XPBX" ; | |
a63e0d5e | 289 | |
290 | if ( i < nLayers -1 ) { // except for the last XU which contains only one scintillator layer | |
291 | ||
292 | envelopD[5] = envelopC[6] ; //rmin | |
293 | envelopD[8] = envelopD[5] ; //rmin | |
294 | envelopD[6] = envelopD[5] + radthick ; // rmax | |
a63e0d5e | 295 | envelopD[9] = envelopD[6] ; //rmax |
c27ad3fb | 296 | |
297 | if(gDebug == 2 ) | |
fdebddeb | 298 | printf("CreateGeometry: volume = %s, name = %s thickness = %f deb = %f/%f fin = %f/%f", label.Data(), radname.Data(), radthick, envelopD[5], envelopD[8], envelopD[6], envelopD[9]) ; |
a63e0d5e | 299 | |
300 | for (int j =0; j < (geom->GetNEta()) ; j++){ | |
05a92d59 | 301 | etamin = geom->GetArm1EtaMin()+ |
a63e0d5e | 302 | (j*geom->GetDeltaEta()); |
05a92d59 | 303 | etamax = geom->GetArm1EtaMin()+ |
a63e0d5e | 304 | ((j+1)*geom->GetDeltaEta()); |
305 | envelopD[4] = geom->ZFromEtaR(envelopD[5],etamin);//z begin | |
306 | envelopD[7] = geom->ZFromEtaR(envelopD[5],etamax);// z end | |
307 | ||
308 | // Position and Define Layer | |
309 | ||
310 | gMC->Gsposp(radname.Data(),1+j+i*(geom->GetNEta()), label.Data(), | |
311 | 0.0, 0.0, 0.0 , idrotm, "ONLY", envelopD, 10); | |
fdebddeb | 312 | } // end for j |
313 | } // if not last layer | |
61e0abb5 | 314 | } // for i |
2012850d | 315 | } |
a1469a24 | 316 | |
b13bbe81 | 317 | //______________________________________________________________________ |
05a92d59 | 318 | void AliEMCALv0::Init(void) |
319 | { | |
b13bbe81 | 320 | // Just prints an information message |
9859bfc0 | 321 | |
322 | if(fDebug) { | |
323 | TString message("\n") ; | |
c27ad3fb | 324 | message += "*****************************************\n" ; |
05a92d59 | 325 | |
b13bbe81 | 326 | // Here the EMCAL initialisation code (if any!) |
9859bfc0 | 327 | |
05a92d59 | 328 | AliEMCALGeometry * geom = GetGeometry() ; |
9859bfc0 | 329 | |
330 | if (geom!=0) { | |
331 | message += "AliEMCAL " ; | |
332 | message += Version() ; | |
c27ad3fb | 333 | message += "EMCAL geometry initialized for " ; |
9859bfc0 | 334 | message += geom->GetName() ; |
335 | } | |
336 | else { | |
337 | message += "AliEMCAL " ; | |
338 | message += Version() ; | |
339 | message += "EMCAL geometry initialization failed !" ; | |
05a92d59 | 340 | } |
c27ad3fb | 341 | message += "\n*****************************************" ; |
fdebddeb | 342 | printf(message.Data() ) ; |
9859bfc0 | 343 | } |
2012850d | 344 | } |