// Jerzy.Lukasik@ifj.edu.pl
{

const int NROW = 5;
const int NCOL = 7;
TCanvas *cf = 0;
cf = new TCanvas("cf","FADC",0,0,1200,900);
cf->Divide(NCOL,NROW,0.001,0.001,10);
cf->Connect("ProcessedEvent(Int_t,Int_t,Int_t,TObject*)", 0,0, "ProcEvent(Int_t,Int_t,Int_t,TObject*)");
cf->Draw();

for(int MOD=0;MOD<35;MOD++){
int irow = NROW-MOD/NCOL-1;
int icol = MOD%NCOL;
int ipad = NCOL*NROW-MOD;
  TFile *fcut = new TFile(Form("grid_PD1_PD1_%02d.root",MOD),"read");
  TCanvas *tc = (TCanvas*)fcut->Get("c1");
  printf("%2d %s\n",MOD,Form("grid_PD1_PD1_%02d.root",MOD));
  TH2F *hist = (TH2F*)tc->FindObject(Form("PD1_PD1_%02d",MOD));

  cf->cd(ipad);
  gPad->SetLogz(1);
  hist->GetXaxis()->UnZoom();
  hist->GetYaxis()->UnZoom();
  hist->DrawCopy("col");
  TList* th = tc->GetListOfPrimitives();
  TObject *obj;
  //th->Print();
  TIter next(th);
  while((obj = next())){
    if(obj->InheritsFrom(TGraph::Class())) {
        (TGraph*)obj)->Draw("lp");
    }
  }
  
  //tc->DrawClonePad();
  gPad->Modified();
  gPad->Update();
  fcut->Close();
}
}