/**************************************************************************
 * 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.                  *
 **************************************************************************/
//_________________________________________________________________________
// Cheking PHOSHistos procedure of PHOS
//*-- Author : Gines MARTINEZ  SUBATECH january 2000
//////////////////////////////////////////////////////////////////////////////

// --- ROOT system ---
#include "TCanvas.h"
#include "TFile.h"
#include "TH1.h"
#include "TPad.h"
#include "TTree.h"

// --- Standard library ---

#include <iostream>
#include <cstdio>


// --- AliRoot header files ---
#include "AliRun.h"
#include "TFile.h"
#include "AliPHOSGeometry.h"
#include "AliPHOSv0.h"
#include "AliPHOSDigit.h"
#include "AliPHOSRecPoint.h"
#include "AliPHOSEmcRecPoint.h"
#include "AliPHOSPpsdRecPoint.h"
#include "AliPHOSClusterizerv1.h"
#include "AliPHOSReconstructioner.h"
#include "AliPHOSTrackSegment.h"
#include "AliPHOSTrackSegmentMakerv1.h"
#include "AliPHOSPIDv1.h"
#include "PHOSHistos.h"


void PHOSHistos (Text_t* infile, Int_t nevent, Int_t Module)  
{
//========== Opening galice.root file  
  TFile * file   = new TFile(infile); 
//========== Get AliRun object from file 
  gAlice = (AliRun*) file->Get("gAlice");//=========== Gets the PHOS object and associated geometry from the file 

  AliPHOSv0 * PHOS  = (AliPHOSv0 *)gAlice->GetDetector("PHOS");
  AliPHOSGeometry * Geom = AliPHOSGeometry::GetInstance(PHOS->GetGeometry()->GetName(),PHOS->GetGeometry()->GetTitle());
//========== Creates the track segment maker
  AliPHOSTrackSegmentMakerv1 * tracksegmentmaker = new AliPHOSTrackSegmentMakerv1() ;
  //========== Creates the particle identifier
  AliPHOSPIDv1 * particleidentifier = new AliPHOSPIDv1 ;
  Info("PHOSHistos", "AnalyzeOneEvent > using particle identifier %s\n", particleidentifier->GetName() ) ; 
    
  TH1F * hEmcDigit       = new TH1F("hEmcDigit","hEmcDigit",1000,0.,5.);
  TH1F * hVetoDigit      = new TH1F("hVetoDigit","hVetoDigit",1000,0.,3.e-5);
  TH1F * hConvertorDigit = new TH1F("hConvertorDigit","hConvertorDigit",1000,0.,3.e-5);
  TH1F * hEmcCluster       = new TH1F("hEmcCluster","hEmcCluster",1000,-5.,5.);
  TH1F * hVetoCluster      = new TH1F("hVetoCluster","hVetoCluster",1000,0.,3.e-5);
  TH1F * hConvertorCluster = new TH1F("hConvertorCluster","hConvertorCluster",1000,0.,3.e-5);
  TH2F * hConvertorEmc = new TH2F("hConvertorEmc","hConvertorEmc",100,2.,3., 100, 0., 1.e-5);

  AliPHOSDigit * digit ;

//========== Loop on events
  Int_t ievent;
  for(ievent=0;ievent<nevent; ievent++)
  { 
//========== Creates the Clusterizer
    AliPHOSClusterizerv1 * clusterizer = new AliPHOSClusterizerv1() ; 
    clusterizer->SetEmcEnergyThreshold(0.01) ; 
    clusterizer->SetEmcClusteringThreshold(0.1) ; 
    clusterizer->SetPpsdEnergyThreshold(0.00000005) ; 
    clusterizer->SetPpsdClusteringThreshold(0.00000005) ; 
    clusterizer->SetLocalMaxCut(0.03) ;
    clusterizer->SetCalibrationParameters(0., 0.00000001) ;

  //========== Creates the Reconstructioner  
    AliPHOSReconstructioner * Reconstructioner = new AliPHOSReconstructioner(clusterizer, tracksegmentmaker, particleidentifier) ;
     
    Info("PHOSHistos", "Event %d\n", ievent);

    Int_t RelId[4] ;
    //=========== Connects the various Tree's for evt
    gAlice->GetEvent(ievent);
    //=========== Gets the Digit TTree
    gAlice->TreeD()->GetEvent(0) ;     
    //=========== Gets the number of entries in the Digits array
    //    Int_t nId = PHOS->Digits()->GetEntries();      
    TIter next(PHOS->Digits()) ;
    Float_t Etot=0 ;
    Int_t nVeto=0 ;
    Int_t nConvertor=0 ;

    while( ( digit = (AliPHOSDigit *)next() ) )
    {
       Etot+=clusterizer->Calibrate(digit->GetAmp()) ;
       Geom->AbsToRelNumbering(digit->GetId(), RelId) ;        

       if (clusterizer->IsInEmc(digit))
       {   hEmcDigit->Fill(clusterizer->Calibrate(digit->GetAmp())) ; }
       else    
       {  
	 if (RelId[1]==9) {nVeto++; hVetoDigit->Fill(clusterizer->Calibrate(digit->GetAmp()));} 
	 if (RelId[1]==25) {nConvertor++; hConvertorDigit->Fill(clusterizer->Calibrate(digit->GetAmp()));}
       }
    }
   
     PHOS->Reconstruction(Reconstructioner); 
 
//=========== Cluster in Module
     TClonesArray * EmcRP = PHOS->EmcClusters() ;
     TIter nextemc(EmcRP) ;
     AliPHOSEmcRecPoint * emc ;
     Float_t Energy;
     while((emc = (AliPHOSEmcRecPoint *)nextemc())) 
     {
       if ( emc->GetPHOSMod() == Module )
       {  
         Energy = emc->GetEnergy() ;
	 hEmcCluster->Fill(Energy); 
         printf("Energy of the EMC cluster is %f \n",Energy);
	 TClonesArray * PpsdRP = PHOS->PpsdClusters() ;
	 TIter nextPpsd(PpsdRP) ;
	 AliPHOSPpsdRecPoint * Ppsd ;
	 Float_t Energy2;
	 while((Ppsd = (AliPHOSPpsdRecPoint *)nextPpsd())) 
	   {
	     if ( Ppsd->GetPHOSMod() == Module )
	       { 
		 Energy2 = Ppsd->GetEnergy() ;
		 
		 if (!Ppsd->GetUp()) hConvertorEmc->Fill(Energy,Energy2) ;
	       }
	   }
    
       }
     }
 
    //=========== Cluster in Module PPSD Down
     TClonesArray * PpsdRP = PHOS->PpsdClusters() ;
     TIter nextPpsd(PpsdRP) ;
     AliPHOSPpsdRecPoint * Ppsd ;
     while((Ppsd = (AliPHOSPpsdRecPoint *)nextPpsd())) 
     {
       if ( Ppsd->GetPHOSMod() == Module )
       { 
         Energy = Ppsd->GetEnergy() ;

	 if (!Ppsd->GetUp()) hConvertorCluster->Fill(Energy) ;
	 if (Ppsd->GetUp()) hVetoCluster->Fill(Energy) ;
   
       }
     }
  } 

  TCanvas * cVetoDigit = new TCanvas("VetoDigit","VetoDigit");  
  hVetoDigit->Draw();
  TCanvas * cConvertorDigit = new TCanvas("ConvertorDigit","ConvertorDigit");  
  hConvertorDigit->Draw();
  TCanvas * cEmcDigit = new TCanvas("EmcDigit","EmcDigit");  
  hEmcDigit->Draw();
  TCanvas * cVetoCluster = new TCanvas("VetoCluster","VetoCluster");  
  hVetoCluster->Draw();
  TCanvas * cConvertorCluster = new TCanvas("ConvertorCluster","ConvertorCluster");  
  hConvertorCluster->Draw();
  TCanvas * cEmcCluster = new TCanvas("EmcCluster","EmcCluster");  
  hEmcCluster->Draw();
  TCanvas * cConvertorEmc = new TCanvas("ConvertorEmc","ConvertorEmc");  
  hConvertorEmc->Draw("col1");


}