#include "obdefs.h" 
#include "gemdefs.h"
#include "osbind.h"

/* AES (windows and messages) related variables */
int gl_hchar;
int gl_wchar;
int gl_wbox;
int gl_hbox;
int phys_handle;
int handle;
int wi_handle;
int formw, formh, sx, sy, lx, ly;
int xdesk, ydesk, hdesk, wdesk;
int xwork, ywork, hwork, wwork;

int contrl[12];
int intin[128];
int ptsin[128];
int intout[128];
int ptsout[128];

int work_in[11];
int work_out[57];

main()
{
	int gr_mkmx, gr_mkmy;
	int gr_mkmstate, gr_mkkstate;
	int tmpx, tmpy;
	int tmpx1, tmpy1;
	int tmpx2, tmpy2;
	int index, rgb_in[3];
	int draw;

	appl_init();
	phys_handle = graf_handle(&gl_wchar, &gl_hchar, &gl_wbox, &gl_hbox);
	wind_get(0, WF_WORKXYWH, &xdesk, &ydesk, &wdesk, &hdesk);
	open_vwork();
	wi_handle = wind_create(0x0040&0x0080, xdesk, ydesk, wdesk, hdesk);
	graf_mouse(3, 0x0L);
	graf_mkstate(&gr_mkmx, &gr_mkmy, &gr_mkmstate, &gr_mkkstate);
	tmpx = gr_mkmx;
	tmpy = gr_mkmy;
	vswr_mode(handle, 3);
	graf_mouse(M_OFF, 0x0L);
	drawicon(gr_mkmx,gr_mkmy);
	graf_mouse(M_ON, 0x0L);
	drawicon(gr_mkmx+65,gr_mkmy);
	drawicon(gr_mkmx+65,gr_mkmy+65);
	drawicon(gr_mkmx+130,gr_mkmy);
	drawicon(gr_mkmx+130,gr_mkmy+130);
	drawicon(gr_mkmx+195,gr_mkmy);
	drawicon(gr_mkmx+195,gr_mkmy+195);
	drawicon(gr_mkmx+260,gr_mkmy);
	drawicon(gr_mkmx+260,gr_mkmy+260);
	drawicon(gr_mkmx+325,gr_mkmy);
	drawicon(gr_mkmx+325,gr_mkmy+325);
	drawicon(gr_mkmx+390,gr_mkmy);
	drawicon(gr_mkmx,gr_mkmy+65);
	drawicon(gr_mkmx+130,gr_mkmy+65);
	drawicon(gr_mkmx+195,gr_mkmy+65);
	drawicon(gr_mkmx+260,gr_mkmy+65);
	drawicon(gr_mkmx+325,gr_mkmy+65);
	drawicon(gr_mkmx+390,gr_mkmy+65);
	drawicon(gr_mkmx,gr_mkmy+130);
	drawicon(gr_mkmx+65,gr_mkmy+130);
	drawicon(gr_mkmx+195,gr_mkmy+130);
	drawicon(gr_mkmx+260,gr_mkmy+130);
	drawicon(gr_mkmx+325,gr_mkmy+130);
	drawicon(gr_mkmx+390,gr_mkmy+130);
	drawicon(gr_mkmx,gr_mkmy+195);
	drawicon(gr_mkmx+65,gr_mkmy+195);
	drawicon(gr_mkmx+130,gr_mkmy+195);
	drawicon(gr_mkmx+260,gr_mkmy+195);
	drawicon(gr_mkmx+325,gr_mkmy+195);
	drawicon(gr_mkmx+390,gr_mkmy+195);
	drawicon(gr_mkmx,gr_mkmy+260);
	drawicon(gr_mkmx+65,gr_mkmy+260);
	drawicon(gr_mkmx+130,gr_mkmy+260);
	drawicon(gr_mkmx+195,gr_mkmy+260);
	drawicon(gr_mkmx+325,gr_mkmy+260);
	drawicon(gr_mkmx+390,gr_mkmy+260);
	drawicon(gr_mkmx,gr_mkmy+325);
	drawicon(gr_mkmx+65,gr_mkmy+325);
	drawicon(gr_mkmx+130,gr_mkmy+325);
	drawicon(gr_mkmx+195,gr_mkmy+325);
	drawicon(gr_mkmx+260,gr_mkmy+325);
	drawicon(gr_mkmx+390,gr_mkmy+325);
	while(!(0x0002&gr_mkmstate))	{
		graf_mkstate(&gr_mkmx, &gr_mkmy, &gr_mkmstate, &gr_mkkstate);
		tmpx1 = gr_mkmx;
		tmpy1 = gr_mkmy;
		tmpx2 = gr_mkmx;
		tmpy2 = gr_mkmy;
		graf_mkstate(&gr_mkmx, &gr_mkmy, &gr_mkmstate, &gr_mkkstate);
		while (((tmpx1 != gr_mkmx) || (tmpy1 != gr_mkmy)) &&
				((abs(tmpx1, tmpx2) < 4) || (abs(tmpy1, tmpy2) < 4)) &&
				(0x0001&gr_mkmstate))	{
			graf_mkstate(&gr_mkmx, &gr_mkmy, &gr_mkmstate, &gr_mkkstate);
			tmpx1 = gr_mkmx;
			tmpy1 = gr_mkmy;
			graf_mkstate(&gr_mkmx, &gr_mkmy, &gr_mkmstate, &gr_mkkstate);
			draw = 1;
		}
		if (draw)	{
			/*
			v_enter_cur(handle);
			v_exit_cur(handle);
			*/

			graf_mouse(M_OFF, 0x0L);
			drawicon(tmpx,tmpy);
			graf_mouse(M_ON, 0x0L);
			drawicon(tmpx+65,tmpy);
			drawicon(tmpx+65,tmpy+65);
			drawicon(tmpx+130,tmpy);
			drawicon(tmpx+130,tmpy+130);
			drawicon(tmpx+195,tmpy);
			drawicon(tmpx+195,tmpy+195);
			drawicon(tmpx+260,tmpy);
			drawicon(tmpx+260,tmpy+260);
			drawicon(tmpx+325,tmpy);
			drawicon(tmpx+325,tmpy+325);
			drawicon(tmpx+390,tmpy);
			drawicon(tmpx,tmpy+65);
			drawicon(tmpx+130,tmpy+65);
			drawicon(tmpx+195,tmpy+65);
			drawicon(tmpx+260,tmpy+65);
			drawicon(tmpx+325,tmpy+65);
			drawicon(tmpx+390,tmpy+65);
			drawicon(tmpx,tmpy+130);
			drawicon(tmpx+65,tmpy+130);
			drawicon(tmpx+195,tmpy+130);
			drawicon(tmpx+260,tmpy+130);
			drawicon(tmpx+325,tmpy+130);
			drawicon(tmpx+390,tmpy+130);
			drawicon(tmpx,tmpy+195);
			drawicon(tmpx+65,tmpy+195);
			drawicon(tmpx+130,tmpy+195);
			drawicon(tmpx+260,tmpy+195);
			drawicon(tmpx+325,tmpy+195);
			drawicon(tmpx+390,tmpy+195);
			drawicon(tmpx,tmpy+260);
			drawicon(tmpx+65,tmpy+260);
			drawicon(tmpx+130,tmpy+260);
			drawicon(tmpx+195,tmpy+260);
			drawicon(tmpx+325,tmpy+260);
			drawicon(tmpx+390,tmpy+260);
			drawicon(tmpx,tmpy+325);
			drawicon(tmpx+65,tmpy+325);
			drawicon(tmpx+130,tmpy+325);
			drawicon(tmpx+195,tmpy+325);
			drawicon(tmpx+260,tmpy+325);
			drawicon(tmpx+390,tmpy+325);
			tmpx = gr_mkmx;
			tmpy = gr_mkmy;

			graf_mouse(M_OFF, 0x0L);
			drawicon(gr_mkmx,gr_mkmy);
			graf_mouse(M_ON, 0x0L);

			drawicon(gr_mkmx+65,gr_mkmy);
			drawicon(gr_mkmx+65,gr_mkmy+65);
			drawicon(gr_mkmx+130,gr_mkmy);
			drawicon(gr_mkmx+130,gr_mkmy+130);
			drawicon(gr_mkmx+195,gr_mkmy);
			drawicon(gr_mkmx+195,gr_mkmy+195);
			drawicon(gr_mkmx+260,gr_mkmy);
			drawicon(gr_mkmx+260,gr_mkmy+260);
			drawicon(gr_mkmx+325,gr_mkmy);
			drawicon(gr_mkmx+325,gr_mkmy+325);
			drawicon(gr_mkmx+390,gr_mkmy);
			drawicon(gr_mkmx,gr_mkmy+65);
			drawicon(gr_mkmx+130,gr_mkmy+65);
			drawicon(gr_mkmx+195,gr_mkmy+65);
			drawicon(gr_mkmx+260,gr_mkmy+65);
			drawicon(gr_mkmx+325,gr_mkmy+65);
			drawicon(gr_mkmx+390,gr_mkmy+65);
			drawicon(gr_mkmx,gr_mkmy+130);
			drawicon(gr_mkmx+65,gr_mkmy+130);
			drawicon(gr_mkmx+195,gr_mkmy+130);
			drawicon(gr_mkmx+260,gr_mkmy+130);
			drawicon(gr_mkmx+325,gr_mkmy+130);
			drawicon(gr_mkmx+390,gr_mkmy+130);
			drawicon(gr_mkmx,gr_mkmy+195);
			drawicon(gr_mkmx+65,gr_mkmy+195);
			drawicon(gr_mkmx+130,gr_mkmy+195);
			drawicon(gr_mkmx+260,gr_mkmy+195);
			drawicon(gr_mkmx+325,gr_mkmy+195);
			drawicon(gr_mkmx+390,gr_mkmy+195);
			drawicon(gr_mkmx,gr_mkmy+260);
			drawicon(gr_mkmx+65,gr_mkmy+260);
			drawicon(gr_mkmx+130,gr_mkmy+260);
			drawicon(gr_mkmx+195,gr_mkmy+260);
			drawicon(gr_mkmx+325,gr_mkmy+260);
			drawicon(gr_mkmx+390,gr_mkmy+260);
			drawicon(gr_mkmx,gr_mkmy+325);
			drawicon(gr_mkmx+65,gr_mkmy+325);
			drawicon(gr_mkmx+130,gr_mkmy+325);
			drawicon(gr_mkmx+195,gr_mkmy+325);
			drawicon(gr_mkmx+260,gr_mkmy+325);
			drawicon(gr_mkmx+390,gr_mkmy+325);
			draw = 0;
		}
	}
	wind_delete(wi_handle);
	v_clsvwk(handle);
	appl_exit();
}

open_vwork()
{
	int i;

	for (i=0; i < 10;)
		work_in[i++] = 1;
	work_in[10] = 2;
	handle = phys_handle;
	v_opnvwk(work_in, &handle, work_out);
}


abs(x, y)
int x,y;
{
	if (x > y)	{
		return(x - y);
	} else {
		return(y - x);
	}
}