//-----------------------------------------------------------------------------
// this macro plots STNMAKER (dev_224) memory consumption (in SGI2 pages) as a 
// function of the number of processed events
// the plots show mmory leak in TauFinder module, purify points to the 
// following place:
//
//    __ct__14ClumpTowerGridFP11EventRecord [TauClumpCluster.cc:42]
//         SourceCalData calData;
//         if (calData.initEvent (fEvent).is_defined ()) {
//           while (!calData.done ()) {
//    =>       EnergyData* eData = calData.next();
//             double eT = (eData->emEnergy() + eData->hadEnergy()) *
//               sin (towerGeometry ()->theta (eData->iEta ()));
//             _mGrid [eData->iEta ()][clumpPhi (eData->iEta (), eData->iPhi ())].
//-----------------------------------------------------------------------------
stnmaker_memory_use() {
   c1 = new TCanvas("memory","STNTMAKER memory consumption",200,10,700,500);
   //   c1->SetFillColor(42);
   c1->SetGrid();

      // create a 2-d histogram to define the range

   TH2F *hr = new TH2F("stnmaker_memory","STNMAKER memory consumption",
		       2,-0.1,3500,2,6000,10500);
   hr->SetXTitle("N(events)");
   hr->SetYTitle("STNMAKER Process Size(SGI2 16KBytes pages)");

   hr->GetYaxis()->SetLabelSize  (0.025);
   hr->GetYaxis()->SetTitleOffset(1.5);
   hr->GetYaxis()->SetTitleSize  (0.025);

   hr->Draw();
   c1->GetFrame()->SetFillColor(21);
   c1->GetFrame()->SetBorderSize(250);

      // create first graph
   Int_t n1 = 8;
   Float_t x1[]  = {100., 200., 300., 500., 1000., 2000., 2500., 3000.};
   Float_t y1[]  = {6737, 6765., 6791., 6797., 6991., 7015., 7067., 7067.};
   gr1 = new TGraph(n1,x1,y1);
   gr1->SetMarkerColor(kBlue);
   gr1->SetMarkerStyle(21);
   gr1->Draw("LP");

      // create second graph
   Int_t n2 = 8;
   Float_t y2[]  = {6840., 6954., 7062., 7265., 7850., 8962., 9650.,10088.};
   gr2 = new TGraph(n2,x1,y2);
   gr2->SetMarkerColor(kRed);
   gr2->SetMarkerStyle(20);
   gr2->Draw("LP");

   TText* text1 = new TText(2300,7200,"TauFinder OFF");
   text1->Draw();

   TText* text2 = new TText(1800,9700,"TauFinder ON");
   text2->Draw();
}