/* A simple ploting program to show mouse motion tracking function in IWL and WM 
			Hans Chen
*/
#include "IWInclude.h"
#include "WMInclude.h"
#include "IWL.h"
#include "WMFunc.h"

static char sMessage[30];
static char sMessage1[30];
static IW_POINT_2D gfPt[1000];
static int giNPt = 0 ;
static int giZero=0, giOne=1, giTwo=2, giThree=3,giMone= -1;
static int giGID = 0, giPlotX = 0, giPlotY = 0,giColor = 0;
int *giObjList;
quit()
{
unsigned long mask;

   mask = EnterWindowMask|LeaveWindowMask|ButtonPressMask|ButtonReleaseMask|
          PointerMotionMask|KeyReleaseMask;
   WMCancelEventHandler(IW_ALL_WINDOWS, mask);
   WMCancelDisplayChange(IW_ALL_WINDOWS);
   exit(0);
}

void MakePlot(  ix, iy, iz, itime, nx, ny )
int ix,iy,nx,ny,iz,itime;
{
float scale;
int i,id,im;
float min, max, range;
float src[2000];
int nxm1,nym1;

   nxm1 = nx - 1;
   nym1 = ny - 1;
   IMPosnZWT(giOne, iz, giZero, itime);
   IMRdPas( giOne, src, nx, giOne, giZero, nxm1, iy, iy); 
   min = src[0];
   max = src[0];

   for(i=0;i< nx; i++)
   {
     if( src[i] > max )
       max = src[i];
     else if( src[i] < min )
       min = src[i];
   }
   range = max - min;
   scale = ny / 2.0 / range;
   id = 0;
   for(i = 0; i< nx; i++)
   {
     gfPt[i].x = i;
     gfPt[i].y = (src[i] - min) * scale;
   }
   giPlotX = IWGrAddLns2D( giOne, gfPt, nx, giOne, giOne, giThree ); 
   IMPosnZWT(giOne, iz, giZero, itime);
   IMRdPas( giOne, src, giOne, ny, ix, ix, giZero, nym1); 
   min = src[0];
   max = src[0];
   for(i = 0; i < ny; i++)
   {
    if( src[i] > max )
      max = src[i];
    else if( src[i] < min )
      min = src[i];
   }
   range = max - min;
   scale = ny / 2.0 / range;
   id = 0;
   for( i = 0; i<ny; i++)
   {
    gfPt[i].x = (src[i] - min ) *scale;
    gfPt[i].y = i;
   }
   giPlotY = IWGrAddLns2D( giOne, gfPt, ny, giOne, giOne, giTwo ); 
   return;
}   
   

int EventHandler(itype, event)
int itype;
XEvent *event;
{
static int iwid=0;
char sWid[3];
float  xyz[3];
int  itime;
float dmin, dmax, dmean;
static int red[20],green[20],blue[20];
int mode,id;
static int nxyz[3], mxyz[3];
static float rad = 1;
int iz;
        if( itype == EnterWindowMask )
        {
          giColor = (giColor +1)%4;
          if( giColor == 0 )
            giColor = 1;
          iwid = IWXEvtToWid(event);
          sprintf( sWid, "%d", iwid );
          IMAlPrt( giZero );
          IMOpen( giOne, sWid, "ro");
          IMRdHdr( giOne, nxyz, mxyz, &mode, &dmin, &dmax, &dmean );
          IWStartOverlay( giOne, giColor);
          giObjList=(int *)IWAlcSHM(3,sizeof(int));
          giNPt = 0; 
          rad = 1;
          giGID = 0;
          printf("NUM_OV_COLOR= %d\n", IWRtNumOVColors());
          IWRtOVColors(red,green,blue); 
        }
        else if( itype == LeaveWindowMask )
        {
          IWClearOverlay(giOne);
          IWEndOverlay( giOne);
	  IWGrRmProc( giOne );
          IMClose( giOne ); 
        }
        else if( itype == ButtonPressMask )
        {
        printf( "istream= %d\n",IWXEvtToStream( event ));
          IWEndOverlay( giOne);
          IWXEvtToData( giOne, giZero, event, xyz, &itime );
          id = IWGrAddCir2D( giOne, xyz[0], xyz[1], rad, giThree, giOne ); 
          rad = rad + 1;
            giObjList[0] = id;
          IWGrDisGrList(giOne,giObjList, giOne);
          IWStartOverlay( giOne, giColor);
        }
        else if( itype == KeyReleaseMask )
        {
          printf(" keyreleasemask\n");
        }
        else if( itype == PointerMotionMask )
        {
          red[0] = (red[0]+1)%255;
          green[0] = red[0];
          blue[0] = red[0];
          IWAlOVColors(red,green,blue); 
          IWXEvtToData( giOne, giZero, event, xyz, &itime);
          if(xyz[0]>=0&&xyz[1]>=0&&xyz[1]<nxyz[1]&&xyz[0]<nxyz[0])  
          {
           if( giNPt < 1000 )
           {
            if( giGID != 0 )
            {
	       IWGrRmProc( giOne );
               IWClearOverlay(giOne);
               
            }
            gfPt[ 0 ].x = 0;
            gfPt[ 0 ].y = xyz[1];
            gfPt[ 1 ].x = nxyz[0]-1;
            gfPt[ 1 ].y = xyz[1];
            gfPt[ 2 ].x = xyz[0];
            gfPt[ 2 ].y = 0;
            gfPt[ 3 ].x = xyz[0];
            gfPt[ 3 ].y = nxyz[1]-1;
            giNPt = 4;
            giGID = IWGrAddMultLns2D( giOne, gfPt, giNPt, giOne, 
                           giZero, giOne );
            iz = xyz[2];
            MakePlot(  (int)xyz[0], (int)xyz[1], iz, itime,  nxyz[0], nxyz[1], iz, itime); 
            giObjList[0] = giPlotY;
            giObjList[1] = giPlotX;
            giObjList[2] = giGID;
            IWGrDisGrList(giOne,giObjList, giThree);
           }
          }
        }
        return( 0 );
}
main()
{

	WMInit("Cross Profile");
	WMSetLoc( 500, 500 );
	WMAddInfoButton(" MotionEvent Demo",NULL);
	WMAttachRightSide();
	WMNewRow();
        strcpy( sMessage, " Move mouse into a window ");
        WMAddText( sMessage,29, 1); 
        WMNewRow();
        strcpy( sMessage1, " and try mouse button click");
        WMAddText( sMessage1,29, 1); 
        WMNewRow();
        WMAddFuncButton("Exit", quit, NULL, 0,0);
	WMAttachRightSide();
	WMAddEventHandler(IW_ALL_WINDOWS,
	          EnterWindowMask,EventHandler,EnterWindowMask);
        WMAddEventHandler(IW_ALL_WINDOWS,
          LeaveWindowMask,EventHandler,LeaveWindowMask);
	WMAddEventHandler(IW_ALL_WINDOWS,
          PointerMotionMask,EventHandler,PointerMotionMask);
	WMAddEventHandler(IW_ALL_WINDOWS,
          ButtonPressMask,EventHandler,ButtonPressMask);
	WMAddEventHandler(IW_ALL_WINDOWS,
          ButtonReleaseMask,EventHandler,ButtonReleaseMask);	
	WMAddEventHandler(IW_ALL_WINDOWS,
          KeyReleaseMask,EventHandler,KeyReleaseMask);	
        WMEnableIWLEvent();
        WMDisplay();
        WMAppMainLoop();
}