// -------------------------------------------------------------------------
// -----         PndLmdTrksFilterTask source file              -----
// -----       Created 06/05/13  by A.Karavdina               -----
// -------------------------------------------------------------------------
// libc includes
#include <iostream>

// Root includes
#include "TROOT.h"
#include "TClonesArray.h"
#include "TVector3.h"
#include <TMatrixDSym.h>


// framework includes
#include "FairRootManager.h"
#include "PndLmdTrksFilterTask.h"
#include "FairRun.h"
#include "FairRuntimeDb.h"
#include "FairHit.h"
//#include "PndMCTrack.h"
// #include "FairBaseParSet.h"
// #include "TGeant3.h"
// #include "FairTrackParH.h"
// #include "FairTrackParP.h"
// #include "TDatabasePDG.h"
#include "PndTrack.h"

// PndSds includes
#include "PndSdsMCPoint.h"
#include "PndSdsHit.h"
#include "PndSdsMergedHit.h"
//PndLmd includes
//#include "PndLinTrack.h"

#include <vector>
#include <map>


// -----   Default constructor   -------------------------------------------
PndLmdTrksFilterTask::PndLmdTrksFilterTask() : FairTask("Tracks filtering Task for PANDA Lmd"), fEventNr(0)
{
  fHitName="LMDHitsMerged";
  fMCHitName="LMDPoint";
  //  fClusterName = clusterBranch;
  //  fDigiName = digiBrunch;
  fTrkCandName = "LMDTrackCand";
  fTrkName="LMDPndTrack";
  fTrkOutName="LMDPndTrack";
}


// -----   Destructor   ----------------------------------------------------
PndLmdTrksFilterTask::~PndLmdTrksFilterTask()
{
}

// -----   Public method Init   --------------------------------------------
InitStatus PndLmdTrksFilterTask::Init()
{
 
  // Get RootManager
  FairRootManager* ioman = FairRootManager::Instance();
  if(ioman==0)
    {
      Error("PndLmdTrksFilterTask::Init","RootManager not instantiated!");
      return kERROR;
    }

  // Get input collection
  fMCHitArray=(TClonesArray*) ioman->GetObject(fMCHitName);
  if(fMCHitArray==0)
    {
      Error("PndLmdTrksFilterTask::Init","MC hit-array not found!");
      return kERROR;
    }

  fHitArray=(TClonesArray*) ioman->GetObject(fHitName);
  if(fHitArray==0)
    {
      Error("PndLmdTrksFilterTask::Init","hit-array not found!");
      return kERROR;
    }

  fTrkArray=(TClonesArray*) ioman->GetObject(fTrkName);
  if(fTrkArray==0)
    {
      Error("PndLmdTrksFilterTask::Init","track-array not found!");
      return kERROR;
    }

  fTrkCandArray=(TClonesArray*) ioman->GetObject(fTrkCandName);
  if(fTrkCandArray==0)
    {
      Error("PndLmdTrksFilterTask::Init","trk-cand--array not found!");
      return kERROR;
    }

  fTrkOutArray = new TClonesArray("PndTrack");
  ioman->Register("LMDPndTrack", "PndLmd", fTrkOutArray, kTRUE);

  // fClusterArray=(TClonesArray*) ioman->GetObject(fClusterName);
  // if(fClusterArray==0)
  //   {
  //     Error("PndLmdTrksFilterTask::Init","cluster-array not found!");
  //     return kERROR;
  //   }

  // fDigiArray=(TClonesArray*) ioman->GetObject(fDigiName);
  // if(fDigiArray==0)
  //   {
  //     Error("PndLmdTrksFilterTask::Init","digi-array not found!");
  //     return kERROR;
  //   }
  lmddim = PndLmdDim::Instance();
  return kSUCCESS;
}
// -------------------------------------------------------------------------


// -----   Public method Exec   --------------------------------------------
void PndLmdTrksFilterTask::Exec(Option_t* opt)
{
  if(fVerbose>4){
    cout<<""<<endl;
    cout<<"--------- New Event "<<fEventNr<<"--------"<<endl;
 }
 
  fTrkOutArray->Delete();
  //go through all tracks
  const unsigned int gll = fTrkArray->GetEntriesFast();
  int trksH0[gll];//hits on pl#0
  int trksH1[gll];//hits on pl#1
  int trksH2[gll];//hits on pl#2
  int trksH3[gll];//hits on pl#3
  vector<unsigned int> trkHn;//number of hits in trk
  vector<bool> trk_accept;
  vector<double> vchi2;
  int mcidtop[4][gll];
  int mcidbot[4][gll];
  for (unsigned int i = 0; i<gll;i++){ 
    trksH0[i]=-1;
    trksH1[i]=-1;
    trksH2[i]=-1;
    trksH3[i]=-1;
    for(unsigned int j=0;j<4;j++){
      mcidtop[j][i] = -1;
      mcidbot[j][i] = -1;
    }
  }
  //fill vectors with trks hits
  for (unsigned int i = 0; i<gll;i++){ 
    PndTrack* trkpnd = (PndTrack*)(fTrkArray->At(i));
    double chi2 = trkpnd->GetChi2();
    vchi2.push_back(chi2);
    trk_accept.push_back(true);
    int candID = trkpnd->GetRefIndex();
    PndTrackCand *trkcand = (PndTrackCand*)fTrkCandArray->At(candID);    
    const unsigned int Ntrkcandhits= trkcand->GetNHits();
    trkHn.push_back(Ntrkcandhits);
    for (Int_t iHit = 0; iHit < Ntrkcandhits; iHit++){ // loop over rec.hits
      PndTrackCandHit candhit = (PndTrackCandHit)(trkcand->GetSortedHit(iHit));
      Int_t hitID = candhit.GetHitId();
      //      PndSdsHit* myHit = (PndSdsHit*)(fHitArray->At(hitID));
      PndSdsMergedHit* myHit = (PndSdsMergedHit*)(fHitArray->At(hitID));
      Int_t sensid = myHit->GetSensorID();
      int ihalf,iplane,imodule,iside,idie,isensor;
      lmddim->Get_sensor_by_id(sensid,ihalf,iplane,imodule,iside,idie,isensor);
      // if(fVerbose>4){
      // 	cout<<"trk# "<<i<<" plane#"<<iplane<<endl;
      // }
      switch(iplane)
	{
	case 0:
	  trksH0[i]=hitID;
	  break;
	case 1:
	  trksH1[i]=hitID;
	  break;
	case 2:
	  trksH2[i]=hitID;
	  break;
	case 3:
	  trksH3[i]=hitID;
	  break;
	default:
	  trksH0[i]=-1;
	  trksH1[i]=-1;
	  trksH2[i]=-1;
	  trksH3[i]=-1;
	  break;
	}
      int mcrefbot = myHit->GetSecondMCHit();
      if(mcrefbot>0){
      PndSdsMCPoint* MCPointBot = (PndSdsMCPoint*)(fMCHitArray->At(mcrefbot));
      int MCtrkid = MCPointBot->GetTrackID();
      mcidbot[iplane][i] = MCtrkid;
      }
      else{
	mcidbot[iplane][i] = -1;
      }
      int mcreftop = myHit->GetRefIndex();
      if(mcreftop>0){
      PndSdsMCPoint* MCPointTop = (PndSdsMCPoint*)(fMCHitArray->At(mcreftop));
      int MCtrkid = MCPointTop->GetTrackID();
      mcidtop[iplane][i] = MCtrkid;
      }
      else{
	mcidtop[iplane][i] = -1;
      }
      if(mcidbot[iplane][i]>0 && mcidtop[iplane][i]>0){
	if(mcidtop[iplane][i]!=mcidbot[iplane][i])
	  cout<<"Attention! mcidtop!=mcidbot: for trk#"<<i<<" "<<mcidtop[iplane][i]<<" "<<mcidbot[iplane][i]<<endl;
      }
    }
  }
  //compare trks on hit level
  for (unsigned int i = 0; i<gll;i++){ 
    if(!trk_accept[i]) continue;
    for (unsigned int j = i+1; j<gll;j++){ 
      if(!trk_accept[j]) continue;
    int coundduphit=4;//count dublicate hits
      if(trksH0[i]!=trksH0[j]) coundduphit--;
      if(trksH1[i]!=trksH1[j]) coundduphit--;
      if(trksH2[i]!=trksH2[j]) coundduphit--;
      if(trksH3[i]!=trksH3[j]) coundduphit--;
      if(fVerbose>4){
	cout<<" trk#"<<i<<": "<<trksH0[i]<<"("<<mcidbot[0][i]<<")"<<"("<<mcidtop[0][i]<<")"<<" trk#"<<j<<": "<<trksH0[j]<<"("<<mcidbot[0][j]<<")"<<"("<<mcidtop[0][j]<<")"<<endl;
	cout<<" trk#"<<i<<": "<<trksH1[i]<<"("<<mcidbot[1][i]<<")"<<"("<<mcidtop[1][i]<<")"<<" trk#"<<j<<": "<<trksH1[j]<<"("<<mcidbot[1][j]<<")"<<"("<<mcidtop[1][j]<<")"<<endl;
	cout<<" trk#"<<i<<": "<<trksH2[i]<<"("<<mcidbot[2][i]<<")"<<"("<<mcidtop[2][i]<<")"<<" trk#"<<j<<": "<<trksH2[j]<<"("<<mcidbot[2][j]<<")"<<"("<<mcidtop[2][j]<<")"<<endl;
	cout<<" trk#"<<i<<": "<<trksH3[i]<<"("<<mcidbot[3][i]<<")"<<"("<<mcidtop[3][i]<<")"<<" trk#"<<j<<": "<<trksH3[j]<<"("<<mcidbot[3][j]<<")"<<"("<<mcidtop[3][j]<<")"<<endl;
	cout<<" dublicate: "<<coundduphit<<endl;
      }
      if(coundduphit>1){// if 2 and more hits are similar
	if(trkHn[i]>trkHn[j]){ //take trk with higher number of hits
	  trk_accept[i]=true;
	  trk_accept[j]=false;
	}
	else{
	  if(trkHn[i]<trkHn[j]){ //take trk with higher number of hits
	    trk_accept[i]=false;
	    trk_accept[j]=true;
	  }
	  else{
	    if(vchi2[i]>vchi2[j]){
	      trk_accept[i]=false;
	      trk_accept[j]=true;
	    }
	    else{
	      trk_accept[i]=true;
	      trk_accept[j]=false;
	    }
	  }
	}
	if(fVerbose>4){
	  cout<<" trk#"<<i<<": has "<<trkHn[i]<<"hits;  trk#"<<j<<": has "<<trkHn[j]<<" hits"<<endl;
	  cout<<" trk#"<<i<<" has chi2="<<vchi2[i]<<" "<<" trk#"<<j<<" has chi2="<<vchi2[j]<<endl;
	  if(trk_accept[i]) cout<<" trk#"<<i<<" accepted"<<endl;
	  if(trk_accept[j]) cout<<" trk#"<<j<<" accepted"<<endl;
	}
      }
    }
  }
  //save good trks
  int rec_trk=0;
  for (unsigned int i = 0; i<gll;i++){ 
    if(trk_accept[i]){
      if(fVerbose>4){
	cout<<" trk#"<<i<<" accepted wit "<<"MChit:("
	    <<mcidtop[0][i]<<", "<<mcidtop[1][i]<<", "<<mcidtop[2][i]<<", "<<mcidtop[3][i]<<")"<<endl;
      }
      PndTrack* trkpnd = (PndTrack*)(fTrkArray->At(i));
      new((*fTrkOutArray)[rec_trk]) PndTrack(*(trkpnd)); //save Track
      rec_trk++;
    }
  }
  if(fVerbose>2) cout<<"Ev#"<<fEventNr<<": "<<rec_trk<<" trks saved out of "<<gll<<endl;
  //some MC infor for check ------
  if(rec_trk!=7){ //test with 7 trks/event
  const int numHITS = fHitArray->GetEntriesFast();
  cout<<"MC trks in rec.Hits:"<<endl;
  int plprev=0;
  for(int iHit = 0;iHit<numHITS;iHit++){
    PndSdsMergedHit* myHit = (PndSdsMergedHit*)(fHitArray->At(iHit));
    Int_t sensid = myHit->GetSensorID();
    int ihalf,iplane,imodule,iside,idie,isensor;
    lmddim->Get_sensor_by_id(sensid,ihalf,iplane,imodule,iside,idie,isensor);
    if(iplane!=plprev){
      cout<<""<<endl;
      plprev = iplane;
    }
    cout<<"pl"<<iplane<<": ";
    int mcrefbot = myHit->GetSecondMCHit();
      if(mcrefbot>0){
      PndSdsMCPoint* MCPointBot = (PndSdsMCPoint*)(fMCHitArray->At(mcrefbot));
      int MCtrkid = MCPointBot->GetTrackID();
      cout<<MCtrkid<<" ("<<mcrefbot<<")";
      }
      int mcreftop = myHit->GetRefIndex();
      if(mcreftop>0){
      PndSdsMCPoint* MCPointTop = (PndSdsMCPoint*)(fMCHitArray->At(mcreftop));
      int MCtrkid = MCPointTop->GetTrackID();
      cout<<MCtrkid<<" ("<<mcreftop<<")";
      }
      cout<<";   ";
  }
  cout<<""<<endl;
  }
  //end MC info -----------------------

  if(fVerbose>2) cout<<"PndLmdTrksFilterTask::Exec END!"<<endl;
  fEventNr++;
}

void PndLmdTrksFilterTask::FinishTask()
{
}

ClassImp(PndLmdTrksFilterTask);