/**************************************************************************
 *									  *
 * 		 Copyright (C) 1983, Silicon Graphics, Inc.		  *
 *									  *
 *  These coded instructions, statements, and computer programs  contain  *
 *  unpublished  proprietary  information of Silicon Graphics, Inc., and  *
 *  are protected by Federal copyright law.  They  may  not be disclosed  *
 *  to  third  parties  or copied or duplicated in any form, in whole or  *
 *  in part, without the prior written consent of Silicon Graphics, Inc.  *
 *									  *
 **************************************************************************/

#include "gl.h"
#include "device.h"

main (argc,argv)
    int argc;			/* argument count	*/
    char *argv[];		/* array of arguments	*/
{
	Tag b5;
	Object box, track;

	ginit();
	color(BLACK);
	clear();
	doublebuffer();
	gconfig();
	writemask ((1<<getplanes()) -1);	/* << is shift left */

	track =1;
	box = 2;
	makeobj(box);
		b5 = 1;
 		maketag(b5);
		rectf (0.0, 0.0, 100.0, 100.0);
	closeobj();
	makeobj(track);
		modify(box, b5, 0, 1, 1.0, 0.0, MOUSEX);
		modify(box, b5, 0, 2, 1.0, 0.0, MOUSEY);
		modify(box, b5, 0, 3, 1.0, 100.0, MOUSEX);
		modify(box, b5, 0, 4, 1.0, 100.0, MOUSEY);
	closeobj();
	callobj(track);
	while (TRUE) {
		/* quit if all three mouse buttons are pushed */
		if (getbutton(MOUSE1) && getbutton(MOUSE2) && getbutton(MOUSE3))
		    break;
	   	color(BLACK);
	   	clear();
	   	callobj(track);
	   	color(BLUE);
	   	callobj(box);
	   	swapbuffers();
	}
	gexit ();
}