/*
   =============================================================================
	appskel.c -- GEM application skeleton
	Version 1 -- 1988-08-10 -- D.N. Lynx Crowe
   =============================================================================
*/

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

/*
   =============================================================================
	Defines
   =============================================================================
*/

#define WI_KIND		(SIZER | MOVER | FULLER | CLOSER | NAME)

#define NO_WINDOW	(-1)

#define MIN_WIDTH	(2 * gl_wbox)
#define MIN_HEIGHT	(3 * gl_hbox)

/*
   =============================================================================
	Externals
   =============================================================================
*/

extern int	gl_apid;

/* 
*/

/*
   =============================================================================
	Globals
   =============================================================================
*/

int	gl_hchar;
int	gl_wchar;
int	gl_wbox;
int	gl_hbox;	/* system sizes */

int 	phys_handle;	/* physical workstation handle */
int 	handle;		/* virtual workstation handle */
int	wi_handle;	/* window handle */
int	top_window;	/* handle of topped window */

int	xdesk;		/* desktop */
int	ydesk;
int	hdesk;
int	wdesk;

int	xold;		/* old window */
int	yold;
int	hold;
int	wold;

int	xwork;		/* work area */
int	ywork;
int	hwork;
int	wwork;

int	msgbuff[8];	/* event message buffer */
int	keycode;	/* keycode returned by event-keyboard */
int	mx;		/* mouse x pos. */
int	my;		/* mouse y pos. */
int	butdown;	/* button state tested for, UP/DOWN */
int	ret;		/* dummy return variable */

int	hidden;		/* current state of cursor */
int	fulled;		/* current state of window */

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

int	work_in[11];	/* Input to GSX parameter array */
int	work_out[57];	/* Output from GSX parameter array */
int	pxyarray[10];	/* input point array */

/* 
*/

/*
   =============================================================================
	hide_mouse() -- hide the mouse cursor
   =============================================================================
*/

hide_mouse()
{
	if(NOT hidden) {

		graf_mouse(M_OFF, 0x0L);
		hidden = TRUE;
	}
}

/*
   =============================================================================
	show_mouse() -- show the mouse cursor
   =============================================================================
*/

show_mouse()
{
	if(hidden) {

		graf_mouse(M_ON, 0x0L);
		hidden = FALSE;
	}
}

/* 
*/

/*
   =============================================================================
	open_vwork() -- open virtual workstation
   =============================================================================
*/

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);
}

/*
   =============================================================================
	set_clip() -- set clipping rectangle
   =============================================================================
*/

set_clip(x, y, w, h)
int x, y, w, h;
{
	int clip[4];

	clip[0] = x;
	clip[1] = y;
	clip[2] = x + w;
	clip[3] = y + h;

	vs_clip(handle, 1, clip);
}

/* 
*/

/*
   =============================================================================
	open_window() -- open window
   =============================================================================
*/

open_window()
{
	wi_handle = wind_create(WI_KIND, xdesk, ydesk, wdesk, hdesk);

	wind_set(wi_handle, WF_NAME, " IMA SAMPLE ", 0, 0);

	graf_growbox(xdesk + wdesk / 2, ydesk + hdesk / 2,
		gl_wbox, gl_hbox,
		xdesk, ydesk,
		wdesk, hdesk);

	wind_open(wi_handle, xdesk, ydesk, wdesk, hdesk);

	wind_get(wi_handle, WF_WORKXYWH,
		&xwork, &ywork, &wwork, &hwork);
}

/* 
*/

/*
   =============================================================================
	do_redraw() -- find and redraw all clipping rectangles
   =============================================================================
*/

do_redraw(xc, yc, wc, hc)
int xc, yc, wc, hc;
{
	GRECT t1, t2;

	hide_mouse();
	wind_update(TRUE);

	t2.g_x = xc;
	t2.g_y = yc;
	t2.g_w = wc;
	t2.g_h = hc;

	wind_get(wi_handle, WF_FIRSTXYWH,
		&t1.g_x, &t1.g_y, &t1.g_w, &t1.g_h);

	while (t1.g_w AND t1.g_h) {

		if (rc_intersect(&t2, &t1)) {

			set_clip(t1.g_x, t1.g_y, t1.g_w, t1.g_h);
			draw_sample();
		}

		wind_get(wi_handle, WF_NEXTXYWH,
			&t1.g_x, &t1.g_y, &t1.g_w, &t1.g_h);
	}

	wind_update(FALSE);
	show_mouse();
}

/* 
*/

/*
   =============================================================================
	main() -- Application Initialization
   =============================================================================
*/

main()
{
	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();
        open_window();
	graf_mouse(ARROW, 0x0L);

	hidden=FALSE;
	fulled=FALSE;
	butdown=TRUE;

	multi();
}
/* 
*/

/*
   =============================================================================
	multi() -- dispatch apllication tasks
   =============================================================================
*/

multi()
{
	int event;

	do {

		event = evnt_multi(MU_MESAG | MU_BUTTON | MU_KEYBD,
			1, 1, butdown,
			0, 0, 0, 0, 0,
			0, 0, 0, 0, 0,
			msgbuff, 0, 0,  &mx, &my, &ret, &ret, &keycode, &ret);

	wind_update(TRUE);

/* 
*/
	if (event & MU_MESAG)
		switch (msgbuff[0]) {

		case WM_REDRAW:

			do_redraw(msgbuff[4], msgbuff[5],
				msgbuff[6], msgbuff[7]);

			break;

		case WM_NEWTOP:
		case WM_TOPPED:

			wind_set(wi_handle, WF_TOP, 0, 0, 0, 0);
			break;

		case WM_SIZED:
		case WM_MOVED:

			if(msgbuff[6] < MIN_WIDTH)
				msgbuff[6] = MIN_WIDTH;

			if(msgbuff[7] < MIN_HEIGHT)
				msgbuff[7] = MIN_HEIGHT;

			wind_set(wi_handle, WF_CURRXYWH,
				msgbuff[4], msgbuff[5],
				msgbuff[6], msgbuff[7]);

			wind_get(wi_handle, WF_WORKXYWH,
				&xwork, &ywork, &wwork, &hwork);

			break;
/* 
*/
		case WM_FULLED:

			if(fulled) {

				wind_calc(WC_WORK, WI_KIND,
					xold, yold, wold, hold,
					&xwork, &ywork, &wwork, &hwork);

				wind_set(wi_handle, WF_CURRXYWH,
					xold, yold, wold, hold);

			} else {

				wind_calc(WC_BORDER, WI_KIND,
					xwork, ywork, wwork, hwork,
					&xold, &yold, &wold, &hold);

				wind_calc(WC_WORK, WI_KIND,
					xdesk, ydesk, wdesk, hdesk,
					&xwork, &ywork, &wwork, &hwork);

				wind_set(wi_handle, WF_CURRXYWH,
					xdesk, ydesk, wdesk, hdesk);
			}

			fulled ^= TRUE;
			break;

		}	/* end of switch (msgbuff[0]) */
/* 
*/
		if ((event & MU_BUTTON) AND (wi_handle EQ top_window))
			if(butdown)
				butdown = FALSE;
			else
				butdown = TRUE;

		if(event & MU_KEYBD) {

		     do_redraw(xwork, ywork, wwork, hwork);
		}
	
		wind_update(FALSE);

	} while(NOT ((event & MU_MESAG) AND (msgbuff[0] EQ WM_CLOSED)));

	wind_close(wi_handle);

	graf_shrinkbox(xwork + wwork / 2, ywork + hwork / 2,
		gl_wbox, gl_hbox, xwork, ywork, wwork, hwork);

	wind_delete(wi_handle);
	v_clsvwk(handle);

	appl_exit();
}

/* 
*/

/*
   =============================================================================
	draw_sample() -- SAMPLE:  Draw Filled Ellipse.
   =============================================================================
*/

draw_sample()
{
	int temp[4];

	vsf_interior(handle, 2);
	vsf_style(handle, 8);
	vsf_color(handle, 0);

	temp[0] = xwork;
	temp[1] = ywork;
	temp[2] = xwork + wwork - 1;
	temp[3] = ywork + hwork - 1;

	v_bar(handle, temp);		/* blank the interior */
	vsf_interior(handle, 4);
	vsf_color(handle, 1);

	v_ellipse(handle, xwork + wwork / 2, ywork + hwork / 2,
		wwork / 2, hwork / 2);
}