ROOT logo
#if !defined(__CINT__) || defined(__MAKECINT__)

#include <TSystem.h>
#include <TFile.h>
#include <TVirtualX.h>
#include <TTree.h>
#include <TButton.h>
#include <TCanvas.h>
#include <TCanvasImp.h>
#include <TStyle.h>
#include <TString.h>
#include <TClonesArray.h>
#include <TParticle.h>
#include <TRandom.h>
#include <TLatex.h>
#include <TPDGCode.h>
#include <TLegend.h>
#include <TPolyMarker.h>
#include <TBox.h>
#include <AliESDEvent.h>
#include <AliCDBManager.h>
#include <AliCDBEntry.h>
#include "AliHMPIDHit.h"
#include "AliHMPIDv2.h"
#include "AliHMPIDReconstructor.h"
#include "AliHMPIDRecon.h"
#include "AliHMPIDParam.h"
#include "AliHMPIDCluster.h"
#include "AliTracker.h"
#include "AliStack.h"

#endif

AliHMPIDParam *fParam;
TDatabasePDG *fPdg;

TCanvas *fCanvas=0; Int_t fType=1; Int_t fEvt=-1; Int_t fNevt=0;                      
TCanvasImp *fCanvasImp;
TFile *fHitFile; TTree *fHitTree; TClonesArray *fHitLst; TPolyMarker *fRenMip[7]; TPolyMarker *fRenCko[7]; TPolyMarker *fRenFee[7];
                                  TClonesArray *fSdiLst; 
TFile *fDigFile; TTree *fDigTree; TObjArray    *fDigLst; TBox *fRenDig[7][160*144]; TBox *fBox[7][160*144];   
TFile *fCluFile; TTree *fCluTree; TObjArray    *fCluLst; TPolyMarker *fRenClu[7];
TFile *fEsdFile; TTree *fEsdTree; AliESDEvent  *fEsd;    TPolyMarker *fRenTxC[7]; TPolyMarker *fRenRin[7];  
TFile *fCosFile; TTree *fCosTree;

TButton *fHitMipBok,*fHitCkoBok,*fHitFeeBok,*fDigBok,*fCluBok,*fEsdBok;

TString fStHitMip = "ON";
TString fStHitCko = "ON";
TString fStHitFee = "ON";
TString fStDig    = "ON";
TString fStClu    = "ON";
TString fStEsd    = "ON";

Int_t fTimeArrow = 1;

Int_t fMaxCharge = 200;  //maximum charge to saturate color to red

Int_t fChamN[9]={6,5,-1,4,3,2,-1,1,0};

Int_t fTotPads[7],fTotClus[7];

Int_t qSigmaCut=0;

Int_t trigType=0;

AliRunLoader *gAL=0; 
AliLoader *gDL=0; // detector loader (needed to get Digits and Clusters) 

Int_t nDigs[7];

enum EObjectType {kHitMip=kOpenTriangleUp,kHitCko=kOpenCircle,kHitFee=kOpenDiamond,kCluster=kStar,kTrack=kPlus,kRing=kFullDotSmall};
  //  kOpenTriangleUp  Hit Mip
  //  kOpenCircle      Hit Ckov
  //  kOpenDiamond     Hit Feedback
  //  kStar            Cluster 
  //  kPlus            Track
  //  kFullDotSmall    Ring
  
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
void CreateContainers()
{//to create all containers
  fHitLst=new TClonesArray("AliHMPIDHit");
  fSdiLst=new TClonesArray("AliHMPIDDigit");
  fDigLst=new TObjArray(7); for(Int_t i=0;i<7;i++) fDigLst->AddAt(new TClonesArray("AliHMPIDDigit"),i);       fDigLst->SetOwner(kTRUE);
  fCluLst=new TObjArray(7); for(Int_t i=0;i<7;i++) fCluLst->AddAt(new TClonesArray("AliHMPIDCluster"),i);     fCluLst->SetOwner(kTRUE); 
  fEsd   =new AliESDEvent;
}
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
void CreateRenders()
{
  for(Int_t ch=0;ch<7;ch++){
    fRenMip[ch]=new TPolyMarker; fRenMip[ch]->SetMarkerStyle(kOpenTriangleUp);fRenMip[ch]->SetMarkerColor(kBlack)  ;
    fRenCko[ch]=new TPolyMarker; fRenCko[ch]->SetMarkerStyle(kOpenCircle);    fRenCko[ch]->SetMarkerColor(kBlack)  ;
    fRenFee[ch]=new TPolyMarker; fRenFee[ch]->SetMarkerStyle(kOpenDiamond);   fRenFee[ch]->SetMarkerColor(kBlack)  ;
    fRenClu[ch]=new TPolyMarker; fRenClu[ch]->SetMarkerStyle(kStar);          fRenClu[ch]->SetMarkerColor(kMagenta);
    fRenTxC[ch]=new TPolyMarker; fRenTxC[ch]->SetMarkerStyle(kPlus);          fRenTxC[ch]->SetMarkerColor(kRed)    ;
                                 fRenTxC[ch]->SetMarkerSize(3);
    fRenRin[ch]=new TPolyMarker; fRenRin[ch]->SetMarkerStyle(kFullDotSmall);  fRenRin[ch]->SetMarkerColor(kMagenta);

    for(Int_t iDig=0;iDig<160*144;iDig++) {
      fRenDig[ch][iDig] = new TBox;
      fRenDig[ch][iDig]->SetFillStyle(1);
      fBox[ch][iDig] = new TBox;
      fBox[ch][iDig]->SetFillStyle(0);
    }
  }
}//CreateRenders()
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
void ClearRenders()
{
  for(Int_t ch=0;ch<7;ch++){
    fRenTxC[ch]->SetPolyMarker(0); 
    fRenRin[ch]->SetPolyMarker(0); 
    fRenMip[ch]->SetPolyMarker(0); 
    fRenCko[ch]->SetPolyMarker(0); 
    fRenFee[ch]->SetPolyMarker(0); 
    nDigs[ch] = 0;
    fRenClu[ch]->SetPolyMarker(0); 
  }
}//ClearRenders()
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
void PrintHits()
{
//Prints a list of HMPID hits for a given event. Default is event number 0.
  if(!fHitTree) return;
  Printf("List of HMPID hits for event %i",fEvt);
  Int_t iTot=0;
  for(Int_t iEnt=0;iEnt<fHitTree->GetEntries();iEnt++){//entries loop
    fHitTree->GetEntry(iEnt);      
    fHitLst->Print();
    iTot+=fHitLst->GetEntries();
  }
  Printf("totally %i hits for event %i",iTot,fEvt);
}//PrintHits();
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
void PrintSdis()
{//prints a list of HMPID sdigits  for a given event
  Printf("List of HMPID sdigits for event %i",fEvt);
  fSdiLst->Print();
  Printf("totally %i sdigits for event %i",fSdiLst->GetEntries(),fEvt);
}//PrintSdis()
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
void PrintDigs()
{//prints a list of HMPID digits
  Printf("List of HMPID digits for event %i",fEvt);  
//  fDigLst->Print();
  
  Int_t iTot=0;  
  for(Int_t iCh=0;iCh<7;iCh++) {
    iTot+=((TClonesArray*)fDigLst->At(iCh))->GetEntries();

    TClonesArray *pDigCham=(TClonesArray*)fDigLst->At(iCh);         //get digs list for this chamber
    for(Int_t iDig=0;iDig<pDigCham->GetEntries();iDig++){            //digs loop
      AliHMPIDDigit *pDig = (AliHMPIDDigit*)pDigCham->At(iDig);
      pDig->Print();
    }//Digit loop
  }//chamber loop 
    
  Printf("totally %i digits for event %i",iTot,fEvt);
}
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
void PrintClus()
{//prints a list of HMPID clusters  for a given event
  Printf("List of HMPID clusters for event %i",fEvt);
  
//  fCluLst->Print();
  
  Int_t iTot=0; for(Int_t iCh=0;iCh<7;iCh++) {
    iTot+=((TClonesArray*)fCluLst->At(iCh))->GetEntries();
    TClonesArray *pClusCham=(TClonesArray*)fCluLst->At(iCh);         //get clusters list for this chamber
    for(Int_t iClu=0;iClu<pClusCham->GetEntries();iClu++){           //clusters loop
      AliHMPIDCluster *pClu = (AliHMPIDCluster*)pClusCham->At(iClu); //get current cluster        
      pClu->Print();
    }
  }
  
  Printf("totally %i clusters for event %i",iTot,fEvt);
}
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
void PrintEsd()
{//prints a list of HMPID Esd  for a given event
  Printf("List of HMPID ESD summary for event %i",fEvt);
  for(Int_t iTrk=0;iTrk<fEsd->GetNumberOfTracks();iTrk++){
    AliESDtrack *pTrk = fEsd->GetTrack(iTrk);
    
    Double_t xout[3],pout[3];
    
    pTrk->GetOuterPxPyPz(pout);
    Double_t pMomOut = TMath::Sqrt(pout[0]*pout[0]+pout[1]*pout[1]+pout[2]*pout[2]);
    
    Float_t x,y;Int_t q,nacc;   pTrk->GetHMPIDmip(x,y,q,nacc);
    Float_t xra,yra,th,ph; pTrk->GetHMPIDtrk(xra,yra,th,ph);
//    Printf("xra %f yra %f th %f phi %f",xra,yra,th,ph);
    Int_t ch,idx,size;
    Int_t word = pTrk->GetHMPIDcluIdx();
    ch = word/1000000;
    word = word%1000000;
    size = word/1000;
    idx = word%1000;
    Double_t rout[3]; pTrk->GetOuterXYZ(rout);
    vol = gGeoManager->FindNode(rout[0],rout[1],rout[2]);
    Float_t thetaCkov = -999.;
    if(pTrk->GetHMPIDsignal()<0) thetaCkov = pTrk->GetHMPIDsignal();
    else                         thetaCkov = pTrk->GetHMPIDsignal() - (Int_t)pTrk->GetHMPIDsignal();
    Printf("Trk %02i Ch.%2i (%5.2f,%5.2f) pOut %7.2f ThCer %7.3f phots %3i QMip %4i size %2i (idx %3i) in vol. %s",iTrk,ch,
        xra,yra,pMomOut,thetaCkov,nacc,q,size,idx,vol->GetName());
  }  
}//PrintEsd()
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
void DrawChamber(Int_t iCh) 
{//used by Draw() to Draw() chamber structure
  gPad->Range(-10,-10,AliHMPIDParam::SizeAllX()+5,AliHMPIDParam::SizeAllY()+5);
  if(iCh>=0){TLatex txt; txt.SetTextSize(0.06); txt.DrawLatex(55,-9,Form("RICH %i",iCh));}
  
  for(Int_t iPc=AliHMPIDParam::kMinPc;iPc<=AliHMPIDParam::kMaxPc;iPc++){
    TBox *pBox=new TBox(AliHMPIDParam::MinPcX(iPc),AliHMPIDParam::MinPcY(iPc),
                        AliHMPIDParam::MaxPcX(iPc),AliHMPIDParam::MaxPcY(iPc));
    pBox->SetFillStyle(0);  pBox->Draw();
  }//PC loop      
}//DrawChamber()
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
void DrawLegend()
{//used by Draw() to draw legend
  Int_t nTxC=0,nMip=0,nCko=0,nFee=0,nDig=0,nClu=0;
  for(Int_t ch=0;ch<7;ch++){
    nTxC+=fRenTxC[ch]->Size();
    nMip+=fRenMip[ch]->Size();
    nCko+=fRenCko[ch]->Size();
    nFee+=fRenFee[ch]->Size();
    nClu+=fRenClu[ch]->Size();
    nDig+=nDigs[ch];
  }
  TLegend *pLeg=new TLegend(0.15,0.3,0.85,0.98);
  pLeg->SetHeader(Form("Event %i Total %i",fEvt,fNevt));
  pLeg->AddEntry(fRenTxC[0],   Form("TRKxPC %i"  ,nTxC),"p");
  pLeg->AddEntry(fRenMip[0],   Form("Mip hits %i"  ,nMip),"p");    
  pLeg->AddEntry(fRenCko[0],   Form("Ckov hits %i"  ,nCko),"p");    
  pLeg->AddEntry(fRenFee[0],   Form("Feed hits %i"  ,nFee),"p");    
  pLeg->AddEntry(fRenDig[0][0],Form("Digs %i"  ,nDig),"p");    
  pLeg->AddEntry(fRenClu[0],   Form("Clus %i"  ,nClu),"p");    
  pLeg->Draw();
 
/*  TLegend *pLeg2 = new TLegend(0.4,0.087,0.8,0.97);
  pLeg2->SetHeader("");
  pLeg2->AddEntry(fRenMip[0],Form("Mip hits %i"   ,nMip),"p");
  pLeg2->Draw();*/

 TBox *pBox = new TBox(0.012,0.01,0.97,0.28);
 pBox->Draw("l");

 TText *pText = new TText(0.35,0.21, "ddl = (0....13)");
 pText->SetTextSize(0.06);
 pText->Draw();

 TText *pText2 = new TText(0.09,0.15,"RICH n ---> ddl 2n (left) & 2n+1 (right)");
 pText2->SetTextSize(0.06);
 pText2->Draw();

 TText *pText3 = new TText(0.1,0.09, "phcat (0,2,4) left,   phcat (1,3,5) right");
 pText3->SetTextSize(0.06);
 pText3->Draw();

 TText *pText4 = new TText(0.35,0.03, Form("sigma cut = %i",qSigmaCut));
 pText4->SetTextSize(0.06);
 pText4->Draw();

}//DrawLegend()
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
void Draw()
{//draws all the objects of current event in given canvas
  Int_t iPadN[7]={9,8,6,5,4,2,1};
  Int_t sampleCol = fMaxCharge/gStyle->GetNumberOfColors();
  for(Int_t iCh=0;iCh<7;iCh++){//chambers loop    
    fCanvas->cd(iPadN[iCh]);
    gPad->SetEditable(kTRUE); gPad->Clear(); DrawChamber(iCh);
    
    if(fDigFile){
      if(fStDig   =="ON") {
        for(Int_t iDig=0;iDig<nDigs[iCh];iDig++) {
          Int_t charge = fRenDig[iCh][iDig]->GetUniqueID();
          Int_t color = charge/sampleCol;if(color>=gStyle->GetNumberOfColors()) color = gStyle->GetNumberOfColors()-1;
          fRenDig[iCh][iDig]->SetFillColor(gStyle->GetColorPalette(color));
          fRenDig[iCh][iDig]->Draw();
          fBox[iCh][iDig]->Draw();
        }
      }
    }
    
    if(fEsdFile){if(fStEsd   =="ON") fRenTxC[iCh]->Draw();}
    
    if(fHitFile){
      if(fStHitMip=="ON") fRenMip[iCh]->Draw();
      if(fStHitFee=="ON") fRenFee[iCh]->Draw();
      if(fStHitCko=="ON") fRenCko[iCh]->Draw();
    }
    
    if(fEsdFile){if(fStEsd   =="ON") fRenRin[iCh]->Draw();}
    if(fCluFile){if(fStClu   =="ON") fRenClu[iCh]->Draw();}
    gPad->SetEditable(kFALSE);
  }//chambers loop
  
  fCanvas->cd(3);  gPad->Clear(); DrawLegend();
  
  fCanvas->cd(7);
  
  if(fHitFile){
    fHitMipBok->SetTitle(Form("Mips  %s",fStHitMip.Data())); fHitMipBok->Modified();
    fHitCkoBok->SetTitle(Form("Ckov  %s",fStHitCko.Data())); fHitCkoBok->Modified();
    fHitFeeBok->SetTitle(Form("Fdbk  %s",fStHitFee.Data())); fHitFeeBok->Modified();
  }
  if(fDigFile){fDigBok->SetTitle(fStDig); fDigBok->Modified();}  
  if(fCluFile){fCluBok->SetTitle(fStClu); fCluBok->Modified();} 
  if(fEsdFile){fEsdBok->SetTitle(fStEsd); fEsdBok->Modified();}
  
}//Draw()
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
void RenderHit(TClonesArray *pHitLst)
{//used by ReadEvent() to render hits to polymarker structures, one per chamber
  for(Int_t iHit=0;iHit<pHitLst->GetEntries();iHit++){       //hits loop
    AliHMPIDHit *pHit = (AliHMPIDHit*)pHitLst->At(iHit); Int_t ch=pHit->Ch(); Float_t x=pHit->LorsX(); Float_t y=pHit->LorsY();    //get current hit        
    switch(pHit->Pid()){
      case 50000050: fRenCko[ch]->SetNextPoint(x,y);break; 
      case 50000051: fRenFee[ch]->SetNextPoint(x,y);break;
      default:       fRenMip[ch]->SetNextPoint(x,y);break;
    }//switch hit PID      
//    Printf("----------ihit %i ch %i chhit %i MIP %i CKO %i FEE %i",iHit,ch,pHit->Pid());
  }//hits loop for this entry
}//RenderHits()
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
void RenderDig(TObjArray *pDigLst)
{//used by ReadEvent() to render digs to Tbox structures, one per chamber

  for(Int_t iCh=0;iCh<=6;iCh++){                                    //chambers loop   
    TClonesArray *pDigCham=(TClonesArray*)pDigLst->At(iCh);         //get digs list for this chamber
    nDigs[iCh] = 0;
    fTotPads[iCh] = pDigCham->GetEntries();
    Int_t iDigEff=0;
    for(Int_t iDig=0;iDig<pDigCham->GetEntries();iDig++){            //digs loop
      AliHMPIDDigit *pDig = (AliHMPIDDigit*)pDigCham->At(iDig); Float_t x=pDig->LorsX(); Float_t y=pDig->LorsY();    //get current hit        
      if((Int_t)pDig->Q()<=qSigmaCut) continue;
      fRenDig[iCh][iDigEff]->SetX1(x-0.5*AliHMPIDParam::SizePadX());
      fRenDig[iCh][iDigEff]->SetX2(x+0.5*AliHMPIDParam::SizePadX());
      fRenDig[iCh][iDigEff]->SetY1(y-0.5*AliHMPIDParam::SizePadY());
      fRenDig[iCh][iDigEff]->SetY2(y+0.5*AliHMPIDParam::SizePadY());
      fRenDig[iCh][iDigEff]->SetUniqueID((Int_t)pDig->Q());
      fBox[iCh][iDigEff]->SetX1(x-0.5*AliHMPIDParam::SizePadX());
      fBox[iCh][iDigEff]->SetX2(x+0.5*AliHMPIDParam::SizePadX());
      fBox[iCh][iDigEff]->SetY1(y-0.5*AliHMPIDParam::SizePadY());
      fBox[iCh][iDigEff]->SetY2(y+0.5*AliHMPIDParam::SizePadY());
      iDigEff++;
      nDigs[iCh]++;
    }//Digit loop
  }//hits loop for this entry
}//RenderHits()
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
void RenderClu(TObjArray *pClus)
{//used by ReadEvent() to render clusters to polymarker structures, one per chamber
  for(Int_t iCh=0;iCh<=6;iCh++){                                     //chambers loop   
    TClonesArray *pClusCham=(TClonesArray*)pClus->At(iCh);           //get clusters list for this chamber
    fTotClus[iCh] = pClusCham->GetEntries();
    for(Int_t iClu=0;iClu<pClusCham->GetEntries();iClu++){           //clusters loop
      AliHMPIDCluster *pClu = (AliHMPIDCluster*)pClusCham->At(iClu); //get current cluster        
      fRenClu[iCh]->SetNextPoint(pClu->X(),pClu->Y());
//      Printf("RenderClu: ch %i x %f y %f",iCh,pClu->X(),pClu->Y());
    }//cluster loop
  }//chamber loop for this entry
}//RenderClus()
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
void RenderEsd(AliESDEvent *pEsd)
{//used by ReadEvent() to render ESD to polymarker structures for rings and intersections one per chamber
  AliHMPIDRecon rec;
  for(Int_t iTrk=0;iTrk<pEsd->GetNumberOfTracks();iTrk++){//tracks loop to collect cerenkov rings and intersection points
    AliESDtrack *pTrk=pEsd->GetTrack(iTrk);    Int_t ch=pTrk->GetHMPIDcluIdx(); //get track and chamber intersected by it
    ch/=1000000;
    Float_t xPc,yPc,xRa,yRa,thRa,phRa; 
    pTrk->GetHMPIDtrk(xPc,yPc,thRa,phRa);;
    
    xRa = xPc - (fParam->RadThick()+fParam->WinThick()+fParam->GapThick())*TMath::Cos(phRa)*TMath::Tan(thRa); //just linear extrapolation back to RAD
    yRa = yPc - (fParam->RadThick()+fParam->WinThick()+fParam->GapThick())*TMath::Sin(phRa)*TMath::Tan(thRa);
    
    if(ch<AliHMPIDParam::AliHMPIDParam::kMinCh||ch>AliHMPIDParam::kMaxCh) continue;//this track does not intersect any chamber
    Int_t npTrk = fRenTxC[ch]->SetNextPoint(xRa,yRa);                           //add this intersection point
    Float_t ckov=pTrk->GetHMPIDsignal();                                        //get ckov angle stored for this track  
    if(ckov>0){
      Float_t thetaCkov = pTrk->GetHMPIDsignal() - (Int_t)pTrk->GetHMPIDsignal();
      rec.SetTrack(xRa,yRa,thRa,phRa);
      fRenRin[ch]->SetUniqueID(npTrk);
      for(Int_t j=0;j<500;j++){
        TVector2 pos; pos=rec.TracePhot(thetaCkov,j*6.28/500.);
       if(!AliHMPIDParam::IsInDead(pos.X(),pos.Y())) fRenRin[ch]->SetNextPoint(pos.X(),pos.Y());
      }      
    }//if ckov is valid
  }//tracks loop  
}//RenEsd()
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
TString Stack(Int_t evt,Int_t tid)
{
// Prints some useful info from stack
// Arguments: evt - event number. if not -1 print info only for that event
//            tid - track id. if not -1 then print it and all it's mothers if any   
//   Returns: mother tid of the given tid if any
  if(gAL->LoadHeader()) return -1;
  if(gAL->LoadKinematics()) return -1;
  
  gAL->GetEvent(evt);    
  AliStack *pStack=gAL->Stack();  
  TParticle *pTrack=pStack->Particle(tid);
//  Int_t mtid=pTrack->GetFirstMother();
  TString str;
  str.Append(Form("with P = %7.4f (%7.4f,%7.4f,%7.4f) GeV/c ",pTrack->P(),pTrack->Px(),pTrack->Py(),pTrack->Pz()));
  gAL->UnloadHeader();  gAL->UnloadKinematics();
  return str;
}
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
void DispTB(TString t0,TString t1,TString t2,TString t3)
{
  fCanvasImp->SetStatusText(t0,0);
  fCanvasImp->SetStatusText(t1,1);
  fCanvasImp->SetStatusText(t2,2);
  fCanvasImp->SetStatusText(t3,3);
}
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Bool_t FindPos(TVector3 xyz,Int_t &cham,Int_t &sect,Int_t &gap,Int_t &padX,Int_t &padY)
{
// It finds the chamber parameters for a given point 
// Arguments:  xyz  coordinates of a given point in MARS
//   Returns:  cham   chamber ID ( 0-6 )
//             sect   sector  ID ( 0-5 )
//             padX   X (integer) of the pad in X in the given sector (1-80)
//             padY   Y (integer) of the pad in Y in the given sector (1-48)
  cham = -1;
  TGeoNode *node = gGeoManager->FindNode(xyz.X(),xyz.Y(),xyz.Z());
  if(!node) return kFALSE;
  TGeoVolume *vol = node->GetVolume();
  if(!vol) return kFALSE;
  TGeoManager *geo = vol->GetGeoManager();
  if(!geo) return kFALSE;
  Int_t i=0;
  while(geo->GetMother(i)) {
    TString s = geo->GetMother(i)->GetName();
//    if(s.Contains("Hcel_")) padX=(Int_t)(s.Remove(0,5)).Atof();
//    if(s.Contains("Hrow_")) padY=(Int_t)(s.Remove(0,5)).Atof();
//    if(s.Contains("Hsec_")) sect=(Int_t)(s.Remove(0,5)).Atof();
//    if(s.Contains("Hmp_"))  cham=(Int_t)(s.Remove(0,4)).Atof();
    if(s.Contains("Hcel_")) padX=geo->GetMother(i)->GetNumber();
    if(s.Contains("Hrow_")) padY=geo->GetMother(i)->GetNumber();
    if(s.Contains("Hsec_")) sect=geo->GetMother(i)->GetNumber();
    if(s.Contains("Hmp_"))  cham=geo->GetMother(i)->GetNumber();
    i++; 
  }
  return (cham==-1) ? kFALSE : kTRUE;
}
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
void DisplayInfo(Int_t evt,Int_t px, Int_t py)
{
  if(!gPad) return;
  TVirtualPad *pPad=gPad->GetSelectedPad();
  Int_t padN = pPad->GetNumber()-1;
  if(padN<0 || padN>8) return;
  Int_t ch,pc,padX,padY;
  ch = fChamN[padN];
  if(ch<0) return;
  TString text0,text1,text2,text3;
  
  Float_t x=pPad->AbsPixeltoX(px); Float_t y=pPad->AbsPixeltoY(py); 
  fParam->Lors2Pad(x,y,pc,padX,padY);
  TVector3 xyz=fParam->Lors2Mars(ch,x,y);
  
  if(padX>=0&&padY>=0) {
    text0.Append(Form("Pad(%i,%i)-LORS(%6.2f,%6.2f)-MARS(%7.2f,%7.2f,%7.2f) A(%6.2f,%6.2f)",padX,padY,x,y,xyz.X(),xyz.Y(),xyz.Z(),
                                                                                                 xyz.Theta()*TMath::RadToDeg(),xyz.Phi()*TMath::RadToDeg()));
    text1.Append(Form("Module %i Sector %i",ch,pc));
    text2="";
    text3.Append(Form("Pads = %i - Clusters = %i - Occupancy %5.2f%%",fTotPads[ch],fTotClus[ch],100.*fTotPads[ch]/(144.*160.)));
  }
  
  TObject *obj = fCanvas->GetSelected();
  TString name = obj->GetName();
  
// Find object DIGIT

  if(name=="") {DispTB(text0,text1,text2,text3);return;} // TLatex not interesting
    
  if(name.Contains("TBox")) {
    TBox *box = (TBox*)obj;
    if(box->GetUniqueID()==0) return; // just black frame hit!
    text2.Append(Form("charge = %i ADC",box->GetUniqueID()));
    DispTB(text0,text1,text2,text3);
    return;
  }
//
// Find object HITs CLUSTER TRACK and RING (based on TPolyMarker and symbol)
//
  TPolyMarker *b = (TPolyMarker*)obj;

  const Int_t big = 9999;

  // check if point is near one of the points
  Int_t distance = big;
  Int_t index=0;

  Double_t *xPol = b->GetX();
  Double_t *yPol = b->GetY();

  for(Int_t i=0;i<b->Size();i++) {
    Int_t pxp = pPad->XtoAbsPixel(pPad->XtoPad(xPol[i]));
    Int_t pyp = pPad->YtoAbsPixel(pPad->YtoPad(yPol[i]));
    Int_t d   = TMath::Abs(pxp-px) + TMath::Abs(pyp-py);
    if (d < distance) {distance = d; index=i;}
  }

  Int_t symbol = b->GetMarkerStyle();

  //  kOpenTriangleUp  Hit Mip
  //  kOpenCircle      Hit Ckov
  //  kOpenDiamond     Hit Feedback
  //  kStar            Cluster 
  //  kPlus            Track
  //  kFullDotSmall    Ring
  
  // Case Hit Mip of Hit Ckov or Hit Feedback
  if(symbol==kHitMip || symbol==kHitCko || symbol==kHitFee) {
    if(evt!=kButton1Down) return;
    TString nameHit;
    Int_t iCko[7]={0,0,0,0,0,0,0};
    Int_t iFee[7]={0,0,0,0,0,0,0};
    Int_t iMip[7]={0,0,0,0,0,0,0};
    Int_t iHit;
    Int_t chHit;
    Int_t indHit=0;
    
    Int_t indTrk = b->GetUniqueID(); // track index
    for(Int_t iEnt=0;iEnt<fHitTree->GetEntries();iEnt++){//entries loop
      fHitTree->GetEntry(iEnt);                              
      for(iHit=0;iHit<fHitLst->GetEntries();iHit++) {       //hits loop
        AliHMPIDHit *pHit = (AliHMPIDHit*)fHitLst->At(iHit);
        chHit = pHit->Ch();
        Int_t pid = pHit->Pid();
        if(pid==50000050) iCko[chHit]++;
        else if(pid==50000051) iFee[chHit]++;
        else iMip[chHit]++;

        if(symbol==kHitMip && ch==chHit && index==iMip[chHit]-1) {indTrk=iEnt;indHit = iHit;break;}
        if(symbol==kHitCko && ch==chHit && index==iCko[chHit]-1) {indTrk=iEnt;indHit = iHit;break;}
        if(symbol==kHitFee && ch==chHit && index==iFee[chHit]-1) {indTrk=iEnt;indHit = iHit;break;}
      }
    }
    fHitTree->GetEntry(indTrk);
    AliHMPIDHit *pHit = (AliHMPIDHit*)fHitLst->At(indHit);

    Int_t tid = pHit->Tid();
    
    TString str = Stack(fEvt,tid);
     
    Float_t x=pHit->LorsX(); 
    Float_t y=pHit->LorsY();
    Float_t charge = pHit->Q();
    
    TVector3 v = fParam->Lors2Mars(pHit->Ch(),pHit->LorsX(),pHit->LorsY());
    Int_t cham,sect,gap,padX,padY;
    FindPos(v,cham,sect,gap,padX,padY);
    
    if(pHit->Pid()==50000050) {nameHit = " Cherenkov Photon ";}
    else if(pHit->Pid()==50000051) {nameHit = " Feedback Photon ";}
    else if(fPdg->GetParticle(pHit->Pid())) nameHit = fPdg->GetParticle(pHit->Pid())->GetName();
    nameHit.Append(Form(" (tid %i)",tid));
    text0="";text0.Append(Form("Hit(%5.2f,%6.2f) LORS - Pad Volume(%i,%i) - hit %i/%i",x,y,padX,padY,indHit+1,fHitLst->GetEntries()));
    text2="";text2.Append(Form("Q = %7.2f ADC",charge));
    text3="";text3="Particle: "+ nameHit +" "+ str;
  } // Hit  
  else if (symbol==kCluster) {
    TClonesArray *pClusCham=(TClonesArray*)fCluLst->At(ch);         //get clusters list for this chamber
    AliHMPIDCluster *pClu = (AliHMPIDCluster*)pClusCham->At(index); //get current cluster
    text0="";text0.Append(Form("CLUSTER: x %6.2f y %6.2f",pClu->X(),pClu->Y()));
    text2="";text2.Append(Form("charge = %i ADC",(Int_t)pClu->Q()));
    }
  else if (symbol==kTrack || symbol==kRing) {
    if(symbol==kRing) index = b->GetUniqueID();
    AliESDtrack *pTrk=fEsd->GetTrack(index);
    Float_t xPc,yPc,thRa,phRa,xRa,yRa;
    Int_t ch = AliHMPIDTracker::IntTrkCha(pTrk,xPc,yPc,xRa,yRa,thRa,phRa);
    text0="";text0.Append(Form("TRACK n.%d: x %6.2f y %6.2f at PC plane in chamber %i",index,xPc,yPc,ch));
    text2="";text2.Append(Form("p = %7.2f GeV/c",pTrk->GetP()));
    Float_t ckov=pTrk->GetHMPIDsignal();                             
    Double_t prob[5];
    pTrk->GetHMPIDpid(prob);
    if(ckov>0){
      Float_t thetaCkov = pTrk->GetHMPIDsignal() - (Int_t)pTrk->GetHMPIDsignal();
      Float_t x,y;Int_t q,nacc;   pTrk->GetHMPIDmip(x,y,q,nacc);
      text3="";text3.Append(Form("Theta Cherenkov %5.3f with %i photons |  e %5.1f%% | u %5.1f%% | pi %5.1f%% | K %5.1f%% | p %5.1f%%",
          thetaCkov,nacc,prob[0]*100,prob[1]*100,prob[2]*100,prob[3]*100,prob[4]*100));
    }      
  }
//Update toolbar status  

  DispTB(text0,text1,text2,text3);  
}
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
void CloseInfo()
{
}
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
void DoZoom(Int_t evt, Int_t px, Int_t py, TObject *)
{
//  Printf(" px %i py%i event %i",px,py,evt);
  
  if(evt== 1) evt = 5;  //for laptop with touchpad: zoom in with left button
  if(evt== 2) evt = 6;  //for laptop with touchpad: zoom out with both buttons
  
  if(evt==kMouseMotion||evt==kButton1Down) DisplayInfo(evt,px,py);
//  if(evt==11)  CloseInfo();
  if(evt!=5 && evt!=6) return; //5- zoom in 6-zoom out
  const Int_t minZoom=64;
  const Int_t maxZoom=2;
  static Int_t zoom[7]={64,64,64,64,64,64,64}; //zoom level
  
 // if(!obj->IsA()->InheritsFrom("TPad")) return;  //current object is not pad
  TVirtualPad *pPad=gPad->GetSelectedPad();
  Int_t padN = pPad->GetNumber()-1;
  if(padN<0 || padN>8) return;
  
  Int_t iCh = fChamN[padN];
  if(iCh < 0) return;
  
  if(evt==5&&zoom[iCh]==maxZoom) return; 
  if(evt==6&&zoom[iCh]==minZoom) return; 
    
  Float_t x=pPad->AbsPixeltoX(px); Float_t y=pPad->AbsPixeltoY(py); 
 
  if(evt==5){ zoom[iCh]=zoom[iCh]/2;     pPad->Range(x-zoom[iCh]*2,y-zoom[iCh]*2,x+zoom[iCh]*2,y+zoom[iCh]*2);} //zoom in
  if(evt==6){ zoom[iCh]=zoom[iCh]*2;     pPad->Range(x-zoom[iCh]*2,y-zoom[iCh]*2,x+zoom[iCh]*2,y+zoom[iCh]*2);} //zoom out 
  if(zoom[iCh]==minZoom) pPad->Range(-10,-10,AliHMPIDParam::SizeAllX()+5,AliHMPIDParam::SizeAllY()+5);
  ((TCanvas *)gTQSender)->SetTitle(Form("zoom x%i",minZoom/zoom[iCh]));
  pPad->Modified();
  pPad->Update();                                              
}
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
void CheckStatus()
{
  if(fHitFile){
    if(fStHitMip=="OFF") {fHitMipBok->SetFillColor(kRed);} else {fHitMipBok->SetFillColor(18);}
    if(fStHitCko=="OFF") {fHitCkoBok->SetFillColor(kRed);} else {fHitCkoBok->SetFillColor(18);}
    if(fStHitFee=="OFF") {fHitFeeBok->SetFillColor(kRed);} else {fHitFeeBok->SetFillColor(18);}
  }
  if(fDigFile){if(fStDig   =="OFF") {fDigBok->SetFillColor(kRed);} else {fDigBok->SetFillColor(18);}}
  if(fCluFile){if(fStClu   =="OFF") {fCluBok->SetFillColor(kRed);} else {fCluBok->SetFillColor(18);}}
  if(fEsdFile){if(fStEsd   =="OFF") {fEsdBok->SetFillColor(kRed);} else {fEsdBok->SetFillColor(18);}}
}
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
void GetEvent()
{
  ClearRenders();
  
  ReadEvent();
  
  while(!Trigger()) {
  Printf(" trigger %i for event %i",Trigger(),fEvt);
    fEvt+=fTimeArrow;
    ClearRenders();
    ReadEvent();
  }
  
  CheckStatus();
  Draw();
}
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
void NextEvent()
{
  fTimeArrow = 1;
  fEvt+=fTimeArrow;
  GetEvent();
}
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
void PrevEvent()
{
  fTimeArrow = -1;
  fEvt+=fTimeArrow;
  GetEvent();
}
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
void End()
{
  gSystem->Exit(0);
}
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
void Hdisp()                                  
{//display events from files if any in current directory or simulated events
  
  fParam=AliHMPIDParam::Instance();                          // first invocation of AliHMPIDParam to initialize geometry...
  fPdg = TDatabasePDG::Instance();                           // first invocation of TDatabasePDG to retrieve particle infos...
  
  CreateContainers();
  CreateRenders();
  
  TString title="Session with";

  LoadRunLoader();
  
  if(gSystem->IsFileInIncludePath("HMPID.Hits.root")){// tries to open hits
    fHitFile=TFile::Open("HMPID.Hits.root");       fNevt=fHitFile->GetNkeys(); fType=1; title+=Form(" HITS-%i ",fNevt);
  }
  
  if(gSystem->IsFileInIncludePath("HMPID.Digits.root")){// tries to open clusters
     fDigFile=TFile::Open("HMPID.Digits.root");  fNevt=fDigFile->GetNkeys(); fType=1;  title+=Form(" DIGITS-%i ",fNevt);
   }
  
  if(gSystem->IsFileInIncludePath("HMPID.RecPoints.root")){// tries to open clusters
    fCluFile=TFile::Open("HMPID.RecPoints.root");  fNevt=fCluFile->GetNkeys(); fType=1;  title+=Form(" CLUSTERS-%i ",fNevt);
   }

  if(gSystem->IsFileInIncludePath("cosmic.root")){                          //clm: Check if cosmic file is in the folder
    fCosFile=TFile::Open("cosmic.root");  fCosTree=(TTree*)fCosFile->Get("cosmic");  fNevt=fCosTree->GetEntries();  fType=2;
    fCosTree->SetBranchAddress("Digs",&fDigLst);   fCosTree->SetBranchAddress("Clus",&fCluLst); 
  }            

  if(gSystem->IsFileInIncludePath("AliESDs.root")){     
    fEsdFile=TFile::Open("AliESDs.root");
    if(fEsdFile) { 
      fEsdTree=(TTree*)fEsdFile->Get("esdTree"); 
      fEsd->ReadFromTree(fEsdTree); fEsd->GetStdContent();                       //clm: new ESD schema: see Task Force meeting 20th June, 2007
      if(fEsdTree) {
        fNevt=fEsdTree->GetEntries(); fType=1;  title+=Form(" ESD-%i ",fNevt); 
      } else {delete fEsdFile;fEsdFile=0x0;}
    } else {delete fEsdFile; delete fEsdTree;}
  }
  
  fCanvas=new TCanvas("all","",-1024,768);fCanvas->SetWindowSize(1024,768);
  fCanvasImp = fCanvas->GetCanvasImp();
  fCanvasImp->ShowStatusBar();
  fCanvas->Divide(3,3,0,0);//  pAll->ToggleEditor();
  fCanvas->Connect("ProcessedEvent(Int_t,Int_t,Int_t,TObject*)",0,0,"DoZoom(Int_t,Int_t,Int_t,TObject*)");
  fCanvas->cd(7); 
  gStyle->SetPalette(1,0);
  switch(fType){
    case 1: fCanvas->SetTitle(title.Data());                      
                         TButton *pNxtBtn = new TButton("Next"      ,"NextEvent()"   ,0.0,0.0,0.3,0.1); pNxtBtn->Draw(); 
                         TButton *pPrvBtn = new TButton("Previous"  ,"PrevEvent()"   ,0.3,0.0,0.6,0.1); pPrvBtn->Draw(); 
            if(fHitFile){TButton *pHitBtn = new TButton("Print hits","PrintHits()"   ,0.0,0.2,0.3,0.3); pHitBtn->Draw();}  
            if(fDigFile){TButton *pDigBtn = new TButton("Print digs","PrintDigs()"   ,0.0,0.4,0.3,0.5); pDigBtn->Draw();}  
            if(fCluFile){TButton *pCluBtn = new TButton("Print clus","PrintClus()"   ,0.0,0.6,0.3,0.7); pCluBtn->Draw();} 
            if(fEsdFile){TButton *pEsdBtn = new TButton("Print ESD ","PrintEsd()"    ,0.0,0.8,0.3,0.9); pEsdBtn->Draw();}
            if(fHitFile){      fHitMipBok = new TButton(Form("Mip  %s",fStHitMip.Data()),"SwitchHitMip()",0.3,0.16,0.6,0.22); fHitMipBok->Draw();}
            if(fHitFile){      fHitCkoBok = new TButton(Form("Ckov %s",fStHitCko.Data()),"SwitchHitCko()",0.3,0.22,0.6,0.28); fHitCkoBok->Draw();}  
            if(fHitFile){      fHitFeeBok = new TButton(Form("Fdbk %s",fStHitFee.Data()),"SwitchHitFee()",0.3,0.28,0.6,0.34); fHitFeeBok->Draw();}  
            if(fDigFile){         fDigBok = new TButton(fStDig      ,"SwitchDigs()"  ,0.3,0.4,0.6,0.5); fDigBok->Draw();}  
            if(fCluFile){         fCluBok = new TButton(fStClu      ,"SwitchClus()"  ,0.3,0.6,0.6,0.7); fCluBok->Draw();} 
            if(fEsdFile){         fEsdBok = new TButton(fStEsd      ,"SwitchEsd()"   ,0.3,0.8,0.6,0.9); fEsdBok->Draw();}

            if(fHitFile){TButton *fHitMipOnly = new TButton(" Only ","OnlyHitMip()",0.6,0.16,0.9,0.22); fHitMipOnly->Draw();}  
            if(fHitFile){TButton *fHitCkoOnly = new TButton(" Only ","OnlyHitCko()",0.6,0.22,0.9,0.28); fHitCkoOnly->Draw();}  
            if(fHitFile){TButton *fHitFeeOnly = new TButton(" Only ","OnlyHitFee()",0.6,0.28,0.9,0.34); fHitFeeOnly->Draw();}  
            if(fDigFile){TButton *fDigOnly    = new TButton(" Only ","OnlyDigs()"  ,0.6,0.40,0.9,0.50); fDigOnly->Draw();}  
            if(fCluFile){TButton *fCluOnly    = new TButton(" Only ","OnlyClus()"  ,0.6,0.60,0.9,0.70); fCluOnly->Draw();} 
            if(fEsdFile){TButton *fEsdOnly    = new TButton(" Only ","OnlyEsd()"   ,0.6,0.80,0.9,0.90); fEsdOnly->Draw();}
                         TButton *pAll        = new TButton(" ALL  ","All()"       ,0.5,0.90,0.7,1.00); pAll->Draw();
            
                                     TButton *pEnd    = new TButton("Quit"      ,"End()"         ,0.6,0.0,0.9,0.1); pEnd->Draw();
    break;
    case 2: fCanvas->SetTitle("COSMIC");
                         TButton *pCosBtn = new TButton("Next"      ,"NextEvent()",0.0,0.0,0.3,0.1); pCosBtn->Draw(); 
             
    break;
    case 3: fCanvas->SetTitle("SIMULATION"); 
            TButton *pSimBtn = new TButton("Simulate"  ,"NextEvent()",0.0,0.0,0.3,0.1); pSimBtn->Draw(); 
            TButton *pHitBtn = new TButton("Print hits","PrintHits()",0.0,0.2,0.3,0.3); pHitBtn->Draw();  
            TButton *pDigBtn = new TButton("Print digs","PrintDigs()",0.0,0.4,0.3,0.5); pDigBtn->Draw();
            TButton *pCluBtn = new TButton("Print clus","PrintClus()",0.0,0.6,0.3,0.7); pCluBtn->Draw(); 
            TButton *pEsdBtn = new TButton("Print ESD" ,"PrintEsd()" ,0.0,0.8,0.3,0.9); pEsdBtn->Draw();
            if(fHitFile){      fHitMipBok = new TButton(Form("Mips %s",fStHitMip.Data()),"SwitchHitMip()",0.3,0.16,0.6,0.22); fHitMipBok->Draw();}  
            if(fHitFile){      fHitCkoBok = new TButton(Form("Ckov %s",fStHitCko.Data()),"SwitchHitCko()",0.3,0.22,0.6,0.28); fHitCkoBok->Draw();}  
            if(fHitFile){      fHitFeeBok = new TButton(Form("Fdbk %s",fStHitFee.Data()),"SwitchHitFee()",0.3,0.28,0.6,0.34); fHitFeeBok->Draw();}  
            if(fDigFile){         fDigBok = new TButton(fStDig      ,"SwitchDigs()"  ,0.3,0.4,0.6,0.5); fDigBok->Draw();}  
            if(fCluFile){         fCluBok = new TButton(fStClu      ,"SwitchClus()"  ,0.3,0.6,0.6,0.7); fCluBok->Draw();} 
            if(fEsdFile){         fEsdBok = new TButton(fStEsd      ,"SwitchEsd()"   ,0.3,0.8,0.6,0.9); fEsdBok->Draw();}
            
            if(fHitFile){TButton *fHitMipOnly = new TButton(" Only ","OnlyHitMip()",0.6,0.16,0.9,0.22); fHitMipOnly->Draw();}  
            if(fHitFile){TButton *fHitCkoOnly = new TButton(" Only ","OnlyHitCko()",0.6,0.22,0.9,0.28); fHitCkoOnly->Draw();}  
            if(fHitFile){TButton *fHitFeeOnly = new TButton(" Only ","OnlyHitFee()",0.6,0.28,0.9,0.34); fHitFeeOnly->Draw();}  
            if(fDigFile){TButton *fDigOnly    = new TButton(" Only ","OnlyDigs()"  ,0.6,0.40,0.9,0.50); fDigOnly->Draw();}  
            if(fCluFile){TButton *fCluOnly    = new TButton(" Only ","OnlyClus()"  ,0.6,0.60,0.9,0.70); fCluOnly->Draw();} 
            if(fEsdFile){TButton *fEsdOnly    = new TButton(" Only ","OnlyEsd()"   ,0.6,0.80,0.9,0.90); fEsdOnly->Draw();}
                         TButton *pSimAll     = new TButton(" ALL  ","All()"       ,0.5,0.90,0.7,1.00); pSimAll->Draw();
    break;
  }
    
  NextEvent();           
      
}//Hdisp()
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
void SwitchHitMip()
{
  fStHitMip=(fStHitMip=="OFF")? "ON":"OFF";
  GetEvent();
}
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
void SwitchHitCko()
{
  fStHitCko=(fStHitCko=="OFF")? "ON":"OFF";
  GetEvent();
}
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
void SwitchHitFee()
{
  fStHitFee=(fStHitFee=="OFF")? "ON":"OFF";
  GetEvent();
}
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
void SwitchDigs()
{
  fStDig=(fStDig=="OFF")? "ON":"OFF";
  GetEvent();
}
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
void SwitchClus()
{
  fStClu=(fStClu=="OFF")? "ON":"OFF";
  GetEvent();
}
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
void SwitchEsd()
{
  fStEsd=(fStEsd=="OFF")? "ON":"OFF";
   GetEvent();
}
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
void AllNo()
{
  if(fHitFile) {
    fStHitMip = "OFF";
    fStHitCko = "OFF";
    fStHitFee = "OFF";
  }
  if(fDigFile) fStDig    = "OFF";
  if(fCluFile) fStClu    = "OFF";
  if(fEsdFile) fStEsd    = "OFF";
}
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
void AllYes()
{
  if(fHitFile) {
    fStHitMip = "ON";
    fStHitCko = "ON";
    fStHitFee = "ON";
  }
  if(fDigFile) fStDig    = "ON";
  if(fCluFile) fStClu    = "ON";
  if(fEsdFile) fStEsd    = "ON";
}
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
void All()
{
  AllYes();
  GetEvent();
}
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
void OnlyHitMip()
{
  AllNo();
  fStHitMip = "ON";
  GetEvent();
}
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
void OnlyHitCko()
{
  AllNo();
  fStHitCko = "ON";
  GetEvent();
}
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
void OnlyHitFee()
{
  AllNo();
  fStHitFee = "ON";
  GetEvent();
}
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
void OnlyDigs()
{
  AllNo();
  fStDig    = "ON";
  GetEvent();
}
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
void OnlyClus()
{
  AllNo();
  fStClu    = "ON";
  GetEvent();
}
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
void OnlyEsd()
{
  AllNo();
  fStEsd    = "ON";
  GetEvent();
}
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
void LoadRunLoader(){
  if(!gSystem->IsFileInIncludePath("galice.root")) {
  Printf("\n\n galice.root not in path: please check! \n\n");
  return;
  }
  if(gAlice) gAlice=0x0;                       
  gAL=AliRunLoader::Open(); 
  gAL->LoadHeader();
  gAL->LoadHits("HMPID");
  gAL->LoadDigits("HMPID");
  gAL->LoadRecPoints("HMPID");
  gDL = gAL->GetDetectorLoader("HMPID"); 
  if(!gDL){
   Printf("\n\n no AliLoader present: please check! \n\n");
  return;
  }
  fNevt= gAL->GetNumberOfEvents(); 
}
//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
void ReadEvent(){
//used by NextEvent()  to read curent event and construct all render elements
  if(fNevt && fEvt>=fNevt) fEvt=0; //loop over max event
  if(fNevt && fEvt<0) fEvt=fNevt-1; //loop over max event
  
//  Printf("getting event %i out of %i",fEvt,fNevt);
  
  if(gDL) {
  
    gAL->GetEvent(fEvt);
    
//-------- HITS

    fHitTree=gDL->TreeH();

    if(fHitTree) {    
    
      fHitTree->SetBranchAddress("HMPID",&fHitLst);
      
      for(Int_t iEnt=0;iEnt<fHitTree->GetEntries();iEnt++){    
        fHitTree->GetEntry(iEnt);
        RenderHit(fHitLst);   
      }//prim loop
    }//if hits tree

//-------- DIGITS

    fDigTree=gDL->TreeD();
    
    if(fDigTree){ 
      for(Int_t iCh=AliHMPIDParam::kMinCh;iCh<=AliHMPIDParam::kMaxCh;iCh++) fDigTree->SetBranchAddress(Form("HMPID%i",iCh),&(*fDigLst)[iCh]); 
//      fDigTree->GetEvent(fEvt);
      fDigTree->GetEntry(0);                       
      RenderDig(fDigLst);
      //cout << "pointer to the dig list " << fDigLst << endl;
     }

//-------- CLUSTERS

     fCluTree= gDL->TreeR();
     
     if(fCluTree) {
     for(Int_t iCh=AliHMPIDParam::kMinCh;iCh<=AliHMPIDParam::kMaxCh;iCh++) fCluTree->SetBranchAddress(Form("HMPID%i",iCh),&(*fCluLst)[iCh]); 
     fCluTree->GetEntry(0);
     RenderClu(fCluLst);   
    }
  }
  
//-------- ESD
  
  if(fEsdFile){//if ESD file open
    fEsdTree->GetEntry(fEvt);  
    RenderEsd(fEsd);
  }//if ESD file 

}
//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
void SetEvent(Int_t ev)
{
  fEvt=ev;
  GetEvent();
}
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
void SetSigmaCut(Int_t sig=0)
{
  qSigmaCut = sig;
}
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
void SetField()
{
  gROOT->LoadMacro("Field.C");
 
  AliMagF * b = Field();

AliHMPIDTracker::SetFieldMap(b,kTRUE);
}
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
void SetTrigger(Int_t type=0)
{
  trigType = type;
  if(type==1) Printf(" Trigger 1 selected: at least ONE track in HMPID.");
}
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Bool_t Trigger()
{
  if(trigType==0) return kTRUE;
  if(trigType==1) {
    if(fEsd->GetNumberOfTracks()>0) {
    PrintEsd();
    return kTRUE;
    } else return kFALSE;
  }
  return kTRUE;
}
 Hdisp.C:1
 Hdisp.C:2
 Hdisp.C:3
 Hdisp.C:4
 Hdisp.C:5
 Hdisp.C:6
 Hdisp.C:7
 Hdisp.C:8
 Hdisp.C:9
 Hdisp.C:10
 Hdisp.C:11
 Hdisp.C:12
 Hdisp.C:13
 Hdisp.C:14
 Hdisp.C:15
 Hdisp.C:16
 Hdisp.C:17
 Hdisp.C:18
 Hdisp.C:19
 Hdisp.C:20
 Hdisp.C:21
 Hdisp.C:22
 Hdisp.C:23
 Hdisp.C:24
 Hdisp.C:25
 Hdisp.C:26
 Hdisp.C:27
 Hdisp.C:28
 Hdisp.C:29
 Hdisp.C:30
 Hdisp.C:31
 Hdisp.C:32
 Hdisp.C:33
 Hdisp.C:34
 Hdisp.C:35
 Hdisp.C:36
 Hdisp.C:37
 Hdisp.C:38
 Hdisp.C:39
 Hdisp.C:40
 Hdisp.C:41
 Hdisp.C:42
 Hdisp.C:43
 Hdisp.C:44
 Hdisp.C:45
 Hdisp.C:46
 Hdisp.C:47
 Hdisp.C:48
 Hdisp.C:49
 Hdisp.C:50
 Hdisp.C:51
 Hdisp.C:52
 Hdisp.C:53
 Hdisp.C:54
 Hdisp.C:55
 Hdisp.C:56
 Hdisp.C:57
 Hdisp.C:58
 Hdisp.C:59
 Hdisp.C:60
 Hdisp.C:61
 Hdisp.C:62
 Hdisp.C:63
 Hdisp.C:64
 Hdisp.C:65
 Hdisp.C:66
 Hdisp.C:67
 Hdisp.C:68
 Hdisp.C:69
 Hdisp.C:70
 Hdisp.C:71
 Hdisp.C:72
 Hdisp.C:73
 Hdisp.C:74
 Hdisp.C:75
 Hdisp.C:76
 Hdisp.C:77
 Hdisp.C:78
 Hdisp.C:79
 Hdisp.C:80
 Hdisp.C:81
 Hdisp.C:82
 Hdisp.C:83
 Hdisp.C:84
 Hdisp.C:85
 Hdisp.C:86
 Hdisp.C:87
 Hdisp.C:88
 Hdisp.C:89
 Hdisp.C:90
 Hdisp.C:91
 Hdisp.C:92
 Hdisp.C:93
 Hdisp.C:94
 Hdisp.C:95
 Hdisp.C:96
 Hdisp.C:97
 Hdisp.C:98
 Hdisp.C:99
 Hdisp.C:100
 Hdisp.C:101
 Hdisp.C:102
 Hdisp.C:103
 Hdisp.C:104
 Hdisp.C:105
 Hdisp.C:106
 Hdisp.C:107
 Hdisp.C:108
 Hdisp.C:109
 Hdisp.C:110
 Hdisp.C:111
 Hdisp.C:112
 Hdisp.C:113
 Hdisp.C:114
 Hdisp.C:115
 Hdisp.C:116
 Hdisp.C:117
 Hdisp.C:118
 Hdisp.C:119
 Hdisp.C:120
 Hdisp.C:121
 Hdisp.C:122
 Hdisp.C:123
 Hdisp.C:124
 Hdisp.C:125
 Hdisp.C:126
 Hdisp.C:127
 Hdisp.C:128
 Hdisp.C:129
 Hdisp.C:130
 Hdisp.C:131
 Hdisp.C:132
 Hdisp.C:133
 Hdisp.C:134
 Hdisp.C:135
 Hdisp.C:136
 Hdisp.C:137
 Hdisp.C:138
 Hdisp.C:139
 Hdisp.C:140
 Hdisp.C:141
 Hdisp.C:142
 Hdisp.C:143
 Hdisp.C:144
 Hdisp.C:145
 Hdisp.C:146
 Hdisp.C:147
 Hdisp.C:148
 Hdisp.C:149
 Hdisp.C:150
 Hdisp.C:151
 Hdisp.C:152
 Hdisp.C:153
 Hdisp.C:154
 Hdisp.C:155
 Hdisp.C:156
 Hdisp.C:157
 Hdisp.C:158
 Hdisp.C:159
 Hdisp.C:160
 Hdisp.C:161
 Hdisp.C:162
 Hdisp.C:163
 Hdisp.C:164
 Hdisp.C:165
 Hdisp.C:166
 Hdisp.C:167
 Hdisp.C:168
 Hdisp.C:169
 Hdisp.C:170
 Hdisp.C:171
 Hdisp.C:172
 Hdisp.C:173
 Hdisp.C:174
 Hdisp.C:175
 Hdisp.C:176
 Hdisp.C:177
 Hdisp.C:178
 Hdisp.C:179
 Hdisp.C:180
 Hdisp.C:181
 Hdisp.C:182
 Hdisp.C:183
 Hdisp.C:184
 Hdisp.C:185
 Hdisp.C:186
 Hdisp.C:187
 Hdisp.C:188
 Hdisp.C:189
 Hdisp.C:190
 Hdisp.C:191
 Hdisp.C:192
 Hdisp.C:193
 Hdisp.C:194
 Hdisp.C:195
 Hdisp.C:196
 Hdisp.C:197
 Hdisp.C:198
 Hdisp.C:199
 Hdisp.C:200
 Hdisp.C:201
 Hdisp.C:202
 Hdisp.C:203
 Hdisp.C:204
 Hdisp.C:205
 Hdisp.C:206
 Hdisp.C:207
 Hdisp.C:208
 Hdisp.C:209
 Hdisp.C:210
 Hdisp.C:211
 Hdisp.C:212
 Hdisp.C:213
 Hdisp.C:214
 Hdisp.C:215
 Hdisp.C:216
 Hdisp.C:217
 Hdisp.C:218
 Hdisp.C:219
 Hdisp.C:220
 Hdisp.C:221
 Hdisp.C:222
 Hdisp.C:223
 Hdisp.C:224
 Hdisp.C:225
 Hdisp.C:226
 Hdisp.C:227
 Hdisp.C:228
 Hdisp.C:229
 Hdisp.C:230
 Hdisp.C:231
 Hdisp.C:232
 Hdisp.C:233
 Hdisp.C:234
 Hdisp.C:235
 Hdisp.C:236
 Hdisp.C:237
 Hdisp.C:238
 Hdisp.C:239
 Hdisp.C:240
 Hdisp.C:241
 Hdisp.C:242
 Hdisp.C:243
 Hdisp.C:244
 Hdisp.C:245
 Hdisp.C:246
 Hdisp.C:247
 Hdisp.C:248
 Hdisp.C:249
 Hdisp.C:250
 Hdisp.C:251
 Hdisp.C:252
 Hdisp.C:253
 Hdisp.C:254
 Hdisp.C:255
 Hdisp.C:256
 Hdisp.C:257
 Hdisp.C:258
 Hdisp.C:259
 Hdisp.C:260
 Hdisp.C:261
 Hdisp.C:262
 Hdisp.C:263
 Hdisp.C:264
 Hdisp.C:265
 Hdisp.C:266
 Hdisp.C:267
 Hdisp.C:268
 Hdisp.C:269
 Hdisp.C:270
 Hdisp.C:271
 Hdisp.C:272
 Hdisp.C:273
 Hdisp.C:274
 Hdisp.C:275
 Hdisp.C:276
 Hdisp.C:277
 Hdisp.C:278
 Hdisp.C:279
 Hdisp.C:280
 Hdisp.C:281
 Hdisp.C:282
 Hdisp.C:283
 Hdisp.C:284
 Hdisp.C:285
 Hdisp.C:286
 Hdisp.C:287
 Hdisp.C:288
 Hdisp.C:289
 Hdisp.C:290
 Hdisp.C:291
 Hdisp.C:292
 Hdisp.C:293
 Hdisp.C:294
 Hdisp.C:295
 Hdisp.C:296
 Hdisp.C:297
 Hdisp.C:298
 Hdisp.C:299
 Hdisp.C:300
 Hdisp.C:301
 Hdisp.C:302
 Hdisp.C:303
 Hdisp.C:304
 Hdisp.C:305
 Hdisp.C:306
 Hdisp.C:307
 Hdisp.C:308
 Hdisp.C:309
 Hdisp.C:310
 Hdisp.C:311
 Hdisp.C:312
 Hdisp.C:313
 Hdisp.C:314
 Hdisp.C:315
 Hdisp.C:316
 Hdisp.C:317
 Hdisp.C:318
 Hdisp.C:319
 Hdisp.C:320
 Hdisp.C:321
 Hdisp.C:322
 Hdisp.C:323
 Hdisp.C:324
 Hdisp.C:325
 Hdisp.C:326
 Hdisp.C:327
 Hdisp.C:328
 Hdisp.C:329
 Hdisp.C:330
 Hdisp.C:331
 Hdisp.C:332
 Hdisp.C:333
 Hdisp.C:334
 Hdisp.C:335
 Hdisp.C:336
 Hdisp.C:337
 Hdisp.C:338
 Hdisp.C:339
 Hdisp.C:340
 Hdisp.C:341
 Hdisp.C:342
 Hdisp.C:343
 Hdisp.C:344
 Hdisp.C:345
 Hdisp.C:346
 Hdisp.C:347
 Hdisp.C:348
 Hdisp.C:349
 Hdisp.C:350
 Hdisp.C:351
 Hdisp.C:352
 Hdisp.C:353
 Hdisp.C:354
 Hdisp.C:355
 Hdisp.C:356
 Hdisp.C:357
 Hdisp.C:358
 Hdisp.C:359
 Hdisp.C:360
 Hdisp.C:361
 Hdisp.C:362
 Hdisp.C:363
 Hdisp.C:364
 Hdisp.C:365
 Hdisp.C:366
 Hdisp.C:367
 Hdisp.C:368
 Hdisp.C:369
 Hdisp.C:370
 Hdisp.C:371
 Hdisp.C:372
 Hdisp.C:373
 Hdisp.C:374
 Hdisp.C:375
 Hdisp.C:376
 Hdisp.C:377
 Hdisp.C:378
 Hdisp.C:379
 Hdisp.C:380
 Hdisp.C:381
 Hdisp.C:382
 Hdisp.C:383
 Hdisp.C:384
 Hdisp.C:385
 Hdisp.C:386
 Hdisp.C:387
 Hdisp.C:388
 Hdisp.C:389
 Hdisp.C:390
 Hdisp.C:391
 Hdisp.C:392
 Hdisp.C:393
 Hdisp.C:394
 Hdisp.C:395
 Hdisp.C:396
 Hdisp.C:397
 Hdisp.C:398
 Hdisp.C:399
 Hdisp.C:400
 Hdisp.C:401
 Hdisp.C:402
 Hdisp.C:403
 Hdisp.C:404
 Hdisp.C:405
 Hdisp.C:406
 Hdisp.C:407
 Hdisp.C:408
 Hdisp.C:409
 Hdisp.C:410
 Hdisp.C:411
 Hdisp.C:412
 Hdisp.C:413
 Hdisp.C:414
 Hdisp.C:415
 Hdisp.C:416
 Hdisp.C:417
 Hdisp.C:418
 Hdisp.C:419
 Hdisp.C:420
 Hdisp.C:421
 Hdisp.C:422
 Hdisp.C:423
 Hdisp.C:424
 Hdisp.C:425
 Hdisp.C:426
 Hdisp.C:427
 Hdisp.C:428
 Hdisp.C:429
 Hdisp.C:430
 Hdisp.C:431
 Hdisp.C:432
 Hdisp.C:433
 Hdisp.C:434
 Hdisp.C:435
 Hdisp.C:436
 Hdisp.C:437
 Hdisp.C:438
 Hdisp.C:439
 Hdisp.C:440
 Hdisp.C:441
 Hdisp.C:442
 Hdisp.C:443
 Hdisp.C:444
 Hdisp.C:445
 Hdisp.C:446
 Hdisp.C:447
 Hdisp.C:448
 Hdisp.C:449
 Hdisp.C:450
 Hdisp.C:451
 Hdisp.C:452
 Hdisp.C:453
 Hdisp.C:454
 Hdisp.C:455
 Hdisp.C:456
 Hdisp.C:457
 Hdisp.C:458
 Hdisp.C:459
 Hdisp.C:460
 Hdisp.C:461
 Hdisp.C:462
 Hdisp.C:463
 Hdisp.C:464
 Hdisp.C:465
 Hdisp.C:466
 Hdisp.C:467
 Hdisp.C:468
 Hdisp.C:469
 Hdisp.C:470
 Hdisp.C:471
 Hdisp.C:472
 Hdisp.C:473
 Hdisp.C:474
 Hdisp.C:475
 Hdisp.C:476
 Hdisp.C:477
 Hdisp.C:478
 Hdisp.C:479
 Hdisp.C:480
 Hdisp.C:481
 Hdisp.C:482
 Hdisp.C:483
 Hdisp.C:484
 Hdisp.C:485
 Hdisp.C:486
 Hdisp.C:487
 Hdisp.C:488
 Hdisp.C:489
 Hdisp.C:490
 Hdisp.C:491
 Hdisp.C:492
 Hdisp.C:493
 Hdisp.C:494
 Hdisp.C:495
 Hdisp.C:496
 Hdisp.C:497
 Hdisp.C:498
 Hdisp.C:499
 Hdisp.C:500
 Hdisp.C:501
 Hdisp.C:502
 Hdisp.C:503
 Hdisp.C:504
 Hdisp.C:505
 Hdisp.C:506
 Hdisp.C:507
 Hdisp.C:508
 Hdisp.C:509
 Hdisp.C:510
 Hdisp.C:511
 Hdisp.C:512
 Hdisp.C:513
 Hdisp.C:514
 Hdisp.C:515
 Hdisp.C:516
 Hdisp.C:517
 Hdisp.C:518
 Hdisp.C:519
 Hdisp.C:520
 Hdisp.C:521
 Hdisp.C:522
 Hdisp.C:523
 Hdisp.C:524
 Hdisp.C:525
 Hdisp.C:526
 Hdisp.C:527
 Hdisp.C:528
 Hdisp.C:529
 Hdisp.C:530
 Hdisp.C:531
 Hdisp.C:532
 Hdisp.C:533
 Hdisp.C:534
 Hdisp.C:535
 Hdisp.C:536
 Hdisp.C:537
 Hdisp.C:538
 Hdisp.C:539
 Hdisp.C:540
 Hdisp.C:541
 Hdisp.C:542
 Hdisp.C:543
 Hdisp.C:544
 Hdisp.C:545
 Hdisp.C:546
 Hdisp.C:547
 Hdisp.C:548
 Hdisp.C:549
 Hdisp.C:550
 Hdisp.C:551
 Hdisp.C:552
 Hdisp.C:553
 Hdisp.C:554
 Hdisp.C:555
 Hdisp.C:556
 Hdisp.C:557
 Hdisp.C:558
 Hdisp.C:559
 Hdisp.C:560
 Hdisp.C:561
 Hdisp.C:562
 Hdisp.C:563
 Hdisp.C:564
 Hdisp.C:565
 Hdisp.C:566
 Hdisp.C:567
 Hdisp.C:568
 Hdisp.C:569
 Hdisp.C:570
 Hdisp.C:571
 Hdisp.C:572
 Hdisp.C:573
 Hdisp.C:574
 Hdisp.C:575
 Hdisp.C:576
 Hdisp.C:577
 Hdisp.C:578
 Hdisp.C:579
 Hdisp.C:580
 Hdisp.C:581
 Hdisp.C:582
 Hdisp.C:583
 Hdisp.C:584
 Hdisp.C:585
 Hdisp.C:586
 Hdisp.C:587
 Hdisp.C:588
 Hdisp.C:589
 Hdisp.C:590
 Hdisp.C:591
 Hdisp.C:592
 Hdisp.C:593
 Hdisp.C:594
 Hdisp.C:595
 Hdisp.C:596
 Hdisp.C:597
 Hdisp.C:598
 Hdisp.C:599
 Hdisp.C:600
 Hdisp.C:601
 Hdisp.C:602
 Hdisp.C:603
 Hdisp.C:604
 Hdisp.C:605
 Hdisp.C:606
 Hdisp.C:607
 Hdisp.C:608
 Hdisp.C:609
 Hdisp.C:610
 Hdisp.C:611
 Hdisp.C:612
 Hdisp.C:613
 Hdisp.C:614
 Hdisp.C:615
 Hdisp.C:616
 Hdisp.C:617
 Hdisp.C:618
 Hdisp.C:619
 Hdisp.C:620
 Hdisp.C:621
 Hdisp.C:622
 Hdisp.C:623
 Hdisp.C:624
 Hdisp.C:625
 Hdisp.C:626
 Hdisp.C:627
 Hdisp.C:628
 Hdisp.C:629
 Hdisp.C:630
 Hdisp.C:631
 Hdisp.C:632
 Hdisp.C:633
 Hdisp.C:634
 Hdisp.C:635
 Hdisp.C:636
 Hdisp.C:637
 Hdisp.C:638
 Hdisp.C:639
 Hdisp.C:640
 Hdisp.C:641
 Hdisp.C:642
 Hdisp.C:643
 Hdisp.C:644
 Hdisp.C:645
 Hdisp.C:646
 Hdisp.C:647
 Hdisp.C:648
 Hdisp.C:649
 Hdisp.C:650
 Hdisp.C:651
 Hdisp.C:652
 Hdisp.C:653
 Hdisp.C:654
 Hdisp.C:655
 Hdisp.C:656
 Hdisp.C:657
 Hdisp.C:658
 Hdisp.C:659
 Hdisp.C:660
 Hdisp.C:661
 Hdisp.C:662
 Hdisp.C:663
 Hdisp.C:664
 Hdisp.C:665
 Hdisp.C:666
 Hdisp.C:667
 Hdisp.C:668
 Hdisp.C:669
 Hdisp.C:670
 Hdisp.C:671
 Hdisp.C:672
 Hdisp.C:673
 Hdisp.C:674
 Hdisp.C:675
 Hdisp.C:676
 Hdisp.C:677
 Hdisp.C:678
 Hdisp.C:679
 Hdisp.C:680
 Hdisp.C:681
 Hdisp.C:682
 Hdisp.C:683
 Hdisp.C:684
 Hdisp.C:685
 Hdisp.C:686
 Hdisp.C:687
 Hdisp.C:688
 Hdisp.C:689
 Hdisp.C:690
 Hdisp.C:691
 Hdisp.C:692
 Hdisp.C:693
 Hdisp.C:694
 Hdisp.C:695
 Hdisp.C:696
 Hdisp.C:697
 Hdisp.C:698
 Hdisp.C:699
 Hdisp.C:700
 Hdisp.C:701
 Hdisp.C:702
 Hdisp.C:703
 Hdisp.C:704
 Hdisp.C:705
 Hdisp.C:706
 Hdisp.C:707
 Hdisp.C:708
 Hdisp.C:709
 Hdisp.C:710
 Hdisp.C:711
 Hdisp.C:712
 Hdisp.C:713
 Hdisp.C:714
 Hdisp.C:715
 Hdisp.C:716
 Hdisp.C:717
 Hdisp.C:718
 Hdisp.C:719
 Hdisp.C:720
 Hdisp.C:721
 Hdisp.C:722
 Hdisp.C:723
 Hdisp.C:724
 Hdisp.C:725
 Hdisp.C:726
 Hdisp.C:727
 Hdisp.C:728
 Hdisp.C:729
 Hdisp.C:730
 Hdisp.C:731
 Hdisp.C:732
 Hdisp.C:733
 Hdisp.C:734
 Hdisp.C:735
 Hdisp.C:736
 Hdisp.C:737
 Hdisp.C:738
 Hdisp.C:739
 Hdisp.C:740
 Hdisp.C:741
 Hdisp.C:742
 Hdisp.C:743
 Hdisp.C:744
 Hdisp.C:745
 Hdisp.C:746
 Hdisp.C:747
 Hdisp.C:748
 Hdisp.C:749
 Hdisp.C:750
 Hdisp.C:751
 Hdisp.C:752
 Hdisp.C:753
 Hdisp.C:754
 Hdisp.C:755
 Hdisp.C:756
 Hdisp.C:757
 Hdisp.C:758
 Hdisp.C:759
 Hdisp.C:760
 Hdisp.C:761
 Hdisp.C:762
 Hdisp.C:763
 Hdisp.C:764
 Hdisp.C:765
 Hdisp.C:766
 Hdisp.C:767
 Hdisp.C:768
 Hdisp.C:769
 Hdisp.C:770
 Hdisp.C:771
 Hdisp.C:772
 Hdisp.C:773
 Hdisp.C:774
 Hdisp.C:775
 Hdisp.C:776
 Hdisp.C:777
 Hdisp.C:778
 Hdisp.C:779
 Hdisp.C:780
 Hdisp.C:781
 Hdisp.C:782
 Hdisp.C:783
 Hdisp.C:784
 Hdisp.C:785
 Hdisp.C:786
 Hdisp.C:787
 Hdisp.C:788
 Hdisp.C:789
 Hdisp.C:790
 Hdisp.C:791
 Hdisp.C:792
 Hdisp.C:793
 Hdisp.C:794
 Hdisp.C:795
 Hdisp.C:796
 Hdisp.C:797
 Hdisp.C:798
 Hdisp.C:799
 Hdisp.C:800
 Hdisp.C:801
 Hdisp.C:802
 Hdisp.C:803
 Hdisp.C:804
 Hdisp.C:805
 Hdisp.C:806
 Hdisp.C:807
 Hdisp.C:808
 Hdisp.C:809
 Hdisp.C:810
 Hdisp.C:811
 Hdisp.C:812
 Hdisp.C:813
 Hdisp.C:814
 Hdisp.C:815
 Hdisp.C:816
 Hdisp.C:817
 Hdisp.C:818
 Hdisp.C:819
 Hdisp.C:820
 Hdisp.C:821
 Hdisp.C:822
 Hdisp.C:823
 Hdisp.C:824
 Hdisp.C:825
 Hdisp.C:826
 Hdisp.C:827
 Hdisp.C:828
 Hdisp.C:829
 Hdisp.C:830
 Hdisp.C:831
 Hdisp.C:832
 Hdisp.C:833
 Hdisp.C:834
 Hdisp.C:835
 Hdisp.C:836
 Hdisp.C:837
 Hdisp.C:838
 Hdisp.C:839
 Hdisp.C:840
 Hdisp.C:841
 Hdisp.C:842
 Hdisp.C:843
 Hdisp.C:844
 Hdisp.C:845
 Hdisp.C:846
 Hdisp.C:847
 Hdisp.C:848
 Hdisp.C:849
 Hdisp.C:850
 Hdisp.C:851
 Hdisp.C:852
 Hdisp.C:853
 Hdisp.C:854
 Hdisp.C:855
 Hdisp.C:856
 Hdisp.C:857
 Hdisp.C:858
 Hdisp.C:859
 Hdisp.C:860
 Hdisp.C:861
 Hdisp.C:862
 Hdisp.C:863
 Hdisp.C:864
 Hdisp.C:865
 Hdisp.C:866
 Hdisp.C:867
 Hdisp.C:868
 Hdisp.C:869
 Hdisp.C:870
 Hdisp.C:871
 Hdisp.C:872
 Hdisp.C:873
 Hdisp.C:874
 Hdisp.C:875
 Hdisp.C:876
 Hdisp.C:877
 Hdisp.C:878
 Hdisp.C:879
 Hdisp.C:880
 Hdisp.C:881
 Hdisp.C:882
 Hdisp.C:883
 Hdisp.C:884
 Hdisp.C:885
 Hdisp.C:886
 Hdisp.C:887
 Hdisp.C:888
 Hdisp.C:889
 Hdisp.C:890
 Hdisp.C:891
 Hdisp.C:892
 Hdisp.C:893
 Hdisp.C:894
 Hdisp.C:895
 Hdisp.C:896
 Hdisp.C:897
 Hdisp.C:898
 Hdisp.C:899
 Hdisp.C:900
 Hdisp.C:901
 Hdisp.C:902
 Hdisp.C:903
 Hdisp.C:904
 Hdisp.C:905
 Hdisp.C:906
 Hdisp.C:907
 Hdisp.C:908
 Hdisp.C:909
 Hdisp.C:910
 Hdisp.C:911
 Hdisp.C:912
 Hdisp.C:913
 Hdisp.C:914
 Hdisp.C:915
 Hdisp.C:916
 Hdisp.C:917
 Hdisp.C:918
 Hdisp.C:919
 Hdisp.C:920
 Hdisp.C:921
 Hdisp.C:922
 Hdisp.C:923
 Hdisp.C:924
 Hdisp.C:925
 Hdisp.C:926
 Hdisp.C:927
 Hdisp.C:928
 Hdisp.C:929
 Hdisp.C:930
 Hdisp.C:931
 Hdisp.C:932
 Hdisp.C:933
 Hdisp.C:934
 Hdisp.C:935
 Hdisp.C:936
 Hdisp.C:937
 Hdisp.C:938
 Hdisp.C:939
 Hdisp.C:940
 Hdisp.C:941
 Hdisp.C:942
 Hdisp.C:943
 Hdisp.C:944
 Hdisp.C:945
 Hdisp.C:946
 Hdisp.C:947
 Hdisp.C:948
 Hdisp.C:949
 Hdisp.C:950
 Hdisp.C:951
 Hdisp.C:952
 Hdisp.C:953
 Hdisp.C:954
 Hdisp.C:955
 Hdisp.C:956
 Hdisp.C:957
 Hdisp.C:958
 Hdisp.C:959
 Hdisp.C:960
 Hdisp.C:961
 Hdisp.C:962
 Hdisp.C:963
 Hdisp.C:964
 Hdisp.C:965
 Hdisp.C:966
 Hdisp.C:967
 Hdisp.C:968
 Hdisp.C:969
 Hdisp.C:970
 Hdisp.C:971
 Hdisp.C:972
 Hdisp.C:973
 Hdisp.C:974
 Hdisp.C:975
 Hdisp.C:976
 Hdisp.C:977
 Hdisp.C:978
 Hdisp.C:979
 Hdisp.C:980
 Hdisp.C:981
 Hdisp.C:982
 Hdisp.C:983
 Hdisp.C:984
 Hdisp.C:985
 Hdisp.C:986
 Hdisp.C:987
 Hdisp.C:988
 Hdisp.C:989
 Hdisp.C:990
 Hdisp.C:991
 Hdisp.C:992
 Hdisp.C:993
 Hdisp.C:994
 Hdisp.C:995
 Hdisp.C:996
 Hdisp.C:997
 Hdisp.C:998
 Hdisp.C:999
 Hdisp.C:1000
 Hdisp.C:1001
 Hdisp.C:1002
 Hdisp.C:1003
 Hdisp.C:1004
 Hdisp.C:1005
 Hdisp.C:1006
 Hdisp.C:1007
 Hdisp.C:1008
 Hdisp.C:1009
 Hdisp.C:1010
 Hdisp.C:1011
 Hdisp.C:1012