[u/mrichter/AliRoot.git] / FMD / AliFMDAlla.cxx

/**************************************************************************
 * 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)
#if 0
  ;
#endif

//--------------------------------------------------------------------
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;
  AliDebug(1, Form("Support width: %f", wideSupport));

  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]);
      if (hits[6] > 1 && p/mass > 1) fBad->Add(h);
    } // 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));	
}   
//--------------------------------------------------------------------------
//
// EOF
//
Commit	Line	Data
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
	52	ClassImp(AliFMDAlla)
54e415a8	53	#if 0
	54	;
	55	#endif
f4ee3d57	56
54e415a8	57	//--------------------------------------------------------------------
	58	AliFMDAlla::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	72	void
54e415a8	73	AliFMDAlla::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+3zPCB+2NylonTube[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]+2zSi+2zPCB+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	290	void
54e415a8	291	AliFMDAlla::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	341	void
54e415a8	342	AliFMDAlla::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	369	void
54e415a8	370	AliFMDAlla::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	384	void
54e415a8	385	AliFMDAlla::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	489	void
54e415a8	490	AliFMDAlla::Response(Float_t Edep)
f4ee3d57	491	{
	492	Float_t I=1.6640.042.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