gl_textures.c

   1 #include "quakedef.h"
   2
   3 cvar_t          r_max_size = {"r_max_size", "2048"};
   4 cvar_t          r_picmip = {"r_picmip", "0"};
   5 cvar_t          r_lerpimages = {"r_lerpimages", "1"};
   6 cvar_t          r_upload = {"r_upload", "1"};
   7 cvar_t          r_precachetextures = {"r_precachetextures", "1", true};
   8
   9 int             gl_filter_min = GL_LINEAR_MIPMAP_LINEAR; //NEAREST;
  10 int             gl_filter_max = GL_LINEAR;
  11
  12
  13 int             texels;
  14
  15 // 65536x65536
  16 #define MAXMIPS 16
  17
  18 #define GLTEXF_LERPED 1
  19 #define GLTEXF_UPLOADED 2
  20
  21 typedef struct
  22 {
  23         char    identifier[64];
  24         int             texnum; // GL texture slot number
  25         int             texeldatasize; // computed memory usage of this texture (including mipmaps, expansion to 32bit, etc)
  26         byte    *inputtexels; // copy of the original texture supplied to the upload function, for re-uploading or deferred uploads (non-precached)
  27         int             inputtexeldatasize; // size of the original texture
  28         unsigned short width, height;
  29 // LordHavoc: CRC to identify cache mismatchs
  30         unsigned short crc;
  31         int flags; // the requested flags when the texture was supplied to the upload function
  32         int internalflags; // internal notes (lerped, etc)
  33 } gltexture_t;
  34
  35 #define MAX_GLTEXTURES  4096
  36 gltexture_t     *gltextures;
  37 unsigned int numgltextures = 0, gl_texture_number = 1;
  38
  39 void GL_UploadTexture(gltexture_t *t);
  40
  41 int R_GetTexture(rtexture_t *rt)
  42 {
  43         gltexture_t *glt;
  44         if (!rt)
  45                 return 0;
  46         glt = (gltexture_t *)rt;
  47         if (!(glt->internalflags & GLTEXF_UPLOADED))
  48         {
  49                 GL_UploadTexture(glt);
  50                 if (!(glt->internalflags & GLTEXF_UPLOADED))
  51                         Host_Error("R_GetTexture: unable to upload texture\n");
  52         }
  53         return glt->texnum;
  54 }
  55
  56 typedef struct
  57 {
  58         char *name;
  59         int     minimize, maximize;
  60 } glmode_t;
  61
  62 glmode_t modes[] =
  63 {
  64         {"GL_NEAREST", GL_NEAREST, GL_NEAREST},
  65         {"GL_LINEAR", GL_LINEAR, GL_LINEAR},
  66         {"GL_NEAREST_MIPMAP_NEAREST", GL_NEAREST_MIPMAP_NEAREST, GL_NEAREST},
  67         {"GL_LINEAR_MIPMAP_NEAREST", GL_LINEAR_MIPMAP_NEAREST, GL_LINEAR},
  68         {"GL_NEAREST_MIPMAP_LINEAR", GL_NEAREST_MIPMAP_LINEAR, GL_NEAREST},
  69         {"GL_LINEAR_MIPMAP_LINEAR", GL_LINEAR_MIPMAP_LINEAR, GL_LINEAR}
  70 };
  71
  72 /*
  73 ===============
  74 Draw_TextureMode_f
  75 ===============
  76 */
  77 void Draw_TextureMode_f (void)
  78 {
  79         int             i;
  80         gltexture_t     *glt;
  81
  82         if (Cmd_Argc() == 1)
  83         {
  84                 for (i=0 ; i< 6 ; i++)
  85                         if (gl_filter_min == modes[i].minimize)
  86                         {
  87                                 Con_Printf ("%s\n", modes[i].name);
  88                                 return;
  89                         }
  90                 Con_Printf ("current filter is unknown???\n");
  91                 return;
  92         }
  93
  94         for (i=0 ; i< 6 ; i++)
  95         {
  96                 if (!Q_strcasecmp (modes[i].name, Cmd_Argv(1) ) )
  97                         break;
  98         }
  99         if (i == 6)
 100         {
 101                 Con_Printf ("bad filter name\n");
 102                 return;
 103         }
 104
 105         gl_filter_min = modes[i].minimize;
 106         gl_filter_max = modes[i].maximize;
 107
 108         if (!r_upload.value)
 109                 return;
 110         // change all the existing mipmap texture objects
 111         for (i=0, glt=gltextures ; i<numgltextures ; i++, glt++)
 112         {
 113                 if (glt->flags & TEXF_MIPMAP)
 114                 {
 115                         glBindTexture(GL_TEXTURE_2D, glt->texnum);
 116                         glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, gl_filter_min);
 117                         glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, gl_filter_max);
 118                 }
 119         }
 120 }
 121
 122 void GL_TextureStats_Print(char *name, int total, int total2, int loaded, int crc, int mip, int alpha, int total2valid)
 123 {
 124         if (!name[0])
 125                 name = "<unnamed>";
 126         Con_Printf("%5iK %c%5iK%c %04X %s %s %s %s\n", total, total2valid ? ' ' : '(', total2, total2valid ? ' ' : ')', crc, loaded ? "loaded" : "      ", mip ? "mip" : "   ", alpha ? "alpha" : "     ", name);
 127 }
 128
 129 void GL_TextureStats_PrintTotal(void)
 130 {
 131         int i, t = 0, p = 0, loaded = 0, loadedt = 0, loadedp = 0;
 132         gltexture_t *glt;
 133         for (i = 0, glt = gltextures;i < numgltextures;i++, glt++)
 134         {
 135                 t += glt->texeldatasize;
 136                 p += glt->inputtexeldatasize;
 137                 if (glt->internalflags & GLTEXF_UPLOADED)
 138                 {
 139                         loaded++;
 140                         loadedt += glt->texeldatasize;
 141                         loadedp += glt->inputtexeldatasize;
 142                 }
 143         }
 144         Con_Printf("total: %i (%.3fMB, %.3fMB original), uploaded %i (%.3fMB, %.3fMB original), upload on demand %i (%.3fMB, %.3fMB original)\n", numgltextures, t / 1048576.0, p / 1048576.0, loaded, loadedt / 1048576.0, loadedp / 1048576.0, numgltextures - loaded, (t - loadedt) / 1048576.0, (p - loadedp) / 1048576.0);
 145 }
 146
 147 void GL_TextureStats_f(void)
 148 {
 149         int i;
 150         gltexture_t *glt;
 151         Con_Printf("kbytes original crc  loaded mip alpha name\n");
 152         for (i = 0, glt = gltextures;i < numgltextures;i++, glt++)
 153                 GL_TextureStats_Print(glt->identifier, (glt->texeldatasize + 1023) / 1024, (glt->inputtexeldatasize + 1023) / 1024, glt->internalflags & GLTEXF_UPLOADED, glt->crc, glt->flags & TEXF_MIPMAP, glt->flags & TEXF_ALPHA, glt->inputtexels != NULL);
 154         GL_TextureStats_PrintTotal();
 155 }
 156
 157 char engineversion[40];
 158
 159 //void GL_UploadTexture (gltexture_t *glt);
 160 void r_textures_start(void)
 161 {
 162 //      int i;
 163 //      gltexture_t *glt;
 164 //      for (i=0, glt=gltextures ; i<numgltextures ; i++, glt++)
 165 //              GL_UploadTexture(glt);
 166 }
 167
 168 void r_textures_shutdown(void)
 169 {
 170 }
 171
 172 void r_textures_newmap(void)
 173 {
 174 }
 175
 176 void R_Textures_Init (void)
 177 {
 178         Cmd_AddCommand("r_texturestats", GL_TextureStats_f);
 179         Cvar_RegisterVariable (&r_max_size);
 180         Cvar_RegisterVariable (&r_picmip);
 181         Cvar_RegisterVariable (&r_lerpimages);
 182         Cvar_RegisterVariable (&r_upload);
 183         Cvar_RegisterVariable (&r_precachetextures);
 184 #ifdef NORENDER
 185         r_upload.value = 0;
 186 #endif
 187
 188         // 3dfx can only handle 256 wide textures
 189         if (!Q_strncasecmp ((char *)gl_renderer, "3dfx",4) || strstr((char *)gl_renderer, "Glide"))
 190                 Cvar_Set ("r_max_size", "256");
 191
 192         gltextures = qmalloc(sizeof(gltexture_t) * MAX_GLTEXTURES);
 193         memset(gltextures, 0, sizeof(gltexture_t) * MAX_GLTEXTURES);
 194         Cmd_AddCommand ("gl_texturemode", &Draw_TextureMode_f);
 195
 196         R_RegisterModule("R_Textures", r_textures_start, r_textures_shutdown, r_textures_newmap);
 197 }
 198
 199 /*
 200 ================
 201 R_FindTexture
 202 ================
 203 */
 204 int R_FindTexture (char *identifier)
 205 {
 206         int             i;
 207         gltexture_t     *glt;
 208
 209         for (i=0, glt=gltextures ; i<numgltextures ; i++, glt++)
 210         {
 211                 if (!strcmp (identifier, glt->identifier))
 212                         return gltextures[i].texnum;
 213         }
 214
 215         return -1;
 216 }
 217
 218 void R_ResampleTextureLerpLine (byte *in, byte *out, int inwidth, int outwidth)
 219 {
 220         int             j, xi, oldx = 0, f, fstep, endx;
 221         fstep = (int) (inwidth*65536.0f/outwidth);
 222         endx = (inwidth-1);
 223         for (j = 0,f = 0;j < outwidth;j++, f += fstep)
 224         {
 225                 xi = (int) f >> 16;
 226                 if (xi != oldx)
 227                 {
 228                         in += (xi - oldx) * 4;
 229                         oldx = xi;
 230                 }
 231                 if (xi < endx)
 232                 {
 233                         int lerp = f & 0xFFFF;
 234                         *out++ = (byte) ((((in[4] - in[0]) * lerp) >> 16) + in[0]);
 235                         *out++ = (byte) ((((in[5] - in[1]) * lerp) >> 16) + in[1]);
 236                         *out++ = (byte) ((((in[6] - in[2]) * lerp) >> 16) + in[2]);
 237                         *out++ = (byte) ((((in[7] - in[3]) * lerp) >> 16) + in[3]);
 238                 }
 239                 else // last pixel of the line has no pixel to lerp to
 240                 {
 241                         *out++ = in[0];
 242                         *out++ = in[1];
 243                         *out++ = in[2];
 244                         *out++ = in[3];
 245                 }
 246         }
 247 }
 248
 249 /*
 250 ================
 251 R_ResampleTexture
 252 ================
 253 */
 254 void R_ResampleTexture (void *indata, int inwidth, int inheight, void *outdata,  int outwidth, int outheight)
 255 {
 256         if (r_lerpimages.value)
 257         {
 258                 int             i, j, yi, oldy, f, fstep, endy = (inheight-1);
 259                 byte    *inrow, *out, *row1, *row2;
 260                 out = outdata;
 261                 fstep = (int) (inheight*65536.0f/outheight);
 262
 263                 row1 = qmalloc(outwidth*4);
 264                 row2 = qmalloc(outwidth*4);
 265                 inrow = indata;
 266                 oldy = 0;
 267                 R_ResampleTextureLerpLine (inrow, row1, inwidth, outwidth);
 268                 R_ResampleTextureLerpLine (inrow + inwidth*4, row2, inwidth, outwidth);
 269                 for (i = 0, f = 0;i < outheight;i++,f += fstep)
 270                 {
 271                         yi = f >> 16;
 272                         if (yi < endy)
 273                         {
 274                                 int lerp = f & 0xFFFF;
 275                                 if (yi != oldy)
 276                                 {
 277                                         inrow = (byte *)indata + inwidth*4*yi;
 278                                         if (yi == oldy+1)
 279                                                 memcpy(row1, row2, outwidth*4);
 280                                         else
 281                                                 R_ResampleTextureLerpLine (inrow, row1, inwidth, outwidth);
 282                                         R_ResampleTextureLerpLine (inrow + inwidth*4, row2, inwidth, outwidth);
 283                                         oldy = yi;
 284                                 }
 285                                 j = outwidth - 4;
 286                                 while(j >= 0)
 287                                 {
 288                                         out[ 0] = (byte) ((((row2[ 0] - row1[ 0]) * lerp) >> 16) + row1[ 0]);
 289                                         out[ 1] = (byte) ((((row2[ 1] - row1[ 1]) * lerp) >> 16) + row1[ 1]);
 290                                         out[ 2] = (byte) ((((row2[ 2] - row1[ 2]) * lerp) >> 16) + row1[ 2]);
 291                                         out[ 3] = (byte) ((((row2[ 3] - row1[ 3]) * lerp) >> 16) + row1[ 3]);
 292                                         out[ 4] = (byte) ((((row2[ 4] - row1[ 4]) * lerp) >> 16) + row1[ 4]);
 293                                         out[ 5] = (byte) ((((row2[ 5] - row1[ 5]) * lerp) >> 16) + row1[ 5]);
 294                                         out[ 6] = (byte) ((((row2[ 6] - row1[ 6]) * lerp) >> 16) + row1[ 6]);
 295                                         out[ 7] = (byte) ((((row2[ 7] - row1[ 7]) * lerp) >> 16) + row1[ 7]);
 296                                         out[ 8] = (byte) ((((row2[ 8] - row1[ 8]) * lerp) >> 16) + row1[ 8]);
 297                                         out[ 9] = (byte) ((((row2[ 9] - row1[ 9]) * lerp) >> 16) + row1[ 9]);
 298                                         out[10] = (byte) ((((row2[10] - row1[10]) * lerp) >> 16) + row1[10]);
 299                                         out[11] = (byte) ((((row2[11] - row1[11]) * lerp) >> 16) + row1[11]);
 300                                         out[12] = (byte) ((((row2[12] - row1[12]) * lerp) >> 16) + row1[12]);
 301                                         out[13] = (byte) ((((row2[13] - row1[13]) * lerp) >> 16) + row1[13]);
 302                                         out[14] = (byte) ((((row2[14] - row1[14]) * lerp) >> 16) + row1[14]);
 303                                         out[15] = (byte) ((((row2[15] - row1[15]) * lerp) >> 16) + row1[15]);
 304                                         out += 16;
 305                                         row1 += 16;
 306                                         row2 += 16;
 307                                         j -= 4;
 308                                 }
 309                                 if (j & 2)
 310                                 {
 311                                         out[ 0] = (byte) ((((row2[ 0] - row1[ 0]) * lerp) >> 16) + row1[ 0]);
 312                                         out[ 1] = (byte) ((((row2[ 1] - row1[ 1]) * lerp) >> 16) + row1[ 1]);
 313                                         out[ 2] = (byte) ((((row2[ 2] - row1[ 2]) * lerp) >> 16) + row1[ 2]);
 314                                         out[ 3] = (byte) ((((row2[ 3] - row1[ 3]) * lerp) >> 16) + row1[ 3]);
 315                                         out[ 4] = (byte) ((((row2[ 4] - row1[ 4]) * lerp) >> 16) + row1[ 4]);
 316                                         out[ 5] = (byte) ((((row2[ 5] - row1[ 5]) * lerp) >> 16) + row1[ 5]);
 317                                         out[ 6] = (byte) ((((row2[ 6] - row1[ 6]) * lerp) >> 16) + row1[ 6]);
 318                                         out[ 7] = (byte) ((((row2[ 7] - row1[ 7]) * lerp) >> 16) + row1[ 7]);
 319                                         out += 8;
 320                                         row1 += 8;
 321                                         row2 += 8;
 322                                 }
 323                                 if (j & 1)
 324                                 {
 325                                         out[ 0] = (byte) ((((row2[ 0] - row1[ 0]) * lerp) >> 16) + row1[ 0]);
 326                                         out[ 1] = (byte) ((((row2[ 1] - row1[ 1]) * lerp) >> 16) + row1[ 1]);
 327                                         out[ 2] = (byte) ((((row2[ 2] - row1[ 2]) * lerp) >> 16) + row1[ 2]);
 328                                         out[ 3] = (byte) ((((row2[ 3] - row1[ 3]) * lerp) >> 16) + row1[ 3]);
 329                                         out += 4;
 330                                         row1 += 4;
 331                                         row2 += 4;
 332                                 }
 333                                 row1 -= outwidth*4;
 334                                 row2 -= outwidth*4;
 335                         }
 336                         else
 337                         {
 338                                 if (yi != oldy)
 339                                 {
 340                                         inrow = (byte *)indata + inwidth*4*yi;
 341                                         if (yi == oldy+1)
 342                                                 memcpy(row1, row2, outwidth*4);
 343                                         else
 344                                                 R_ResampleTextureLerpLine (inrow, row1, inwidth, outwidth);
 345                                         oldy = yi;
 346                                 }
 347                                 memcpy(out, row1, outwidth * 4);
 348                         }
 349                 }
 350                 qfree(row1);
 351                 qfree(row2);
 352         }
 353         else
 354         {
 355                 int i, j;
 356                 unsigned frac, fracstep;
 357                 // relies on int being 4 bytes
 358                 int *inrow, *out;
 359                 out = outdata;
 360
 361                 fracstep = inwidth*0x10000/outwidth;
 362                 for (i = 0;i < outheight;i++)
 363                 {
 364                         inrow = (int *)indata + inwidth*(i*inheight/outheight);
 365                         frac = fracstep >> 1;
 366                         j = outwidth - 4;
 367                         while(j >= 0)
 368                         {
 369                                 out[0] = inrow[frac >> 16];frac += fracstep;
 370                                 out[1] = inrow[frac >> 16];frac += fracstep;
 371                                 out[2] = inrow[frac >> 16];frac += fracstep;
 372                                 out[3] = inrow[frac >> 16];frac += fracstep;
 373                                 out += 4;
 374                                 j--;
 375                         }
 376                         if (j & 2)
 377                         {
 378                                 out[0] = inrow[frac >> 16];frac += fracstep;
 379                                 out[1] = inrow[frac >> 16];frac += fracstep;
 380                                 out += 2;
 381                         }
 382                         if (j & 1)
 383                         {
 384                                 out[0] = inrow[frac >> 16];frac += fracstep;
 385                                 out += 1;
 386                         }
 387                 }
 388         }
 389 }
 390
 391 // in can be the same as out
 392 void GL_MipReduce(byte *in, byte *out, int width, int height, int destwidth, int destheight)
 393 {
 394         int x, y, width2, height2, nextrow;
 395         if (width > destwidth)
 396         {
 397                 if (height > destheight)
 398                 {
 399                         // reduce both
 400                         width2 = width >> 1;
 401                         height2 = height >> 1;
 402                         nextrow = width << 2;
 403                         for (y = 0;y < height2;y++)
 404                         {
 405                                 for (x = 0;x < width2;x++)
 406                                 {
 407                                         out[0] = (byte) ((in[0] + in[4] + in[nextrow  ] + in[nextrow+4]) >> 2);
 408                                         out[1] = (byte) ((in[1] + in[5] + in[nextrow+1] + in[nextrow+5]) >> 2);
 409                                         out[2] = (byte) ((in[2] + in[6] + in[nextrow+2] + in[nextrow+6]) >> 2);
 410                                         out[3] = (byte) ((in[3] + in[7] + in[nextrow+3] + in[nextrow+7]) >> 2);
 411                                         out += 4;
 412                                         in += 8;
 413                                 }
 414                                 in += nextrow; // skip a line
 415                         }
 416                 }
 417                 else
 418                 {
 419                         // reduce width
 420                         width2 = width >> 1;
 421                         for (y = 0;y < height;y++)
 422                         {
 423                                 for (x = 0;x < width2;x++)
 424                                 {
 425                                         out[0] = (byte) ((in[0] + in[4]) >> 1);
 426                                         out[1] = (byte) ((in[1] + in[5]) >> 1);
 427                                         out[2] = (byte) ((in[2] + in[6]) >> 1);
 428                                         out[3] = (byte) ((in[3] + in[7]) >> 1);
 429                                         out += 4;
 430                                         in += 8;
 431                                 }
 432                         }
 433                 }
 434         }
 435         else
 436         {
 437                 if (height > destheight)
 438                 {
 439                         // reduce height
 440                         height2 = height >> 1;
 441                         nextrow = width << 2;
 442                         for (y = 0;y < height2;y++)
 443                         {
 444                                 for (x = 0;x < width;x++)
 445                                 {
 446                                         out[0] = (byte) ((in[0] + in[nextrow  ]) >> 1);
 447                                         out[1] = (byte) ((in[1] + in[nextrow+1]) >> 1);
 448                                         out[2] = (byte) ((in[2] + in[nextrow+2]) >> 1);
 449                                         out[3] = (byte) ((in[3] + in[nextrow+3]) >> 1);
 450                                         out += 4;
 451                                         in += 4;
 452                                 }
 453                                 in += nextrow; // skip a line
 454                         }
 455                 }
 456                 else
 457                         Sys_Error("GL_MipReduce: desired size already achieved\n");
 458         }
 459 }
 460
 461 void GL_Upload32(int glslot, byte *data, int width, int height, int flags)
 462 {
 463         int mip, width2, height2, width3, height3, internalformat;
 464         byte *gammadata, *buffer;
 465
 466         if (!r_upload.value)
 467                 return;
 468
 469         // 3 and 4 are converted by the driver to it's preferred format for the current display mode
 470         internalformat = 3;
 471         if (flags & TEXF_ALPHA)
 472                 internalformat = 4;
 473
 474         // calculate power of 2 size
 475         width2 = 1;while (width2 < width) width2 <<= 1;
 476         height2 = 1;while (height2 < height) height2 <<= 1;
 477         // calculate final size (mipmapped downward to this)
 478         width3 = width2 >> (int) r_picmip.value;
 479         height3 = height2 >> (int) r_picmip.value;
 480         while (width3 > (int) r_max_size.value) width3 >>= 1;
 481         while (height3 > (int) r_max_size.value) height3 >>= 1;
 482         if (width3 < 1) width3 = 1;
 483         if (height3 < 1) height3 = 1;
 484
 485         gammadata = qmalloc(width*height*4);
 486         buffer = qmalloc(width2*height2*4);
 487         if (!gammadata || !buffer)
 488                 Host_Error("GL_Upload32: out of memory\n");
 489
 490         Image_CopyRGBAGamma(data, gammadata, width*height);
 491
 492         R_ResampleTexture(gammadata, width, height, buffer, width2, height2);
 493
 494         qfree(gammadata);
 495
 496         while (width2 > width3 || height2 > height3)
 497         {
 498                 GL_MipReduce(buffer, buffer, width2, height2, width3, height3);
 499
 500                 if (width2 > width3)
 501                         width2 >>= 1;
 502                 if (height2 > height3)
 503                         height2 >>= 1;
 504         }
 505
 506         glBindTexture(GL_TEXTURE_2D, glslot);
 507         mip = 0;
 508         glTexImage2D(GL_TEXTURE_2D, mip++, internalformat, width2, height2, 0, GL_RGBA, GL_UNSIGNED_BYTE, buffer);
 509         if (flags & TEXF_MIPMAP)
 510         {
 511                 while (width2 > 1 || height2 > 1)
 512                 {
 513                         GL_MipReduce(buffer, buffer, width2, height2, 1, 1);
 514
 515                         if (width2 > 1)
 516                                 width2 >>= 1;
 517                         if (height2 > 1)
 518                                 height2 >>= 1;
 519
 520                         glTexImage2D(GL_TEXTURE_2D, mip++, internalformat, width2, height2, 0, GL_RGBA, GL_UNSIGNED_BYTE, buffer);
 521                 }
 522
 523                 glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, gl_filter_min);
 524                 glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, gl_filter_max);
 525         }
 526         else
 527         {
 528                 glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, gl_filter_max);
 529                 glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, gl_filter_max);
 530         }
 531         glTexEnvf(GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE);
 532
 533         qfree(buffer);
 534 }
 535
 536 void GL_Upload8 (int glslot, byte *data, int width, int height, int flags)
 537 {
 538         byte *data32;
 539         data32 = qmalloc(width*height*4);
 540         Image_Copy8bitRGBA(data, data32, width*height, d_8to24table);
 541         GL_Upload32(glslot, data32, width, height, flags);
 542         qfree(data32);
 543 }
 544
 545 void GL_UploadTexture (gltexture_t *glt)
 546 {
 547         if (glt->inputtexels == NULL)
 548                 return;
 549         if (glt->flags & TEXF_RGBA)
 550                 GL_Upload32(glt->texnum, glt->inputtexels, glt->width, glt->height, glt->flags);
 551         else // 8bit
 552                 GL_Upload8(glt->texnum, glt->inputtexels, glt->width, glt->height, glt->flags);
 553         glt->internalflags |= GLTEXF_UPLOADED;
 554         qfree(glt->inputtexels);
 555         glt->inputtexels = NULL;
 556 }
 557
 558 int R_CalcTexelDataSize (int width, int height, int mipmapped)
 559 {
 560         int width2, height2, size;
 561         width2 = 1;while (width2 < width) width2 <<= 1;
 562         height2 = 1;while (height2 < height) height2 <<= 1;
 563         // calculate final size (mipmapped downward to this)
 564         width2 >>= (int) r_picmip.value;
 565         height2 >>= (int) r_picmip.value;
 566         while (width2 > (int) r_max_size.value) width2 >>= 1;
 567         while (height2 > (int) r_max_size.value) height2 >>= 1;
 568         if (width2 < 1) width2 = 1;
 569         if (height2 < 1) height2 = 1;
 570
 571         size = 0;
 572         if (mipmapped)
 573         {
 574                 while (width2 > 1 || height2 > 1)
 575                 {
 576                         size += width2 * height2;
 577                         if (width2 > 1)
 578                                 width2 >>= 1;
 579                         if (height2 > 1)
 580                                 height2 >>= 1;
 581                 }
 582                 size++; // count the last 1x1 mipmap
 583         }
 584         else
 585                 size = width2*height2;
 586
 587         size *= 4; // RGBA
 588
 589         return size;
 590 }
 591
 592 /*
 593 ================
 594 GL_LoadTexture
 595 ================
 596 */
 597 rtexture_t *R_LoadTexture (char *identifier, int width, int height, byte *data, int flags)
 598 {
 599         int                             i, bytesperpixel, internalflags, precache;
 600         gltexture_t             *glt;
 601         unsigned short  crc;
 602
 603         if (isDedicated)
 604                 return NULL;
 605
 606         if (!identifier[0])
 607                 Host_Error("R_LoadTexture: no identifier\n");
 608
 609         // clear the alpha flag if the texture has no transparent pixels
 610         if (flags & TEXF_ALPHA)
 611         {
 612                 int alpha = false;
 613                 if (flags & TEXF_RGBA)
 614                 {
 615                         for (i = 0;i < width * height;i++)
 616                         {
 617                                 if (data[i * 4 + 3] < 255)
 618                                 {
 619                                         alpha = true;
 620                                         break;
 621                                 }
 622                         }
 623                 }
 624                 else
 625                 {
 626                         for (i = 0;i < width * height;i++)
 627                         {
 628                                 if (data[i] == 255)
 629                                 {
 630                                         alpha = true;
 631                                         break;
 632                                 }
 633                         }
 634                 }
 635                 if (!alpha)
 636                         flags &= ~TEXF_ALPHA;
 637         }
 638
 639         if (flags & TEXF_RGBA)
 640                 bytesperpixel = 4;
 641         else
 642                 bytesperpixel = 1;
 643
 644         internalflags = 0;
 645         if (r_lerpimages.value != 0)
 646                 internalflags |= GLTEXF_LERPED;
 647
 648         // LordHavoc: do a CRC to confirm the data really is the same as previous occurances.
 649         crc = CRC_Block(data, width*height*bytesperpixel);
 650         // see if the texture is already present
 651         for (i=0, glt=gltextures ; i<numgltextures ; i++, glt++)
 652         {
 653                 if (!strcmp (identifier, glt->identifier))
 654                 {
 655                         // LordHavoc: everyone hates cache mismatchs, so I fixed it
 656                         if (crc != glt->crc || width != glt->width || height != glt->height || flags != glt->flags)
 657                         {
 658                                 Con_DPrintf("GL_LoadTexture: cache mismatch, replacing old texture\n");
 659                                 goto GL_LoadTexture_setup; // drop out with glt pointing to the texture to replace
 660                         }
 661                         if (internalflags != glt->internalflags)
 662                                 goto GL_LoadTexture_setup; // drop out with glt pointing to the texture to replace
 663                         return (rtexture_t *)glt;
 664                 }
 665         }
 666
 667 /*
 668         if (freeglt)
 669         {
 670                 glt = freeglt;
 671                 strcpy (glt->identifier, identifier);
 672         }
 673         else
 674         {
 675 */
 676                 // LordHavoc: check if there are still slots available
 677                 if (numgltextures >= MAX_GLTEXTURES)
 678                         Sys_Error ("GL_LoadTexture: ran out of texture slots (%d)\n", MAX_GLTEXTURES);
 679                 glt = &gltextures[numgltextures++];
 680                 glt->texnum = gl_texture_number++;
 681                 strcpy (glt->identifier, identifier);
 682 //      }
 683
 684 // LordHavoc: label to drop out of the loop into the setup code
 685 GL_LoadTexture_setup:
 686         glt->crc = crc; // LordHavoc: used to verify textures are identical
 687         glt->width = width;
 688         glt->height = height;
 689         glt->flags = flags;
 690         glt->internalflags = internalflags;
 691
 692         if (glt->inputtexels)
 693                 qfree(glt->inputtexels);
 694         glt->inputtexeldatasize = width*height*bytesperpixel;
 695         glt->inputtexels = qmalloc(glt->inputtexeldatasize);
 696
 697         memcpy(glt->inputtexels, data, glt->inputtexeldatasize);
 698
 699         glt->texeldatasize = R_CalcTexelDataSize(width, height, flags & TEXF_MIPMAP);
 700
 701         precache = false;
 702         if (flags & TEXF_ALWAYSPRECACHE)
 703                 precache = true;
 704         else if (r_precachetextures.value >= 1)
 705         {
 706                 if (flags & TEXF_PRECACHE)
 707                         precache = true;
 708                 if (r_precachetextures.value >= 2)
 709                         precache = true;
 710         }
 711
 712         if (precache)
 713                 GL_UploadTexture(glt);
 714
 715         return (rtexture_t *)glt;
 716 }
 717
 718 // only used for lightmaps
 719 int R_GetTextureSlots(int count)
 720 {
 721         int i;
 722         i = gl_texture_number;
 723         gl_texture_number += count;
 724         return i;
 725 }