//*-- Author : B. Spruck
//*-- Modified : 2005-04-25
//*-- Modified : 22 Dec 2005
//_HADES_CLASS_DESCRIPTION 
////////////////////////////////////////////////////////////////////////
//
// HHypPPProjector
//
// HHypPPProjector projects any PP data. At the moment output contains
// delta_phi and missing_mass.
// Connects for example to HHypPPXAlg or HHypPPElasticAlg.
//
////////////////////////////////////////////////////////////////////////

using namespace std;

#include <stdlib.h>
#include <stdio.h>
#include <iostream>

#include "hevent.h"
#include "heventheader.h"
#include "hdetector.h"
#include "hratreeext.h"
#include "hcategory.h"
#include "hmatrixcategory.h"
#include "hlinearcategory.h"
#include "hlinearcatiter.h"
#include "hlocation.h"
#include "hiterator.h"
#include "hdebug.h"
#include "hades.h"

#include "hhypPPProjector.h"
#include "hhyplist.h"
#include "hhypchannel.h"
#include "hypinfodef.h"

ClassImp(HHypPPProjector)

 HHypPPProjector::HHypPPProjector(char *name_i, Option_t par[])
  :HHypBaseAlgorithm(name_i,par)
{
  simuflag = 0;
}

 HHypPPProjector::~HHypPPProjector()
{
}

 Bool_t HHypPPProjector::execute()
{
  if (!beam) {
    cerr << algoName << " needs beam particle! " << endl;
    return kFALSE;
  }
  
  HEventHeader *evHeader = gHades->getCurrentEvent()->getHeader();
  
	// The next few line calculate the number of particles
	// in PidPart(icle) .. minus 2 should give the number of fakes
	// *BEWARE*
	// This is only true if no additional Flags are  used by the
	// filler (Chi2 Cuts, Ring matching, doubles...)

	Int_t fakes;// Only one time per Event
	m_pContItPart->Reset();
	fakes=0;
	while ( m_pContItPart->Next() != NULL) fakes++;
	fakes-=2;

  // Resetting the list and start looping over the combinations
  // Loop is only done over the VALID combinations
  mylist->CombIteratorReset();
  while (mylist->CombIterator()) {

    // Getting the particles
    TLorentzVector proton1 = mylist->getTLorentzVector("p", 1);
    TLorentzVector proton2 = mylist->getTLorentzVector("p", 2);

    if (mylist->getIterStatus() == kTRUE) {

      // calculating missing mass
      TLorentzVector pp_miss = (*beam) - (proton1 + proton2);

      Double_t prob = mylist->getProbAlg();

      miss->Fill(pp_miss.M2(), fabs(proton1.Phi() - proton2.Phi()), prob);

      if (evHeader) {
			UInt_t downscalingFlag = evHeader->getDownscalingFlag();
			UInt_t triggerDecision = evHeader->getTriggerDecision();
			header->Fill(downscalingFlag,triggerDecision,fakes);
      }
    } else
      cerr << algoName << " got no TLorentzVector " << endl;

  }

  return kTRUE;
}

 Bool_t HHypPPProjector::init()
{
	
  simCat = gHades->getCurrentEvent()->getCategory(catGeantKine);

  if (!simCat) {
    simuflag = 0;
  } else {
    simuflag = 1;
    //cout << "Projector uses SIMULATION" << endl;

    CatPartSim = NULL;          // Category

    if ((CatPartSim =
         gHades->getCurrentEvent()->getCategory(catPidPart)) == NULL) {
      Error("init", "Cannot get catPidPartSim cat");
      return kFALSE;
    }
  }

  // need to get name from channel
  TString input(channel->Get(initList));

  miss =
    new TNtuple(input + TString("_proj"), "PP Demo ntuple",
                "pp_miss:pp_dphi:fProbAlg");

  header = new TNtuple(input + TString("_hdr"), "Header info",
		     "downscalingFlag:triggerDecision:fakes");

	//---------- Initialization of HPidParticle Container -----------------------
	m_pContItPart = NULL;         // Iterator
	
	HCategory      *m_pContCatPart= NULL;        // Category
	
	if ((m_pContCatPart =
		gHades->getCurrentEvent()->getCategory(catPidPart)) == NULL) {
		Error("init", "Cannot get catPidPart cat");
		return kFALSE;
	}
	m_pContItPart = (HIterator *) m_pContCatPart->MakeIterator();
	//-----------------------------------------------------------------------
	
	return kTRUE;
}

 Bool_t HHypPPProjector::reinit()
{
  return kTRUE;
}

 Bool_t HHypPPProjector::finalize()
{
  miss->Write();
  header->Write();
  return kTRUE;
}