/******************************************************************************
**									     **
** MultiColor-Demo-Plasma						     **
**									     **
**---------------------------------------------------------------------------**
** V2.0 vom 01.10.95							     **
******************************************************************************/

#include "sc:source/mc/multicolor.h"

/* Protos */

void OpenAll(void);
void CloseAll(void);
void Plasma(int frac);
void Usage(void);
/* defines */

extern struct ExecBase		*SysBase;
struct IntuitionBase		*IntuitionBase=0l;
struct GfxBase				*GfxBase=0l;
struct Screen				*scr=0l;
struct Window				*win=0l;
MCHandle					*mch=0l;

struct TagItem scrtags[]={
	SA_Left,		0,
	SA_Top, 		0,
	SA_Width,		0,
	SA_Height,		0,
	SA_Depth,		0,
	SA_Colors,		0l,
	SA_Type,		CUSTOMSCREEN,
	SA_DisplayID,	PAL_MONITOR_ID,
	TAG_DONE
};

struct TagItem wintags[]={
	WA_Left,		0,
	WA_Top, 		0,
	WA_Width,		0,
	WA_Height,		0,
	WA_IDCMP,		IDCMP_MOUSEBUTTONS|IDCMP_RAWKEY,
	WA_Flags,		WFLG_SMART_REFRESH|WFLG_RMBTRAP|WFLG_BORDERLESS|WFLG_ACTIVATE,
	WA_CustomScreen,0l,
	TAG_DONE
};

/* Funktions */

void OpenAll(void)
{
//	if(!(IntuitionBase=OpenLibrary("intuition.library",37))) CloseAll();
	if(!(IntuitionBase=(struct IntuitionBase *)OpenLibrary("intuition.library",39))) CloseAll();
	if(!(GfxBase=(struct GfxBase *)OpenLibrary("graphics.library",37))) CloseAll();

	if(!(scr=OpenScreenTagList(0l,scrtags))) CloseAll();
	wintags[6].ti_Data=(ULONG)scr;

	if(!(win=OpenWindowTagList(0l,wintags))) CloseAll();
}

void CloseAll(void)
{
	if(win)                 CloseWindow(win);
	if(scr)                 CloseScreen(scr);
	if(GfxBase)             CloseLibrary((struct Library *)GfxBase);
	if(IntuitionBase)       CloseLibrary((struct Library *)IntuitionBase);
	exit(0);
}

void Plasma(int ifrac)
{
    struct IntuiMessage *imsg;
    ULONG iclass;
    USHORT icode;
    register UBYTE quit=0;
    MCPoint akt,c1,c3,c5,c7,c9;
    UWORD f[300][4],dimx,dimy;
    WORD ptr=0;
    UWORD x1,x2,x3,y1,y2,y3;
    ULONG rndf;
    ULONG xyres;

    xyres = mch->xres*mch->yres;

    srand48(time(NULL));                    /* init the random-number-generator */
    f[0][0]=0;f[0][1]=0;f[0][2]=mch->xres-1;f[0][3]=mch->yres-1;

    /* akt.r=drand48();akt.g=drand48();akt.b=drand48(); */
    akt.r=rand()&0xFF;akt.g=rand()&0xFF;akt.b=rand()&0xFF;
    MC_PutPixel(mch,0,0,&akt);
    akt.r=rand()&0xFF;akt.g=rand()&0xFF;akt.b=rand()&0xFF;
    MC_PutPixel(mch,mch->xres-1,0,&akt);
    akt.r=rand()&0xFF;akt.g=rand()&0xFF;akt.b=rand()&0xFF;
    MC_PutPixel(mch,mch->xres-1,mch->yres-1,&akt);
    akt.r=rand()&0xFF;akt.g=rand()&0xFF;akt.b=rand()&0xFF;
    MC_PutPixel(mch,0,mch->xres-1,&akt);
    while(ptr>-1)
    {
	dimx=f[ptr][2]-f[ptr][0];
	dimy=f[ptr][3]-f[ptr][1];
	if(dimx>1 || dimy>1)
	{
	    rndf=(dimx*dimy)*ifrac/xyres;
	    x1=f[ptr][0];x3=f[ptr][2];x2=x1+((x3-x1)>>1);
	    y1=f[ptr][1];y3=f[ptr][3];y2=y1+((y3-y1)>>1);
	    MC_GetPixel(mch,x1,y1,&c1);
	    MC_GetPixel(mch,x3,y1,&c3);
	    MC_GetPixel(mch,x3,y3,&c9);
	    MC_GetPixel(mch,x1,y3,&c7);

	    c5.r=((c1.r+c3.r+c7.r+c9.r)/4+(int)(rndf*(128-(rand()&0xFF))))&0xFF;
	    c5.g=((c1.g+c3.g+c7.g+c9.g)/4+(int)(rndf*(128-(rand()&0xFF))))&0xFF;
	    c5.b=((c1.b+c3.b+c7.b+c9.b)/4+(int)(rndf*(128-(rand()&0xFF))))&0xFF;
	    MC_PutPixel(mch,x2,y2,&c5);
	    MC_GetPixel(mch,x2,y1,&akt);
	    if(akt.r==0 && akt.g==0 && akt.b==0)
	    {
		akt.r=(c1.r+c3.r+c5.r)/3;
		akt.g=(c1.g+c3.g+c5.g)/3;
		akt.b=(c1.b+c3.b+c5.b)/3;
		MC_PutPixel(mch,x2,y1,&akt);
	    }
	    MC_GetPixel(mch,x1,y2,&akt);
	    if(akt.r==0 && akt.g==0 && akt.b==0)
	    {
		akt.r=(c1.r+c7.r+c5.r)/3;
		akt.g=(c1.g+c7.g+c5.g)/3;
		akt.b=(c1.b+c7.b+c5.b)/3;
		MC_PutPixel(mch,x1,y2,&akt);
	    }
	    MC_GetPixel(mch,x3,y2,&akt);
	    if(akt.r==0 && akt.g==0 && akt.b==0)
	    {
		akt.r=(c3.r+c9.r+c5.r)/3;
		akt.g=(c3.g+c9.g+c5.g)/3;
		akt.b=(c3.b+c9.b+c5.b)/3;
		MC_PutPixel(mch,x3,y2,&akt);
	    }
	    MC_GetPixel(mch,x2,y3,&akt);
	    if(akt.r==0 && akt.g==0 && akt.b==0)
	    {
		akt.r=(c7.r+c9.r+c5.r)/3;
		akt.g=(c7.g+c9.g+c5.g)/3;
		akt.b=(c7.b+c9.b+c5.b)/3;
		MC_PutPixel(mch,x2,y3,&akt);
	    }
	    f[ptr][2]=x2;f[ptr][3]=y2;ptr++;
	    f[ptr][0]=x2;f[ptr][1]=y1;f[ptr][2]=x3;f[ptr][3]=y2;ptr++;
	    f[ptr][0]=x2;f[ptr][1]=y2;f[ptr][2]=x3;f[ptr][3]=y3;ptr++;
	    f[ptr][0]=x1;f[ptr][1]=y2;f[ptr][2]=x2;f[ptr][3]=y3;
	    if(ptr>250)
	    {
		printf("stack overflow\n");
		ptr=-1;
	    }
	}
	else
	{
	    ptr--;
	}

	if(imsg=(struct IntuiMessage *)GetMsg(win->UserPort))
	{
	    ReplyMsg((struct Message *)imsg);
	    quit=1;
	    break;
	}
    }

    while(!quit)
    {
	WaitPort(win->UserPort);
	while(imsg=(struct IntuiMessage *)GetMsg(win->UserPort))
	{
	    iclass  =imsg->Class;
	    icode   =imsg->Code;
	    ReplyMsg ((struct Message *)imsg);
	    switch(iclass)
	    {
	    case IDCMP_RAWKEY:
		switch(icode)
		{
		case 0x45:		/* ESC */
		case 0x40:		/* Space */
		    quit=1;
		    break;
		}
		break;
	    }
	}
    }
}

void Usage(void)
{
    printf("Usage \n");
    printf("\tmc_plasma typ res chaos\n");
    printf("\tres\\typ | 0=ECS | 1=AGA,GFX-Card\n");
    printf("\t--------+-------+---------------\n");
    printf("\t e (ehb)| 64    | -             \n");
    printf("\t l (low)| 32    | 256           \n");
    printf("\t h (hi )| 16    | 256           \n");
    printf("\t s (shi)| --    | 256           \n");
    printf("\t--------+-------+---------------\n");
    printf("\n\tchaos smothness\n");
}

void main(int argc,char *argv[])
{
    UBYTE dep,typ,fail=0;
    char res;
    int frac=20;

    if(argc>=3)
    {
	if(argc==4) frac=atoi(argv[3]);
	typ=atoi(argv[1])&1;
	res=argv[2][0];

	switch(typ)
	{
	case 0: 	/* ECS */
	    switch(res)
	    {
	    case 'E':
	    case 'e':
		scrtags[4].ti_Data=dep=6;
		wintags[2].ti_Data=scrtags[2].ti_Data=354;		/* 236 */
		wintags[3].ti_Data=scrtags[3].ti_Data=552;		/* 276 */
		scrtags[7].ti_Data|=EXTRAHALFBRITELACE_KEY;
		break;
	    case 'L':
	    case 'l':
		scrtags[4].ti_Data=dep=5;
		wintags[2].ti_Data=scrtags[2].ti_Data=354;		/* 236 */
		wintags[3].ti_Data=scrtags[3].ti_Data=552;		/* 276 */
		scrtags[7].ti_Data|=LORESLACE_KEY;
		break;
	    case 'H':
	    case 'h':
		scrtags[4].ti_Data=dep=4;
		wintags[2].ti_Data=scrtags[2].ti_Data=708;		/* 472 */
		wintags[3].ti_Data=scrtags[3].ti_Data=552;		/* 276 */
		scrtags[7].ti_Data|=HIRESLACE_KEY;
		break;
	    case 'S':
	    case 's':
		fail=1;
		break;
	    }
	    break;
	case 1: 	/* AGA,GFX-Card */
	    switch(res)
	    {
	    case 'E':
	    case 'e':
		fail=1;
		break;
	    case 'L':
	    case 'l':
		scrtags[4].ti_Data=dep=8;
		wintags[2].ti_Data=scrtags[2].ti_Data=354;		/* 236 */
		wintags[3].ti_Data=scrtags[3].ti_Data=552;		/* 276 */
		scrtags[7].ti_Data|=LORESLACE_KEY;
		break;
	    case 'H':
	    case 'h':
		scrtags[4].ti_Data=dep=8;
		wintags[2].ti_Data=scrtags[2].ti_Data=708;		/* 472 */
		wintags[3].ti_Data=scrtags[3].ti_Data=552;		/* 276 */
		scrtags[7].ti_Data|=HIRESLACE_KEY;
		break;
	    case 'S':
	    case 's':
		scrtags[4].ti_Data=dep=8;
		wintags[2].ti_Data=scrtags[2].ti_Data=1416;		/* 944 */
		wintags[3].ti_Data=scrtags[3].ti_Data=552;		/* 276 */
		scrtags[7].ti_Data|=SUPERLACE_KEY;
		break;
	    }
	    break;
	}

	if(!fail)
	{
	    OpenAll();
	    if(mch=MC_Init(scr,win,dep))
	    {
		Plasma(frac);
		MC_Free(mch);
	    }
	}
	else Usage();
    }
    else Usage();
    CloseAll();
}