tr_image.c

Go to the documentation of this file.

/*
===========================================================================
Copyright (C) 1999-2005 Id Software, Inc.

This file is part of Quake III Arena source code.

Quake III Arena source code is free software; you can redistribute it
and/or modify it under the terms of the GNU General Public License as
published by the Free Software Foundation; either version 2 of the License,
or (at your option) any later version.

Quake III Arena source code is distributed in the hope that it will be
useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with Foobar; if not, write to the Free Software
Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
===========================================================================
*/
// tr_image.c
#include "tr_local.h"

/*
 * Include file for users of JPEG library.
 * You will need to have included system headers that define at least
 * the typedefs FILE and size_t before you can include jpeglib.h.
 * (stdio.h is sufficient on ANSI-conforming systems.)
 * You may also wish to include "jerror.h".
 */

#define JPEG_INTERNALS
#include "../jpeg-6/jpeglib.h"


static void LoadBMP( const char *name, byte **pic, int *width, int *height );
static void LoadTGA( const char *name, byte **pic, int *width, int *height );
static void LoadJPG( const char *name, byte **pic, int *width, int *height );

static byte          s_intensitytable[256];
static unsigned char s_gammatable[256];

int     gl_filter_min = GL_LINEAR_MIPMAP_NEAREST;
int     gl_filter_max = GL_LINEAR;

#define FILE_HASH_SIZE      1024
static  image_t*        hashTable[FILE_HASH_SIZE];

/*
** R_GammaCorrect
*/
void R_GammaCorrect( byte *buffer, int bufSize ) {
    int i;

    for ( i = 0; i < bufSize; i++ ) {
        buffer[i] = s_gammatable[buffer[i]];
    }
}

typedef struct {
    char *name;
    int minimize, maximize;
} textureMode_t;

textureMode_t modes[] = {
    {"GL_NEAREST", GL_NEAREST, GL_NEAREST},
    {"GL_LINEAR", GL_LINEAR, GL_LINEAR},
    {"GL_NEAREST_MIPMAP_NEAREST", GL_NEAREST_MIPMAP_NEAREST, GL_NEAREST},
    {"GL_LINEAR_MIPMAP_NEAREST", GL_LINEAR_MIPMAP_NEAREST, GL_LINEAR},
    {"GL_NEAREST_MIPMAP_LINEAR", GL_NEAREST_MIPMAP_LINEAR, GL_NEAREST},
    {"GL_LINEAR_MIPMAP_LINEAR", GL_LINEAR_MIPMAP_LINEAR, GL_LINEAR}
};

/*
================
return a hash value for the filename
================
*/
static long generateHashValue( const char *fname ) {
    int     i;
    long    hash;
    char    letter;

    hash = 0;
    i = 0;
    while (fname[i] != '\0') {
        letter = tolower(fname[i]);
        if (letter =='.') break;                // don't include extension
        if (letter =='\\') letter = '/';        // damn path names
        hash+=(long)(letter)*(i+119);
        i++;
    }
    hash &= (FILE_HASH_SIZE-1);
    return hash;
}

/*
===============
GL_TextureMode
===============
*/
void GL_TextureMode( const char *string ) {
    int     i;
    image_t *glt;

    for ( i=0 ; i< 6 ; i++ ) {
        if ( !Q_stricmp( modes[i].name, string ) ) {
            break;
        }
    }

    // hack to prevent trilinear from being set on voodoo,
    // because their driver freaks...
    if ( i == 5 && glConfig.hardwareType == GLHW_3DFX_2D3D ) {
        ri.Printf( PRINT_ALL, "Refusing to set trilinear on a voodoo.\n" );
        i = 3;
    }


    if ( i == 6 ) {
        ri.Printf (PRINT_ALL, "bad filter name\n");
        return;
    }

    gl_filter_min = modes[i].minimize;
    gl_filter_max = modes[i].maximize;

    // change all the existing mipmap texture objects
    for ( i = 0 ; i < tr.numImages ; i++ ) {
        glt = tr.images[ i ];
        if ( glt->mipmap ) {
            GL_Bind (glt);
            qglTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, gl_filter_min);
            qglTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, gl_filter_max);
        }
    }
}

/*
===============
R_SumOfUsedImages
===============
*/
int R_SumOfUsedImages( void ) {
    int total;
    int i;

    total = 0;
    for ( i = 0; i < tr.numImages; i++ ) {
        if ( tr.images[i]->frameUsed == tr.frameCount ) {
            total += tr.images[i]->uploadWidth * tr.images[i]->uploadHeight;
        }
    }

    return total;
}

/*
===============
R_ImageList_f
===============
*/
void R_ImageList_f( void ) {
    int     i;
    image_t *image;
    int     texels;
    const char *yesno[] = {
        "no ", "yes"
    };

    ri.Printf (PRINT_ALL, "\n      -w-- -h-- -mm- -TMU- -if-- wrap --name-------\n");
    texels = 0;

    for ( i = 0 ; i < tr.numImages ; i++ ) {
        image = tr.images[ i ];

        texels += image->uploadWidth*image->uploadHeight;
        ri.Printf (PRINT_ALL,  "%4i: %4i %4i  %s   %d   ",
            i, image->uploadWidth, image->uploadHeight, yesno[image->mipmap], image->TMU );
        switch ( image->internalFormat ) {
        case 1:
            ri.Printf( PRINT_ALL, "I    " );
            break;
        case 2:
            ri.Printf( PRINT_ALL, "IA   " );
            break;
        case 3:
            ri.Printf( PRINT_ALL, "RGB  " );
            break;
        case 4:
            ri.Printf( PRINT_ALL, "RGBA " );
            break;
        case GL_RGBA8:
            ri.Printf( PRINT_ALL, "RGBA8" );
            break;
        case GL_RGB8:
            ri.Printf( PRINT_ALL, "RGB8" );
            break;
        case GL_RGB4_S3TC:
            ri.Printf( PRINT_ALL, "S3TC " );
            break;
        case GL_RGBA4:
            ri.Printf( PRINT_ALL, "RGBA4" );
            break;
        case GL_RGB5:
            ri.Printf( PRINT_ALL, "RGB5 " );
            break;
        default:
            ri.Printf( PRINT_ALL, "???? " );
        }

        switch ( image->wrapClampMode ) {
        case GL_REPEAT:
            ri.Printf( PRINT_ALL, "rept " );
            break;
        case GL_CLAMP:
            ri.Printf( PRINT_ALL, "clmp " );
            break;
        default:
            ri.Printf( PRINT_ALL, "%4i ", image->wrapClampMode );
            break;
        }
        
        ri.Printf( PRINT_ALL, " %s\n", image->imgName );
    }
    ri.Printf (PRINT_ALL, " ---------\n");
    ri.Printf (PRINT_ALL, " %i total texels (not including mipmaps)\n", texels);
    ri.Printf (PRINT_ALL, " %i total images\n\n", tr.numImages );
}

//=======================================================================

/*
================
ResampleTexture

Used to resample images in a more general than quartering fashion.

This will only be filtered properly if the resampled size
is greater than half the original size.

If a larger shrinking is needed, use the mipmap function 
before or after.
================
*/
static void ResampleTexture( unsigned *in, int inwidth, int inheight, unsigned *out,  
                            int outwidth, int outheight ) {
    int     i, j;
    unsigned    *inrow, *inrow2;
    unsigned    frac, fracstep;
    unsigned    p1[2048], p2[2048];
    byte        *pix1, *pix2, *pix3, *pix4;

    if (outwidth>2048)
        ri.Error(ERR_DROP, "ResampleTexture: max width");
                                
    fracstep = inwidth*0x10000/outwidth;

    frac = fracstep>>2;
    for ( i=0 ; i<outwidth ; i++ ) {
        p1[i] = 4*(frac>>16);
        frac += fracstep;
    }
    frac = 3*(fracstep>>2);
    for ( i=0 ; i<outwidth ; i++ ) {
        p2[i] = 4*(frac>>16);
        frac += fracstep;
    }

    for (i=0 ; i<outheight ; i++, out += outwidth) {
        inrow = in + inwidth*(int)((i+0.25)*inheight/outheight);
        inrow2 = in + inwidth*(int)((i+0.75)*inheight/outheight);
        frac = fracstep >> 1;
        for (j=0 ; j<outwidth ; j++) {
            pix1 = (byte *)inrow + p1[j];
            pix2 = (byte *)inrow + p2[j];
            pix3 = (byte *)inrow2 + p1[j];
            pix4 = (byte *)inrow2 + p2[j];
            ((byte *)(out+j))[0] = (pix1[0] + pix2[0] + pix3[0] + pix4[0])>>2;
            ((byte *)(out+j))[1] = (pix1[1] + pix2[1] + pix3[1] + pix4[1])>>2;
            ((byte *)(out+j))[2] = (pix1[2] + pix2[2] + pix3[2] + pix4[2])>>2;
            ((byte *)(out+j))[3] = (pix1[3] + pix2[3] + pix3[3] + pix4[3])>>2;
        }
    }
}

/*
================
R_LightScaleTexture

Scale up the pixel values in a texture to increase the
lighting range
================
*/
void R_LightScaleTexture (unsigned *in, int inwidth, int inheight, qboolean only_gamma )
{
    if ( only_gamma )
    {
        if ( !glConfig.deviceSupportsGamma )
        {
            int     i, c;
            byte    *p;

            p = (byte *)in;

            c = inwidth*inheight;
            for (i=0 ; i<c ; i++, p+=4)
            {
                p[0] = s_gammatable[p[0]];
                p[1] = s_gammatable[p[1]];
                p[2] = s_gammatable[p[2]];
            }
        }
    }
    else
    {
        int     i, c;
        byte    *p;

        p = (byte *)in;

        c = inwidth*inheight;

        if ( glConfig.deviceSupportsGamma )
        {
            for (i=0 ; i<c ; i++, p+=4)
            {
                p[0] = s_intensitytable[p[0]];
                p[1] = s_intensitytable[p[1]];
                p[2] = s_intensitytable[p[2]];
            }
        }
        else
        {
            for (i=0 ; i<c ; i++, p+=4)
            {
                p[0] = s_gammatable[s_intensitytable[p[0]]];
                p[1] = s_gammatable[s_intensitytable[p[1]]];
                p[2] = s_gammatable[s_intensitytable[p[2]]];
            }
        }
    }
}


/*
================
R_MipMap2

Operates in place, quartering the size of the texture
Proper linear filter
================
*/
static void R_MipMap2( unsigned *in, int inWidth, int inHeight ) {
    int         i, j, k;
    byte        *outpix;
    int         inWidthMask, inHeightMask;
    int         total;
    int         outWidth, outHeight;
    unsigned    *temp;

    outWidth = inWidth >> 1;
    outHeight = inHeight >> 1;
    temp = ri.Hunk_AllocateTempMemory( outWidth * outHeight * 4 );

    inWidthMask = inWidth - 1;
    inHeightMask = inHeight - 1;

    for ( i = 0 ; i < outHeight ; i++ ) {
        for ( j = 0 ; j < outWidth ; j++ ) {
            outpix = (byte *) ( temp + i * outWidth + j );
            for ( k = 0 ; k < 4 ; k++ ) {
                total = 
                    1 * ((byte *)&in[ ((i*2-1)&inHeightMask)*inWidth + ((j*2-1)&inWidthMask) ])[k] +
                    2 * ((byte *)&in[ ((i*2-1)&inHeightMask)*inWidth + ((j*2)&inWidthMask) ])[k] +
                    2 * ((byte *)&in[ ((i*2-1)&inHeightMask)*inWidth + ((j*2+1)&inWidthMask) ])[k] +
                    1 * ((byte *)&in[ ((i*2-1)&inHeightMask)*inWidth + ((j*2+2)&inWidthMask) ])[k] +

                    2 * ((byte *)&in[ ((i*2)&inHeightMask)*inWidth + ((j*2-1)&inWidthMask) ])[k] +
                    4 * ((byte *)&in[ ((i*2)&inHeightMask)*inWidth + ((j*2)&inWidthMask) ])[k] +
                    4 * ((byte *)&in[ ((i*2)&inHeightMask)*inWidth + ((j*2+1)&inWidthMask) ])[k] +
                    2 * ((byte *)&in[ ((i*2)&inHeightMask)*inWidth + ((j*2+2)&inWidthMask) ])[k] +

                    2 * ((byte *)&in[ ((i*2+1)&inHeightMask)*inWidth + ((j*2-1)&inWidthMask) ])[k] +
                    4 * ((byte *)&in[ ((i*2+1)&inHeightMask)*inWidth + ((j*2)&inWidthMask) ])[k] +
                    4 * ((byte *)&in[ ((i*2+1)&inHeightMask)*inWidth + ((j*2+1)&inWidthMask) ])[k] +
                    2 * ((byte *)&in[ ((i*2+1)&inHeightMask)*inWidth + ((j*2+2)&inWidthMask) ])[k] +

                    1 * ((byte *)&in[ ((i*2+2)&inHeightMask)*inWidth + ((j*2-1)&inWidthMask) ])[k] +
                    2 * ((byte *)&in[ ((i*2+2)&inHeightMask)*inWidth + ((j*2)&inWidthMask) ])[k] +
                    2 * ((byte *)&in[ ((i*2+2)&inHeightMask)*inWidth + ((j*2+1)&inWidthMask) ])[k] +
                    1 * ((byte *)&in[ ((i*2+2)&inHeightMask)*inWidth + ((j*2+2)&inWidthMask) ])[k];
                outpix[k] = total / 36;
            }
        }
    }

    Com_Memcpy( in, temp, outWidth * outHeight * 4 );
    ri.Hunk_FreeTempMemory( temp );
}

/*
================
R_MipMap

Operates in place, quartering the size of the texture
================
*/
static void R_MipMap (byte *in, int width, int height) {
    int     i, j;
    byte    *out;
    int     row;

    if ( !r_simpleMipMaps->integer ) {
        R_MipMap2( (unsigned *)in, width, height );
        return;
    }

    if ( width == 1 && height == 1 ) {
        return;
    }

    row = width * 4;
    out = in;
    width >>= 1;
    height >>= 1;

    if ( width == 0 || height == 0 ) {
        width += height;    // get largest
        for (i=0 ; i<width ; i++, out+=4, in+=8 ) {
            out[0] = ( in[0] + in[4] )>>1;
            out[1] = ( in[1] + in[5] )>>1;
            out[2] = ( in[2] + in[6] )>>1;
            out[3] = ( in[3] + in[7] )>>1;
        }
        return;
    }

    for (i=0 ; i<height ; i++, in+=row) {
        for (j=0 ; j<width ; j++, out+=4, in+=8) {
            out[0] = (in[0] + in[4] + in[row+0] + in[row+4])>>2;
            out[1] = (in[1] + in[5] + in[row+1] + in[row+5])>>2;
            out[2] = (in[2] + in[6] + in[row+2] + in[row+6])>>2;
            out[3] = (in[3] + in[7] + in[row+3] + in[row+7])>>2;
        }
    }
}


/*
==================
R_BlendOverTexture

Apply a color blend over a set of pixels
==================
*/
static void R_BlendOverTexture( byte *data, int pixelCount, byte blend[4] ) {
    int     i;
    int     inverseAlpha;
    int     premult[3];

    inverseAlpha = 255 - blend[3];
    premult[0] = blend[0] * blend[3];
    premult[1] = blend[1] * blend[3];
    premult[2] = blend[2] * blend[3];

    for ( i = 0 ; i < pixelCount ; i++, data+=4 ) {
        data[0] = ( data[0] * inverseAlpha + premult[0] ) >> 9;
        data[1] = ( data[1] * inverseAlpha + premult[1] ) >> 9;
        data[2] = ( data[2] * inverseAlpha + premult[2] ) >> 9;
    }
}

byte    mipBlendColors[16][4] = {
    {0,0,0,0},
    {255,0,0,128},
    {0,255,0,128},
    {0,0,255,128},
    {255,0,0,128},
    {0,255,0,128},
    {0,0,255,128},
    {255,0,0,128},
    {0,255,0,128},
    {0,0,255,128},
    {255,0,0,128},
    {0,255,0,128},
    {0,0,255,128},
    {255,0,0,128},
    {0,255,0,128},
    {0,0,255,128},
};


/*
===============
Upload32

===============
*/
extern qboolean charSet;
static void Upload32( unsigned *data, 
                          int width, int height, 
                          qboolean mipmap, 
                          qboolean picmip, 
                            qboolean lightMap,
                          int *format, 
                          int *pUploadWidth, int *pUploadHeight )
{
    int         samples;
    unsigned    *scaledBuffer = NULL;
    unsigned    *resampledBuffer = NULL;
    int         scaled_width, scaled_height;
    int         i, c;
    byte        *scan;
    GLenum      internalFormat = GL_RGB;
    float       rMax = 0, gMax = 0, bMax = 0;

    //
    // convert to exact power of 2 sizes
    //
    for (scaled_width = 1 ; scaled_width < width ; scaled_width<<=1)
        ;
    for (scaled_height = 1 ; scaled_height < height ; scaled_height<<=1)
        ;
    if ( r_roundImagesDown->integer && scaled_width > width )
        scaled_width >>= 1;
    if ( r_roundImagesDown->integer && scaled_height > height )
        scaled_height >>= 1;

    if ( scaled_width != width || scaled_height != height ) {
        resampledBuffer = ri.Hunk_AllocateTempMemory( scaled_width * scaled_height * 4 );
        ResampleTexture (data, width, height, resampledBuffer, scaled_width, scaled_height);
        data = resampledBuffer;
        width = scaled_width;
        height = scaled_height;
    }

    //
    // perform optional picmip operation
    //
    if ( picmip ) {
        scaled_width >>= r_picmip->integer;
        scaled_height >>= r_picmip->integer;
    }

    //
    // clamp to minimum size
    //
    if (scaled_width < 1) {
        scaled_width = 1;
    }
    if (scaled_height < 1) {
        scaled_height = 1;
    }

    //
    // clamp to the current upper OpenGL limit
    // scale both axis down equally so we don't have to
    // deal with a half mip resampling
    //
    while ( scaled_width > glConfig.maxTextureSize
        || scaled_height > glConfig.maxTextureSize ) {
        scaled_width >>= 1;
        scaled_height >>= 1;
    }

    scaledBuffer = ri.Hunk_AllocateTempMemory( sizeof( unsigned ) * scaled_width * scaled_height );

    //
    // scan the texture for each channel's max values
    // and verify if the alpha channel is being used or not
    //
    c = width*height;
    scan = ((byte *)data);
    samples = 3;
    if (!lightMap) {
        for ( i = 0; i < c; i++ )
        {
            if ( scan[i*4+0] > rMax )
            {
                rMax = scan[i*4+0];
            }
            if ( scan[i*4+1] > gMax )
            {
                gMax = scan[i*4+1];
            }
            if ( scan[i*4+2] > bMax )
            {
                bMax = scan[i*4+2];
            }
            if ( scan[i*4 + 3] != 255 ) 
            {
                samples = 4;
                break;
            }
        }
        // select proper internal format
        if ( samples == 3 )
        {
            if ( glConfig.textureCompression == TC_S3TC )
            {
                internalFormat = GL_RGB4_S3TC;
            }
            else if ( r_texturebits->integer == 16 )
            {
                internalFormat = GL_RGB5;
            }
            else if ( r_texturebits->integer == 32 )
            {
                internalFormat = GL_RGB8;
            }
            else
            {
                internalFormat = 3;
            }
        }
        else if ( samples == 4 )
        {
            if ( r_texturebits->integer == 16 )
            {
                internalFormat = GL_RGBA4;
            }
            else if ( r_texturebits->integer == 32 )
            {
                internalFormat = GL_RGBA8;
            }
            else
            {
                internalFormat = 4;
            }
        }
    } else {
        internalFormat = 3;
    }
    // copy or resample data as appropriate for first MIP level
    if ( ( scaled_width == width ) && 
        ( scaled_height == height ) ) {
        if (!mipmap)
        {
            qglTexImage2D (GL_TEXTURE_2D, 0, internalFormat, scaled_width, scaled_height, 0, GL_RGBA, GL_UNSIGNED_BYTE, data);
            *pUploadWidth = scaled_width;
            *pUploadHeight = scaled_height;
            *format = internalFormat;

            goto done;
        }
        Com_Memcpy (scaledBuffer, data, width*height*4);
    }
    else
    {
        // use the normal mip-mapping function to go down from here
        while ( width > scaled_width || height > scaled_height ) {
            R_MipMap( (byte *)data, width, height );
            width >>= 1;
            height >>= 1;
            if ( width < 1 ) {
                width = 1;
            }
            if ( height < 1 ) {
                height = 1;
            }
        }
        Com_Memcpy( scaledBuffer, data, width * height * 4 );
    }

    R_LightScaleTexture (scaledBuffer, scaled_width, scaled_height, !mipmap );

    *pUploadWidth = scaled_width;
    *pUploadHeight = scaled_height;
    *format = internalFormat;

    qglTexImage2D (GL_TEXTURE_2D, 0, internalFormat, scaled_width, scaled_height, 0, GL_RGBA, GL_UNSIGNED_BYTE, scaledBuffer );

    if (mipmap)
    {
        int     miplevel;

        miplevel = 0;
        while (scaled_width > 1 || scaled_height > 1)
        {
            R_MipMap( (byte *)scaledBuffer, scaled_width, scaled_height );
            scaled_width >>= 1;
            scaled_height >>= 1;
            if (scaled_width < 1)
                scaled_width = 1;
            if (scaled_height < 1)
                scaled_height = 1;
            miplevel++;

            if ( r_colorMipLevels->integer ) {
                R_BlendOverTexture( (byte *)scaledBuffer, scaled_width * scaled_height, mipBlendColors[miplevel] );
            }

            qglTexImage2D (GL_TEXTURE_2D, miplevel, internalFormat, scaled_width, scaled_height, 0, GL_RGBA, GL_UNSIGNED_BYTE, scaledBuffer );
        }
    }
done:

    if (mipmap)
    {
        qglTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, gl_filter_min);
        qglTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, gl_filter_max);
    }
    else
    {
        qglTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR );
        qglTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR );
    }

    GL_CheckErrors();

    if ( scaledBuffer != 0 )
        ri.Hunk_FreeTempMemory( scaledBuffer );
    if ( resampledBuffer != 0 )
        ri.Hunk_FreeTempMemory( resampledBuffer );
}


/*
================
R_CreateImage

This is the only way any image_t are created
================
*/
image_t *R_CreateImage( const char *name, const byte *pic, int width, int height, 
                       qboolean mipmap, qboolean allowPicmip, int glWrapClampMode ) {
    image_t     *image;
    qboolean    isLightmap = qfalse;
    long        hash;

    if (strlen(name) >= MAX_QPATH ) {
        ri.Error (ERR_DROP, "R_CreateImage: \"%s\" is too long\n", name);
    }
    if ( !strncmp( name, "*lightmap", 9 ) ) {
        isLightmap = qtrue;
    }

    if ( tr.numImages == MAX_DRAWIMAGES ) {
        ri.Error( ERR_DROP, "R_CreateImage: MAX_DRAWIMAGES hit\n");
    }

    image = tr.images[tr.numImages] = ri.Hunk_Alloc( sizeof( image_t ), h_low );
    image->texnum = 1024 + tr.numImages;
    tr.numImages++;

    image->mipmap = mipmap;
    image->allowPicmip = allowPicmip;

    strcpy (image->imgName, name);

    image->width = width;
    image->height = height;
    image->wrapClampMode = glWrapClampMode;

    // lightmaps are always allocated on TMU 1
    if ( qglActiveTextureARB && isLightmap ) {
        image->TMU = 1;
    } else {
        image->TMU = 0;
    }

    if ( qglActiveTextureARB ) {
        GL_SelectTexture( image->TMU );
    }

    GL_Bind(image);

    Upload32( (unsigned *)pic, image->width, image->height, 
                                image->mipmap,
                                allowPicmip,
                                isLightmap,
                                &image->internalFormat,
                                &image->uploadWidth,
                                &image->uploadHeight );

    qglTexParameterf( GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, glWrapClampMode );
    qglTexParameterf( GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, glWrapClampMode );

    qglBindTexture( GL_TEXTURE_2D, 0 );

    if ( image->TMU == 1 ) {
        GL_SelectTexture( 0 );
    }

    hash = generateHashValue(name);
    image->next = hashTable[hash];
    hashTable[hash] = image;

    return image;
}


/*
=========================================================

BMP LOADING

=========================================================
*/
typedef struct
{
    char id[2];
    unsigned long fileSize;
    unsigned long reserved0;
    unsigned long bitmapDataOffset;
    unsigned long bitmapHeaderSize;
    unsigned long width;
    unsigned long height;
    unsigned short planes;
    unsigned short bitsPerPixel;
    unsigned long compression;
    unsigned long bitmapDataSize;
    unsigned long hRes;
    unsigned long vRes;
    unsigned long colors;
    unsigned long importantColors;
    unsigned char palette[256][4];
} BMPHeader_t;

static void LoadBMP( const char *name, byte **pic, int *width, int *height )
{
    int     columns, rows, numPixels;
    byte    *pixbuf;
    int     row, column;
    byte    *buf_p;
    byte    *buffer;
    int     length;
    BMPHeader_t bmpHeader;
    byte        *bmpRGBA;

    *pic = NULL;

    //
    // load the file
    //
    length = ri.FS_ReadFile( ( char * ) name, (void **)&buffer);
    if (!buffer) {
        return;
    }

    buf_p = buffer;

    bmpHeader.id[0] = *buf_p++;
    bmpHeader.id[1] = *buf_p++;
    bmpHeader.fileSize = LittleLong( * ( long * ) buf_p );
    buf_p += 4;
    bmpHeader.reserved0 = LittleLong( * ( long * ) buf_p );
    buf_p += 4;
    bmpHeader.bitmapDataOffset = LittleLong( * ( long * ) buf_p );
    buf_p += 4;
    bmpHeader.bitmapHeaderSize = LittleLong( * ( long * ) buf_p );
    buf_p += 4;
    bmpHeader.width = LittleLong( * ( long * ) buf_p );
    buf_p += 4;
    bmpHeader.height = LittleLong( * ( long * ) buf_p );
    buf_p += 4;
    bmpHeader.planes = LittleShort( * ( short * ) buf_p );
    buf_p += 2;
    bmpHeader.bitsPerPixel = LittleShort( * ( short * ) buf_p );
    buf_p += 2;
    bmpHeader.compression = LittleLong( * ( long * ) buf_p );
    buf_p += 4;
    bmpHeader.bitmapDataSize = LittleLong( * ( long * ) buf_p );
    buf_p += 4;
    bmpHeader.hRes = LittleLong( * ( long * ) buf_p );
    buf_p += 4;
    bmpHeader.vRes = LittleLong( * ( long * ) buf_p );
    buf_p += 4;
    bmpHeader.colors = LittleLong( * ( long * ) buf_p );
    buf_p += 4;
    bmpHeader.importantColors = LittleLong( * ( long * ) buf_p );
    buf_p += 4;

    Com_Memcpy( bmpHeader.palette, buf_p, sizeof( bmpHeader.palette ) );

    if ( bmpHeader.bitsPerPixel == 8 )
        buf_p += 1024;

    if ( bmpHeader.id[0] != 'B' && bmpHeader.id[1] != 'M' ) 
    {
        ri.Error( ERR_DROP, "LoadBMP: only Windows-style BMP files supported (%s)\n", name );
    }
    if ( bmpHeader.fileSize != length )
    {
        ri.Error( ERR_DROP, "LoadBMP: header size does not match file size (%d vs. %d) (%s)\n", bmpHeader.fileSize, length, name );
    }
    if ( bmpHeader.compression != 0 )
    {
        ri.Error( ERR_DROP, "LoadBMP: only uncompressed BMP files supported (%s)\n", name );
    }
    if ( bmpHeader.bitsPerPixel < 8 )
    {
        ri.Error( ERR_DROP, "LoadBMP: monochrome and 4-bit BMP files not supported (%s)\n", name );
    }

    columns = bmpHeader.width;
    rows = bmpHeader.height;
    if ( rows < 0 )
        rows = -rows;
    numPixels = columns * rows;

    if ( width ) 
        *width = columns;
    if ( height )
        *height = rows;

    bmpRGBA = ri.Malloc( numPixels * 4 );
    *pic = bmpRGBA;


    for ( row = rows-1; row >= 0; row-- )
    {
        pixbuf = bmpRGBA + row*columns*4;

        for ( column = 0; column < columns; column++ )
        {
            unsigned char red, green, blue, alpha;
            int palIndex;
            unsigned short shortPixel;

            switch ( bmpHeader.bitsPerPixel )
            {
            case 8:
                palIndex = *buf_p++;
                *pixbuf++ = bmpHeader.palette[palIndex][2];
                *pixbuf++ = bmpHeader.palette[palIndex][1];
                *pixbuf++ = bmpHeader.palette[palIndex][0];
                *pixbuf++ = 0xff;
                break;
            case 16:
                shortPixel = * ( unsigned short * ) pixbuf;
                pixbuf += 2;
                *pixbuf++ = ( shortPixel & ( 31 << 10 ) ) >> 7;
                *pixbuf++ = ( shortPixel & ( 31 << 5 ) ) >> 2;
                *pixbuf++ = ( shortPixel & ( 31 ) ) << 3;
                *pixbuf++ = 0xff;
                break;

            case 24:
                blue = *buf_p++;
                green = *buf_p++;
                red = *buf_p++;
                *pixbuf++ = red;
                *pixbuf++ = green;
                *pixbuf++ = blue;
                *pixbuf++ = 255;
                break;
            case 32:
                blue = *buf_p++;
                green = *buf_p++;
                red = *buf_p++;
                alpha = *buf_p++;
                *pixbuf++ = red;
                *pixbuf++ = green;
                *pixbuf++ = blue;
                *pixbuf++ = alpha;
                break;
            default:
                ri.Error( ERR_DROP, "LoadBMP: illegal pixel_size '%d' in file '%s'\n", bmpHeader.bitsPerPixel, name );
                break;
            }
        }
    }

    ri.FS_FreeFile( buffer );

}


/*
=================================================================

PCX LOADING

=================================================================
*/


/*
==============
LoadPCX
==============
*/
static void LoadPCX ( const char *filename, byte **pic, byte **palette, int *width, int *height)
{
    byte    *raw;
    pcx_t   *pcx;
    int     x, y;
    int     len;
    int     dataByte, runLength;
    byte    *out, *pix;
    int     xmax, ymax;

    *pic = NULL;
    *palette = NULL;

    //
    // load the file
    //
    len = ri.FS_ReadFile( ( char * ) filename, (void **)&raw);
    if (!raw) {
        return;
    }

    //
    // parse the PCX file
    //
    pcx = (pcx_t *)raw;
    raw = &pcx->data;

    xmax = LittleShort(pcx->xmax);
    ymax = LittleShort(pcx->ymax);

    if (pcx->manufacturer != 0x0a
        || pcx->version != 5
        || pcx->encoding != 1
        || pcx->bits_per_pixel != 8
        || xmax >= 1024
        || ymax >= 1024)
    {
        ri.Printf (PRINT_ALL, "Bad pcx file %s (%i x %i) (%i x %i)\n", filename, xmax+1, ymax+1, pcx->xmax, pcx->ymax);
        return;
    }

    out = ri.Malloc ( (ymax+1) * (xmax+1) );

    *pic = out;

    pix = out;

    if (palette)
    {
        *palette = ri.Malloc(768);
        Com_Memcpy (*palette, (byte *)pcx + len - 768, 768);
    }

    if (width)
        *width = xmax+1;
    if (height)
        *height = ymax+1;
// FIXME: use bytes_per_line here?

    for (y=0 ; y<=ymax ; y++, pix += xmax+1)
    {
        for (x=0 ; x<=xmax ; )
        {
            dataByte = *raw++;

            if((dataByte & 0xC0) == 0xC0)
            {
                runLength = dataByte & 0x3F;
                dataByte = *raw++;
            }
            else
                runLength = 1;

            while(runLength-- > 0)
                pix[x++] = dataByte;
        }

    }

    if ( raw - (byte *)pcx > len)
    {
        ri.Printf (PRINT_DEVELOPER, "PCX file %s was malformed", filename);
        ri.Free (*pic);
        *pic = NULL;
    }

    ri.FS_FreeFile (pcx);
}


/*
==============
LoadPCX32
==============
*/
static void LoadPCX32 ( const char *filename, byte **pic, int *width, int *height) {
    byte    *palette;
    byte    *pic8;
    int     i, c, p;
    byte    *pic32;

    LoadPCX (filename, &pic8, &palette, width, height);
    if (!pic8) {
        *pic = NULL;
        return;
    }

    c = (*width) * (*height);
    pic32 = *pic = ri.Malloc(4 * c );
    for (i = 0 ; i < c ; i++) {
        p = pic8[i];
        pic32[0] = palette[p*3];
        pic32[1] = palette[p*3 + 1];
        pic32[2] = palette[p*3 + 2];
        pic32[3] = 255;
        pic32 += 4;
    }

    ri.Free (pic8);
    ri.Free (palette);
}

/*
=========================================================

TARGA LOADING

=========================================================
*/

/*
=============
LoadTGA
=============
*/
static void LoadTGA ( const char *name, byte **pic, int *width, int *height)
{
    int     columns, rows, numPixels;
    byte    *pixbuf;
    int     row, column;
    byte    *buf_p;
    byte    *buffer;
    TargaHeader targa_header;
    byte        *targa_rgba;

    *pic = NULL;

    //
    // load the file
    //
    ri.FS_ReadFile ( ( char * ) name, (void **)&buffer);
    if (!buffer) {
        return;
    }

    buf_p = buffer;

    targa_header.id_length = *buf_p++;
    targa_header.colormap_type = *buf_p++;
    targa_header.image_type = *buf_p++;
    
    targa_header.colormap_index = LittleShort ( *(short *)buf_p );
    buf_p += 2;
    targa_header.colormap_length = LittleShort ( *(short *)buf_p );
    buf_p += 2;
    targa_header.colormap_size = *buf_p++;
    targa_header.x_origin = LittleShort ( *(short *)buf_p );
    buf_p += 2;
    targa_header.y_origin = LittleShort ( *(short *)buf_p );
    buf_p += 2;
    targa_header.width = LittleShort ( *(short *)buf_p );
    buf_p += 2;
    targa_header.height = LittleShort ( *(short *)buf_p );
    buf_p += 2;
    targa_header.pixel_size = *buf_p++;
    targa_header.attributes = *buf_p++;

    if (targa_header.image_type!=2 
        && targa_header.image_type!=10
        && targa_header.image_type != 3 ) 
    {
        ri.Error (ERR_DROP, "LoadTGA: Only type 2 (RGB), 3 (gray), and 10 (RGB) TGA images supported\n");
    }

    if ( targa_header.colormap_type != 0 )
    {
        ri.Error( ERR_DROP, "LoadTGA: colormaps not supported\n" );
    }

    if ( ( targa_header.pixel_size != 32 && targa_header.pixel_size != 24 ) && targa_header.image_type != 3 )
    {
        ri.Error (ERR_DROP, "LoadTGA: Only 32 or 24 bit images supported (no colormaps)\n");
    }

    columns = targa_header.width;
    rows = targa_header.height;
    numPixels = columns * rows;

    if (width)
        *width = columns;
    if (height)
        *height = rows;

    targa_rgba = ri.Malloc (numPixels*4);
    *pic = targa_rgba;

    if (targa_header.id_length != 0)
        buf_p += targa_header.id_length;  // skip TARGA image comment
    
    if ( targa_header.image_type==2 || targa_header.image_type == 3 )
    { 
        // Uncompressed RGB or gray scale image
        for(row=rows-1; row>=0; row--) 
        {
            pixbuf = targa_rgba + row*columns*4;
            for(column=0; column<columns; column++) 
            {
                unsigned char red,green,blue,alphabyte;
                switch (targa_header.pixel_size) 
                {
                    
                case 8:
                    blue = *buf_p++;
                    green = blue;
                    red = blue;
                    *pixbuf++ = red;
                    *pixbuf++ = green;
                    *pixbuf++ = blue;
                    *pixbuf++ = 255;
                    break;

                case 24:
                    blue = *buf_p++;
                    green = *buf_p++;
                    red = *buf_p++;
                    *pixbuf++ = red;
                    *pixbuf++ = green;
                    *pixbuf++ = blue;
                    *pixbuf++ = 255;
                    break;
                case 32:
                    blue = *buf_p++;
                    green = *buf_p++;
                    red = *buf_p++;
                    alphabyte = *buf_p++;
                    *pixbuf++ = red;
                    *pixbuf++ = green;
                    *pixbuf++ = blue;
                    *pixbuf++ = alphabyte;
                    break;
                default:
                    ri.Error( ERR_DROP, "LoadTGA: illegal pixel_size '%d' in file '%s'\n", targa_header.pixel_size, name );
                    break;
                }
            }
        }
    }
    else if (targa_header.image_type==10) {   // Runlength encoded RGB images
        unsigned char red,green,blue,alphabyte,packetHeader,packetSize,j;

        red = 0;
        green = 0;
        blue = 0;
        alphabyte = 0xff;

        for(row=rows-1; row>=0; row--) {
            pixbuf = targa_rgba + row*columns*4;
            for(column=0; column<columns; ) {
                packetHeader= *buf_p++;
                packetSize = 1 + (packetHeader & 0x7f);
                if (packetHeader & 0x80) {        // run-length packet
                    switch (targa_header.pixel_size) {
                        case 24:
                                blue = *buf_p++;
                                green = *buf_p++;
                                red = *buf_p++;
                                alphabyte = 255;
                                break;
                        case 32:
                                blue = *buf_p++;
                                green = *buf_p++;
                                red = *buf_p++;
                                alphabyte = *buf_p++;
                                break;
                        default:
                            ri.Error( ERR_DROP, "LoadTGA: illegal pixel_size '%d' in file '%s'\n", targa_header.pixel_size, name );
                            break;
                    }
    
                    for(j=0;j<packetSize;j++) {
                        *pixbuf++=red;
                        *pixbuf++=green;
                        *pixbuf++=blue;
                        *pixbuf++=alphabyte;
                        column++;
                        if (column==columns) { // run spans across rows
                            column=0;
                            if (row>0)
                                row--;
                            else
                                goto breakOut;
                            pixbuf = targa_rgba + row*columns*4;
                        }
                    }
                }
                else {                            // non run-length packet
                    for(j=0;j<packetSize;j++) {
                        switch (targa_header.pixel_size) {
                            case 24:
                                    blue = *buf_p++;
                                    green = *buf_p++;
                                    red = *buf_p++;
                                    *pixbuf++ = red;
                                    *pixbuf++ = green;
                                    *pixbuf++ = blue;
                                    *pixbuf++ = 255;
                                    break;
                            case 32:
                                    blue = *buf_p++;
                                    green = *buf_p++;
                                    red = *buf_p++;
                                    alphabyte = *buf_p++;
                                    *pixbuf++ = red;
                                    *pixbuf++ = green;
                                    *pixbuf++ = blue;
                                    *pixbuf++ = alphabyte;
                                    break;
                            default:
                                ri.Error( ERR_DROP, "LoadTGA: illegal pixel_size '%d' in file '%s'\n", targa_header.pixel_size, name );
                                break;
                        }
                        column++;
                        if (column==columns) { // pixel packet run spans across rows
                            column=0;
                            if (row>0)
                                row--;
                            else
                                goto breakOut;
                            pixbuf = targa_rgba + row*columns*4;
                        }                       
                    }
                }
            }
            breakOut:;
        }
    }

#if 0 
  // TTimo: this is the chunk of code to ensure a behavior that meets TGA specs 
  // bk0101024 - fix from Leonardo
  // bit 5 set => top-down
  if (targa_header.attributes & 0x20) {
    unsigned char *flip = (unsigned char*)malloc (columns*4);
    unsigned char *src, *dst;

    for (row = 0; row < rows/2; row++) {
      src = targa_rgba + row * 4 * columns;
      dst = targa_rgba + (rows - row - 1) * 4 * columns;

      memcpy (flip, src, columns*4);
      memcpy (src, dst, columns*4);
      memcpy (dst, flip, columns*4);
    }
    free (flip);
  }
#endif
  // instead we just print a warning
  if (targa_header.attributes & 0x20) {
    ri.Printf( PRINT_WARNING, "WARNING: '%s' TGA file header declares top-down image, ignoring\n", name);
  }

  ri.FS_FreeFile (buffer);
}

static void LoadJPG( const char *filename, unsigned char **pic, int *width, int *height ) {
  /* This struct contains the JPEG decompression parameters and pointers to
   * working space (which is allocated as needed by the JPEG library).
   */
  struct jpeg_decompress_struct cinfo;
  /* We use our private extension JPEG error handler.
   * Note that this struct must live as long as the main JPEG parameter
   * struct, to avoid dangling-pointer problems.
   */
  /* This struct represents a JPEG error handler.  It is declared separately
   * because applications often want to supply a specialized error handler
   * (see the second half of this file for an example).  But here we just
   * take the easy way out and use the standard error handler, which will
   * print a message on stderr and call exit() if compression fails.
   * Note that this struct must live as long as the main JPEG parameter
   * struct, to avoid dangling-pointer problems.
   */
  struct jpeg_error_mgr jerr;
  /* More stuff */
  JSAMPARRAY buffer;        /* Output row buffer */
  int row_stride;       /* physical row width in output buffer */
  unsigned char *out;
  byte  *fbuffer;
  byte  *bbuf;

  /* In this example we want to open the input file before doing anything else,
   * so that the setjmp() error recovery below can assume the file is open.
   * VERY IMPORTANT: use "b" option to fopen() if you are on a machine that
   * requires it in order to read binary files.
   */

  ri.FS_ReadFile ( ( char * ) filename, (void **)&fbuffer);
  if (!fbuffer) {
    return;
  }

  /* Step 1: allocate and initialize JPEG decompression object */

  /* We have to set up the error handler first, in case the initialization
   * step fails.  (Unlikely, but it could happen if you are out of memory.)
   * This routine fills in the contents of struct jerr, and returns jerr's
   * address which we place into the link field in cinfo.
   */
  cinfo.err = jpeg_std_error(&jerr);

  /* Now we can initialize the JPEG decompression object. */
  jpeg_create_decompress(&cinfo);

  /* Step 2: specify data source (eg, a file) */

  jpeg_stdio_src(&cinfo, fbuffer);

  /* Step 3: read file parameters with jpeg_read_header() */

  (void) jpeg_read_header(&cinfo, TRUE);
  /* We can ignore the return value from jpeg_read_header since
   *   (a) suspension is not possible with the stdio data source, and
   *   (b) we passed TRUE to reject a tables-only JPEG file as an error.
   * See libjpeg.doc for more info.
   */

  /* Step 4: set parameters for decompression */

  /* In this example, we don't need to change any of the defaults set by
   * jpeg_read_header(), so we do nothing here.
   */

  /* Step 5: Start decompressor */

  (void) jpeg_start_decompress(&cinfo);
  /* We can ignore the return value since suspension is not possible
   * with the stdio data source.
   */

  /* We may need to do some setup of our own at this point before reading
   * the data.  After jpeg_start_decompress() we have the correct scaled
   * output image dimensions available, as well as the output colormap
   * if we asked for color quantization.
   * In this example, we need to make an output work buffer of the right size.
   */ 
  /* JSAMPLEs per row in output buffer */
  row_stride = cinfo.output_width * cinfo.output_components;

  out = ri.Malloc(cinfo.output_width*cinfo.output_height*cinfo.output_components);

  *pic = out;
  *width = cinfo.output_width;
  *height = cinfo.output_height;

  /* Step 6: while (scan lines remain to be read) */
  /*           jpeg_read_scanlines(...); */

  /* Here we use the library's state variable cinfo.output_scanline as the
   * loop counter, so that we don't have to keep track ourselves.
   */
  while (cinfo.output_scanline < cinfo.output_height) {
    /* jpeg_read_scanlines expects an array of pointers to scanlines.
     * Here the array is only one element long, but you could ask for
     * more than one scanline at a time if that's more convenient.
     */
    bbuf = ((out+(row_stride*cinfo.output_scanline)));
    buffer = &bbuf;
    (void) jpeg_read_scanlines(&cinfo, buffer, 1);
  }

  // clear all the alphas to 255
  {
      int   i, j;
        byte    *buf;

        buf = *pic;

      j = cinfo.output_width * cinfo.output_height * 4;
      for ( i = 3 ; i < j ; i+=4 ) {
          buf[i] = 255;
      }
  }

  /* Step 7: Finish decompression */

  (void) jpeg_finish_decompress(&cinfo);
  /* We can ignore the return value since suspension is not possible
   * with the stdio data source.
   */

  /* Step 8: Release JPEG decompression object */

  /* This is an important step since it will release a good deal of memory. */
  jpeg_destroy_decompress(&cinfo);

  /* After finish_decompress, we can close the input file.
   * Here we postpone it until after no more JPEG errors are possible,
   * so as to simplify the setjmp error logic above.  (Actually, I don't
   * think that jpeg_destroy can do an error exit, but why assume anything...)
   */
  ri.FS_FreeFile (fbuffer);

  /* At this point you may want to check to see whether any corrupt-data
   * warnings occurred (test whether jerr.pub.num_warnings is nonzero).
   */

  /* And we're done! */
}


/* Expanded data destination object for stdio output */

typedef struct {
  struct jpeg_destination_mgr pub; /* public fields */

  byte* outfile;        /* target stream */
  int   size;
} my_destination_mgr;

typedef my_destination_mgr * my_dest_ptr;


/*
 * Initialize destination --- called by jpeg_start_compress
 * before any data is actually written.
 */

void init_destination (j_compress_ptr cinfo)
{
  my_dest_ptr dest = (my_dest_ptr) cinfo->dest;

  dest->pub.next_output_byte = dest->outfile;
  dest->pub.