#include <exec/types.h>
#include <exec/memory.h>

#include <intuition/intuition.h>

#include <dos/dos.h>

#include <clib/exec_protos.h>
#include <clib/intuition_protos.h>
#include <clib/graphics_protos.h>
#include <clib/alib_protos.h>

#include <math.h>

#include "Dragon.h"
#include "//defs.h"
#include "/main.h"

struct ModulePrefs
{
	LONG Mode;
	LONG Depth;
};

extern struct ModulePrefs nP;

#define BLANKMOUSE
#define RAINBOWPALETTE
#include "/utility.c"

LONG Dragon( struct Screen *Scr, SHORT Wid, SHORT Hei )
{
	LONG i, flg_end = OK, xd, yd, mod = 1L << Scr->BitMap.Depth - 1, sx, sy;
	float xx, yy, x = 0, y = 0, t = ( float )( RangeRand( 100 ) + 10 ), a = PI - t / 5000;
	struct RastPort *RP = &( Scr->RastPort );
	
	SetRast( RP, 0 );
	ScreenToFront( Scr );
	
	for( i = 0; i < 1000000 && flg_end == OK; i++ ) {
		if(!( i % 100 ))
		{
			flg_end = ContinueBlanking();
			ScreenToFront( Scr );
		}
		
		xx = y - sin( x );
		yy = a - x;
		
		xd = Wid / 2 + (SHORT)( 2.0 * x );
		yd = Hei / 2 + (SHORT)( 2.0 * y );

		sx = xd - Wid/2;
		sx *= sx;
		sy = yd - Hei/2;
		sy *= sy;

		if(( xd >= 0 )&&( yd >= 0 )&&( xd < Wid )&&( yd < Hei )) {
			SetAPen( RP, (((sx + sy)*2*mod)/(Hei*Hei)) % mod + 1 );
			WritePixel( RP, xd, yd );
		}

		x = xx;
		y = yy;
	}

	return flg_end;
}

LONG Blank( VOID *Prefs )
{
	struct Screen *Scr;
	struct ModulePrefs *mP;
	LONG RetVal = OK;
	
	if( DragonWnd )
		mP = &nP;
	else
		mP = ( struct ModulePrefs * )Prefs;
	
	if( Scr = OpenScreenTags( NULL, SA_Depth, mP->Depth, SA_Overscan, OSCAN_STANDARD, SA_DisplayID, mP->Mode,
							 SA_Quiet, TRUE, SA_Behind, TRUE, TAG_DONE ))
	{
		SetRGB4(&( Scr->ViewPort ), 0, 0, 0, 0 );
		RainbowPalette( Scr, 1 );
		BlankMousePointer( Scr );
		
		while( RetVal == OK )
			RetVal = Dragon( Scr, Scr->Width, Scr->Height );
		
		UnblankMousePointer();
		RainbowPalette( 0L, 1 );
		CloseScreen( Scr );
	}
	else
		RetVal = FAILED;

	return RetVal;
}