--- /dev/null
+/**************************************************************************
+ * Copyright(c) 1998-1999, ALICE Experiment at CERN, All rights reserved. *
+ * *
+ * Author: The ALICE Off-line Project. *
+ * Contributors are mentioned in the code where appropriate. *
+ * *
+ * Permission to use, copy, modify and distribute this software and its *
+ * documentation strictly for non-commercial purposes is hereby granted *
+ * without fee, provided that the above copyright notice appears in all *
+ * copies and that both the copyright notice and this permission notice *
+ * appear in the supporting documentation. The authors make no claims *
+ * about the suitability of this software for any purpose. It is *
+ * provided "as is" without express or implied warranty. *
+ **************************************************************************/
+
+/* $Id$ */
+
+/////////////////////////////////////////////////////////////////////
+// //
+// Forward Multiplicity detector based on Silicon version 0 //
+//
+//Begin Html
+/*
+ <img src="gif/AliFMDv0Class.gif">
+*/
+//End Html
+// //
+// //
+//////////////////////////////////////////////////////////////////////
+
+#include <Riostream.h>
+#include <stdlib.h>
+
+#include <TClonesArray.h>
+#include <TDirectory.h>
+#include <TFile.h>
+#include <TGeometry.h>
+#include <TLorentzVector.h>
+#include <TMath.h>
+#include <TNode.h>
+#include <TTUBE.h>
+#include <TTree.h>
+#include <TVirtualMC.h>
+#include <TDatabasePDG.h>
+#include <AliFMDHit.h>
+#include "AliFMDv0.h"
+#include "AliFMDAlla.h"
+#include "AliMagF.h"
+#include "AliRun.h"
+#include "AliMC.h"
+
+ClassImp(AliFMDAlla)
+
+ //--------------------------------------------------------------------
+ AliFMDAlla::AliFMDAlla(const char *name, const char *title)
+ : AliFMD(name,title)
+{
+ //
+ // Standart constructor for Forward Multiplicity Detector version 0
+ //
+ fIdSens1=0;
+ fIdSens2=0;
+ fIdSens3=0;
+ fIdSens4=0;
+ fIdSens5=0;
+ // setBufferSize(128000);
+}
+//-------------------------------------------------------------------------
+void AliFMDAlla::CreateGeometry()
+{
+ //
+ // Create the geometry of Forward Multiplicity Detector version 0
+ //
+ //Detector consists of 6 volumes:
+ // 1st covered pseudorapidity interval from 3.3 to 2.0
+ // and placed on 65cm in Z-direction;
+ // 2nd - from 2.0 to 1.6 and Z=85 cm;
+ // 3d - the same pseudorapidity interval as the 1st
+ // but on the other side from the interaction point z=-65cm;
+ // 4th - simmetricaly with the 2nd :
+ // pseudorapidity from 2.0 to 1.6, Z=-85cm
+ // 5th - from 3.6 to 4.7, Z=-270cm
+ // 6th - from 4.5 to 5.5 , Z=-630cm.
+ // Each part has 400mkm Si (sensetive area, detector itself),
+ // 0.75cm of plastic simulated electronics material,
+ // Al support ring 2cm thickness and 1cm width placed on
+ // the outer radius of each Si disk;
+ //
+ // begin Html
+ /*
+ <img src="gif/AliFMDv0.gif">
+ */
+ //
+
+
+
+ Int_t *idtmed = fIdtmed->GetArray();
+
+ Int_t ifmd;
+ Int_t idrotm[999];
+ Float_t zFMD;
+ Float_t par[3];
+ Float_t ppcon[15];
+ Float_t z[5] = {-62.8, -75.2, 83.4, 75.2, 340.};
+ Float_t NylonTube[3] = {0.2,0.6,0.45};
+ Float_t zPCB = 0.12;
+ Float_t zHoneyComb = 0.5;
+ Float_t zSi = 0.03;
+ Float_t rin[5] = {4.2,15.4,4.2,15.4,4.2};
+ Float_t rout[5] = {17.4,28.4,17.4,28.4,17.4};
+ Float_t RinHoneyComb[5] = { 5.15,16.4, 5.15,16.4, 5.15};
+ Float_t RoutHoneyComb[5] = {20.63,34.92,22.3, 32.02,20.63};
+ Float_t zInside;
+ Float_t zCooper = 0.01;
+ Float_t zChips = 0.01;
+ Float_t yNylonTube[5] = {10,20,10,20,10};
+
+ char nameFMD[5];
+ char nameSi[5];
+ char nameSector[5];
+ char nameRing[5];
+ Char_t nameHoney[5];
+ char nameHoneyIn[5];
+ char nameHoneyOut[5];
+ Char_t namePCB[5];
+ char nameCopper[5];
+ char nameChips[5];
+ char nameG10[5];
+ Char_t nameLPCB[5];
+ char nameLCopper[5];
+ char nameLChips[5];
+ char nameGL10[5];
+
+ AliMatrix(idrotm[901], 90, 0, 90, 90, 180, 0);
+
+
+ // Nylon tubes
+ gMC->Gsvolu("GNYL","TUBE", idtmed[1], NylonTube, 3); //support nylon tube
+ Float_t wideSupport=zSi+3*zPCB+2*NylonTube[2]+zHoneyComb;
+ cout<<" wideSupport "<<wideSupport<<endl;
+
+ for (ifmd=0; ifmd<5; ifmd++) {
+ sprintf(nameFMD,"FMD%d",ifmd+1);
+ ppcon[0]=0;
+ ppcon[1]=360;
+ ppcon[2]=4;
+
+ ppcon[3]=-wideSupport;
+ ppcon[4]=rin[ifmd]-0.1;
+ ppcon[5]=rout[ifmd]+0.1;
+
+ ppcon[6]=ppcon[3]+2*zSi+2*zPCB+2*NylonTube[2];
+ ppcon[7]=rin[ifmd]-0.1;
+ ppcon[8]=rout[ifmd]+0.1;
+
+ ppcon[9]=ppcon[6];
+ ppcon[10]=RinHoneyComb[ifmd]-0.1;
+ ppcon[11]=RoutHoneyComb[ifmd]+0.1;
+
+ ppcon[12]=ppcon[9]+2*zHoneyComb+zPCB;
+ ppcon[13]=RinHoneyComb[ifmd]-0.1;
+ ppcon[14]=RoutHoneyComb[ifmd]+0.1;
+ gMC->Gsvolu(nameFMD,"PCON",idtmed[0],ppcon,15);
+ if (z[ifmd] >0){
+ zFMD=z[ifmd]+wideSupport;
+ gMC->Gspos(nameFMD,1,"ALIC",0,0,zFMD,0, "ONLY");}
+ else {
+ zFMD=z[ifmd]-wideSupport;
+ gMC->Gspos(nameFMD,1,"ALIC",0,0,zFMD,idrotm[901], "ONLY");}
+
+ //silicon
+ sprintf(nameSi,"GSI%d",ifmd+1);
+ sprintf(nameSector,"GSC%d",ifmd+1);
+ sprintf(nameRing,"GRN%d",ifmd+1);
+
+ //honeycomb support
+ sprintf(nameHoney,"GSU%d",ifmd+1);
+ gMC->Gsvolu(nameHoney,"TUBE", idtmed[0], par, 0); //honeycomb
+ sprintf(nameHoneyIn,"GHI%d",ifmd+1);
+ gMC->Gsvolu(nameHoneyIn,"TUBE", idtmed[7], par, 0); //honey comb inside
+ sprintf(nameHoneyOut,"GHO%d",ifmd+1);
+ gMC->Gsvolu(nameHoneyOut,"TUBE", idtmed[6], par, 0); //honey comb skin
+
+ //PCB
+ sprintf(namePCB,"GPC%d",ifmd+1);
+ gMC->Gsvolu(namePCB,"TUBE", idtmed[0], par, 0); //PCB
+ sprintf(nameCopper,"GCO%d",ifmd+1);
+ gMC->Gsvolu(nameCopper,"TUBE", idtmed[3], par, 0); // Cooper
+ sprintf(nameChips,"GCH%d",ifmd+1);
+ gMC->Gsvolu(nameChips,"TUBE", idtmed[5], par, 0); // Si chips
+ sprintf(nameG10,"G10%d",ifmd+1);
+ gMC->Gsvolu(nameG10,"TUBE", idtmed[2], par, 0); //G10 plate
+
+ //last PCB
+ sprintf(nameLPCB,"GPL%d",ifmd+1);
+ gMC->Gsvolu(nameLPCB,"TUBE", idtmed[0], par, 0); //PCB
+ sprintf(nameLCopper,"GCL%d",ifmd+1);
+ gMC->Gsvolu(nameLCopper,"TUBE", idtmed[3], par, 0); // Cooper
+ sprintf(nameLChips,"GHL%d",ifmd+1);
+ gMC->Gsvolu(nameLChips,"TUBE", idtmed[5], par, 0); // Si chips
+ sprintf(nameGL10,"G1L%d",ifmd+1);
+ gMC->Gsvolu(nameGL10,"TUBE", idtmed[2], par, 0); // Last G10
+ par[0]=rin[ifmd]; // pipe size
+ par[1]=rout[ifmd];
+ par[2]=zSi/2;
+ gMC->Gsvolu(nameSi,"TUBE", idtmed[4], par, 3);
+ zInside=ppcon[3]+par[2];
+ gMC->Gspos(nameSi,ifmd+1,nameFMD,0,0,zInside,0, "ONLY");
+
+ //PCB 1
+ zInside += par[2]+zPCB/2;
+ par[2]=zPCB/2;
+ gMC->Gsposp(namePCB,1,nameFMD,0,0,zInside,0, "ONLY",par,3);
+ zInside += zPCB;
+ gMC->Gsposp(namePCB,2,nameFMD,0,0,zInside,0, "ONLY",par,3);
+ Float_t NulonTubeBegin=zInside+2.5*zPCB;
+ par[2]=zPCB/2-0.02;
+ Float_t zInPCB = -zPCB/2+par[2];
+ gMC->Gsposp(nameG10,1,namePCB,0,0,zInPCB,0, "ONLY",par,3);
+ zInPCB+=par[2]+zCooper/2 ;
+ par[2]=zCooper/2;
+ gMC->Gsposp(nameCopper,1,namePCB,0,0,zInPCB,0, "ONLY",par,3);
+ zInPCB += zCooper/2 + zChips/2;
+ par[2]=zChips/2;
+ gMC->Gsposp(nameChips,1,namePCB,0,0,zInPCB,0, "ONLY",par,3);
+
+ //HoneyComb
+ zHoneyComb=0.8;
+ par[0] = RinHoneyComb[ifmd];
+ par[1] = RoutHoneyComb[ifmd];
+ par[2] = zHoneyComb/2;
+ zInside += 2*NylonTube[2]+par[2];
+ gMC->Gsposp(nameHoney,1,nameFMD,0,0,zInside,0, "ONLY",par,3);
+ par[2]=0.1/2;
+ Float_t zHoney=-zHoneyComb/2+par[2];
+ gMC->Gsposp(nameHoneyOut,1,nameHoney,0,0,zHoney,0,
+ "ONLY",par,3); //shkurki
+ zHoney=zHoneyComb/2-par[2];
+ gMC->Gsposp(nameHoneyOut,2,nameHoney,0,0,zHoney,0, "ONLY",par,3);
+ par[2]=(zHoneyComb-2.*0.1)/2; //soty vnutri
+ gMC->Gsposp(nameHoneyIn,1,nameHoney,0,0,0,0, "ONLY",par,3);
+
+ gMC->Gspos("GNYL",1,nameFMD,0,yNylonTube[ifmd],
+ NulonTubeBegin+NylonTube[2]/2.,0, "ONLY");
+ gMC->Gspos("GNYL",2,nameFMD,0,-yNylonTube[ifmd],
+ NulonTubeBegin+NylonTube[2]/2.,0, "ONLY");
+
+ //last PCB
+ par[0]=RoutHoneyComb[ifmd]-9;
+ par[1]=RoutHoneyComb[ifmd];
+ par[2]=zPCB/2;
+ zInside += zHoneyComb/2+par[2];
+ gMC->Gsposp(nameLPCB,1,nameFMD,0,0,zInside,0, "ONLY",par,3);
+
+ par[2]=zPCB/2-0.02;
+ zInPCB = -zPCB/2+par[2];
+ gMC->Gsposp(nameGL10,1,nameLPCB,0,0,zInPCB,0, "ONLY",par,3);
+ zInPCB+=par[2]+zCooper/2 ;
+ par[2]=zCooper/2;
+ gMC->Gsposp(nameLCopper,1,nameLPCB,0,0,zInPCB,0, "ONLY",par,3);
+ zInPCB += zCooper/2 + zChips/2;
+ par[2]=zChips/2;
+ gMC->Gsposp(nameLChips,1,nameLPCB,0,0,zInPCB,0, "ONLY",par,3);
+
+
+ //Granularity
+ fSectorsSi1 = 20;
+ fRingsSi1 = 256 * 2;
+ // fRingsSi1=3; // for drawing only
+ fSectorsSi2 = 40;
+ fRingsSi2 = 128 * 2;
+ // fRingsSi2=3; //for drawing onl
+ if(ifmd==1||ifmd==3) {
+ gMC->Gsdvn(nameSector, nameSi , fSectorsSi2, 2);
+ gMC->Gsdvn(nameRing, nameSector, fRingsSi2, 1);
+ }
+ else {
+ gMC->Gsdvn(nameSector, nameSi , fSectorsSi1, 2);
+ gMC->Gsdvn(nameRing, nameSector , fRingsSi1, 1);
+ }
+ }
+}
+
+
+//------------------------------------------------------------------------
+void AliFMDAlla::CreateMaterials()
+{
+ Int_t isxfld = gAlice->Field()->Integ();
+ Float_t sxmgmx = gAlice->Field()->Max();
+
+ // Plastic CH
+ Float_t aPlastic[2]={1.01,12.01};
+ Float_t zPlastic[2]={1,6};
+ Float_t wPlastic[2]={1,1};
+ Float_t denPlastic=1.03;
+ //
+ // 60% SiO2 , 40% G10FR4
+ // PC board
+ Float_t apcb[3] = { 28.0855,15.9994,17.749 };
+ Float_t zpcb[3] = { 14.,8.,8.875 };
+ Float_t wpcb[3] = { .28,.32,.4 };
+ Float_t denspcb = 1.8;
+ //
+ // AIR
+ Float_t aAir[4] = {12.0107,14.0067,15.9994,39.948};
+ Float_t zAir[4] = {6.,7.,8.,18.};
+ Float_t wAir[4] = {0.000124,0.755267,0.231781,0.012827};
+ Float_t dAir = 1.20479E-3;
+ //*** Definition Of avaible FMD materials ***
+ AliMixture(0, "FMD Air$", aAir, zAir, dAir, 4,wAir);
+ AliMixture(1, "Plastic$",aPlastic,zPlastic,denPlastic,-2,wPlastic);
+ AliMixture(2, "SSD PCB$", apcb, zpcb, denspcb, 3, wpcb);
+ AliMaterial(3, "SSD Copper$", 63.546, 29., 8.96, 1.43, 999.);
+ AliMaterial(4, "SSD Si$", 28.0855, 14., 2.33, 9.36, 999.);
+ AliMaterial(5, "SSD Si chip$", 28.0855, 14., 2.33, 9.36, 999.);
+ AliMaterial(6, "SSD C$", 12.011, 6., 2.265,18.8, 999.);
+ AliMaterial(7, "SSD Kapton$", 12.011, 6., 0.01, 31.27, 999.);//honeycomb
+ AliMaterial(8, "SSD G10FR4$", 17.749, 8.875, 1.8, 21.822, 999.);
+
+
+ //**
+ AliMedium(0, "FMD air$", 0, 0, isxfld, sxmgmx, 1., .001, 1., .001, .001);
+ AliMedium(1, "Plastic$", 1, 0,isxfld, sxmgmx, 10., .01, 1., .003, .003);
+ AliMedium(2, "SSD PCB$", 2, 0, isxfld, sxmgmx, 1., .001, 1., .001, .001);
+ AliMedium(3, "SSD Copper$", 3, 0,isxfld, sxmgmx, 10., .01, 1., .003, .003);
+ AliMedium(4, "SSD Si$", 4, 1, isxfld, sxmgmx, 1., .001, 1., .001, .001);
+ AliMedium(5, "SSD Si chip$", 5, 0,isxfld, sxmgmx, 10., .01, 1., .003, .003);
+ AliMedium(6, "SSD C$", 6, 0,isxfld, sxmgmx, 10., .01, 1., .003, .003);
+ AliMedium(7, "SSD Kapton$", 7, 0, isxfld, sxmgmx, 1., .001, 1., .001, .001);
+ AliMedium(8, "SSD G10FR4$", 8, 0,isxfld, sxmgmx, 10., .01, 1., .003, .003);
+
+
+
+}
+//---------------------------------------------------------------------
+void AliFMDAlla::DrawDetector()
+{
+ //
+ // Draw a shaded view of the Forward multiplicity detector version 0
+ //
+
+ //Set ALIC mother transparent
+ gMC->Gsatt("ALIC","SEEN",0);
+ //
+ //Set volumes visible
+ gMC->Gsatt("FMD1","SEEN",1);
+ gMC->Gsatt("FMD2","SEEN",1);
+ gMC->Gsatt("FMD3","SEEN",1);
+ gMC->Gsatt("FMD4","SEEN",1);
+ gMC->Gsatt("FMD5","SEEN",1);
+
+ //
+ gMC->Gdopt("hide","on");
+ gMC->Gdopt("shad","on");
+ gMC->SetClipBox(".");
+ gMC->SetClipBox("*",0,1000,-1000,1000,-1000,1000);
+ gMC->DefaultRange();
+ gMC->Gdraw("alic",40,30,0,12,9.5,.2,0.2);
+ gMC->Gdhead(1111,"Forward multiplicity detector");
+ gMC->Gdopt("hide","off");
+}
+//-------------------------------------------------------------------
+void AliFMDAlla::Init()
+{
+ // Initialises version 0 of the Forward Multiplicity Detector
+ //
+ AliFMD::Init();
+ fIdSens1=gMC->VolId("GRN1");
+ fIdSens2=gMC->VolId("GRN2");
+ fIdSens3=gMC->VolId("GRN3");
+ fIdSens4=gMC->VolId("GRN4");
+ fIdSens5=gMC->VolId("GRN5");
+ printf("*** FMD version 1 initialized ***\n");
+}
+
+//-------------------------------------------------------------------
+
+void AliFMDAlla::StepManager()
+{
+ //
+ // Called for every step in the Forward Multiplicity Detector
+ //
+ Int_t id,copy,copy1,copy2;
+ static Float_t hits[9];
+ static Int_t vol[3];
+ static Float_t de;
+ static TLorentzVector pos;
+ static TLorentzVector mom;
+ static Int_t iPart;
+
+ TClonesArray &lhits = *fHits;
+ if(!gMC->IsTrackAlive()) return; // particle has disappeared
+
+ Float_t charge = gMC->TrackCharge();
+ if(TMath::Abs(charge)<=0.) return; //take only charged particles
+
+ // printf(" in StepManeger \n");
+ id=gMC->CurrentVolID(copy);
+ //((TGeant3*)gMC)->Gpcxyz();
+
+ // Check the sensetive volume
+ if(id==fIdSens1||id==fIdSens2||id==fIdSens3||id==fIdSens4||id==fIdSens5) {
+
+ if(gMC->IsTrackEntering()) {
+ vol[2]=copy;
+ gMC->CurrentVolOffID(1,copy1);
+ vol[1]=copy1;
+ gMC->CurrentVolOffID(2,copy2);
+ vol[0]=copy2;
+
+ gMC->TrackPosition(pos);
+ hits[0]=pos[0];
+ hits[1]=pos[1];
+ hits[2]=pos[2];
+
+ gMC->TrackMomentum(mom);
+ hits[3]=mom[0];
+ hits[4]=mom[1];
+ hits[5]=mom[2];
+
+ iPart= gMC->TrackPid();
+ Int_t partId=gMC->IdFromPDG(iPart);
+ hits[7]=partId;
+ hits[8]=1e9*gMC->TrackTime();
+ de=0.;
+ }
+ Float_t edep = 1000 * gMC->Edep();
+ Float_t p = mom.P();
+ TParticlePDG* pdg = TDatabasePDG::Instance()->GetParticle(iPart);
+ Float_t mass = pdg ? pdg->Mass() : 1;
+ if (edep > 1 && p/mass > 1) {
+ TArrayI procs;
+ gMC->StepProcesses(procs);
+ TString processes;
+ for (Int_t ip = 0; ip < procs.fN; ip++) {
+ if (ip != 0) processes.Append(",");
+ processes.Append(TMCProcessName[procs.fArray[ip]]);
+ }
+ TString what;
+ if (gMC->IsTrackEntering()) what.Append("entering ");
+ if (gMC->IsTrackExiting()) what.Append("exiting ");
+ if (gMC->IsTrackInside()) what.Append("inside ");
+ if (gMC->IsTrackDisappeared()) what.Append("disappeared ");
+ if (gMC->IsTrackStop()) what.Append("stopped ");
+ if (gMC->IsNewTrack()) what.Append("new ");
+ if (gMC->IsTrackAlive()) what.Append("alive ");
+ if (gMC->IsTrackOut()) what.Append("out ");
+ Int_t trackno = gAlice->GetMCApp()->GetCurrentTrackNumber();
+ Int_t mother = gAlice->GetMCApp()->GetPrimary(trackno);
+ Warning("StepManager", "Track # %5d deposits a lot of energy\n"
+ " Volume: %s\n"
+ " Momentum: (%7.4f,%7.4f,%7.4f)\n"
+ " PDG: %d (%s)\n"
+ " Edep: %-14.7f keV (mother %d)\n"
+ " p/m: %-7.4f/%-7.4f = %-14.7f\n"
+ " Processes: %s\n"
+ " What: %s\n",
+ trackno, gMC->CurrentVolPath(), mom.X(), mom.Y(), mom.Z(),
+ iPart, (pdg ? pdg->GetName() : ""), edep, mother, mom.P(), mass,
+ mom.P()/mass, processes.Data(), what.Data());
+ }
+
+ if(gMC->IsTrackInside()) de=de+1000.*gMC->Edep();
+
+ if(gMC->IsTrackExiting() ||gMC->IsTrackDisappeared()|| gMC->IsTrackStop()){
+ hits[6]=de+1000.*gMC->Edep();
+ UShort_t detector = vol[0] / 2 + 1;
+ Char_t ring = (vol[0] % 2) == 0 ? 'I' : 'O';
+ UShort_t sector = vol[1];
+ UShort_t strip = vol[2];
+ AliFMDHit* h = new(lhits[fNhits++])
+ AliFMDHit(fIshunt,
+ gAlice->GetMCApp()->GetCurrentTrackNumber(),
+ detector, ring, sector, strip,
+ hits[0], hits[1], hits[2], hits[3], hits[4], hits[5],
+ hits[6], iPart, hits[8]);
+ } // IsTrackExiting()
+ }
+}
+//--------------------------------------------------------------------------
+
+void AliFMDAlla::Response( Float_t Edep)
+{
+ Float_t I=1.664*0.04*2.33/22400; // = 0.69e-6;
+ Float_t chargeOnly=Edep/I;
+ //Add noise ~500electrons
+ Int_t charge=500;
+ if (Edep>0)
+ charge=Int_t(gRandom->Gaus(chargeOnly,500));
+}
+
+
+
+
+
+