Added the class AliFMDGeometryBuilder (and derived
[u/mrichter/AliRoot.git] / FMD / AliFMDAlla.cxx
CommitLineData
f4ee3d57 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/* $Id$ */
17
18/////////////////////////////////////////////////////////////////////
19// //
20// Forward Multiplicity detector based on Silicon version 0 //
21//
22//Begin Html
23/*
24 <img src="gif/AliFMDv0Class.gif">
25*/
26//End Html
27// //
28// //
29//////////////////////////////////////////////////////////////////////
30
31#include <Riostream.h>
32#include <stdlib.h>
33
34#include <TClonesArray.h>
35#include <TDirectory.h>
36#include <TFile.h>
37#include <TGeometry.h>
38#include <TLorentzVector.h>
39#include <TMath.h>
40#include <TNode.h>
41#include <TTUBE.h>
42#include <TTree.h>
43#include <TVirtualMC.h>
44#include <TDatabasePDG.h>
45#include <AliFMDHit.h>
46#include "AliFMDv0.h"
47#include "AliFMDAlla.h"
48#include "AliMagF.h"
49#include "AliRun.h"
50#include "AliMC.h"
51
52ClassImp(AliFMDAlla)
54e415a8 53#if 0
54 ;
55#endif
f4ee3d57 56
54e415a8 57//--------------------------------------------------------------------
58AliFMDAlla::AliFMDAlla(const char *name, const char *title)
59 : AliFMD(name,title)
f4ee3d57 60{
61 //
62 // Standart constructor for Forward Multiplicity Detector version 0
63 //
64 fIdSens1=0;
65 fIdSens2=0;
66 fIdSens3=0;
67 fIdSens4=0;
68 fIdSens5=0;
69 // setBufferSize(128000);
70}
71//-------------------------------------------------------------------------
54e415a8 72void
73AliFMDAlla::CreateGeometry()
f4ee3d57 74{
75 //
76 // Create the geometry of Forward Multiplicity Detector version 0
77 //
78 //Detector consists of 6 volumes:
79 // 1st covered pseudorapidity interval from 3.3 to 2.0
80 // and placed on 65cm in Z-direction;
81 // 2nd - from 2.0 to 1.6 and Z=85 cm;
82 // 3d - the same pseudorapidity interval as the 1st
83 // but on the other side from the interaction point z=-65cm;
84 // 4th - simmetricaly with the 2nd :
85 // pseudorapidity from 2.0 to 1.6, Z=-85cm
86 // 5th - from 3.6 to 4.7, Z=-270cm
87 // 6th - from 4.5 to 5.5 , Z=-630cm.
88 // Each part has 400mkm Si (sensetive area, detector itself),
89 // 0.75cm of plastic simulated electronics material,
90 // Al support ring 2cm thickness and 1cm width placed on
91 // the outer radius of each Si disk;
92 //
93 // begin Html
94 /*
95 <img src="gif/AliFMDv0.gif">
96 */
97 //
98
99
100
101 Int_t *idtmed = fIdtmed->GetArray();
102
103 Int_t ifmd;
104 Int_t idrotm[999];
105 Float_t zFMD;
106 Float_t par[3];
107 Float_t ppcon[15];
108 Float_t z[5] = {-62.8, -75.2, 83.4, 75.2, 340.};
109 Float_t NylonTube[3] = {0.2,0.6,0.45};
110 Float_t zPCB = 0.12;
111 Float_t zHoneyComb = 0.5;
112 Float_t zSi = 0.03;
113 Float_t rin[5] = {4.2,15.4,4.2,15.4,4.2};
114 Float_t rout[5] = {17.4,28.4,17.4,28.4,17.4};
115 Float_t RinHoneyComb[5] = { 5.15,16.4, 5.15,16.4, 5.15};
116 Float_t RoutHoneyComb[5] = {20.63,34.92,22.3, 32.02,20.63};
117 Float_t zInside;
118 Float_t zCooper = 0.01;
119 Float_t zChips = 0.01;
120 Float_t yNylonTube[5] = {10,20,10,20,10};
121
122 char nameFMD[5];
123 char nameSi[5];
124 char nameSector[5];
125 char nameRing[5];
126 Char_t nameHoney[5];
127 char nameHoneyIn[5];
128 char nameHoneyOut[5];
129 Char_t namePCB[5];
130 char nameCopper[5];
131 char nameChips[5];
132 char nameG10[5];
133 Char_t nameLPCB[5];
134 char nameLCopper[5];
135 char nameLChips[5];
136 char nameGL10[5];
137
138 AliMatrix(idrotm[901], 90, 0, 90, 90, 180, 0);
139
140
141 // Nylon tubes
142 gMC->Gsvolu("GNYL","TUBE", idtmed[1], NylonTube, 3); //support nylon tube
143 Float_t wideSupport=zSi+3*zPCB+2*NylonTube[2]+zHoneyComb;
54e415a8 144 AliDebug(1, Form("Support width: %f", wideSupport));
f4ee3d57 145
146 for (ifmd=0; ifmd<5; ifmd++) {
147 sprintf(nameFMD,"FMD%d",ifmd+1);
148 ppcon[0]=0;
149 ppcon[1]=360;
150 ppcon[2]=4;
151
152 ppcon[3]=-wideSupport;
153 ppcon[4]=rin[ifmd]-0.1;
154 ppcon[5]=rout[ifmd]+0.1;
155
156 ppcon[6]=ppcon[3]+2*zSi+2*zPCB+2*NylonTube[2];
157 ppcon[7]=rin[ifmd]-0.1;
158 ppcon[8]=rout[ifmd]+0.1;
159
160 ppcon[9]=ppcon[6];
161 ppcon[10]=RinHoneyComb[ifmd]-0.1;
162 ppcon[11]=RoutHoneyComb[ifmd]+0.1;
163
164 ppcon[12]=ppcon[9]+2*zHoneyComb+zPCB;
165 ppcon[13]=RinHoneyComb[ifmd]-0.1;
166 ppcon[14]=RoutHoneyComb[ifmd]+0.1;
167 gMC->Gsvolu(nameFMD,"PCON",idtmed[0],ppcon,15);
168 if (z[ifmd] >0){
169 zFMD=z[ifmd]+wideSupport;
170 gMC->Gspos(nameFMD,1,"ALIC",0,0,zFMD,0, "ONLY");}
171 else {
172 zFMD=z[ifmd]-wideSupport;
173 gMC->Gspos(nameFMD,1,"ALIC",0,0,zFMD,idrotm[901], "ONLY");}
174
175 //silicon
176 sprintf(nameSi,"GSI%d",ifmd+1);
177 sprintf(nameSector,"GSC%d",ifmd+1);
178 sprintf(nameRing,"GRN%d",ifmd+1);
179
180 //honeycomb support
181 sprintf(nameHoney,"GSU%d",ifmd+1);
182 gMC->Gsvolu(nameHoney,"TUBE", idtmed[0], par, 0); //honeycomb
183 sprintf(nameHoneyIn,"GHI%d",ifmd+1);
184 gMC->Gsvolu(nameHoneyIn,"TUBE", idtmed[7], par, 0); //honey comb inside
185 sprintf(nameHoneyOut,"GHO%d",ifmd+1);
186 gMC->Gsvolu(nameHoneyOut,"TUBE", idtmed[6], par, 0); //honey comb skin
187
188 //PCB
189 sprintf(namePCB,"GPC%d",ifmd+1);
190 gMC->Gsvolu(namePCB,"TUBE", idtmed[0], par, 0); //PCB
191 sprintf(nameCopper,"GCO%d",ifmd+1);
192 gMC->Gsvolu(nameCopper,"TUBE", idtmed[3], par, 0); // Cooper
193 sprintf(nameChips,"GCH%d",ifmd+1);
194 gMC->Gsvolu(nameChips,"TUBE", idtmed[5], par, 0); // Si chips
195 sprintf(nameG10,"G10%d",ifmd+1);
196 gMC->Gsvolu(nameG10,"TUBE", idtmed[2], par, 0); //G10 plate
197
198 //last PCB
199 sprintf(nameLPCB,"GPL%d",ifmd+1);
200 gMC->Gsvolu(nameLPCB,"TUBE", idtmed[0], par, 0); //PCB
201 sprintf(nameLCopper,"GCL%d",ifmd+1);
202 gMC->Gsvolu(nameLCopper,"TUBE", idtmed[3], par, 0); // Cooper
203 sprintf(nameLChips,"GHL%d",ifmd+1);
204 gMC->Gsvolu(nameLChips,"TUBE", idtmed[5], par, 0); // Si chips
205 sprintf(nameGL10,"G1L%d",ifmd+1);
206 gMC->Gsvolu(nameGL10,"TUBE", idtmed[2], par, 0); // Last G10
207 par[0]=rin[ifmd]; // pipe size
208 par[1]=rout[ifmd];
209 par[2]=zSi/2;
210 gMC->Gsvolu(nameSi,"TUBE", idtmed[4], par, 3);
211 zInside=ppcon[3]+par[2];
212 gMC->Gspos(nameSi,ifmd+1,nameFMD,0,0,zInside,0, "ONLY");
213
214 //PCB 1
215 zInside += par[2]+zPCB/2;
216 par[2]=zPCB/2;
217 gMC->Gsposp(namePCB,1,nameFMD,0,0,zInside,0, "ONLY",par,3);
218 zInside += zPCB;
219 gMC->Gsposp(namePCB,2,nameFMD,0,0,zInside,0, "ONLY",par,3);
220 Float_t NulonTubeBegin=zInside+2.5*zPCB;
221 par[2]=zPCB/2-0.02;
222 Float_t zInPCB = -zPCB/2+par[2];
223 gMC->Gsposp(nameG10,1,namePCB,0,0,zInPCB,0, "ONLY",par,3);
224 zInPCB+=par[2]+zCooper/2 ;
225 par[2]=zCooper/2;
226 gMC->Gsposp(nameCopper,1,namePCB,0,0,zInPCB,0, "ONLY",par,3);
227 zInPCB += zCooper/2 + zChips/2;
228 par[2]=zChips/2;
229 gMC->Gsposp(nameChips,1,namePCB,0,0,zInPCB,0, "ONLY",par,3);
230
231 //HoneyComb
232 zHoneyComb=0.8;
233 par[0] = RinHoneyComb[ifmd];
234 par[1] = RoutHoneyComb[ifmd];
235 par[2] = zHoneyComb/2;
236 zInside += 2*NylonTube[2]+par[2];
237 gMC->Gsposp(nameHoney,1,nameFMD,0,0,zInside,0, "ONLY",par,3);
238 par[2]=0.1/2;
239 Float_t zHoney=-zHoneyComb/2+par[2];
240 gMC->Gsposp(nameHoneyOut,1,nameHoney,0,0,zHoney,0,
241 "ONLY",par,3); //shkurki
242 zHoney=zHoneyComb/2-par[2];
243 gMC->Gsposp(nameHoneyOut,2,nameHoney,0,0,zHoney,0, "ONLY",par,3);
244 par[2]=(zHoneyComb-2.*0.1)/2; //soty vnutri
245 gMC->Gsposp(nameHoneyIn,1,nameHoney,0,0,0,0, "ONLY",par,3);
246
247 gMC->Gspos("GNYL",1,nameFMD,0,yNylonTube[ifmd],
248 NulonTubeBegin+NylonTube[2]/2.,0, "ONLY");
249 gMC->Gspos("GNYL",2,nameFMD,0,-yNylonTube[ifmd],
250 NulonTubeBegin+NylonTube[2]/2.,0, "ONLY");
251
252 //last PCB
253 par[0]=RoutHoneyComb[ifmd]-9;
254 par[1]=RoutHoneyComb[ifmd];
255 par[2]=zPCB/2;
256 zInside += zHoneyComb/2+par[2];
257 gMC->Gsposp(nameLPCB,1,nameFMD,0,0,zInside,0, "ONLY",par,3);
258
259 par[2]=zPCB/2-0.02;
260 zInPCB = -zPCB/2+par[2];
261 gMC->Gsposp(nameGL10,1,nameLPCB,0,0,zInPCB,0, "ONLY",par,3);
262 zInPCB+=par[2]+zCooper/2 ;
263 par[2]=zCooper/2;
264 gMC->Gsposp(nameLCopper,1,nameLPCB,0,0,zInPCB,0, "ONLY",par,3);
265 zInPCB += zCooper/2 + zChips/2;
266 par[2]=zChips/2;
267 gMC->Gsposp(nameLChips,1,nameLPCB,0,0,zInPCB,0, "ONLY",par,3);
268
269
270 //Granularity
271 fSectorsSi1 = 20;
272 fRingsSi1 = 256 * 2;
273 // fRingsSi1=3; // for drawing only
274 fSectorsSi2 = 40;
275 fRingsSi2 = 128 * 2;
276 // fRingsSi2=3; //for drawing onl
277 if(ifmd==1||ifmd==3) {
278 gMC->Gsdvn(nameSector, nameSi , fSectorsSi2, 2);
279 gMC->Gsdvn(nameRing, nameSector, fRingsSi2, 1);
280 }
281 else {
282 gMC->Gsdvn(nameSector, nameSi , fSectorsSi1, 2);
283 gMC->Gsdvn(nameRing, nameSector , fRingsSi1, 1);
284 }
285 }
286}
287
288
289//------------------------------------------------------------------------
54e415a8 290void
291AliFMDAlla::CreateMaterials()
f4ee3d57 292{
293 Int_t isxfld = gAlice->Field()->Integ();
294 Float_t sxmgmx = gAlice->Field()->Max();
295
296 // Plastic CH
297 Float_t aPlastic[2]={1.01,12.01};
298 Float_t zPlastic[2]={1,6};
299 Float_t wPlastic[2]={1,1};
300 Float_t denPlastic=1.03;
301 //
302 // 60% SiO2 , 40% G10FR4
303 // PC board
304 Float_t apcb[3] = { 28.0855,15.9994,17.749 };
305 Float_t zpcb[3] = { 14.,8.,8.875 };
306 Float_t wpcb[3] = { .28,.32,.4 };
307 Float_t denspcb = 1.8;
308 //
309 // AIR
310 Float_t aAir[4] = {12.0107,14.0067,15.9994,39.948};
311 Float_t zAir[4] = {6.,7.,8.,18.};
312 Float_t wAir[4] = {0.000124,0.755267,0.231781,0.012827};
313 Float_t dAir = 1.20479E-3;
314 //*** Definition Of avaible FMD materials ***
315 AliMixture(0, "FMD Air$", aAir, zAir, dAir, 4,wAir);
316 AliMixture(1, "Plastic$",aPlastic,zPlastic,denPlastic,-2,wPlastic);
317 AliMixture(2, "SSD PCB$", apcb, zpcb, denspcb, 3, wpcb);
318 AliMaterial(3, "SSD Copper$", 63.546, 29., 8.96, 1.43, 999.);
319 AliMaterial(4, "SSD Si$", 28.0855, 14., 2.33, 9.36, 999.);
320 AliMaterial(5, "SSD Si chip$", 28.0855, 14., 2.33, 9.36, 999.);
321 AliMaterial(6, "SSD C$", 12.011, 6., 2.265,18.8, 999.);
322 AliMaterial(7, "SSD Kapton$", 12.011, 6., 0.01, 31.27, 999.);//honeycomb
323 AliMaterial(8, "SSD G10FR4$", 17.749, 8.875, 1.8, 21.822, 999.);
324
325
326 //**
327 AliMedium(0, "FMD air$", 0, 0, isxfld, sxmgmx, 1., .001, 1., .001, .001);
328 AliMedium(1, "Plastic$", 1, 0,isxfld, sxmgmx, 10., .01, 1., .003, .003);
329 AliMedium(2, "SSD PCB$", 2, 0, isxfld, sxmgmx, 1., .001, 1., .001, .001);
330 AliMedium(3, "SSD Copper$", 3, 0,isxfld, sxmgmx, 10., .01, 1., .003, .003);
331 AliMedium(4, "SSD Si$", 4, 1, isxfld, sxmgmx, 1., .001, 1., .001, .001);
332 AliMedium(5, "SSD Si chip$", 5, 0,isxfld, sxmgmx, 10., .01, 1., .003, .003);
333 AliMedium(6, "SSD C$", 6, 0,isxfld, sxmgmx, 10., .01, 1., .003, .003);
334 AliMedium(7, "SSD Kapton$", 7, 0, isxfld, sxmgmx, 1., .001, 1., .001, .001);
335 AliMedium(8, "SSD G10FR4$", 8, 0,isxfld, sxmgmx, 10., .01, 1., .003, .003);
336
337
338
339}
340//---------------------------------------------------------------------
54e415a8 341void
342AliFMDAlla::DrawDetector()
f4ee3d57 343{
344 //
345 // Draw a shaded view of the Forward multiplicity detector version 0
346 //
347
348 //Set ALIC mother transparent
349 gMC->Gsatt("ALIC","SEEN",0);
350 //
351 //Set volumes visible
352 gMC->Gsatt("FMD1","SEEN",1);
353 gMC->Gsatt("FMD2","SEEN",1);
354 gMC->Gsatt("FMD3","SEEN",1);
355 gMC->Gsatt("FMD4","SEEN",1);
356 gMC->Gsatt("FMD5","SEEN",1);
357
358 //
359 gMC->Gdopt("hide","on");
360 gMC->Gdopt("shad","on");
361 gMC->SetClipBox(".");
362 gMC->SetClipBox("*",0,1000,-1000,1000,-1000,1000);
363 gMC->DefaultRange();
364 gMC->Gdraw("alic",40,30,0,12,9.5,.2,0.2);
365 gMC->Gdhead(1111,"Forward multiplicity detector");
366 gMC->Gdopt("hide","off");
367}
368//-------------------------------------------------------------------
54e415a8 369void
370AliFMDAlla::Init()
f4ee3d57 371{
372 // Initialises version 0 of the Forward Multiplicity Detector
373 //
374 AliFMD::Init();
375 fIdSens1=gMC->VolId("GRN1");
376 fIdSens2=gMC->VolId("GRN2");
377 fIdSens3=gMC->VolId("GRN3");
378 fIdSens4=gMC->VolId("GRN4");
379 fIdSens5=gMC->VolId("GRN5");
380 printf("*** FMD version 1 initialized ***\n");
381}
382
383//-------------------------------------------------------------------
54e415a8 384void
385AliFMDAlla::StepManager()
f4ee3d57 386{
387 //
388 // Called for every step in the Forward Multiplicity Detector
389 //
390 Int_t id,copy,copy1,copy2;
391 static Float_t hits[9];
392 static Int_t vol[3];
393 static Float_t de;
394 static TLorentzVector pos;
395 static TLorentzVector mom;
396 static Int_t iPart;
397
398 TClonesArray &lhits = *fHits;
399 if(!gMC->IsTrackAlive()) return; // particle has disappeared
400
401 Float_t charge = gMC->TrackCharge();
402 if(TMath::Abs(charge)<=0.) return; //take only charged particles
403
404 // printf(" in StepManeger \n");
405 id=gMC->CurrentVolID(copy);
406 //((TGeant3*)gMC)->Gpcxyz();
407
408 // Check the sensetive volume
409 if(id==fIdSens1||id==fIdSens2||id==fIdSens3||id==fIdSens4||id==fIdSens5) {
410
411 if(gMC->IsTrackEntering()) {
412 vol[2]=copy;
413 gMC->CurrentVolOffID(1,copy1);
414 vol[1]=copy1;
415 gMC->CurrentVolOffID(2,copy2);
416 vol[0]=copy2;
417
418 gMC->TrackPosition(pos);
419 hits[0]=pos[0];
420 hits[1]=pos[1];
421 hits[2]=pos[2];
422
423 gMC->TrackMomentum(mom);
424 hits[3]=mom[0];
425 hits[4]=mom[1];
426 hits[5]=mom[2];
427
428 iPart= gMC->TrackPid();
429 Int_t partId=gMC->IdFromPDG(iPart);
430 hits[7]=partId;
431 hits[8]=1e9*gMC->TrackTime();
432 de=0.;
433 }
434 Float_t edep = 1000 * gMC->Edep();
435 Float_t p = mom.P();
436 TParticlePDG* pdg = TDatabasePDG::Instance()->GetParticle(iPart);
437 Float_t mass = pdg ? pdg->Mass() : 1;
438 if (edep > 1 && p/mass > 1) {
439 TArrayI procs;
440 gMC->StepProcesses(procs);
441 TString processes;
442 for (Int_t ip = 0; ip < procs.fN; ip++) {
443 if (ip != 0) processes.Append(",");
444 processes.Append(TMCProcessName[procs.fArray[ip]]);
445 }
446 TString what;
447 if (gMC->IsTrackEntering()) what.Append("entering ");
448 if (gMC->IsTrackExiting()) what.Append("exiting ");
449 if (gMC->IsTrackInside()) what.Append("inside ");
450 if (gMC->IsTrackDisappeared()) what.Append("disappeared ");
451 if (gMC->IsTrackStop()) what.Append("stopped ");
452 if (gMC->IsNewTrack()) what.Append("new ");
453 if (gMC->IsTrackAlive()) what.Append("alive ");
454 if (gMC->IsTrackOut()) what.Append("out ");
455 Int_t trackno = gAlice->GetMCApp()->GetCurrentTrackNumber();
456 Int_t mother = gAlice->GetMCApp()->GetPrimary(trackno);
457 Warning("StepManager", "Track # %5d deposits a lot of energy\n"
458 " Volume: %s\n"
459 " Momentum: (%7.4f,%7.4f,%7.4f)\n"
460 " PDG: %d (%s)\n"
461 " Edep: %-14.7f keV (mother %d)\n"
462 " p/m: %-7.4f/%-7.4f = %-14.7f\n"
463 " Processes: %s\n"
464 " What: %s\n",
465 trackno, gMC->CurrentVolPath(), mom.X(), mom.Y(), mom.Z(),
466 iPart, (pdg ? pdg->GetName() : ""), edep, mother, mom.P(), mass,
467 mom.P()/mass, processes.Data(), what.Data());
468 }
469
470 if(gMC->IsTrackInside()) de=de+1000.*gMC->Edep();
471
472 if(gMC->IsTrackExiting() ||gMC->IsTrackDisappeared()|| gMC->IsTrackStop()){
473 hits[6]=de+1000.*gMC->Edep();
474 UShort_t detector = vol[0] / 2 + 1;
475 Char_t ring = (vol[0] % 2) == 0 ? 'I' : 'O';
476 UShort_t sector = vol[1];
477 UShort_t strip = vol[2];
478 AliFMDHit* h = new(lhits[fNhits++])
479 AliFMDHit(fIshunt,
480 gAlice->GetMCApp()->GetCurrentTrackNumber(),
481 detector, ring, sector, strip,
482 hits[0], hits[1], hits[2], hits[3], hits[4], hits[5],
483 hits[6], iPart, hits[8]);
54e415a8 484 if (hits[6] > 1 && p/mass > 1) fBad->Add(h);
f4ee3d57 485 } // IsTrackExiting()
486 }
487}
488//--------------------------------------------------------------------------
54e415a8 489void
490AliFMDAlla::Response(Float_t Edep)
f4ee3d57 491{
492 Float_t I=1.664*0.04*2.33/22400; // = 0.69e-6;
493 Float_t chargeOnly=Edep/I;
494 //Add noise ~500electrons
495 Int_t charge=500;
496 if (Edep>0)
497 charge=Int_t(gRandom->Gaus(chargeOnly,500));
498}
54e415a8 499//--------------------------------------------------------------------------
500//
501// EOF
502//
f4ee3d57 503
504
505
506
507