/**************************************************************************
 * 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$ */

// --------------------------
// Class AliMUONDetElement
// --------------------------
// Detection element object containing information for combined 
// cluster / track finder in the MUON arm 
// Author: Alexander Zinchenko, JINR Dubna
 
#include "AliMUONDetElement.h"
#include "AliMUON.h"
#include "AliMUONSegmentation.h"
#include "AliMUONDigit.h"
#include "AliMUONHitMapA1.h"
#include "AliMUONData.h"
#include "AliMUONRawCluster.h"
#include "AliMUONHitForRec.h"
#include "AliMUONClusterInput.h"
#include "AliMUONClusterFinderAZ.h"
#include "AliMUONGeometryModuleTransformer.h" 
#include "AliMUONVGeometryDESegmentation.h" 
#include "AliMpVSegmentation.h" 

#include "AliRun.h"
#include "AliLog.h"

#include <TObjArray.h>
#include <TClonesArray.h>
#include <TVector2.h> 

/// \cond CLASSIMP
ClassImp(AliMUONDetElement) // Class implementation in ROOT context
/// \endcond
  FILE *lun = 0x0; //fopen("hitmap.dat","w");

//_________________________________________________________________________
AliMUONDetElement::AliMUONDetElement()
  : TObject(),
    fidDE(0),
    fIndex(0),
    fChamber(0),
    fZ(0.),
    fNHitsForRec(0),
    fRawClus(0x0),
    fHitsForRec(0x0),
    fRecModel(0x0)
{
  /// Default constructor
  for (Int_t i = 0; i < 2; i++) {
    fHitMap[i] = NULL;
    fDigits[i] = NULL;
    fSeg[i] = NULL;
  }
} 

//_________________________________________________________________________
AliMUONDetElement::AliMUONDetElement(Int_t idDE, AliMUONDigit *dig, AliMUONClusterFinderAZ *recModel) 
  : TObject(),
    fidDE(idDE),
    fIndex(0),
    fChamber(idDE / 100 - 1),
    fZ(0.),
    fNHitsForRec(0),
    fRawClus(new TObjArray(10)),
    fHitsForRec(new TObjArray(10)),
    fRecModel(recModel)
{
  /// Constructor
  fRawClus->SetOwner(kTRUE);
  fHitsForRec->SetOwner(kTRUE);
  fDigits[0] = new TObjArray(20);
  fDigits[1] = new TObjArray(20);
  fDigits[0]->SetOwner(kTRUE);
  fDigits[1]->SetOwner(kTRUE);
  AliMUON *pMUON = (AliMUON*) gAlice->GetModule("MUON");
  AliMUONSegmentation *pSegmentation = pMUON->GetSegmentation();
  fSeg[0] = pSegmentation->GetModuleSegmentationByDEId(idDE, 0);
  fSeg[1] = pSegmentation->GetModuleSegmentationByDEId(idDE, 1);
  /*
  Float_t x, y, z;
  fSeg[dig->Cathode()]->GetPadC(fidDE, dig->PadX(), dig->PadY(), x, y, z);
  fZ = z;
  */
  AddDigit(dig);
}

//_________________________________________________________________________
AliMUONDetElement::~AliMUONDetElement()
{
  /// Destructor

  for (Int_t i = 0; i < 2; i++) {
    delete fHitMap[i]; 
    delete fDigits[i]; 
  }
  delete fRawClus;
  for (Int_t i = 0; i < fNHitsForRec; i++) {
    Int_t ntracks = ((AliMUONHitForRec*)fHitsForRec->UncheckedAt(i))->GetNTrackHits();
    //cout << ntracks << endl;
    if (ntracks) fHitsForRec->RemoveAt(i);
  }
  delete fHitsForRec;
  //fHitsForRec->SetOwner(kFALSE);
  //fHitsForRec->Clear(); cout << " here " << fHitsForRec->GetEntriesFast() << endl; delete fHitsForRec; fHitsForRec = 0;
}

//_________________________________________________________________________
Int_t AliMUONDetElement::Compare(const TObject* detElem) const
{
  /// "Compare" function to sort in Z (towards interaction point)
  /// Returns -1 (0, +1) if charge of current pixel
  /// is greater than (equal to, less than) charge of pixel
  if (fZ > ((AliMUONDetElement*)detElem)->Z()) return(+1);
  else if (fZ == ((AliMUONDetElement*)detElem)->Z()) return( 0);
  else return(-1);
}

//_________________________________________________________________________
void AliMUONDetElement::Fill(AliMUONData */*data*/)
{
  /// Fill hit maps
  fLeft[0] = fDigits[0]->GetEntriesFast();
  fLeft[1] = fDigits[1]->GetEntriesFast();

  Int_t  npx0  = fSeg[0]->Npx(fidDE)+1;
  Int_t  npy0  = fSeg[0]->Npy(fidDE)+1;
  fHitMap[0] = new AliMUONHitMapA1(npx0, npy0, fDigits[0]);
  fHitMap[0]->FillHits();

  Int_t  npx1  = fSeg[1]->Npx(fidDE)+1;
  Int_t  npy1  = fSeg[1]->Npy(fidDE)+1;
  fHitMap[1] = new AliMUONHitMapA1(npx1, npy1, fDigits[1]);
  fHitMap[1]->FillHits();

  // The part below is just for debugging (fill rec. points already found)
  /*
  fLeft[0] = fLeft[1] = 0;
  TClonesArray *rawClus = data->RawClusters(fChamber);
  cout << rawClus << " " << rawClus->GetEntriesFast() << endl;
  for (Int_t i = 0; i < rawClus->GetEntriesFast(); i++) {
    AliMUONRawCluster *recP = (AliMUONRawCluster*) rawClus->UncheckedAt(i);
    cout << fChamber << " " << recP->GetZ(0) << " " << recP->GetZ(1) << " " << fZ << endl;
    if (TMath::Abs(recP->GetZ(0)-fZ) > 0.5) continue;
    if (!Inside(recP->GetX(0), recP->GetY(0), recP->GetZ(0))) continue;
    AddHitForRec(recP); // add hit for rec.
    rawClus->RemoveAt(i); // remove
  }
  cout << fHitsForRec->GetEntriesFast() << endl;
  rawClus->Compress();
  */
}

//_________________________________________________________________________
void AliMUONDetElement::AddDigit(AliMUONDigit *dig)
{
  /// Add digit

  //fDigits[dig->Cathode()]->Add(dig);
  fDigits[dig->Cathode()]->Add(new AliMUONDigit(*dig));
  Float_t x, y, z;
  fSeg[dig->Cathode()]->GetPadC(fidDE, dig->PadX(), dig->PadY(), x, y, z);
  fZ += z;
  /*
  Int_t ndig = fDigits[dig->Cathode()]->GetEntriesFast();
  new((*fDigits[dig->Cathode()])[ndig]) AliMUONDigit(*dig);
  */
}

//_________________________________________________________________________
Bool_t AliMUONDetElement::Inside(Double_t x, Double_t y, Double_t z, Double_t dx, Double_t dy) const
{
  /// Check if point is inside detection element

  dx = TMath::Max (dx, 1.);
  dy = TMath::Max (dy, 1.);
  Int_t ix, iy;
  ix = iy = 0;
  Double_t xl, yl, zl;
  for (Int_t i = 0; i < 2; i++) {
    if (!fSeg[i]) continue;
    if (i == 0 || fSeg[0] == 0x0) {
      fSeg[i]->GetTransformer()->Global2Local(fidDE, x, y, z, xl, yl, zl);
      //cout << xl << " " << yl << " " << zl << endl;
      if (TMath::Abs (zl) > 0.5) return kFALSE;
      //if (fChamber < 4 && (xl < 0 || yl < 0)) return kFALSE;
    }
    fSeg[i]->GetPadI(fidDE, x, y, z, ix, iy);
    //cout << x << " " << y << " " << z << " " << fChamber << " " << ix << " " << iy << " " << fSeg[i]->Npx(fidDE) << " " << fSeg[i]->Npy(fidDE) /*<< " " << fSeg[i]->GetPadI(fidDE, x, y, z, ix, iy)*/ << " " << fSeg[i]->HasPad(fidDE, (Float_t)x, (Float_t)y, (Float_t)z) << endl; 
    //if (ix > 0 && iy > 0 && ix <= fSeg[i]->Npx(fidDE) && iy <= fSeg[i]->Npy(fidDE)) return kTRUE;
    if (fSeg[i]->HasPad(fidDE, (Float_t)x, (Float_t)y, (Float_t)z)) return kTRUE;
  }
  //Double_t xl, yl, zl;
  //fSeg[0]->GetTransformer()->Global2Local(fidDE, x, y, z, xl, yl, zl);
  //cout << xl << " " << yl << " " << zl << endl;

  Int_t cath = fSeg[0] ? 0 : 1;
  const AliMpVSegmentation *mpSeg = fSeg[cath]->GetDESegmentation(fidDE)->GetMpSegmentation();
  TVector2 dim = mpSeg->Dimensions(); 
  if (fChamber < 4) dim *= 2.; // quadrants
  //cout << fChamber << " " << dim.X() << " " << dim.Y() << endl;
  if (TMath::Abs (xl) - dim.X() > dx) return kFALSE;
  if (TMath::Abs (yl) - dim.Y() > dy) return kFALSE;

  Int_t flagX = 0, flagY = 0;
  if (TMath::Abs (xl) - dim.X() < -2) flagX = 1;
  if (TMath::Abs (yl) - dim.Y() < -2) flagY = 1;
  if (flagX && flagY) flagX = flagY = 0; // both coordinates "inside" det. elem. limits

  // Check for edge effect (extrapolated track "right outside" det. elem. boundaries 
  // (+- dx * cath in X and Y)
  dx /= 2;
  dy /= 2;
  for (Int_t i = 0; i < 2; i++) {
    if (!fSeg[i]) continue;
    for (Int_t idx = -1; idx < 2; idx++) {
      if (flagX && idx) continue;
      Double_t x1 = x + dx * idx * (i + 1);
      for (Int_t idy = -1; idy < 2; idy++) {
	if (idx == 0 && idy == 0) continue;
	if (flagY && idy) continue;
	Double_t y1 = y + dy * idy * (i + 1);
	fSeg[i]->GetPadI(fidDE, x1, y1, z, ix, iy);
	//cout << x1 << " " << y1 << " " << z << " " << fChamber << " " << ix << " " << iy << " " << fSeg[i]->Npx(fidDE) << " " << fSeg[i]->Npy(fidDE) /*<< " " << fSeg[i]->GetPadI(fidDE, x, y, z, ix, iy)*/ << " " << fSeg[i]->HasPad(fidDE, (Float_t)x1, (Float_t)y1, (Float_t)z) << endl; 
	//if (ix > 0 && iy > 0 && ix <= fSeg[i]->Npx(fidDE) && iy <= fSeg[i]->Npy(fidDE)) return kTRUE;
	if (fSeg[i]->HasPad(fidDE, (Float_t)x1, (Float_t)y1, (Float_t)z)) return kTRUE;
      }
    }
  }
  return kFALSE;
}

//_________________________________________________________________________
void AliMUONDetElement::ClusterReco(Double_t xTrack, Double_t yTrack, Double_t dx, Double_t dy)
{
  /// Run cluster reconstruction around point (x,y) inside window (dx,dy)

  if (fLeft[0] == 0 && fLeft[1] == 0) return; // all digits have been used 
  AliMUONClusterInput::Instance()->SetDigits(fChamber, fidDE, 
             (TClonesArray*)fDigits[0], (TClonesArray*)fDigits[1]);

  // Mark used pads
  for (Int_t cath = 0; cath < 2; cath++) {
    Int_t ndig = fDigits[cath]->GetEntriesFast();
    if (ndig == 0) continue; // empty cathode
    //cout << fidDE << " " << cath << " " << ndig << endl; 
    for (Int_t i = 0; i < ndig; i++) {
      if (fLeft[cath] == 0) { fRecModel->SetUsed(cath,i); continue; }
      AliMUONDigit *dig = (AliMUONDigit*) fDigits[cath]->UncheckedAt(i);
      //cout << i << " " << dig << " " /*<< dig->PadX() << " " << dig->PadY() << " " << fHitMap[cath]->TestHit(dig->PadX(), dig->PadY()) */<< endl;
      if (fHitMap[cath]->TestHit(dig->PadX(), dig->PadY()) == kUsed) fRecModel->SetUsed(cath,i);
      else fRecModel->SetUnused(cath,i);
    }
  }

  fRecModel->ResetRawClusters();

  for (Int_t cath = 0; cath < 2; cath++) {
    Int_t ndig = fDigits[cath]->GetEntriesFast();
    if (ndig == 0) continue; // empty cathode
    // Loop over pads
    for (fSeg[cath]->FirstPad(fidDE, xTrack, yTrack, fZ, dx, dy);
	 fSeg[cath]->MorePads(fidDE);
	 fSeg[cath]->NextPad(fidDE)) {
      if (fLeft[cath] == 0) break;
      //cout << cath << " " << fSeg[cath]->Ix() << " " << fSeg[cath]->Iy() << " " << fSeg[cath]->DetElemId() << " " << fHitMap[cath]->TestHit(fSeg[cath]->Ix(), fSeg[cath]->Iy()) << endl;
      if (fHitMap[cath]->TestHit(fSeg[cath]->Ix(), fSeg[cath]->Iy()) == kEmpty ||
	  fHitMap[cath]->TestHit(fSeg[cath]->Ix(), fSeg[cath]->Iy()) == kUsed) continue;

      Int_t iOK = 0;
      // Set starting pad
      for (Int_t j = 0; j < ndig; j++) {
	AliMUONDigit *dig = (AliMUONDigit*) fDigits[cath]->UncheckedAt(j);
	if (dig->PadX() != fSeg[cath]->Ix() || dig->PadY() != fSeg[cath]->Iy()) continue;
	//cout << fidDE << " " << j << " " << fDigits[cath]->GetEntriesFast() << " " << fSeg[cath]->Ix() << " " << fSeg[cath]->Iy() << endl;
	fRecModel->SetStart(cath, j);
	iOK = 1;
	break;
      }
      if (!iOK) continue;

      fRecModel->FindRawClusters();
      Int_t nClusEnd = fRecModel->GetRawClusters()->GetEntriesFast();
      //cout << " ***nclus: " << nClusEnd << endl;
      for (Int_t i = 0; i < nClusEnd; i++) {
	AliMUONRawCluster *clus = (AliMUONRawCluster*) fRecModel->GetRawClusters()->UncheckedAt(i);
	AddHitForRec(clus); // add hit for rec.
	//cout << clus->GetX(0) << " " << clus->GetY(0) << endl;
      }
      // Mark used pads
      for (Int_t cath1 = 0; cath1 < 2; cath1++) {
	Int_t ndig1 = fDigits[cath1]->GetEntriesFast();
	for (Int_t j = 0; j < ndig1; j++) {
	  if (fLeft[cath1] == 0) break;
	  AliMUONDigit *dig = (AliMUONDigit*) fDigits[cath1]->UncheckedAt(j);
	  Float_t x, y, z;
	  fSeg[cath1]->GetPadC(fidDE,dig->PadX(),dig->PadY(),x,y,z);
	  //cout << "clus " << cath1 << " " << fLeft[cath1] << " " << dig->PadX() << " " << dig->PadY() << " " << x << " " << y << " " << z << " " << fRecModel->GetUsed(cath1,j) << endl;
	  if (!fRecModel->GetUsed(cath1,j)) continue;
	  if (fHitMap[cath1]->TestHit(dig->PadX(), dig->PadY()) == kUsed) continue;
	  fHitMap[cath1]->FlagHit(dig->PadX(), dig->PadY());
	  if (lun) fprintf(lun," %d %d %d %d \n", cath1, fidDE, dig->PadX(), dig->PadY());
	  fLeft[cath1]--;
	}
      }
    } // for (fSeg[cath]->FirstPad(...
  } // for (Int_t cath = 0;
}

//_________________________________________________________________________
void AliMUONDetElement::AddHitForRec(AliMUONRawCluster *clus)
{
  /// Make HitForRec from raw cluster (rec. point)

  fRawClus->Add(new AliMUONRawCluster(*clus));
  //AliMUONHitForRec *hitForRec = 
  //new ((*fHitsForRec)[fNHitsForRec++]) AliMUONHitForRec(clus);
  AliMUONHitForRec *hitForRec = new AliMUONHitForRec(clus);
  fHitsForRec->Add(hitForRec);
  fNHitsForRec++;

  // more information into HitForRec
  //  resolution: info should be already in raw cluster and taken from it ????
  //hitForRec->SetBendingReso2(-1); //fBendingResolution * fBendingResolution);
  //hitForRec->SetNonBendingReso2(-1); //fNonBendingResolution * fNonBendingResolution);
  hitForRec->SetBendingReso2(clus->GetErrY() * clus->GetErrY());
  hitForRec->SetNonBendingReso2(clus->GetErrX() * clus->GetErrX());
  //  original raw cluster
  hitForRec->SetChamberNumber(fChamber);
  hitForRec->SetZ(clus->GetZ(0));
  //hitForRec->SetHitNumber(-(fIndex+1)*100000-fNHitsForRec+1);
  hitForRec->SetHitNumber(-(fIndex+1)*100000-fRawClus->GetEntriesFast()+1);
  //delete clus; // for now
}

/*
//_________________________________________________________________________
Int_t AliMUONDetElement::GetMapElem(AliMUONDigit *digit)
{
  Int_t cath = digit->Cathode();
  return 0;

}

//_________________________________________________________________________
void AliMUONDetElement::SetMapElem(const AliMUONDigit *digit, Int_t flag)
{
  Int_t cath = digit->Cathode();
}
*/