/***** Demo.c *****/
/* Ken Shoemake, 1993 */

#include <stdlib.h>
#ifdef _WIN32
#include <windows.h>
#endif
#include "../../fakeirisgl.h"

#include "BallAux.h"
#include "Body.h"
#include "Ball.h"


typedef struct {long x, y;} Place;


#define RADIUS	  (0.75)
#define CNTRLDN	  1
#define SHIFTDN	  2


/* Draw the object being controlled. */
void body_Draw(BallData *ball)
{
	HMatrix mNow;
	Ball_Value(ball, mNow);
	pushmatrix();
	multmatrix(mNow);
	scale(RADIUS, RADIUS, RADIUS);
	drawbody(mNow);
	popmatrix();
}

/* Draw whole window, including controller. */
void scene_Draw(BallData *ball)
{
	RGBcolor(0, 0, 0);
	clear();
	body_Draw(ball);
	Ball_Draw(ball);
}


int main(void)
{
    long int gid;
    short active;    /* TRUE if window is attached */
    Device dev;
    short val;
    Place winsize, winorig;
    Place mouseNow;
    int keysDown;
    HVect vNow;
    BallData ball;

    keepaspect(1, 1);
    prefposition(50, 950, 50, 950);
    gid = winopen("Arcball Demo");
    doublebuffer();
    RGBmode();
    gconfig();
    qdevice(WINSHUT);
    qdevice(MOUSEX); qdevice(MOUSEY); qdevice(LEFTMOUSE);
    qdevice(LEFTCTRLKEY); qdevice(RIGHTCTRLKEY);
    qdevice(LEFTSHIFTKEY); qdevice(RIGHTSHIFTKEY);
    qdevice(CAPSLOCKKEY);
    /* perspective(400, 1.f, 0.001, 100000.f); */
    ortho(-1.f, 1.f, -1.f, 1.f, 0.001f, 100000.f);
    translate(0.f, 0.f, -3.f);
    active = 0;

    getsize(&winsize.x, &winsize.y);
    getorigin(&winorig.x, &winorig.y);
    keysDown = 0;
    Ball_Init(&ball);
    Ball_Place(&ball, qOne, RADIUS);

    while (TRUE) {
	while (qtest()) {	 /* process queued events */
	    dev = qread(&val);
	    switch (dev) {
		case WINSHUT:	 /* exit program */
		    gexit();
		    exit(0);
		    break;
		case INPUTCHANGE:
		    active = val;
		    break;
		case REDRAW:
		    reshapeviewport();
		    getsize(&winsize.x, &winsize.y);
		    getorigin(&winorig.x, &winorig.y);
		    break;
		case MOUSEX:
		    mouseNow.x = val;
		    vNow.x = 2.f*(mouseNow.x - winorig.x)/winsize.x - 1.f;
		    break;
		case MOUSEY:
		    mouseNow.y = val;
		    vNow.y = 2.f*(mouseNow.y - winorig.y)/winsize.y - 1.f;
		    break;
		case LEFTMOUSE:
		    if (val) Ball_BeginDrag(&ball);
		    else     Ball_EndDrag(&ball);
		    break;
		case LEFTCTRLKEY: case RIGHTCTRLKEY:
		    keysDown = (keysDown&~CNTRLDN)|(val? CNTRLDN : 0);
		    break;
		case LEFTSHIFTKEY: case RIGHTSHIFTKEY:
		    keysDown = (keysDown&~SHIFTDN)|(val? SHIFTDN : 0);
		    break;
		case CAPSLOCKKEY:
		    if (val) Ball_ShowResult(&ball);
		    else     Ball_HideResult(&ball);
		    break;
		default:
		    break;
	    }			 /* end of switch */
	    Ball_Mouse(&ball, vNow);
	    switch (keysDown) {
		case CNTRLDN+SHIFTDN: Ball_UseSet(&ball, OtherAxes);  break;
		case CNTRLDN:	      Ball_UseSet(&ball, BodyAxes);   break;
		case	     SHIFTDN: Ball_UseSet(&ball, CameraAxes); break;
		default:	      Ball_UseSet(&ball, NoAxes);     break;
	    }
	}			 /* end of while on qtest */
	Ball_Update(&ball);
	scene_Draw(&ball);	 /* draw into the back buffer */
	swapbuffers();		 /* and show it in the front buffer */
    }
    /* NOT REACHED */
}