/* ======================================================================== *\
!
! *
! * This file is part of MARS, the MAGIC Analysis and Reconstruction
! * Software. It is distributed to you in the hope that it can be a useful
! * and timesaving tool in analysing Data of imaging Cerenkov telescopes.
! * It is distributed WITHOUT ANY WARRANTY.
! *
! * Permission to use, copy, modify and distribute this software and its
! * documentation for any purpose is hereby granted without fee,
! * provided that the above copyright notice appear in all copies and
! * that both that copyright notice and this permission notice appear
! * in supporting documentation. It is provided "as is" without express
! * or implied warranty.
! *
!
!
!   Author(s): Thomas Bretz  12/2000 (tbretz@uni-sw.gwdg.de)
!
!   Copyright: MAGIC Software Development, 2000-2001
!
!
\* ======================================================================== */

Bool_t HandleInput()
{
    TTimer timer("gSystem->ProcessEvents();", 50, kFALSE);
    while (1)
    {
        //
        // While reading the input process gui events asynchronously
        //
        timer.TurnOn();
        TString input = Getline("Type 'q' to exit, <return> to go on: ");
        timer.TurnOff();

        if (input=="q\n")
            return kFALSE;

        if (input=="\n")
            return kTRUE;
    };

    return kFALSE;
}

void readCT1(const char *fname="~/data/CT1_97_on1.dat")
{
    MParList plist;

    MHillas      hillas;
    MHillasExt   hillasext;
    MNewImagePar newimgpar;
    MTaskList    tlist;

    plist.AddToList(&hillas);
    plist.AddToList(&hillasext);
    plist.AddToList(&newimgpar);
    plist.AddToList(&tlist);

    MCT1ReadAscii read(fname);
    MGeomApply    geomapl;
    MClone        clone("MCerPhotEvt");
    MImgCleanStd  clean;
    MHillasCalc   hcalc;

    geomapl.SetGeometry("MGeomCamCT1");

    tlist.AddToList(&read);
    tlist.AddToList(&geomapl);
    tlist.AddToList(&clone);
    tlist.AddToList(&clean);
    tlist.AddToList(&hcalc);

    MEvtLoop evtloop;
    evtloop.SetParList(&plist);

    if (!evtloop.PreProcess())
        return;

    MGeomCam *geomcam = (MGeomCam*)plist->FindObject("MGeomCam");

    Int_t icount = 0;

    MHCamera display[4];
    TCanvas c("Events", "Real Events", 600, 600);
    c.SetBorderMode(0);
    c.Divide(2,2);
    for (int i=0; i<4; i++)
    {
        display[i].SetGeometry(*geomcam);
        c.cd(i+1);
        display[i].Draw();
        gPad->cd(1);
        hillas.Draw();
    }

    // Use this if you don't want the event to be autoscaled
    //display.SetMinimum(0);
    //display.SetMaximum(100);

    while ((rc=tlist.Process()))
    {
        cout << "Event #" << icount++ << endl;

        MCerPhotEvt *evt = (MCerPhotEvt*)clone.GetClone();
        if (!evt)      // If skipped due to MInputStreamId
            continue;

        display[0].SetCamContent(*(MCerPhotEvt*)clone.GetClone());
        display[1].SetCamContent(*(MCerPhotEvt*)plist.FindObject("MCerPhotEvt"));
        display[2].SetCamContent(*(MCamEvent*)plist.FindObject("MCameraData"));
        display[3].SetCamContent(*(MCamEvent*)plist.FindObject("MCameraData"));
        TArrayF lvl(2);
        lvl[0] = clean.GetCleanLvl2();
        lvl[1] = clean.GetCleanLvl1();
        display[3].SetLevels(lvl);

        for (int i=1; i<=4; i++)
        {
            c.GetPad(i)->GetPad(1)->Modified();
            c.GetPad(i)->GetPad(1)->Update();
        }

        hillas.Print(*geomcam);
        hillasext.Print(*geomcam);
        newimgpar.Print();

        if (!HandleInput())
            break;
    } 

    evtloop.PostProcess();
}