path: root/modules/libgrbase/g_pal.c

/*
 *  Copyright � 2006-2016 SplinterGU (Fenix/Bennugd)
 *  Copyright � 2002-2006 Fenix Team (Fenix)
 *  Copyright � 1999-2002 Jos� Luis Cebri�n Pag�e (Fenix)
 *
 *  This file is part of Bennu - Game Development
 *
 *  This software is provided 'as-is', without any express or implied
 *  warranty. In no event will the authors be held liable for any damages
 *  arising from the use of this software.
 *
 *  Permission is granted to anyone to use this software for any purpose,
 *  including commercial applications, and to alter it and redistribute it
 *  freely, subject to the following restrictions:
 *
 *     1. The origin of this software must not be misrepresented; you must not
 *     claim that you wrote the original software. If you use this software
 *     in a product, an acknowledgment in the product documentation would be
 *     appreciated but is not required.
 *
 *     2. Altered source versions must be plainly marked as such, and must not be
 *     misrepresented as being the original software.
 *
 *     3. This notice may not be removed or altered from any source
 *     distribution.
 *
 */

/* --------------------------------------------------------------------------- */

#include <stdio.h>
#include <string.h>
#include <stdlib.h>

#include "libgrbase.h"

/* --------------------------------------------------------------------------- */

PALETTE * first_palette = NULL ;

int palette_changed = 0 ;

/* Tabla de transparencias */

uint8_t trans_table[ 256 ][ 256 ] ;
int trans_table_updated = 0 ;

uint16_t colorghost[65536] ;           /* Deja un color a 50% de intensidad */

/* Paleta de colores por defecto */

uint8_t default_palette[] =
{
    0, 0, 0,            /* Color   0 */
    16, 16, 16,         /* Color   1 */
    32, 32, 32,         /* Color   2 */
    48, 48, 48,         /* Color   3 */
    64, 64, 64,         /* Color   4 */
    84, 84, 84,         /* Color   5 */
    100, 100, 100,      /* Color   6 */
    116, 116, 116,      /* Color   7 */
    132, 132, 132,      /* Color   8 */
    148, 148, 148,      /* Color   9 */
    168, 168, 168,      /* Color  10 */
    184, 184, 184,      /* Color  11 */
    200, 200, 200,      /* Color  12 */
    216, 216, 216,      /* Color  13 */
    232, 232, 232,      /* Color  14 */
    252, 252, 252,      /* Color  15 */
    40, 0, 0,           /* Color  16 */
    72, 0, 0,           /* Color  17 */
    108, 0, 0,          /* Color  18 */
    144, 0, 0,          /* Color  19 */
    180, 0, 0,          /* Color  20 */
    216, 0, 0,          /* Color  21 */
    252, 0, 0,          /* Color  22 */
    252, 32, 0,         /* Color  23 */
    252, 64, 0,         /* Color  24 */
    252, 96, 0,         /* Color  25 */
    252, 128, 0,        /* Color  26 */
    252, 160, 0,        /* Color  27 */
    252, 180, 56,       /* Color  28 */
    252, 200, 112,      /* Color  29 */
    252, 220, 168,      /* Color  30 */
    252, 240, 224,      /* Color  31 */
    0, 40, 0,           /* Color  32 */
    0, 60, 0,           /* Color  33 */
    0, 84, 0,           /* Color  34 */
    0, 108, 0,          /* Color  35 */
    0, 132, 0,          /* Color  36 */
    0, 156, 0,          /* Color  37 */
    0, 180, 0,          /* Color  38 */
    0, 204, 0,          /* Color  39 */
    0, 228, 0,          /* Color  40 */
    0, 252, 0,          /* Color  41 */
    48, 252, 32,        /* Color  42 */
    96, 252, 64,        /* Color  43 */
    144, 252, 96,       /* Color  44 */
    192, 252, 132,      /* Color  45 */
    216, 252, 176,      /* Color  46 */
    240, 252, 220,      /* Color  47 */
    0, 0, 40,           /* Color  48 */
    0, 0, 72,           /* Color  49 */
    0, 0, 104,          /* Color  50 */
    0, 0, 140,          /* Color  51 */
    0, 0, 172,          /* Color  52 */
    0, 0, 208,          /* Color  53 */
    0, 0, 252,          /* Color  54 */
    0, 48, 252,         /* Color  55 */
    0, 100, 252,        /* Color  56 */
    0, 148, 252,        /* Color  57 */
    0, 200, 252,        /* Color  58 */
    0, 252, 252,        /* Color  59 */
    56, 252, 252,       /* Color  60 */
    112, 252, 252,      /* Color  61 */
    168, 252, 252,      /* Color  62 */
    224, 252, 252,      /* Color  63 */
    28, 28, 0,          /* Color  64 */
    52, 52, 0,          /* Color  65 */
    76, 76, 0,          /* Color  66 */
    100, 100, 0,        /* Color  67 */
    124, 124, 0,        /* Color  68 */
    152, 152, 0,        /* Color  69 */
    176, 176, 0,        /* Color  70 */
    200, 200, 0,        /* Color  71 */
    224, 224, 0,        /* Color  72 */
    252, 252, 0,        /* Color  73 */
    252, 252, 36,       /* Color  74 */
    252, 252, 72,       /* Color  75 */
    252, 252, 108,      /* Color  76 */
    252, 252, 144,      /* Color  77 */
    252, 252, 180,      /* Color  78 */
    252, 252, 220,      /* Color  79 */
    28, 0, 28,          /* Color  80 */
    52, 0, 52,          /* Color  81 */
    76, 0, 76,          /* Color  82 */
    100, 0, 100,        /* Color  83 */
    124, 0, 124,        /* Color  84 */
    152, 0, 152,        /* Color  85 */
    176, 0, 176,        /* Color  86 */
    200, 0, 200,        /* Color  87 */
    224, 0, 224,        /* Color  88 */
    252, 0, 252,        /* Color  89 */
    252, 36, 252,       /* Color  90 */
    252, 72, 252,       /* Color  91 */
    252, 112, 252,      /* Color  92 */
    252, 148, 252,      /* Color  93 */
    252, 184, 252,      /* Color  94 */
    252, 224, 252,      /* Color  95 */
    0, 20, 20,          /* Color  96 */
    0, 40, 40,          /* Color  97 */
    0, 60, 60,          /* Color  98 */
    0, 80, 80,          /* Color  99 */
    0, 104, 100,        /* Color 100 */
    0, 124, 120,        /* Color 101 */
    0, 144, 144,        /* Color 102 */
    0, 164, 164,        /* Color 103 */
    0, 188, 184,        /* Color 104 */
    0, 208, 204,        /* Color 105 */
    0, 228, 224,        /* Color 106 */
    0, 252, 248,        /* Color 107 */
    44, 252, 248,       /* Color 108 */
    92, 252, 248,       /* Color 109 */
    140, 252, 248,      /* Color 110 */
    188, 252, 248,      /* Color 111 */
    24, 12, 0,          /* Color 112 */
    44, 24, 0,          /* Color 113 */
    64, 36, 0,          /* Color 114 */
    84, 48, 0,          /* Color 115 */
    108, 60, 0,         /* Color 116 */
    128, 72, 0,         /* Color 117 */
    148, 84, 0,         /* Color 118 */
    168, 96, 0,         /* Color 119 */
    192, 112, 0,        /* Color 120 */
    196, 128, 28,       /* Color 121 */
    204, 144, 60,       /* Color 122 */
    212, 160, 92,       /* Color 123 */
    216, 180, 120,      /* Color 124 */
    224, 196, 152,      /* Color 125 */
    232, 212, 184,      /* Color 126 */
    240, 232, 216,      /* Color 127 */
    24, 12, 12,         /* Color 128 */
    40, 20, 20,         /* Color 129 */
    60, 32, 32,         /* Color 130 */
    80, 44, 44,         /* Color 131 */
    96, 52, 52,         /* Color 132 */
    116, 64, 64,        /* Color 133 */
    136, 76, 76,        /* Color 134 */
    156, 88, 88,        /* Color 135 */
    176, 104, 104,      /* Color 136 */
    196, 120, 120,      /* Color 137 */
    216, 136, 136,      /* Color 138 */
    240, 152, 152,      /* Color 139 */
    240, 168, 168,      /* Color 140 */
    244, 188, 188,      /* Color 141 */
    244, 204, 204,      /* Color 142 */
    248, 224, 224,      /* Color 143 */
    24, 20, 12,         /* Color 144 */
    44, 36, 24,         /* Color 145 */
    68, 52, 36,         /* Color 146 */
    88, 72, 48,         /* Color 147 */
    112, 88, 60,        /* Color 148 */
    132, 104, 72,       /* Color 149 */
    156, 124, 88,       /* Color 150 */
    172, 140, 100,      /* Color 151 */
    188, 156, 112,      /* Color 152 */
    204, 176, 124,      /* Color 153 */
    220, 192, 136,      /* Color 154 */
    240, 212, 152,      /* Color 155 */
    240, 216, 168,      /* Color 156 */
    244, 224, 188,      /* Color 157 */
    244, 232, 204,      /* Color 158 */
    248, 240, 224,      /* Color 159 */
    32, 8, 0,           /* Color 160 */
    60, 16, 0,          /* Color 161 */
    88, 28, 0,          /* Color 162 */
    120, 36, 0,         /* Color 163 */
    148, 48, 0,         /* Color 164 */
    176, 56, 0,         /* Color 165 */
    208, 68, 0,         /* Color 166 */
    216, 88, 0,         /* Color 167 */
    224, 112, 0,        /* Color 168 */
    232, 136, 0,        /* Color 169 */
    240, 160, 0,        /* Color 170 */
    252, 184, 0,        /* Color 171 */
    252, 200, 56,       /* Color 172 */
    252, 216, 112,      /* Color 173 */
    252, 232, 168,      /* Color 174 */
    252, 252, 224,      /* Color 175 */
    20, 12, 12,         /* Color 176 */
    36, 24, 24,         /* Color 177 */
    56, 36, 36,         /* Color 178 */
    72, 48, 48,         /* Color 179 */
    92, 64, 64,         /* Color 180 */
    108, 76, 76,        /* Color 181 */
    128, 88, 88,        /* Color 182 */
    144, 100, 100,      /* Color 183 */
    164, 116, 116,      /* Color 184 */
    172, 132, 132,      /* Color 185 */
    184, 148, 148,      /* Color 186 */
    192, 164, 164,      /* Color 187 */
    204, 180, 180,      /* Color 188 */
    212, 196, 196,      /* Color 189 */
    224, 212, 212,      /* Color 190 */
    236, 232, 232,      /* Color 191 */
    12, 20, 12,         /* Color 192 */
    24, 36, 24,         /* Color 193 */
    36, 56, 36,         /* Color 194 */
    48, 72, 48,         /* Color 195 */
    64, 92, 64,         /* Color 196 */
    76, 108, 76,        /* Color 197 */
    88, 128, 88,        /* Color 198 */
    100, 144, 100,      /* Color 199 */
    116, 164, 116,      /* Color 200 */
    132, 172, 132,      /* Color 201 */
    148, 184, 148,      /* Color 202 */
    164, 192, 164,      /* Color 203 */
    180, 204, 180,      /* Color 204 */
    196, 212, 196,      /* Color 205 */
    212, 224, 212,      /* Color 206 */
    232, 236, 232,      /* Color 207 */
    12, 12, 16,         /* Color 208 */
    24, 24, 32,         /* Color 209 */
    36, 36, 48,         /* Color 210 */
    48, 48, 64,         /* Color 211 */
    64, 64, 80,         /* Color 212 */
    76, 76, 96,         /* Color 213 */
    88, 88, 112,        /* Color 214 */
    100, 100, 128,      /* Color 215 */
    116, 116, 148,      /* Color 216 */
    132, 132, 160,      /* Color 217 */
    148, 148, 172,      /* Color 218 */
    164, 164, 184,      /* Color 219 */
    180, 180, 196,      /* Color 220 */
    196, 196, 208,      /* Color 221 */
    212, 212, 220,      /* Color 222 */
    232, 232, 236,      /* Color 223 */
    40, 0, 0,           /* Color 224 */
    80, 0, 0,           /* Color 225 */
    124, 0, 0,          /* Color 226 */
    164, 0, 0,          /* Color 227 */
    208, 0, 0,          /* Color 228 */
    252, 0, 0,          /* Color 229 */
    252, 40, 0,         /* Color 230 */
    252, 84, 0,         /* Color 231 */
    252, 124, 0,        /* Color 232 */
    252, 168, 0,        /* Color 233 */
    252, 208, 0,        /* Color 234 */
    252, 252, 0,        /* Color 235 */
    252, 252, 44,       /* Color 236 */
    252, 252, 92,       /* Color 237 */
    252, 252, 140,      /* Color 238 */
    252, 252, 188,      /* Color 239 */
    0, 0, 0,            /* Color 240 */
    0, 0, 88,           /* Color 241 */
    0, 0, 128,          /* Color 242 */
    0, 0, 168,          /* Color 243 */
    0, 0, 208,          /* Color 244 */
    0, 0, 248,          /* Color 245 */
    40, 0, 248,         /* Color 246 */
    84, 0, 248,         /* Color 247 */
    124, 0, 248,        /* Color 248 */
    168, 0, 248,        /* Color 249 */
    208, 0, 248,        /* Color 250 */
    252, 0, 252,        /* Color 251 */
    252, 52, 252,       /* Color 252 */
    252, 108, 252,      /* Color 253 */
    252, 164, 252,      /* Color 254 */
    252, 220, 252       /* Color 255 */
} ;

uint32_t default_colorequiv[256];

/* --------------------------------------------------------------------------- */
/*
 * Match an RGB value to a particular palette index
 */
int find_nearest_color( PALETTE * pal, int first, int last, int r, int g, int b )
{
    /* Do colorspace distance matching */
    unsigned int smallest = ~0;
    unsigned int distance;
    int rd, gd, bd;
    int i;
    int pixel = 0;
    rgb_component * palrgb ;

    if ( !pal )
        if ( !sys_pixel_format->palette )
            palrgb = ( rgb_component * ) default_palette;
        else
            palrgb = sys_pixel_format->palette->rgb ;
    else
        palrgb = pal->rgb ;

    for ( i = first; i <= last; ++i )
    {
        rd = ( palrgb[i].r - ( r /*& ~0x02 */) ) ;
        gd = ( palrgb[i].g - ( g /*& ~0x02 */) ) ;
        bd = ( palrgb[i].b - ( b /*& ~0x02 */) ) ;

        distance = ( rd * rd ) + ( gd * gd ) + ( bd * bd ) ;
        if ( distance < smallest )
        {
            pixel = i;
            if ( !distance ) break;  /* Perfect match! */
            smallest = distance;
        }
    }

    return( pixel );
}

/* --------------------------------------------------------------------------- */
/* Find the opaque pixel value corresponding to an RGB triple */

int _rgba( PIXEL_FORMAT * format, int r, int g, int b, int a )
{
    int color;

    if ( format->depth < 16 ) return find_nearest_color( format->palette, 0, 255, r, g, b );

    color = (( r >> format->Rloss ) << format->Rshift ) |
            (( g >> format->Gloss ) << format->Gshift ) |
            (( b >> format->Bloss ) << format->Bshift ) ;

    if ( format->depth == 32 ) color |= (( a >> format->Aloss ) << format->Ashift );

    return color;
}

/* --------------------------------------------------------------------------- */
/* Find the pixel value corresponding to an RGBA quadruple */

int _rgb( PIXEL_FORMAT * format, int r, int g, int b )
{
    return _rgba( format, r, g, b, 255 );
}

/* --------------------------------------------------------------------------- */

void _get_rgba( PIXEL_FORMAT * format, int color, int *r, int *g, int *b, int *a )
{
    /* 8 bits mode, work with system palette */

    if ( format->depth < 16 )
    {
        rgb_component * rgb ;

        if ( !format->palette ) rgb = ( rgb_component * ) default_palette;
        else                    rgb = format->palette->rgb ;

        color &= 0xFF ;
        ( *r ) = rgb[ color ].r ;
        ( *g ) = rgb[ color ].g ;
        ( *b ) = rgb[ color ].b ;

        return ;
    }

    ( *r ) = (( color & format->Rmask ) >> format->Rshift ) << format->Rloss ;
    ( *g ) = (( color & format->Gmask ) >> format->Gshift ) << format->Gloss ;
    ( *b ) = (( color & format->Bmask ) >> format->Bshift ) << format->Bloss ;

    if ( a && format->depth == 32 ) ( *a ) = (( color & format->Amask ) >> format->Ashift ) << format->Aloss ;
}

/* --------------------------------------------------------------------------- */

void _get_rgb( PIXEL_FORMAT * format, int color, int *r, int *g, int *b )
{
    return _get_rgba( format, color, r, g, b, NULL );
}

/* --------------------------------------------------------------------------- */

void pal_refresh( PALETTE * pal )
{
    if ( sys_pixel_format->depth > 8 )
    {
        int n;

        if ( !pal )
        {
            uint8_t * p = default_palette;
            for ( n = 0; n < 256; n++ )
            {
                default_colorequiv[ n ] = _rgb( sys_pixel_format, *( p ), *( p + 1 ), *( p + 2 ) );
                p += 3;
            }

            pal = first_palette;
            while ( pal )
            {
                for ( n = 256; n--; ) pal->colorequiv[ n ] = _rgb( sys_pixel_format, pal->rgb[ n ].r, pal->rgb[ n ].g, pal->rgb[ n ].b );
                pal = pal->next;
            }
        }
        else
        {
            for ( n = 256; n--; ) pal->colorequiv[ n ] = _rgb( sys_pixel_format, pal->rgb[ n ].r, pal->rgb[ n ].g, pal->rgb[ n ].b );
        }
    }
    else
        if ( !pal || pal == sys_pixel_format->palette ) palette_changed = 1 ;

}

/* --------------------------------------------------------------------------- */

void pal_use( PALETTE * pal )
{
    if ( pal ) pal->use++;
}

/* --------------------------------------------------------------------------- */

int pal_discard( PALETTE * pal )
{
    if ( !pal ) return 0;
    if ( pal->use > 0 ) pal->use--;
    return pal->use;
}

/* --------------------------------------------------------------------------- */

PALETTE * pal_new( PALETTE * basepal )
{
    PALETTE * pal = calloc( 1, sizeof( PALETTE ) );
    if ( !pal ) return NULL ;

    if ( basepal )
    {
        memmove( pal->rgb, basepal->rgb, sizeof( pal->rgb ) ) ;
        memmove( pal->colorequiv, basepal->colorequiv, sizeof( pal->colorequiv ) ) ;
        pal_refresh( pal );
    }
    else
    {
        /* Default */
        if ( sys_pixel_format->palette )
            memmove( pal->rgb, sys_pixel_format->palette->rgb, sizeof( pal->rgb ) ) ;
        else
            memmove( pal->rgb, default_palette, sizeof( pal->rgb ) ) ;

        pal_refresh( pal );
    }

    pal->use = 1 ;
    pal->next = first_palette ;
    pal->prev = NULL ;
    if ( first_palette ) first_palette->prev = pal;
    first_palette = pal ;

    return pal;
}

/* --------------------------------------------------------------------------- */

PALETTE * pal_new_rgb( unsigned char * datapal )
{
    if ( !datapal ) return NULL ;

    PALETTE * pal = malloc( sizeof( PALETTE ) );
    if ( !pal ) return NULL ;

    memmove( pal->rgb, datapal, sizeof( pal->rgb ) );
    pal_refresh( pal );

    pal->use = 1 ;
    pal->next = first_palette ;
    pal->prev = NULL ;
    if ( first_palette ) first_palette->prev = pal;
    first_palette = pal ;

    return pal;
}

/* --------------------------------------------------------------------------- */

void pal_destroy( PALETTE * pal )
{
    if ( !pal ) return ;

    if ( pal_discard( pal ) > 0 ) return ;

    if ( pal->next ) pal->next->prev = pal->prev ;
    if ( pal->prev ) pal->prev->next = pal->next ;

    if ( pal == first_palette ) first_palette = pal->next ;

    free( pal );
}

/* --------------------------------------------------------------------------- */

int pal_get( PALETTE * spal, int color, int num, uint8_t * pal )
{
    if ( num < 1 || color < 0 || color > 255 ) return 0;
    if ( color + num > 256 ) num = 256 - color ;

    if ( !spal )
    {
        if ( !sys_pixel_format->palette ) sys_pixel_format->palette = pal_new( NULL );
        spal = sys_pixel_format->palette ;
    }

    while ( num-- )
    {
        *pal++ = spal->rgb[ color ].r ;
        *pal++ = spal->rgb[ color ].g ;
        *pal++ = spal->rgb[ color++ ].b ;
    }
    return 1;
}

/* --------------------------------------------------------------------------- */

int pal_set( PALETTE * spal, int color, int num, uint8_t * pal )
{
    if ( num < 1 || color < 0 || color > 255 ) return 0;
    if ( color + num > 256 ) num = 256 - color ;

    if ( !spal )
    {
        if ( !sys_pixel_format->palette ) sys_pixel_format->palette = pal_new( NULL );
        spal = sys_pixel_format->palette ;
    }

    while ( num-- )
    {
        spal->rgb[ color ].r = *pal++ ;
        spal->rgb[ color ].g = *pal++ ;
        spal->rgb[ color++ ].b = *pal++ ;
    }
    return 1;
}

/* --------------------------------------------------------------------------- */

int pal_map_assign( int libid, int mapcode, PALETTE * palid )
{
    GRAPH * bmp = bitmap_get( libid, mapcode ) ;
    PALETTE * oldpal ;

    if ( !bmp /*|| !palid*/ || bmp->format->depth != 8 ) return 0 ;

    oldpal = bmp->format->palette ;
    bmp->format->palette = palid ;

    pal_use( bmp->format->palette ) ;

    if ( oldpal ) pal_destroy( oldpal ) ;

    bmp->modified = 1;

    return 1 ;
}

/* --------------------------------------------------------------------------- */

int pal_map_remove( int libid, int mapcode )
{
    GRAPH * bmp = bitmap_get( libid, mapcode ) ;

    if ( !bmp || bmp->format->depth != 8 ) return 0 ;

    if ( bmp->format->palette ) pal_destroy( bmp->format->palette ) ;

    bmp->format->palette = NULL ;
    bmp->modified = 1;

    return 1 ;
}

/* --------------------------------------------------------------------------- */

void gr_roll_palette( int color0, int num, int inc )
{
    rgb_component backup[ 256 ] ;

    if ( color0 < 0 || color0 > 255 ) return ;
    if ( num + color0 > 255 ) num = 256 - color0 ;

    while ( inc >= num ) inc -= num ;
    while ( inc <= -num ) inc += num ;

    if ( !inc ) return ;

    memcpy( &backup[ color0 ], &sys_pixel_format->palette->rgb[ color0 ], sizeof( rgb_component ) * num ) ;

    if ( inc < 0 )  /* Derecha */
    {
        inc = -inc ;
        memmove( &sys_pixel_format->palette->rgb[ color0 + inc ], &sys_pixel_format->palette->rgb[ color0 ], sizeof( rgb_component ) * ( num - inc ) ) ;
        memcpy( &sys_pixel_format->palette->rgb[ color0 ], &backup[ color0 + num - inc ], sizeof( rgb_component ) * inc ) ;
    }
    else /* Izquierda */
    {
        memmove( &sys_pixel_format->palette->rgb[ color0 ], &sys_pixel_format->palette->rgb[ color0 + inc ], sizeof( rgb_component ) * ( num - inc ) ) ;
        memcpy( &sys_pixel_format->palette->rgb[ color0 + num - inc ], &backup[ color0 ], sizeof( rgb_component ) * inc ) ;
    }

    palette_changed = 1 ;
}

/* --------------------------------------------------------------------------- */

int gr_rgb( int r, int g, int b )
{
    int color ;
    color = _rgb( sys_pixel_format, r, g, b );
    if ( sys_pixel_format->depth == 16 && !color ) return 1;
    return color ;
}

/* --------------------------------------------------------------------------- */

int gr_rgba( int r, int g, int b, int a )
{
    int color ;
    color = _rgba( sys_pixel_format, r, g, b, a );
    if ( sys_pixel_format->depth == 16 && !color ) return 1;
    return color ;
}

/* --------------------------------------------------------------------------- */

void gr_get_rgb( int color, int *r, int *g, int *b )
{
    return _get_rgb( sys_pixel_format, color, r, g, b );
}

/* --------------------------------------------------------------------------- */

void gr_get_rgba( int color, int *r, int *g, int *b, int *a )
{
    return _get_rgba( sys_pixel_format, color, r, g, b, a );
}

/* --------------------------------------------------------------------------- */
/* This functions is used only for 16 and 32 bits                              */

int gr_rgb_depth( int depth, int r, int g, int b )
{
    int color ;
    PIXEL_FORMAT * pf = bitmap_create_format( depth );
    color = _rgb( pf, r, g, b );
    free( pf );
    if ( !color && depth == 16 ) return 1 ;
    return color ;
}

/* --------------------------------------------------------------------------- */
/* This functions is used only for 16 and 32 bits                              */

int gr_rgba_depth( int depth, int r, int g, int b, int a )
{
    int color ;
    PIXEL_FORMAT * pf = bitmap_create_format( depth );
    color = _rgba( pf, r, g, b, a );
    free( pf );
    if ( !color && depth == 16 ) return 1 ;
    return color ;
}

/* --------------------------------------------------------------------------- */

void gr_get_rgb_depth( int depth, int color, int *r, int *g, int *b )
{
    PIXEL_FORMAT * pf = bitmap_create_format( depth );
    _get_rgb( pf, color, r, g, b );
    free( pf );
}

/* --------------------------------------------------------------------------- */

void gr_get_rgba_depth( int depth, int color, int *r, int *g, int *b, int *a )
{
    PIXEL_FORMAT * pf = bitmap_create_format( depth );
    _get_rgba( pf, color, r, g, b, a );
    free( pf );
}

/* --------------------------------------------------------------------------- */

int gr_find_nearest_color( int r, int g, int b )
{
    return find_nearest_color( sys_pixel_format->palette, 0, 255, r, g, b ) ;
}

/* --------------------------------------------------------------------------- */

void gr_make_trans_table()
{
    int a = 0, b = 0;
    int r1, g1, b1;
    rgb_component * rgb;

    if ( trans_table_updated ) return ;

    if ( sys_pixel_format->palette )
        rgb = sys_pixel_format->palette->rgb;
    else
        rgb = ( rgb_component * ) default_palette;

    for ( a = 0; a < 256; a++ )
    {
        r1 = rgb[ a ].r / 2 ;
        g1 = rgb[ a ].g / 2 ;
        b1 = rgb[ a ].b / 2 ;

        for ( b = 0; b < a; b++ )
            trans_table[ a ][ b ] =
                trans_table[ b ][ a ] =
                    find_nearest_color( NULL, b, a, r1 + rgb[ b ].r / 2, g1 + rgb[ b ].g / 2, b1 + rgb[ b ].b / 2 ) ;

        trans_table[ a ][ a ] = a ;
        trans_table[ 0 ][ a ] = a ;
    }

    trans_table_updated = 1 ;
}

/* --------------------------------------------------------------------------- */

void gr_set_rgb( int color, int r, int g, int b )
{
    if ( color < 0 || color > 255 ) return ;

    if ( !sys_pixel_format->palette )
    {
        sys_pixel_format->palette = pal_new( NULL );
        memset ( sys_pixel_format->palette->rgb, '\0', sizeof( sys_pixel_format->palette->rgb ) );
    }

    sys_pixel_format->palette->rgb[ color ].r = r << 2;
    sys_pixel_format->palette->rgb[ color ].g = g << 2;
    sys_pixel_format->palette->rgb[ color ].b = b << 2;

    palette_changed = 1 ;
}

/* --------------------------------------------------------------------------- */

/* Rutinas para guardar y recibir trozos de paleta desde/hacia un buffer */

void gr_get_colors( int color, int num, uint8_t * pal )
{
    rgb_component * rgb;

    if ( num < 1 || color < 0 || color > 255 ) return ;
    if ( color + num > 256 ) num = 256 - color ;

    if ( !sys_pixel_format->palette )
        rgb = ( rgb_component * ) default_palette;
    else
        rgb = ( rgb_component * ) sys_pixel_format->palette->rgb;

    while ( num-- )
    {
        *pal++ = rgb[ color ].r ;
        *pal++ = rgb[ color ].g ;
        *pal++ = rgb[ color++ ].b ;
    }
}

/* --------------------------------------------------------------------------- */

void gr_set_colors( int color, int num, uint8_t * pal )
{
    if ( num < 1 || color < 0 || color > 255 ) return ;
    if ( color + num > 256 ) num = 256 - color ;

    if ( !sys_pixel_format->palette )
    {
        sys_pixel_format->palette = pal_new( NULL );
        memset ( sys_pixel_format->palette->rgb, '\0', sizeof( sys_pixel_format->palette->rgb ) );
    }

    while ( num-- )
    {
        sys_pixel_format->palette->rgb[ color ].r = *pal++ ;
        sys_pixel_format->palette->rgb[ color ].g = *pal++ ;
        sys_pixel_format->palette->rgb[ color++ ].b = *pal++ ;
    }

    palette_changed = 1 ;
}

/* --------------------------------------------------------------------------- */