MUONrawcluster ready to compile

[u/mrichter/AliRoot.git] / MUON / AliMUONDigitizer.cxx

/**************************************************************************
 * Copyright(c) 1998-2000, 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$ */

#include <Riostream.h>
#include <TDirectory.h>
#include <TPDGCode.h>

#include "AliRunLoader.h"
#include "AliLoader.h"
#include <Riostream.h>

#include "AliMUONDigitizer.h"
#include "AliMUONConstants.h"
#include "AliMUONChamber.h"
#include "AliMUONHitMapA1.h"
#include "AliMUON.h"
#include "AliMUONChamber.h"
#include "AliMUONConstants.h"
#include "AliMUONDigit.h"
#include "AliMUONDigitizer.h"
#include "AliMUONHit.h"
#include "AliMUONHitMapA1.h"
#include "AliMUONPadHit.h"
#include "AliMUONTransientDigit.h"
#include "AliRun.h"
#include "AliRunDigitizer.h"

ClassImp(AliMUONDigitizer)

//___________________________________________
AliMUONDigitizer::AliMUONDigitizer() :AliDigitizer()
{
// Default ctor - don't use it
  fHits = 0;
  fPadHits = 0;
  fHitMap = 0;
  fTDList = 0;
}

//___________________________________________
AliMUONDigitizer::AliMUONDigitizer(AliRunDigitizer* manager) 
    :AliDigitizer(manager)
{
// ctor which should be used
  fHitMap  = 0;
  fTDList  = 0;
  fHits    = 0;
  fPadHits = 0;
  fDebug   = 0; 
  if (GetDebug()>2) 
    cerr<<"AliMUONDigitizer::AliMUONDigitizer"
       <<"(AliRunDigitizer* manager) was processed"<<endl;
}

//------------------------------------------------------------------------
AliMUONDigitizer::~AliMUONDigitizer()
{
// Destructor
  if (fHits)       delete fHits;
  if (fPadHits)    delete fPadHits;
}

//------------------------------------------------------------------------
Bool_t AliMUONDigitizer::Exists(const AliMUONPadHit *padhit) const
{
  return (fHitMap[fNch]->TestHit(padhit->PadX(),padhit->PadY()));
}

//------------------------------------------------------------------------
void AliMUONDigitizer::Update(AliMUONPadHit *padhit)
{
    AliMUONTransientDigit *pdigit = 
      static_cast<AliMUONTransientDigit*>(
      fHitMap[fNch]->GetHit(padhit->PadX(),padhit->PadY()));

    // update charge
    //
    Int_t iqpad    = padhit->QPad();        // charge per pad
    pdigit->AddSignal(iqpad);
    pdigit->AddPhysicsSignal(iqpad);              

    // update list of tracks
    //
    Int_t track, charge;    
    track = fTrack+fMask;
    if (fSignal) {
      charge = iqpad;
    } else {
      charge = kBgTag;
    }
    pdigit->UpdateTrackList(track,charge);
}

//------------------------------------------------------------------------
void AliMUONDigitizer::CreateNew(AliMUONPadHit *padhit)
{
// Create new AliMUONTransientDigit and add it to the fTDList

  fTDList->AddAtAndExpand(
    new AliMUONTransientDigit(fNch,fDigits),fCounter);
  fHitMap[fNch]->SetHit(padhit->PadX(),padhit->PadY(),fCounter);
  AliMUONTransientDigit* pdigit = 
    (AliMUONTransientDigit*)fTDList->Last();
  // list of tracks
  Int_t track, charge;    
  track = fTrack+fMask;
  if (fSignal) {
    charge = padhit->QPad();
  } else {
    charge = kBgTag;
  }
  pdigit->AddToTrackList(track,charge);
  fCounter++;
}


//------------------------------------------------------------------------
Bool_t AliMUONDigitizer::Init()
{
// Initialization 
    
  fHits     = new TClonesArray("AliMUONHit",1000);
  fPadHits  = new TClonesArray("AliMUONPadHit",1000);
  return kTRUE;
}


//------------------------------------------------------------------------
//void AliMUONDigitizer::Digitize()
void AliMUONDigitizer::Exec(Option_t* option)
{

  TString optionString = option;
  if (optionString.Data() == "deb") {
    cout<<"AliMUONDigitizer::Exec: called with option deb "<<endl;
    fDebug = 3;
  }
  AliMUONChamber*   iChamber;
  AliSegmentation*  segmentation;
  
  if (GetDebug()>2) cerr<<"   AliMUONDigitizer::Digitize() starts"<<endl;
  fTDList = new TObjArray;

  AliMUON *pMUON  = (AliMUON *) gAlice->GetModule("MUON");
  if (!pMUON) {
    cerr<<"AliMUONDigitizer::Digitize Error:"
       <<" module MUON not found in the input file"<<endl;
    return;
  }
  
  AliRunLoader *rl, *orl;
  AliLoader *gime, *ogime;
  orl = AliRunLoader::GetRunLoader(fManager->GetOutputFolderName());
  ogime = orl->GetLoader("MUONLoader");

  pMUON->MakeBranchInTreeD(ogime->TreeD());
  
  fHitMap= new AliMUONHitMapA1* [AliMUONConstants::NCh()];

  //
  // loop over cathodes
  //

  for (int icat = 0; icat < 2; icat++) { 
    fCounter = 0;
    for (Int_t i = 0; i < AliMUONConstants::NCh(); i++) {
      iChamber = &(pMUON->Chamber(i));
//      if (!(iChamber->Nsec() == 1 && icat == 1)) {
       segmentation = iChamber->SegmentationModel(icat+1);
       fHitMap[i] = new AliMUONHitMapA1(segmentation, fTDList);
//      }
    }


// Loop over files to digitize
    fSignal = kTRUE;
    for (Int_t inputFile=0; inputFile<fManager->GetNinputs();
        inputFile++) {
// Connect MUON branches

      if (inputFile > 0 ) fSignal = kFALSE;
      TBranch *branchHits = 0;
      TBranch *branchPadHits = 0;
      
      rl = AliRunLoader::GetRunLoader(fManager->GetInputFolderName(inputFile));
      gime = rl->GetLoader("MUONLoader");
    
      
      TTree *treeH = gime->TreeH();
      if (GetDebug()>2) {
       cerr<<"   inputFile , cathode = "<<inputFile<<" "
           <<icat<<endl;
       cerr<<"   treeH, fHits "<<treeH<<" "<<fHits<<endl;
      }
      if (treeH && fHits) {
       branchHits = treeH->GetBranch("MUON");
       if (branchHits) {
         fHits->Clear();
         branchHits->SetAddress(&fHits);
       }
       else
         Error("Exec","branch MUON was not found");
      }
      if (GetDebug()>2) cerr<<"   branchHits = "<<branchHits<<endl;

      if (treeH && fPadHits) {
       branchPadHits = treeH->GetBranch("MUONCluster");
       if (branchPadHits) 
         branchPadHits->SetAddress(&fPadHits);
       else
         Error("Exec","branch MUONCluster was not found");
      }
      if (GetDebug()>2) cerr<<"   branchPadHits = "<<branchPadHits<<endl;

//
//   Loop over tracks
//

      Int_t ntracks = (Int_t) treeH->GetEntries();

      for (fTrack = 0; fTrack < ntracks; fTrack++) {
       if (GetDebug()>2) cerr<<"   fTrack = "<<fTrack<<endl;
       fHits->Clear();
       fPadHits->Clear();
       branchHits->GetEntry(fTrack);
       branchPadHits->GetEntry(fTrack);
       
//
//   Loop over hits

       AliMUONHit* mHit;
       for(Int_t i = 0; i < fHits->GetEntriesFast(); ++i) {
         mHit = static_cast<AliMUONHit*>(fHits->At(i));
         fNch = mHit->Chamber()-1;  // chamber number
         if (fNch > AliMUONConstants::NCh()-1) {
           cerr<<"AliMUONDigitizer: ERROR: "
              <<"fNch > AliMUONConstants::NCh()-1, fNch, NCh(): "
              <<fNch<<", "<< AliMUONConstants::NCh()<<endl;
           return;
         }
         iChamber = &(pMUON->Chamber(fNch));
//
// Loop over pad hits
         for (AliMUONPadHit* mPad =
               (AliMUONPadHit*)pMUON->FirstPad(mHit,fPadHits);
              mPad;
              mPad = (AliMUONPadHit*)pMUON->NextPad(fPadHits))
         {
           Int_t cathode  = mPad->Cathode();      // cathode number
           Int_t ipx      = mPad->PadX();         // pad number on X
           Int_t ipy      = mPad->PadY();         // pad number on Y
           Int_t iqpad    = Int_t(mPad->QPad());  // charge per pad
           if (cathode != (icat+1)) continue;

           fMask = fManager->GetMask(inputFile);
           fDigits[0] = ipx;
           fDigits[1] = ipy;
           fDigits[2] = icat;
           fDigits[3] = iqpad;
           if (inputFile == 0) {
             fDigits[4] = iqpad;
           } else {
             fDigits[4] = 0;
           }
           if (mHit->Particle() == kMuonPlus ||
              mHit->Particle() == kMuonMinus) {
             fDigits[5] = (mPad->HitNumber()) + fMask; 
           } else fDigits[5] = -1;

           // build the list of fired pads and update the info, 
           // fDigits is input for Update(mPad)

           if (!Exists(mPad)) {
             CreateNew(mPad);
           } else {
             Update(mPad);
           } //  end if Exists(mPad)
         } //end loop over clusters
       } // hit loop
      } // track loop
    } // end file loop
    if (GetDebug()>2) cerr<<"END OF FILE LOOP"<<endl;

    Int_t tracks[kMAXTRACKS];
    Int_t charges[kMAXTRACKS];
    Int_t nentries = fTDList->GetEntriesFast();
       
    for (Int_t nent = 0; nent < nentries; nent++) {
      AliMUONTransientDigit *address = (AliMUONTransientDigit*)fTDList->At(nent);
      if (address == 0) continue; 
      Int_t ich = address->Chamber();
      Int_t   q = address->Signal(); 
      iChamber = &(pMUON->Chamber(ich));
//
//  Digit Response (noise, threshold, saturation, ...)
      AliMUONResponse * response = iChamber->ResponseModel();
      q = response->DigitResponse(q,address);
	    
      if (!q) continue;
           
      fDigits[0] = address->PadX();
      fDigits[1] = address->PadY();
      fDigits[2] = address->Cathode();
      fDigits[3] = q;
      fDigits[4] = address->Physics();
      fDigits[5] = address->Hit();
           
      Int_t nptracks = address->GetNTracks();

      if (nptracks > kMAXTRACKS) {
       if (GetDebug() >0) {
         cerr<<"AliMUONDigitizer: nptracks > 10 "<<nptracks;
         cerr<<"reset to max value "<<kMAXTRACKS<<endl;
       }
       nptracks = kMAXTRACKS;
      }
      if (nptracks > 2 && GetDebug() >2) {
       cerr<<"AliMUONDigitizer: nptracks > 2 "<<nptracks<<endl;
       printf("cat,ich,ix,iy,q %d %d %d %d %d \n",icat,ich,fDigits[0],fDigits[1],q);
      }
      for (Int_t tr = 0; tr < nptracks; tr++) {
       tracks[tr]   = address->GetTrack(tr);
       charges[tr]  = address->GetCharge(tr);
      }      //end loop over list of tracks for one pad
      // Sort list of tracks according to charge
      if (nptracks > 1) {
       SortTracks(tracks,charges,nptracks);
      }
      if (nptracks < kMAXTRACKS ) {
       for (Int_t i = nptracks; i < kMAXTRACKS; i++) {
         tracks[i]  = 0;
         charges[i] = 0;
       }
      }
           
      // fill digits
      pMUON->AddDigits(ich,tracks,charges,fDigits);
    }
    
//    fManager->GetTreeD()->Fill();
    ogime->TreeD()->Fill();


    pMUON->ResetDigits();  //
    fTDList->Clear();

       
    for(Int_t ii = 0; ii < AliMUONConstants::NCh(); ++ii) {
      if (fHitMap[ii]) {
       delete fHitMap[ii];
       fHitMap[ii] = 0;
      }
    }
  } //end loop over cathodes
  if (GetDebug()>2) 
    cerr<<"AliMUONDigitizer::Exec: writing the TreeD: "
       << ogime->TreeD()->GetName()<<endl;
  
   ogime->WriteDigits("OVERWRITE");
  
  delete [] fHitMap;
  delete fTDList;
    
  if (fHits)    fHits->Delete();
  if (fPadHits) fPadHits->Delete();
}


//------------------------------------------------------------------------
void AliMUONDigitizer::SortTracks(Int_t *tracks,Int_t *charges,Int_t ntr)
{
  //
  // Sort the list of tracks contributing to a given digit
  // Only the 3 most significant tracks are acctually sorted
  //
  
  //
  //  Loop over signals, only 3 times
  //
  
  Int_t qmax;
  Int_t jmax;
  Int_t idx[3] = {-2,-2,-2};
  Int_t jch[3] = {-2,-2,-2};
  Int_t jtr[3] = {-2,-2,-2};
  Int_t i,j,imax;
  
  if (ntr<3) imax=ntr;
  else imax=3;
  for(i=0;i<imax;i++){
    qmax=0;
    jmax=0;
    
    for(j=0;j<ntr;j++){
      
      if((i == 1 && j == idx[i-1]) 
        ||(i == 2 && (j == idx[i-1] || j == idx[i-2]))) continue;
      
      if(charges[j] > qmax) {
       qmax = charges[j];
       jmax=j;
      }       
    } 
    
    if(qmax > 0) {
      idx[i]=jmax;
      jch[i]=charges[jmax]; 
      jtr[i]=tracks[jmax]; 
    }
    
  } 
  
  for(i=0;i<3;i++){
    if (jtr[i] == -2) {
      charges[i]=0;
      tracks[i]=0;
    } else {
      charges[i]=jch[i];
      tracks[i]=jtr[i];
    }
  }
}