/*
**	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 <intuition/screens.h>


extern struct Screen *S;
extern int MaxBit;
extern USHORT colortable[];

extern struct Window *Set_Win;

/*
**	This sets the colors when the mouse is moved.
*/

Set_Color( pen )
int pen;
{
    register struct IntuiMessage *I;
    struct Gadget *G;
    USHORT *g, *b, *r, class;
    unsigned int color;

    G = Set_Win->FirstGadget;

    while( G != NULL ){
        switch( G->GadgetID ){
            case 'R':
		r = &( (struct PropInfo *)G->SpecialInfo )->HorizPot;
                break;
            case 'G':
		g = &( (struct PropInfo *)G->SpecialInfo )->HorizPot;
                break;
            case 'B':
		b = &( (struct PropInfo *)G->SpecialInfo )->HorizPot;
            default:
                break;
         }
         G = G->NextGadget;
    }
        
/*
**	Mouse Movement while Gadget is down loop
*/

    while( TRUE ){

        I = (struct IntuiMessage *) GetMsg( Set_Win->UserPort );

	class = I->Class;

	if( I != NULL ) ReplyMsg( I );

        color = ( ( ( *r ) >> 12 ) << 8 ) |
                ( ( ( *g ) >> 12 ) << 4 ) |
                ( ( ( *b ) >> 12 )      );

        if( (color) != colortable[ pen ] ){

                SetRGB4( &S->ViewPort, pen, (color>>8)&0x000f,
			(color>>4)&0x000f, (color)&0x000f );
                colortable[ pen ] = color;
        }

        if( class == GADGETUP ) return( 1 );
    }

}