]> git.xonotic.org Git - xonotic/darkplaces.git/blobdiff - gl_textures.c
Remove alsa 0.6 (for some random date of cvs alsa) support, never officially released...
[xonotic/darkplaces.git] / gl_textures.c
index 345a7414eb656c70e4c0852fc9785125994606b9..e7c19f38bf4fe2d9b78300382f5697622f330969 100644 (file)
@@ -1,6 +1,6 @@
 #include "quakedef.h"
 
-cvar_t         gl_max_size = {"gl_max_size", "1024"};
+cvar_t         gl_max_size = {"gl_max_size", "2048"};
 cvar_t         gl_picmip = {"gl_picmip", "0"};
 cvar_t         gl_lerpimages = {"gl_lerpimages", "1"};
 cvar_t         r_upload = {"r_upload", "1"};
@@ -11,26 +11,29 @@ int         gl_filter_max = GL_LINEAR;
 
 int            texels;
 
-// 4096x4096
-#define MAXMIPS 12
+// 65536x65536
+#define MAXMIPS 16
 
 typedef struct
 {
+       char    identifier[64];
        int             texnum;
+       int             texeldatasize;
        byte    *texels[MAXMIPS];
        unsigned short texelsize[MAXMIPS][2];
-       char    identifier[64];
-       short   width, height;
+       unsigned short width, height;
 // LordHavoc: CRC to identify cache mismatchs
        unsigned short crc;
        char    mipmap;
        char    alpha;
        char    bytesperpixel;
        char    lerped; // whether this texture was uploaded with or without interpolation
+       char    inuse; // cleared during texture purge when loading new level
+       char    pad; // unused
 } gltexture_t;
 
 #define        MAX_GLTEXTURES  4096
-gltexture_t    gltextures[MAX_GLTEXTURES];
+gltexture_t    *gltextures;
 int                    numgltextures;
 
 typedef struct
@@ -98,17 +101,64 @@ void Draw_TextureMode_f (void)
        }
 }
 
-extern int buildnumber;
+void GL_TextureStats_Print(char *name, int total, int crc, int mip, int alpha)
+{
+       char n[64];
+       int c = 0;
+       if (!name[0])
+               name = "<unnamed>";
+       while (name[c] && c < 28)
+               n[c++] = name[c];
+       // no need to pad since the name was moved to last
+//     while (c < 28)
+//             n[c++] = ' ';
+       n[c] = 0;
+       Con_Printf("%5i %04X %s %s %s\n", total, crc, mip ? "yes" : "no ", alpha ? "yes  " : "no   ", n);
+}
+
+void GL_TextureStats_f(void)
+{
+       int i, s = 0, sc = 0, t = 0;
+       gltexture_t *glt;
+       Con_Printf("kbytes crc  mip alpha name\n");
+       for (i = 0, glt = gltextures;i < numgltextures;i++, glt++)
+       {
+               GL_TextureStats_Print(glt->identifier, (glt->texeldatasize + 512) >> 10, glt->crc, glt->mipmap, glt->alpha);
+               t += glt->texeldatasize;
+               if (glt->identifier[0] == '&')
+               {
+                       sc++;
+                       s += glt->texeldatasize;
+               }
+       }
+       Con_Printf("%i textures, totalling %.3fMB, %i are (usually) unnecessary model skins totalling %.3fMB\n", numgltextures, t / 1048576.0, sc, s / 1048576.0);
+}
+
+void GL_TextureStats_PrintTotal(void)
+{
+       int i, s = 0, sc = 0, t = 0;
+       gltexture_t *glt;
+       for (i = 0, glt = gltextures;i < numgltextures;i++, glt++)
+       {
+               t += glt->texeldatasize;
+               if (glt->identifier[0] == '&')
+               {
+                       sc++;
+                       s += glt->texeldatasize;
+               }
+       }
+       Con_Printf("%i textures, totalling %.3fMB, %i are (usually) unnecessary model skins totalling %.3fMB\n", numgltextures, t / 1048576.0, sc, s / 1048576.0);
+}
 
 char engineversion[40];
 
-void GL_UploadTexture (gltexture_t *glt);
+//void GL_UploadTexture (gltexture_t *glt);
 void gl_textures_start()
 {
-       int i;
-       gltexture_t *glt;
-       for (i=0, glt=gltextures ; i<numgltextures ; i++, glt++)
-               GL_UploadTexture(glt);
+//     int i;
+//     gltexture_t *glt;
+//     for (i=0, glt=gltextures ; i<numgltextures ; i++, glt++)
+//             GL_UploadTexture(glt);
 }
 
 void gl_textures_shutdown()
@@ -117,6 +167,7 @@ void gl_textures_shutdown()
 
 void GL_Textures_Init (void)
 {
+       Cmd_AddCommand("r_texturestats", GL_TextureStats_f);
        Cvar_RegisterVariable (&gl_max_size);
        Cvar_RegisterVariable (&gl_picmip);
        Cvar_RegisterVariable (&gl_lerpimages);
@@ -129,6 +180,8 @@ void GL_Textures_Init (void)
        if (!Q_strncasecmp ((char *)gl_renderer, "3dfx",4) || strstr((char *)gl_renderer, "Glide"))
                Cvar_Set ("gl_max_size", "256");
 
+       gltextures = qmalloc(sizeof(gltexture_t) * MAX_GLTEXTURES);
+       memset(gltextures, 0, sizeof(gltexture_t) * MAX_GLTEXTURES);
        Cmd_AddCommand ("gl_texturemode", &Draw_TextureMode_f);
 
        R_RegisterModule("GL_Textures", gl_textures_start, gl_textures_shutdown);
@@ -153,9 +206,6 @@ int GL_FindTexture (char *identifier)
        return -1;
 }
 
-extern byte qgamma[];
-
-// LordHavoc: gamma correction and improved resampling
 void GL_ResampleTextureLerpLine (byte *in, byte *out, int inwidth, int outwidth)
 {
        int             j, xi, oldx = 0, f, fstep, l1, l2, endx;
@@ -173,17 +223,17 @@ void GL_ResampleTextureLerpLine (byte *in, byte *out, int inwidth, int outwidth)
                {
                        l2 = f & 0xFFFF;
                        l1 = 0x10000 - l2;
-                       *out++ = qgamma[(byte) ((in[0] * l1 + in[4] * l2) >> 16)];
-                       *out++ = qgamma[(byte) ((in[1] * l1 + in[5] * l2) >> 16)];
-                       *out++ = qgamma[(byte) ((in[2] * l1 + in[6] * l2) >> 16)];
-                       *out++ =        (byte) ((in[3] * l1 + in[7] * l2) >> 16) ;
+                       *out++ = (byte) ((in[0] * l1 + in[4] * l2) >> 16);
+                       *out++ = (byte) ((in[1] * l1 + in[5] * l2) >> 16);
+                       *out++ = (byte) ((in[2] * l1 + in[6] * l2) >> 16);
+                       *out++ = (byte) ((in[3] * l1 + in[7] * l2) >> 16);
                }
                else // last pixel of the line has no pixel to lerp to
                {
-                       *out++ = qgamma[in[0]];
-                       *out++ = qgamma[in[1]];
-                       *out++ = qgamma[in[2]];
-                       *out++ =        in[3] ;
+                       *out++ = in[0];
+                       *out++ = in[1];
+                       *out++ = in[2];
+                       *out++ = in[3];
                }
        }
 }
@@ -195,7 +245,6 @@ GL_ResampleTexture
 */
 void GL_ResampleTexture (void *indata, int inwidth, int inheight, void *outdata,  int outwidth, int outheight)
 {
-       // LordHavoc: gamma correction and greatly improved resampling
        if (gl_lerpimages.value)
        {
                int             i, j, yi, oldy, f, fstep, l1, l2, endy = (inheight-1);
@@ -203,8 +252,8 @@ void GL_ResampleTexture (void *indata, int inwidth, int inheight, void *outdata,
                out = outdata;
                fstep = (int) (inheight*65536.0f/outheight);
 
-               row1 = malloc(outwidth*4);
-               row2 = malloc(outwidth*4);
+               row1 = qmalloc(outwidth*4);
+               row2 = qmalloc(outwidth*4);
                inrow = indata;
                oldy = 0;
                GL_ResampleTextureLerpLine (inrow, row1, inwidth, outwidth);
@@ -251,8 +300,8 @@ void GL_ResampleTexture (void *indata, int inwidth, int inheight, void *outdata,
                                row1 -= outwidth*4;
                        }
                }
-               free(row1);
-               free(row2);
+               qfree(row1);
+               qfree(row2);
        }
        else
        {
@@ -277,347 +326,18 @@ void GL_ResampleTexture (void *indata, int inwidth, int inheight, void *outdata,
        }
 }
 
-/*
-================
-GL_Resample8BitTexture -- JACK
-================
-*/
-/*
-void GL_Resample8BitTexture (unsigned char *in, int inwidth, int inheight, unsigned char *out,  int outwidth, int outheight)
-{
-       int             i, j;
-       unsigned        char *inrow;
-       unsigned        frac, fracstep;
-
-       fracstep = inwidth*0x10000/outwidth;
-       for (i=0 ; i<outheight ; i++, out += outwidth)
-       {
-               inrow = in + inwidth*(i*inheight/outheight);
-               frac = fracstep >> 1;
-               for (j=0 ; j<outwidth ; j+=4)
-               {
-                       out[j  ] = inrow[frac>>16];frac += fracstep;
-                       out[j+1] = inrow[frac>>16];frac += fracstep;
-                       out[j+2] = inrow[frac>>16];frac += fracstep;
-                       out[j+3] = inrow[frac>>16];frac += fracstep;
-               }
-       }
-}
-*/
-
-
-/*
-================
-GL_MipMap
-
-Operates in place, quartering the size of the texture
-================
-*/
-/*
-void GL_MipMap (byte *in, int width, int height)
-{
-       int             i, j;
-       byte    *out;
-
-       width <<=2;
-       height >>= 1;
-       out = in;
-       for (i=0 ; i<height ; i++, in+=width)
-       {
-               for (j=0 ; j<width ; j+=8, out+=4, in+=8)
-               {
-                       out[0] = (in[0] + in[4] + in[width+0] + in[width+4])>>2;
-                       out[1] = (in[1] + in[5] + in[width+1] + in[width+5])>>2;
-                       out[2] = (in[2] + in[6] + in[width+2] + in[width+6])>>2;
-                       out[3] = (in[3] + in[7] + in[width+3] + in[width+7])>>2;
-               }
-       }
-}
-*/
-
-/*
-================
-GL_MipMap8Bit
-
-Mipping for 8 bit textures
-================
-*/
-/*
-void GL_MipMap8Bit (byte *in, int width, int height)
-{
-       int             i, j;
-       unsigned short     r,g,b;
-       byte    *out, *at1, *at2, *at3, *at4;
-
-       height >>= 1;
-       out = in;
-       for (i=0 ; i<height ; i++, in+=width)
-       {
-               for (j=0 ; j<width ; j+=2, out+=1, in+=2)
-               {
-                       at1 = (byte *) (d_8to24table + in[0]);
-                       at2 = (byte *) (d_8to24table + in[1]);
-                       at3 = (byte *) (d_8to24table + in[width+0]);
-                       at4 = (byte *) (d_8to24table + in[width+1]);
-
-                       r = (at1[0]+at2[0]+at3[0]+at4[0]); r>>=5;
-                       g = (at1[1]+at2[1]+at3[1]+at4[1]); g>>=5;
-                       b = (at1[2]+at2[2]+at3[2]+at4[2]); b>>=5;
-
-                       out[0] = d_15to8table[(r<<0) + (g<<5) + (b<<10)];
-               }
-       }
-}
-*/
-
-/*
-===============
-GL_Upload32
-===============
-*/
-/*
-void GL_Upload32 (void *data, int width, int height,  qboolean mipmap, qboolean alpha)
-{
-       int samples, scaled_width, scaled_height, i;
-       byte *in, *out, *scaled;
-
-       for (scaled_width = 1 ; scaled_width < width ; scaled_width<<=1)
-               ;
-       for (scaled_height = 1 ; scaled_height < height ; scaled_height<<=1)
-               ;
-
-       scaled_width >>= (int)gl_picmip.value;
-       scaled_height >>= (int)gl_picmip.value;
-
-       if (scaled_width > gl_max_size.value)
-               scaled_width = gl_max_size.value;
-       if (scaled_height > gl_max_size.value)
-               scaled_height = gl_max_size.value;
-
-       if (alpha)
-       {
-               alpha = false;
-               in = data;
-               for (i = 3;i < width*height*4;i += 4)
-                       if (in[i] != 255)
-                       {
-                               alpha = true;
-                               break;
-                       }
-       }
-
-       samples = alpha ? gl_alpha_format : gl_solid_format;
-
-       texels += scaled_width * scaled_height;
-
-       scaled = malloc(scaled_width*scaled_height*4);
-       if (scaled_width == width && scaled_height == height)
-       {
-               // LordHavoc: gamma correct while copying
-               in = (byte *)data;
-               out = (byte *)scaled;
-               for (i = 0;i < width*height;i++)
-               {
-                       *out++ = qgamma[*in++];
-                       *out++ = qgamma[*in++];
-                       *out++ = qgamma[*in++];
-                       *out++ = *in++;
-               }
-       }
-       else
-               GL_ResampleTexture (data, width, height, scaled, scaled_width, scaled_height);
-
-       glTexImage2D (GL_TEXTURE_2D, 0, samples, scaled_width, scaled_height, 0, GL_RGBA, GL_UNSIGNED_BYTE, scaled);
-       if (mipmap)
-       {
-               int             miplevel;
-
-               miplevel = 0;
-               while (scaled_width > 1 || scaled_height > 1)
-               {
-                       GL_MipMap ((byte *)scaled, 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++;
-                       glTexImage2D (GL_TEXTURE_2D, miplevel, samples, scaled_width, scaled_height, 0, GL_RGBA, GL_UNSIGNED_BYTE, scaled);
-               }
-       }
-
-       if (mipmap)
-       {
-               glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, gl_filter_min);
-               glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, gl_filter_max);
-       }
-       else
-       {
-               glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, gl_filter_max);
-               glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, gl_filter_max);
-       }
-       free(scaled);
-}
-
-void GL_Upload8_EXT (byte *data, int width, int height,  qboolean mipmap)
-{
-       int             scaled_width, scaled_height;
-       byte    *scaled = NULL;
-
-       for (scaled_width = 1 ; scaled_width < width ; scaled_width<<=1)
-               ;
-       for (scaled_height = 1 ; scaled_height < height ; scaled_height<<=1)
-               ;
-
-       scaled_width >>= (int)gl_picmip.value;
-       scaled_height >>= (int)gl_picmip.value;
-
-       if (scaled_width > gl_max_size.value)
-               scaled_width = gl_max_size.value;
-       if (scaled_height > gl_max_size.value)
-               scaled_height = gl_max_size.value;
-
-       texels += scaled_width * scaled_height;
-
-       if (scaled_width == width && scaled_height == height)
-       {
-               if (!mipmap)
-               {
-                       glTexImage2D (GL_TEXTURE_2D, 0, GL_COLOR_INDEX8_EXT, scaled_width, scaled_height, 0, GL_COLOR_INDEX , GL_UNSIGNED_BYTE, data);
-                       goto done;
-               }
-               scaled = malloc(scaled_width*scaled_height*4);
-               memcpy (scaled, data, width*height);
-       }
-       else
-       {
-               scaled = malloc(scaled_width*scaled_height*4);
-               GL_Resample8BitTexture (data, width, height, (void*) scaled, scaled_width, scaled_height);
-       }
-
-       glTexImage2D (GL_TEXTURE_2D, 0, GL_COLOR_INDEX8_EXT, scaled_width, scaled_height, 0, GL_COLOR_INDEX, GL_UNSIGNED_BYTE, scaled);
-       if (mipmap)
-       {
-               int             miplevel;
-
-               miplevel = 0;
-               while (scaled_width > 1 || scaled_height > 1)
-               {
-                       GL_MipMap8Bit ((byte *)scaled, 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++;
-                       glTexImage2D (GL_TEXTURE_2D, miplevel, GL_COLOR_INDEX8_EXT, scaled_width, scaled_height, 0, GL_COLOR_INDEX, GL_UNSIGNED_BYTE, scaled);
-               }
-       }
-done: ;
-
-
-       if (mipmap)
-       {
-               glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, gl_filter_min);
-               glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, gl_filter_max);
-       }
-       else
-       {
-               glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, gl_filter_max);
-               glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, gl_filter_max);
-       }
-       free(scaled);
-}
-*/
-
-extern qboolean VID_Is8bit();
-
-/*
-===============
-GL_Upload8
-===============
-*/
-/*
-void GL_Upload8 (byte *data, int width, int height,  qboolean mipmap, qboolean alpha)
+void GL_FreeTexels(gltexture_t *glt)
 {
-       static  unsigned *trans;
-       int                     i, s;
-       qboolean        noalpha;
-       int                     p;
-       byte    *indata;
-       int             *outdata;
-
-       s = width*height;
-       trans = malloc(s*4);
-       // if there are no transparent pixels, make it a 3 component
-       // texture even if it was specified as otherwise
-       if (alpha)
-       {
-               noalpha = true;
-               for (i=0 ; i<s ; i++)
-               {
-                       p = data[i];
-                       if (p != 255)
-                               trans[i] = d_8to24table[p];
-                       else
-                       {
-                               trans[i] = 0; // force to black
-                               noalpha = false;
-                       }
-               }
-
-               if (noalpha)
-               {
-                       if (VID_Is8bit() && (data!=scrap_texels[0]))
-                       {
-                               GL_Upload8_EXT (data, width, height, mipmap);
-                               free(trans);
-                               return;
-                       }
-                       alpha = false;
-               }
-       }
-       else
-       {
-               // LordHavoc: dodge the copy if it will be uploaded as 8bit
-               if (VID_Is8bit() && (data!=scrap_texels[0]))
-               {
-                       GL_Upload8_EXT (data, width, height, mipmap);
-                       free(trans);
-                       return;
-               }
-               //if (s&3)
-               //      Sys_Error ("GL_Upload8: s&3");
-               indata = data;
-               outdata = trans;
-               if (s&1)
-                       *outdata++ = d_8to24table[*indata++];
-               if (s&2)
-               {
-                       *outdata++ = d_8to24table[*indata++];
-                       *outdata++ = d_8to24table[*indata++];
-               }
-               for (i = 0;i < s;i+=4)
-               {
-                       *outdata++ = d_8to24table[*indata++];
-                       *outdata++ = d_8to24table[*indata++];
-                       *outdata++ = d_8to24table[*indata++];
-                       *outdata++ = d_8to24table[*indata++];
-               }
-       }
-
-       GL_Upload32 (trans, width, height, mipmap, alpha);
-       free(trans);
+       if (glt->texels[0])
+               qfree(glt->texels[0]);
+       glt->texels[0] = 0;
 }
-*/
 
 void GL_AllocTexels(gltexture_t *glt, int width, int height, int mipmapped)
 {
-       int i, w, h, size, done;
+       int i, w, h, size;
        if (glt->texels[0])
-               free(glt->texels[0]);
+               GL_FreeTexels(glt);
        glt->texelsize[0][0] = width;
        glt->texelsize[0][1] = height;
        if (mipmapped)
@@ -625,12 +345,11 @@ void GL_AllocTexels(gltexture_t *glt, int width, int height, int mipmapped)
                size = 0;
                w = width;h = height;
                i = 0;
-               done = false;
-               for (i = 0;i < MAXMIPS;i++)
+               while (i < MAXMIPS)
                {
                        glt->texelsize[i][0] = w;
                        glt->texelsize[i][1] = h;
-                       glt->texels[i] = (void *)size;
+                       glt->texels[i++] = (void *)size;
                        size += w*h*4;
                        if (w > 1)
                        {
@@ -641,20 +360,20 @@ void GL_AllocTexels(gltexture_t *glt, int width, int height, int mipmapped)
                        else if (h > 1)
                                h >>= 1;
                        else
-                       {
-                               i++;
                                break;
-                       }
                }
+               glt->texeldatasize = size;
                while (i < MAXMIPS)
                        glt->texels[i++] = NULL;
-               glt->texels[0] = malloc(size);
+               glt->texels[0] = qmalloc(size);
                for (i = 1;i < MAXMIPS && glt->texels[i];i++)
                        glt->texels[i] += (int) glt->texels[0];
        }
        else
        {
-               glt->texels[0] = malloc(width*height*4);
+               size = width*height*4;
+               glt->texeldatasize = size;
+               glt->texels[0] = qmalloc(size);
                for (i = 1;i < MAXMIPS;i++)
                        glt->texels[i] = NULL;
        }
@@ -764,11 +483,15 @@ int GL_LoadTexture (char *identifier, int width, int height, byte *data, qboolea
 {
        unsigned short  crc;
        int                             i, width2, height2, width3, height3, w, h, mip;
-       gltexture_t             *glt;
+       gltexture_t             *glt, *freeglt;
+       // LordHavoc: texture caching, turned out to be a waste of time (and immense waste of diskspace)
+       //char                  cachefilename[1024], *cachefile;
 
        if (isDedicated)
                return 1;
 
+       freeglt = NULL;
+
        // LordHavoc: do a CRC to confirm the data really is the same as previous occurances.
        crc = CRC_Block(data, width*height*bytesperpixel);
        // see if the texture is already present
@@ -776,31 +499,45 @@ int GL_LoadTexture (char *identifier, int width, int height, byte *data, qboolea
        {
                for (i=0, glt=gltextures ; i<numgltextures ; i++, glt++)
                {
-                       if (!strcmp (identifier, glt->identifier))
+                       if (glt->inuse)
                        {
-                               // LordHavoc: everyone hates cache mismatchs, so I fixed it
-                               if (crc != glt->crc || width != glt->width || height != glt->height)
+                               if (!strcmp (identifier, glt->identifier))
                                {
-                                       Con_DPrintf("GL_LoadTexture: cache mismatch, replacing old texture\n");
-                                       goto GL_LoadTexture_setup; // drop out with glt pointing to the texture to replace
-                                       //Sys_Error ("GL_LoadTexture: cache mismatch");
+                                       // LordHavoc: everyone hates cache mismatchs, so I fixed it
+                                       if (crc != glt->crc || width != glt->width || height != glt->height)
+                                       {
+                                               Con_DPrintf("GL_LoadTexture: cache mismatch, replacing old texture\n");
+                                               goto GL_LoadTexture_setup; // drop out with glt pointing to the texture to replace
+                                       }
+                                       if ((gl_lerpimages.value != 0) != glt->lerped)
+                                               goto GL_LoadTexture_setup; // drop out with glt pointing to the texture to replace
+                                       return glt->texnum;
                                }
-                               if ((gl_lerpimages.value != 0) != glt->lerped)
-                                       goto GL_LoadTexture_setup; // drop out with glt pointing to the texture to replace
-                               return glt->texnum;
                        }
+                       else
+                               freeglt = glt;
                }
        }
+       else
+               i = 0;
        // LordHavoc: although this could be an else condition as it was in the original id code,
        //            it is more clear this way
-       // LordHavoc: check if there are still slots available
-       if (numgltextures >= MAX_GLTEXTURES)
-               Sys_Error ("GL_LoadTexture: ran out of texture slots (%d)\n", MAX_GLTEXTURES);
-       glt = &gltextures[numgltextures++];
-
-       strcpy (glt->identifier, identifier);
-       glt->texnum = texture_extension_number;
-       texture_extension_number++;
+       if (freeglt)
+       {
+               glt = freeglt;
+               strcpy (glt->identifier, identifier);
+       }
+       else
+       {
+               // LordHavoc: check if there are still slots available
+               if (numgltextures >= MAX_GLTEXTURES)
+                       Sys_Error ("GL_LoadTexture: ran out of texture slots (%d)\n", MAX_GLTEXTURES);
+               glt = &gltextures[numgltextures++];
+               glt->texnum = texture_extension_number;
+               texture_extension_number++;
+               strcpy (glt->identifier, identifier);
+       }
+
 // LordHavoc: label to drop out of the loop into the setup code
 GL_LoadTexture_setup:
        // calculate power of 2 size
@@ -823,6 +560,31 @@ GL_LoadTexture_setup:
        glt->bytesperpixel = bytesperpixel;
        glt->lerped = gl_lerpimages.value != 0;
        glt->alpha = false; // updated later
+       glt->inuse = true;
+       /*
+       // LordHavoc: texture caching, turned out to be a waste of time (and immense waste of diskspace)
+       sprintf(cachefilename, "%s%x%x%x.texels", identifier, width3, height3, crc);
+       for (i = 0;cachefilename[i];i++)
+       {
+               if (cachefilename[i] <= ' ' || cachefilename[i] >= 127 || cachefilename[i] == '/' || cachefilename[i] == '\\' || cachefilename[i] == ':' || cachefilename[i] == '*' || cachefilename[i] == '?')
+                       cachefilename[i] = '@';
+               if (cachefilename[i] >= 'A' && cachefilename[i] <= 'Z')
+                       cachefilename[i] += 'a' - 'A';
+       }
+       cachefile = COM_LoadMallocFile(cachefilename, true);
+       if (cachefile)
+       {
+               if (cachefile[0] == 'D' && cachefile[1] == 'P' && cachefile[2] == 'C' && cachefile[3] == 'T')
+               {
+                       memcpy(glt->texels[0], cachefile + 4, width3*height3*4);
+                       qfree(cachefile);
+//                     Con_Printf("loaded cache texture %s\n", cachefilename);
+                       goto cacheloaded;
+               }
+               else
+                       qfree(cachefile);
+       }
+       */
        if (width == width3 && height == height3) // perfect match
        {
                if (bytesperpixel == 1) // 8bit
@@ -833,7 +595,7 @@ GL_LoadTexture_setup:
        else if (width == width2 && height == height2) // perfect match for top level, but needs to be reduced
        {
                byte *temptexels2;
-               temptexels2 = malloc(width2*height2*4); // scaleup buffer
+               temptexels2 = qmalloc(width2*height2*4); // scaleup buffer
                if (bytesperpixel == 1) // 8bit
                        Image_Copy8bitRGBA(data, temptexels2, width*height, d_8to24table);
                else
@@ -848,13 +610,13 @@ GL_LoadTexture_setup:
                        else
                                GL_MipReduce(temptexels2, temptexels2, w, h, width3, height3);
                }
-               free(temptexels2);
+               qfree(temptexels2);
        }
        else // scaling...
        {
                byte *temptexels;
                // pre-scaleup buffer
-               temptexels = malloc(width*height*4);
+               temptexels = qmalloc(width*height*4);
                if (bytesperpixel == 1) // 8bit
                        Image_Copy8bitRGBA(data, temptexels, width*height, d_8to24table);
                else
@@ -862,7 +624,7 @@ GL_LoadTexture_setup:
                if (width2 != width3 || height2 != height3) // reduced by gl_pic_mip or gl_max_size
                {
                        byte *temptexels2;
-                       temptexels2 = malloc(width2*height2*4); // scaleup buffer
+                       temptexels2 = qmalloc(width2*height2*4); // scaleup buffer
                        GL_ResampleTexture(temptexels, width, height, temptexels2, width2, height2);
                        while (width2 > width3 || height2 > height3)
                        {
@@ -874,12 +636,25 @@ GL_LoadTexture_setup:
                                else
                                        GL_MipReduce(temptexels2, temptexels2, w, h, width3, height3);
                        }
-                       free(temptexels2);
+                       qfree(temptexels2);
                }
                else // copy directly
                        GL_ResampleTexture(temptexels, width, height, glt->texels[0], width2, height2);
-               free(temptexels);
-       }
+               qfree(temptexels);
+       }
+       /*
+       // LordHavoc: texture caching, turned out to be a waste of time (and immense waste of diskspace)
+       Con_Printf("writing cache texture %s\n", cachefilename);
+       cachefile = qmalloc(width3*height3*4 + 4);
+       cachefile[0] = 'D';
+       cachefile[1] = 'P';
+       cachefile[2] = 'C';
+       cachefile[3] = 'T';
+       memcpy(cachefile + 4, glt->texels[0], width3*height3*4);
+       COM_WriteFile(cachefilename, cachefile, width3*height3*4 + 4);
+       qfree(cachefile);
+cacheloaded:
+       */
        if (alpha)
        {
                byte    *in = glt->texels[0] + 3;
@@ -894,6 +669,7 @@ GL_LoadTexture_setup:
        for (mip = 1;mip < MAXMIPS && glt->texels[mip];mip++)
                GL_MipReduce(glt->texels[mip-1], glt->texels[mip], glt->texelsize[mip-1][0], glt->texelsize[mip-1][1], 1, 1);
        GL_UploadTexture(glt);
+       GL_FreeTexels(glt);
 
 //     if (bytesperpixel == 1) // 8bit
 //             GL_Upload8 (data, width, height, mipmap, alpha);
@@ -902,32 +678,3 @@ GL_LoadTexture_setup:
 
        return glt->texnum;
 }
-
-/*
-================
-GL_LoadPicTexture
-================
-*/
-int GL_LoadPicTexture (qpic_t *pic)
-{
-       return GL_LoadTexture ("", pic->width, pic->height, pic->data, false, true, 1);
-}
-
-int GL_GetTextureSlots (int count)
-{
-       gltexture_t             *glt, *first;
-
-       first = glt = &gltextures[numgltextures];
-       while (count--)
-       {
-               glt->identifier[0] = 0;
-               glt->texnum = texture_extension_number++;
-               glt->crc = 0;
-               glt->width = 0;
-               glt->height = 0;
-               glt->bytesperpixel = 0;
-               glt++;
-               numgltextures++;
-       }
-       return first->texnum;
-}