/*
**	Brian D. Moffet
**	June 13, 1988
**
**	Placed in the Public domain.
**	Please allow me to retain credit for this, and please
**	distribute source with the binaries.
**
*/

#include <intuition/intuition.h>
#include <graphics/gfxbase.h>
#include <intuition/intuitionbase.h>
#include <intuition/screens.h>

#include <stdio.h>

/*
**	Easier to type IB than IntuitionBase
*/

#define IB IntuitionBase
#define GB GfxBase

extern struct IntuitionBase *IntuitionBase;
struct GfxBase *GfxBase=NULL;

struct Screen *S;
int MaxBit;
USHORT oldcolortable[32];
USHORT colortable[32];

char Version[]="Setcolor 1.1  PD";
char Author[]="Brian Moffet sco!brianm";

char *Usage[] = {
	"setcolor [-num]",
	"	-num: number of seconds to delay before attaching to the",
	"	      active window.",
	" Gadget Definitions:",
	"	B/W: make the palette a grey scale palette",
	"	Smear: blend from color 1 (letters in box) to color 2",
	"	Exchange: exchange color 1 and color 2",
	"	Copy: copy color 1 and color 2",
	"	OK: Set the palette with your new colors",
	"	Undo: reset colors from last OK or beginning",
	NULL
};

/*
**	setcolor [num]
**	where num is the number of seconds befor program takes
**	action and attaches itself to your window.
*/

main( argc, argv )
int argc;
char *argv[];
{
	int i;
	int del;

	if (!strcmp( argv[1], "-h"))
	{
		puts( Version );
		puts( Author );
		for (i = 0; Usage[i]; i++)
			puts( Usage[i] );
		exit( 0 );
	}

	del  = atoi( argv[1] );
	if( del <= 0 ) del = 0;

	IB = (struct IB *)OpenLibrary( "intuition.library", 0 );
	if( IB == NULL )
	{
		fprintf( stderr, "Error Opening IB\n" );
		exit( 1 );
	}
	GB = (struct GB *)OpenLibrary( "graphics.library", 0 );
	if( GB == NULL )
	{
		CloseLibrary( IB );
		fprintf( stderr, "Error Opening GB\n" );
		exit( 2 );
	}

/*
**	Avoid the Delay( 0 ) bug
**	Part of my background is to avoid system calls whenever
**	Possible.  I would have never found the Delay( 0 ) problem..
*/

	if( del )	Delay( del * 50 );

	S = IB->ActiveScreen;
	MaxBit = S->BitMap.Depth;

	for( i = 0; i < 32; i++ ) 
		oldcolortable[i] = colortable[i] =
			GetRGB4( S->ViewPort.ColorMap, i );

	Color_Window( S );

	i = 32;
	while( --i >= 0 )
	{
		unsigned short color = oldcolortable[i];

                SetRGB4( &S->ViewPort, i, (color>>8)&0x000f,
			(color>>4)&0x000f, (color)&0x000f );
	}

	CloseLibrary( GB );
	CloseLibrary( IB );
}

/*
 *	Make a color palette into a gray-scale palette.
 */

make_bw( r, g, b )
unsigned short *r, *g, *b;
{
	unsigned short v;

	if (*r == *g && *g == *b)
		return;			/* only shades of grey. */

	v = (*r * 298 + *g * 588 + *b * 114) / 1000;
	*r = v;
	*g = v;
	*b = v;
}

/*
 *	get colors to go "smoothly" from color 1 to color 2
 */

smear( c, begin, end )
unsigned short *c;
int begin, end;
{
	int d = (end - begin);
	int rd, gd, bd;
	unsigned short r, g, b;
	int i;

	r = (c[begin] >> 8) & 0x0f;
	g = (c[begin] >> 4) & 0x0f;
	b = (c[begin] >> 0) & 0x0f;

	rd = ((c[end] >> 8) & 0x0f) - r;
	gd = ((c[end] >> 4) & 0x0f) - g;
	bd = ((c[end] >> 0) & 0x0f) - b;

	for (i = 0; i < d; i++)
	{
		int j = (i + begin);

		c[j] = ((r + (i * rd) / d) & 0x0f) << 8
			| ((g + (i * gd) / d) & 0x0f) << 4
			| ((b + (i * bd) / d) & 0x0f);
		
	}
}