/* 
WRITTEN USING CODE WARRIOR 2
COPY WRITE PETER BLACK 30.3.1999
E MAIL ME peter.black@eidosnet.co.uk
*/
#include <libps.h>
#include <__rts_info_t__.h>
#include "padread.h"
#define OT_LENGTH  1//							set OT Length
////////////////////////////////////////////////////////////////////////
//GLOBAL VARIABLES
//OT 
GsOT WorldOT[2];
GsOT_TAG OTTags[2][1<<OT_LENGTH];
int ActiveBuff;
//PRIMITIVES
PACKET GpuPacketArea[2][524*24];//				set GpuPacketArea
GsLINE line;
GsSPRITE screen[4];
//CONTROLLER BUFFS*/
volatile u_char *bb0,*bb1;
int prog=0;
/////////////////////////////////////////////////////////////////
//STATIC FUNCTION TEMPLATES

static void Program2();
static void DrawOTNotClear();
static void ClearOT();
static void DrawOT();
static void LoadSprite(GsSPRITE *sprite,
			u_long attribute,
			u_char u,u_char v,
			u_short w,u_short h,
			short mx,short my,
			int tpx,int tpy);
/////////////////////////////////////////////////////////////////
main()
{
u_char prog=0;
// heap starts after the main program on a 16-byte boundary
	unsigned long	lclHeapStart=(_end & 0xFFFFFFF0L)+0x10;

	// heap extends to the bottom of the stack.
	unsigned long lclHeapSize=((_stack_addr-(_stack_size<<10)) &
0xFFFFFFF0L)-lclHeapStart;

	InitHeap((unsigned long *)lclHeapStart, lclHeapSize);
/////////////////////////////////////////////////////////////////////
//INITIALISE YAROZE SYSTEM
//
// PAD BUFFERS
GetPadBuf(&bb0,&bb1);
//DISPLAY BUFFERS
SetVideoMode(MODE_PAL);
//#####################################################################
//high res option						delete
GsInitGraph(255,255,4,0,0);
GsDefDispBuff(0,0,0,255);
//#######################################################################
//ORDERING TABLE
WorldOT[0].length=OT_LENGTH;
WorldOT[0].org   =OTTags[0];
WorldOT[1].length=OT_LENGTH;
WorldOT[1].org   =OTTags[1];
//FONTS
FntLoad(960,256);
FntOpen(16,16,320,240,0,512);
///////////////////////////////////////////////////////////////////
//MAIN PROGRAM
//

	while(1)
		{
		ClearOT();
		DrawOT();
		FntPrint("\n\n\n           KALeIDOSCOPE");
		FntPrint("\n\n          By Peter Black");
		FntPrint("\n\n WARNING !! DO NOT RUN THIS");
		FntPrint("\n PROGRAM IF YOU ARE AFFECTED");
		FntPrint("\n BY FLASHING LIGHTS/PATTERNS");
		FntPrint("\n \n   Press start");
		FntPrint("\n Buttons to Press");
		FntPrint("\n L1  L2  ");
		FntPrint("\n Square");
		FntPrint("\n Circle");
		FntPrint("\n Triangle");
		FntPrint("\n Cross");
		FntPrint("\n\n To Start Again Press Select");
		FntFlush(-1);
		if(PadOneStart)
			{
			Program2();
			while(PadOneStart)
				{
				//wait
				}
			}
		
		}
		
}
///////////////////////////////////////////////////////////////////
// PROGRAM 2
//

static void Program2()
	{
	int scale=0;
	int twist=ONE*15;
	int a,r=0,g=0,b=0;
	for(a=2;a>0;a--)
		{
		ClearOT();
		DrawOT();
		}
	screen[0].x=128;
	screen[0].y=128;
	prog=1;
	while(prog==1)
		{	
		ClearOT();
		//twist
		
		twist+=((PadOneR1)-(PadOneR2))*100;
		if(twist<0)twist+=1474560;
		if(twist>1474560)twist-=0;
		if(PadOneTriangle==0)
			{
			twist++;
			}
		//scale
		if((PadOneL1)&&(scale<500))
			{
			scale++;
			}
		if((PadOneL2)&&(scale>0))
			{
			scale--;
			}
		//ADD COLOUR
		if(PadOneCircle==0)
			{
			line.x0=(rand()%20)+118;
			line.y0=(rand()%20)+118;
			line.x1=line.x0+1;
			line.y1=line.y0+1;
			line.r=(rand()%256);
			line.g=(rand()%256);
			line.b=(rand()%256);
			GsSortLine(&line,&WorldOT[ActiveBuff],0);	
			}
		LoadSprite(&screen[0],
			(1<<25)|(1<<28)|(1<<30),
			0,0,
			256,256,
			128,128,
			0,0);
		if(PadOneSquare)
			{
			screen[b].rotate=491520;
			}
			else
				{
				screen[b].rotate=twist;
				}
		screen[b].scalex=4096+(scale/10);
		screen[b].scaley=4096+(scale/10);
		GsSortSprite(&screen[b],&WorldOT[ActiveBuff],0);
		while(PadOneCross)
			{
			//wait
			}
			
		DrawOTNotClear();
		if(PadOneSelect)
			{
			prog=0;
			while(PadOneSelect)
				{
				//wait
				}
			}
		}
	}
/////////////////////////////////////////////////
// LOAD SPRITE
static void LoadSprite(GsSPRITE *sprite,
			u_long attribute,
			u_char u,u_char v,
			u_short w,u_short h,
			short mx,short my,
			int tpx,int tpy)
	{
	u_short tpage;
	tpage=GetTPage(2,0,tpx,tpy);
	sprite->attribute=attribute;
	//sprite->x=0;
	//sprite->y=0;
	sprite->w=w;
	sprite->h=h;
	sprite->tpage=tpage;
	sprite->u=u;
	sprite->v=v;
	sprite->cx=0;
	sprite->cy=0;
	sprite->r=128;//colour 
	sprite->g=128;//colour
	sprite->b=128;//colour
	sprite->mx=mx;
	sprite->my=my;
	sprite->scalex=ONE;
	sprite->scaley=ONE;
	sprite->rotate=0;
	
	}
////////////////////////////////////////////////////////////////
//CLEAR OT
//
static void ClearOT()
	{
	ActiveBuff=GsGetActiveBuff();
	GsSetWorkBase((PACKET*)GpuPacketArea[ActiveBuff]);
	GsClearOt(0,0,&WorldOT[ActiveBuff]);
	}
/////////////////////////////////////////////////////////////////
//DRAW OT SWAP DISPLAY BUFFERS
///HIGH RESOLUTION
static void DrawOT()
	{
	DrawSync(0);
	VSync(0);
	//ResetGraph(1);
	GsSwapDispBuff();
	GsSortClear(0,0,0,&WorldOT[ActiveBuff]);
	GsDrawOt(&WorldOT[ActiveBuff]);
	}
void DrawOTNotClear()
	{
	DrawSync(0);
	VSync(0);
	//ResetGraph(1);
	GsSwapDispBuff();
	//GsSortClear(0,0,0,&WorldOT[ActiveBuff]);
	GsDrawOt(&WorldOT[ActiveBuff]);
	}