#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);
	v_enter_cur(handle);
	v_exit_cur(handle);
	graf_mouse(M_OFF, 0x0L);
	drawicon(gr_mkmx,gr_mkmy);
	graf_mouse(M_ON, 0x0L);
	drawicon(gr_mkmx+50,gr_mkmy);
	drawicon(gr_mkmx+50,gr_mkmy+50);
	drawicon(gr_mkmx+100,gr_mkmy);
	drawicon(gr_mkmx+100,gr_mkmy+100);
	drawicon(gr_mkmx+150,gr_mkmy);
	drawicon(gr_mkmx+150,gr_mkmy+150);
	drawicon(gr_mkmx+200,gr_mkmy);
	drawicon(gr_mkmx+200,gr_mkmy+200);
	drawicon(gr_mkmx+250,gr_mkmy);
	drawicon(gr_mkmx+250,gr_mkmy+250);
	drawicon(gr_mkmx+300,gr_mkmy);
	drawicon(gr_mkmx,gr_mkmy+50);
	drawicon(gr_mkmx+100,gr_mkmy+50);
	drawicon(gr_mkmx+150,gr_mkmy+50);
	drawicon(gr_mkmx+200,gr_mkmy+50);
	drawicon(gr_mkmx+250,gr_mkmy+50);
	drawicon(gr_mkmx+300,gr_mkmy+50);
	drawicon(gr_mkmx,gr_mkmy+100);
	drawicon(gr_mkmx+50,gr_mkmy+100);
	drawicon(gr_mkmx+150,gr_mkmy+100);
	drawicon(gr_mkmx+200,gr_mkmy+100);
	drawicon(gr_mkmx+250,gr_mkmy+100);
	drawicon(gr_mkmx+300,gr_mkmy+100);
	drawicon(gr_mkmx,gr_mkmy+150);
	drawicon(gr_mkmx+50,gr_mkmy+150);
	drawicon(gr_mkmx+100,gr_mkmy+150);
	drawicon(gr_mkmx+200,gr_mkmy+150);
	drawicon(gr_mkmx+250,gr_mkmy+150);
	drawicon(gr_mkmx+300,gr_mkmy+150);
	drawicon(gr_mkmx,gr_mkmy+200);
	drawicon(gr_mkmx+50,gr_mkmy+200);
	drawicon(gr_mkmx+100,gr_mkmy+200);
	drawicon(gr_mkmx+150,gr_mkmy+200);
	drawicon(gr_mkmx+250,gr_mkmy+200);
	drawicon(gr_mkmx+300,gr_mkmy+200);
	drawicon(gr_mkmx,gr_mkmy+250);
	drawicon(gr_mkmx+50,gr_mkmy+250);
	drawicon(gr_mkmx+100,gr_mkmy+250);
	drawicon(gr_mkmx+150,gr_mkmy+250);
	drawicon(gr_mkmx+200,gr_mkmy+250);
	drawicon(gr_mkmx+300,gr_mkmy+250);
	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) < 10) || (abs(tmpy1, tmpy2) < 10)) &&
				(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);
			graf_mouse(M_OFF, 0x0L);
			drawicon(gr_mkmx,gr_mkmy);
			graf_mouse(M_ON, 0x0L);
			drawicon(tmpx+50,tmpy);
			drawicon(tmpx+50,tmpy+50);
			drawicon(tmpx+100,tmpy);
			drawicon(tmpx+100,tmpy+100);
			drawicon(tmpx+150,tmpy);
			drawicon(tmpx+150,tmpy+150);
			drawicon(tmpx+200,tmpy);
			drawicon(tmpx+200,tmpy+200);
			drawicon(tmpx+250,tmpy);
			drawicon(tmpx+250,tmpy+250);
			drawicon(tmpx+300,tmpy);
			drawicon(tmpx,tmpy+50);
			drawicon(tmpx+100,tmpy+50);
			drawicon(tmpx+150,tmpy+50);
			drawicon(tmpx+200,tmpy+50);
			drawicon(tmpx+250,tmpy+50);
			drawicon(tmpx+300,tmpy+50);
			drawicon(tmpx,tmpy+100);
			drawicon(tmpx+50,tmpy+100);
			drawicon(tmpx+150,tmpy+100);
			drawicon(tmpx+200,tmpy+100);
			drawicon(tmpx+250,tmpy+100);
			drawicon(tmpx+300,tmpy+100);
			drawicon(tmpx,tmpy+150);
			drawicon(tmpx+50,tmpy+150);
			drawicon(tmpx+100,tmpy+150);
			drawicon(tmpx+200,tmpy+150);
			drawicon(tmpx+250,tmpy+150);
			drawicon(tmpx+300,tmpy+150);
			drawicon(tmpx,tmpy+200);
			drawicon(tmpx+50,tmpy+200);
			drawicon(tmpx+100,tmpy+200);
			drawicon(tmpx+150,tmpy+200);
			drawicon(tmpx+250,tmpy+200);
			drawicon(tmpx+300,tmpy+200);
			drawicon(tmpx,tmpy+250);
			drawicon(tmpx+50,tmpy+250);
			drawicon(tmpx+100,tmpy+250);
			drawicon(tmpx+150,tmpy+250);
			drawicon(tmpx+200,tmpy+250);
			drawicon(tmpx+300,tmpy+250);
			tmpx = gr_mkmx;
			tmpy = gr_mkmy;
			*/

			v_enter_cur(handle);
			v_exit_cur(handle);

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

			drawicon(gr_mkmx+50,gr_mkmy);
			drawicon(gr_mkmx+50,gr_mkmy+50);
			drawicon(gr_mkmx+100,gr_mkmy);
			drawicon(gr_mkmx+100,gr_mkmy+100);
			drawicon(gr_mkmx+150,gr_mkmy);
			drawicon(gr_mkmx+150,gr_mkmy+150);
			drawicon(gr_mkmx+200,gr_mkmy);
			drawicon(gr_mkmx+200,gr_mkmy+200);
			drawicon(gr_mkmx+250,gr_mkmy);
			drawicon(gr_mkmx+250,gr_mkmy+250);
			drawicon(gr_mkmx+300,gr_mkmy);
			drawicon(gr_mkmx,gr_mkmy+50);
			drawicon(gr_mkmx+100,gr_mkmy+50);
			drawicon(gr_mkmx+150,gr_mkmy+50);
			drawicon(gr_mkmx+200,gr_mkmy+50);
			drawicon(gr_mkmx+250,gr_mkmy+50);
			drawicon(gr_mkmx+300,gr_mkmy+50);
			drawicon(gr_mkmx,gr_mkmy+100);
			drawicon(gr_mkmx+50,gr_mkmy+100);
			drawicon(gr_mkmx+150,gr_mkmy+100);
			drawicon(gr_mkmx+200,gr_mkmy+100);
			drawicon(gr_mkmx+250,gr_mkmy+100);
			drawicon(gr_mkmx+300,gr_mkmy+100);
			drawicon(gr_mkmx,gr_mkmy+150);
			drawicon(gr_mkmx+50,gr_mkmy+150);
			drawicon(gr_mkmx+100,gr_mkmy+150);
			drawicon(gr_mkmx+200,gr_mkmy+150);
			drawicon(gr_mkmx+250,gr_mkmy+150);
			drawicon(gr_mkmx+300,gr_mkmy+150);
			drawicon(gr_mkmx,gr_mkmy+200);
			drawicon(gr_mkmx+50,gr_mkmy+200);
			drawicon(gr_mkmx+100,gr_mkmy+200);
			drawicon(gr_mkmx+150,gr_mkmy+200);
			drawicon(gr_mkmx+250,gr_mkmy+200);
			drawicon(gr_mkmx+300,gr_mkmy+200);
			drawicon(gr_mkmx,gr_mkmy+250);
			drawicon(gr_mkmx+50,gr_mkmy+250);
			drawicon(gr_mkmx+100,gr_mkmy+250);
			drawicon(gr_mkmx+150,gr_mkmy+250);
			drawicon(gr_mkmx+200,gr_mkmy+250);
			drawicon(gr_mkmx+300,gr_mkmy+250);
			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);
	}
}