X-Git-Url: https://de.git.xonotic.org/?p=xonotic%2Fdarkplaces.git;a=blobdiff_plain;f=gl_textures.c;h=2725277e38b033c7a38a12eb9aef93a9aafed024;hp=c7b6221b5e599ba764085e8aa2a0642a6c248723;hb=b91033966317d4d6a2a6bdf2952291fc88e3f7c4;hpb=7d0ec7ce187f7333a7ada2884108757a4fec6449

diff --git a/gl_textures.c b/gl_textures.c
index c7b6221b..2725277e 100644
--- a/gl_textures.c
+++ b/gl_textures.c
@@ -1,42 +1,182 @@
 #include "quakedef.h"
 
-cvar_t		r_max_size = {"r_max_size", "2048"};
-cvar_t		r_picmip = {"r_picmip", "0"};
-cvar_t		r_lerpimages = {"r_lerpimages", "1"};
-cvar_t		r_upload = {"r_upload", "1"};
-cvar_t		r_precachetextures = {"r_precachetextures", "1", true};
+cvar_t	r_max_size = {0, "r_max_size", "2048"};
+cvar_t	r_max_scrapsize = {0, "r_max_scrapsize", "1024"};
+cvar_t	r_picmip = {0, "r_picmip", "0"};
+cvar_t	r_lerpimages = {CVAR_SAVE, "r_lerpimages", "1"};
+cvar_t	r_precachetextures = {CVAR_SAVE, "r_precachetextures", "1"};
 
 int		gl_filter_min = GL_LINEAR_MIPMAP_LINEAR; //NEAREST;
-int		gl_filter_max = GL_LINEAR;
+int		gl_filter_mag = GL_LINEAR;
 
 
-int		texels;
+static mempool_t *texturemempool;
 
-// 65536x65536
-#define MAXMIPS 16
+// note: this must not conflict with TEXF_ flags in r_textures.h
+// cleared when a texture is uploaded
+#define GLTEXF_UPLOAD 0x00010000
+// texture generated by code, also causes permanent GLTEXF_UPLOAD effect
+#define GLTEXF_PROCEDURAL 0x00020000
+// bitmask for mismatch checking
+#define GLTEXF_IMPORTANTBITS (GLTEXF_PROCEDURAL)
+// set when image is uploaded and freed
+#define GLTEXF_DESTROYED 0x00040000
 
-#define GLTEXF_LERPED 1
-#define GLTEXF_UPLOADED 2
+// size of images which hold fragment textures, ignores picmip and max_size
+//#define BLOCK_SIZE 256
+static int block_size;
+
+// really this number only governs gltexnuminuse
+#define MAX_GLTEXTURES 65536
+
+// since there is only one set of GL texture numbers, we have to track them
+// globally, everything else is per texture pool
+static byte *gltexnuminuse;
 
 typedef struct
 {
-	char	identifier[64];
-	int		texnum; // GL texture slot number
-	int		texeldatasize; // computed memory usage of this texture (including mipmaps, expansion to 32bit, etc)
-	byte	*inputtexels; // copy of the original texture supplied to the upload function, for re-uploading or deferred uploads (non-precached)
-	int		inputtexeldatasize; // size of the original texture
-	unsigned short width, height;
-// LordHavoc: CRC to identify cache mismatchs
-	unsigned short crc;
-	int flags; // the requested flags when the texture was supplied to the upload function
-	int internalflags; // internal notes (lerped, etc)
-} gltexture_t;
+	int textype;
+	int inputbytesperpixel;
+	int internalbytesperpixel;
+	int glformat;
+	int glinternalformat;
+	int align;
+}
+textypeinfo_t;
+
+static textypeinfo_t textype_qpalette       = {TEXTYPE_QPALETTE, 1, 4, GL_RGBA, 3, 1};
+static textypeinfo_t textype_rgb            = {TEXTYPE_RGB     , 3, 3, GL_RGB , 3, 3};
+static textypeinfo_t textype_rgba           = {TEXTYPE_RGBA    , 4, 4, GL_RGBA, 3, 1};
+static textypeinfo_t textype_qpalette_alpha = {TEXTYPE_QPALETTE, 1, 4, GL_RGBA, 4, 1};
+static textypeinfo_t textype_rgba_alpha     = {TEXTYPE_RGBA    , 4, 4, GL_RGBA, 4, 1};
+
+// a tiling texture (most common type)
+#define GLIMAGETYPE_TILE 0
+// a fragments texture (contains one or more fragment textures)
+#define GLIMAGETYPE_FRAGMENTS 1
+
+// a gltextureimage can have one (or more if fragments) gltextures inside
+typedef struct gltextureimage_s
+{
+	struct gltextureimage_s *imagechain;
+	int texturecount;
+	int type; // one of the GLIMAGETYPE_ values
+	int texnum; // GL texture slot number
+	int width, height;
+	int bytesperpixel; // bytes per pixel
+	int glformat; // GL_RGB or GL_RGBA
+	int glinternalformat; // 3 or 4
+	int flags;
+	short *blockallocation; // fragment allocation
+}
+gltextureimage_t;
+
+typedef struct gltexture_s
+{
+	// pointer to texturepool (check this to see if the texture is allocated)
+	struct gltexturepool_s *pool;
+	// pointer to next texture in texturepool chain
+	struct gltexture_s *chain;
+	// pointer into gltextureimage array
+	gltextureimage_t *image;
+	// name of the texture (this might be removed someday), no duplicates
+	char *identifier;
+	// location in the image, and size
+	int x, y, width, height;
+	// copy of the original texture supplied to the upload function, for re-uploading or deferred uploads (non-precached)
+	byte *inputtexels;
+	// to identify cache mismatchs (this might be removed someday)
+	int crc;
+	// flags supplied to the LoadTexture/ProceduralTexture functions
+	// (might be altered to remove TEXF_ALPHA), and GLTEXF_ private flags
+	int flags;
+	// procedural texture generation function, called once per frame if the texture is used
+	int (*generate)(byte *buffer, int width, int height, void *parameterdata, int parameterdatasize);
+	// data provided to generate, persistent from call to call
+	byte *proceduraldata;
+	// size of data
+	int proceduraldatasize;
+	// used only to avoid updating the texture more than once per frame
+	int proceduralframecount;
+	// pointer to one of the textype_ structs
+	textypeinfo_t *textype;
+}
+gltexture_t;
+
+#define TEXTUREPOOL_SENTINEL 0xC0DEDBAD
+
+typedef struct gltexturepool_s
+{
+	int sentinel;
+	struct gltextureimage_s *imagechain;
+	struct gltexture_s *gltchain;
+	struct gltexturepool_s *next;
+}
+gltexturepool_t;
+
+static gltexturepool_t *gltexturepoolchain = NULL;
+
+static byte *resamplerow1 = NULL, *resamplerow2 = NULL;
+static int resamplerowsize = 0;
+static byte *resizebuffer = NULL, *colorconvertbuffer;
+static int resizebuffersize = 0;
+static byte *texturebuffer;
+static int texturebuffersize = 0;
+
+static int realmaxsize = 0;
+
+static textypeinfo_t *R_GetTexTypeInfo(int textype, int flags)
+{
+	if (flags & TEXF_ALPHA)
+	{
+		switch(textype)
+		{
+		case TEXTYPE_QPALETTE:
+			return &textype_qpalette_alpha;
+		case TEXTYPE_RGB:
+			Host_Error("R_GetTexTypeInfo: RGB format has no alpha, TEXF_ALPHA not allowed\n");
+			return NULL;
+		case TEXTYPE_RGBA:
+			return &textype_rgba_alpha;
+		default:
+			Host_Error("R_GetTexTypeInfo: unknown texture format\n");
+			return NULL;
+		}
+	}
+	else
+	{
+		switch(textype)
+		{
+		case TEXTYPE_QPALETTE:
+			return &textype_qpalette;
+		case TEXTYPE_RGB:
+			return &textype_rgb;
+		case TEXTYPE_RGBA:
+			return &textype_rgba;
+		default:
+			Host_Error("R_GetTexTypeInfo: unknown texture format\n");
+			return NULL;
+		}
+	}
+}
+
+static void R_UploadTexture(gltexture_t *t);
 
-#define	MAX_GLTEXTURES	4096
-gltexture_t	*gltextures;
-unsigned int numgltextures = 0, gl_texture_number = 1;
+static void R_PrecacheTexture(gltexture_t *glt)
+{
+	int precache;
+	precache = false;
+	if (glt->flags & TEXF_ALWAYSPRECACHE)
+		precache = true;
+	else if (r_precachetextures.integer >= 2)
+		precache = true;
+	else if (r_precachetextures.integer >= 1)
+		if (glt->flags & TEXF_PRECACHE)
+			precache = true;
 
-void GL_UploadTexture(gltexture_t *t);
+	if (precache)
+		R_UploadTexture(glt);
+}
 
 int R_GetTexture(rtexture_t *rt)
 {
@@ -44,22 +184,123 @@ int R_GetTexture(rtexture_t *rt)
 	if (!rt)
 		return 0;
 	glt = (gltexture_t *)rt;
-	if (!(glt->internalflags & GLTEXF_UPLOADED))
+	if (glt->flags & (GLTEXF_UPLOAD | GLTEXF_PROCEDURAL))
 	{
-		GL_UploadTexture(glt);
-		if (!(glt->internalflags & GLTEXF_UPLOADED))
-			Host_Error("R_GetTexture: unable to upload texture\n");
+		if (glt->flags & GLTEXF_PROCEDURAL)
+		{
+			if (glt->proceduralframecount != r_framecount)
+			{
+				glt->proceduralframecount = r_framecount;
+				R_UploadTexture(glt);
+			}
+		}
+		else
+			R_UploadTexture(glt);
 	}
-	return glt->texnum;
+	return glt->image->texnum;
 }
 
+static void R_FreeTexture(gltexture_t *glt)
+{
+	gltexture_t **gltpointer;
+	gltextureimage_t *image, **gltimagepointer;
+	GLuint texnum;
+
+	for (gltpointer = &glt->pool->gltchain;*gltpointer && *gltpointer != glt;gltpointer = &(*gltpointer)->chain);
+	if (*gltpointer == glt)
+		*gltpointer = glt->chain;
+	else
+		Host_Error("R_FreeTexture: texture not linked in pool\n");
+
+	// note: if freeing a fragment texture, this will not make the claimed
+	// space available for new textures unless all other fragments in the
+	// image are also freed
+	image = glt->image;
+	image->texturecount--;
+	if (image->texturecount < 1)
+	{
+		for (gltimagepointer = &glt->pool->imagechain;*gltimagepointer && *gltimagepointer != image;gltimagepointer = &(*gltimagepointer)->imagechain);
+		if (*gltimagepointer == image)
+			*gltimagepointer = image->imagechain;
+		else
+			Host_Error("R_FreeTexture: image not linked in pool\n");
+		if (image->texnum)
+		{
+			texnum = image->texnum;
+			gltexnuminuse[image->texnum] = 0;
+			glDeleteTextures(1, &texnum);
+		}
+		if (image->blockallocation)
+			Mem_Free(image->blockallocation);
+		Mem_Free(image);
+	}
+
+	if (glt->identifier)
+		Mem_Free(glt->identifier);
+	if (glt->inputtexels)
+		Mem_Free(glt->inputtexels);
+	if (glt->proceduraldata)
+		Mem_Free(glt->proceduraldata);
+	Mem_Free(glt);
+}
+
+static gltexture_t *R_FindTexture (gltexturepool_t *pool, char *identifier)
+{
+	gltexture_t	*glt;
+
+	if (!identifier)
+		return NULL;
+
+	for (glt = pool->gltchain;glt;glt = glt->chain)
+		if (glt->identifier && !strcmp (identifier, glt->identifier))
+			return glt;
+
+	return NULL;
+}
+
+rtexturepool_t *R_AllocTexturePool(void)
+{
+	gltexturepool_t *pool;
+	pool = Mem_Alloc(texturemempool, sizeof(gltexturepool_t));
+	if (pool == NULL)
+		return NULL;
+	//memset(pool, 0, sizeof(gltexturepool_t));
+	pool->next = gltexturepoolchain;
+	gltexturepoolchain = pool;
+	pool->sentinel = TEXTUREPOOL_SENTINEL;
+	return (rtexturepool_t *)pool;
+}
+
+void R_FreeTexturePool(rtexturepool_t **rtexturepool)
+{
+	gltexturepool_t *pool, **poolpointer;
+	if (rtexturepool == NULL)
+		return;
+	if (*rtexturepool == NULL)
+		return;
+	pool = (gltexturepool_t *)(*rtexturepool);
+	*rtexturepool = NULL;
+	if (pool->sentinel != TEXTUREPOOL_SENTINEL)
+		Host_Error("R_FreeTexturePool: pool already freed\n");
+	for (poolpointer = &gltexturepoolchain;*poolpointer && *poolpointer != pool;poolpointer = &(*poolpointer)->next);
+	if (*poolpointer == pool)
+		*poolpointer = pool->next;
+	else
+		Host_Error("R_FreeTexturePool: pool not linked\n");
+	while (pool->gltchain)
+		R_FreeTexture(pool->gltchain);
+	Mem_Free(pool);
+}
+
+
 typedef struct
 {
 	char *name;
-	int	minimize, maximize;
-} glmode_t;
+	int minification, magnification;
+}
+glmode_t;
 
-glmode_t modes[] =
+static glmode_t modes[] =
 {
 	{"GL_NEAREST", GL_NEAREST, GL_NEAREST},
 	{"GL_LINEAR", GL_LINEAR, GL_LINEAR},
@@ -69,181 +310,267 @@ glmode_t modes[] =
 	{"GL_LINEAR_MIPMAP_LINEAR", GL_LINEAR_MIPMAP_LINEAR, GL_LINEAR}
 };
 
-/*
-===============
-Draw_TextureMode_f
-===============
-*/
-void Draw_TextureMode_f (void)
+static void GL_TextureMode_f (void)
 {
-	int		i;
-	gltexture_t	*glt;
+	int i;
+	gltextureimage_t *image;
+	gltexturepool_t *pool;
 
 	if (Cmd_Argc() == 1)
 	{
-		for (i=0 ; i< 6 ; i++)
-			if (gl_filter_min == modes[i].minimize)
+		for (i = 0;i < 6;i++)
+		{
+			if (gl_filter_min == modes[i].minification)
 			{
 				Con_Printf ("%s\n", modes[i].name);
 				return;
 			}
+		}
 		Con_Printf ("current filter is unknown???\n");
 		return;
 	}
 
-	for (i=0 ; i< 6 ; i++)
-	{
+	for (i = 0;i < 6;i++)
 		if (!Q_strcasecmp (modes[i].name, Cmd_Argv(1) ) )
 			break;
-	}
 	if (i == 6)
 	{
 		Con_Printf ("bad filter name\n");
 		return;
 	}
 
-	gl_filter_min = modes[i].minimize;
-	gl_filter_max = modes[i].maximize;
+	gl_filter_min = modes[i].minification;
+	gl_filter_mag = modes[i].magnification;
 
-	if (!r_upload.value)
-		return;
 	// change all the existing mipmap texture objects
-	for (i=0, glt=gltextures ; i<numgltextures ; i++, glt++)
+	// FIXME: force renderer(/client/something?) restart instead?
+	for (pool = gltexturepoolchain;pool;pool = pool->next)
 	{
-		if (glt->flags & TEXF_MIPMAP)
+		for (image = pool->imagechain;image;image = image->imagechain)
 		{
-			glBindTexture(GL_TEXTURE_2D, glt->texnum);
-			glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, gl_filter_min);
-			glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, gl_filter_max);
+			// only update already uploaded images
+			if (!(image->flags & GLTEXF_UPLOAD))
+			{
+				glBindTexture(GL_TEXTURE_2D, image->texnum);
+				if (image->flags & TEXF_MIPMAP)
+					glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, gl_filter_min);
+				else
+					glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, gl_filter_mag);
+				glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, gl_filter_mag);
+			}
 		}
 	}
 }
 
-void GL_TextureStats_Print(char *name, int total, int total2, int loaded, int crc, int mip, int alpha, int total2valid)
+static int R_CalcTexelDataSize (gltexture_t *glt)
 {
-	if (!name[0])
-		name = "<unnamed>";
-	Con_Printf("%5iK %c%5iK%c %04X %s %s %s %s\n", total, total2valid ? ' ' : '(', total2, total2valid ? ' ' : ')', crc, loaded ? "loaded" : "      ", mip ? "mip" : "   ", alpha ? "alpha" : "     ", name);
+	int width2, height2, size;
+	if (glt->flags & TEXF_FRAGMENT)
+		size = glt->width * glt->height;
+	else
+	{
+		if (r_max_size.integer > realmaxsize)
+			Cvar_SetValue("r_max_size", realmaxsize);
+		// calculate final size
+		width2 = 1;while (width2 < glt->width) width2 <<= 1;
+		height2 = 1;while (height2 < glt->height) height2 <<= 1;
+		width2 >>= (int) r_picmip.integer;
+		height2 >>= (int) r_picmip.integer;
+		while (width2 > (int) r_max_size.integer) width2 >>= 1;
+		while (height2 > (int) r_max_size.integer) height2 >>= 1;
+		if (width2 < 1) width2 = 1;
+		if (height2 < 1) height2 = 1;
+
+		size = 0;
+		if (glt->flags & TEXF_MIPMAP)
+		{
+			while (width2 > 1 || height2 > 1)
+			{
+				size += width2 * height2;
+				if (width2 > 1)
+					width2 >>= 1;
+				if (height2 > 1)
+					height2 >>= 1;
+			}
+			size++; // count the last 1x1 mipmap
+		}
+		else
+			size = width2*height2;
+	}
+	size *= glt->textype->internalbytesperpixel;
+
+	return size;
 }
 
-void GL_TextureStats_PrintTotal(void)
+void R_TextureStats_PrintTotal(void)
 {
-	int i, t = 0, p = 0, loaded = 0, loadedt = 0, loadedp = 0;
+	int glsize, inputsize, total = 0, totalt = 0, totalp = 0, loaded = 0, loadedt = 0, loadedp = 0;
 	gltexture_t *glt;
-	for (i = 0, glt = gltextures;i < numgltextures;i++, glt++)
+	gltexturepool_t *pool;
+	for (pool = gltexturepoolchain;pool;pool = pool->next)
 	{
-		t += glt->texeldatasize;
-		p += glt->inputtexeldatasize;
-		if (glt->internalflags & GLTEXF_UPLOADED)
+		for (glt = pool->gltchain;glt;glt = glt->chain)
 		{
-			loaded++;
-			loadedt += glt->texeldatasize;
-			loadedp += glt->inputtexeldatasize;
+			glsize = R_CalcTexelDataSize(glt);
+			inputsize = glt->width * glt->height * glt->textype->inputbytesperpixel;
+
+			total++;
+			totalt += glsize;
+			totalp += inputsize;
+			if (!(glt->flags & GLTEXF_UPLOAD))
+			{
+				loaded++;
+				loadedt += glsize;
+				loadedp += inputsize;
+			}
 		}
 	}
-	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);
+	Con_Printf("total: %i (%.3fMB, %.3fMB original), uploaded %i (%.3fMB, %.3fMB original), upload on demand %i (%.3fMB, %.3fMB original)\n", total, totalt / 1048576.0, totalp / 1048576.0, loaded, loadedt / 1048576.0, loadedp / 1048576.0, total - loaded, (totalt - loadedt) / 1048576.0, (totalp - loadedp) / 1048576.0);
 }
 
-void GL_TextureStats_f(void)
+static void R_TextureStats_f(void)
 {
-	int i;
+	int loaded;
 	gltexture_t *glt;
-	Con_Printf("kbytes original crc  loaded mip alpha name\n");
-	for (i = 0, glt = gltextures;i < numgltextures;i++, glt++)
-		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);
-	GL_TextureStats_PrintTotal();
+	gltexturepool_t *pool;
+	Con_Printf("glsize input crc  loaded mip alpha name\n");
+	for (pool = gltexturepoolchain;pool;pool = pool->next)
+	{
+		for (glt = pool->gltchain;glt;glt = glt->chain)
+		{
+			loaded = !(glt->flags & GLTEXF_UPLOAD);
+			if (glt->flags & GLTEXF_PROCEDURAL)
+				Con_Printf("%c%4i%c %4i  PROC %s %s %s %s\n"  , loaded ? '[' : ' ', (R_CalcTexelDataSize(glt) + 1023) / 1024, loaded ? ']' : ' ',                               (glt->width * glt->height * glt->textype->inputbytesperpixel + 1023) / 1024,                                         loaded ? "loaded" : "      ", (glt->flags & TEXF_MIPMAP) ? "mip" : "   ", (glt->flags & TEXF_ALPHA) ? "alpha" : "     ", glt->identifier ? glt->identifier : "<unnamed>");
+			else
+				Con_Printf("%c%4i%c%c%4i%c %04X %s %s %s %s\n", loaded ? '[' : ' ', (R_CalcTexelDataSize(glt) + 1023) / 1024, loaded ? ']' : ' ', glt->inputtexels ? '[' : ' ', (glt->width * glt->height * glt->textype->inputbytesperpixel + 1023) / 1024, glt->inputtexels ? ']' : ' ', glt->crc, loaded ? "loaded" : "      ", (glt->flags & TEXF_MIPMAP) ? "mip" : "   ", (glt->flags & TEXF_ALPHA) ? "alpha" : "     ", glt->identifier ? glt->identifier : "<unnamed>");
+		}
+		Con_Printf("pool %10p\n", pool);
+	}
+	R_TextureStats_PrintTotal();
 }
 
 char engineversion[40];
 
-//void GL_UploadTexture (gltexture_t *glt);
-void r_textures_start(void)
+static void r_textures_start(void)
 {
-//	int i;
-//	gltexture_t *glt;
-//	for (i=0, glt=gltextures ; i<numgltextures ; i++, glt++)
-//		GL_UploadTexture(glt);
+	// deal with size limits of various drivers (3dfx in particular)
+	glGetIntegerv(GL_MAX_TEXTURE_SIZE, &realmaxsize);
+	CHECKGLERROR
+
+	// use the largest scrap texture size we can (not sure if this is really a good idea)
+	for (block_size = 1;block_size < realmaxsize && block_size < r_max_scrapsize.integer;block_size <<= 1);
+
+	texturemempool = Mem_AllocPool("Textures");
+	gltexnuminuse = Mem_Alloc(texturemempool, MAX_GLTEXTURES);
+	//memset(gltexnuminuse, 0, MAX_GLTEXTURES);
 }
 
-void r_textures_shutdown(void)
+static void r_textures_shutdown(void)
 {
+	rtexturepool_t *temp;
+	while(gltexturepoolchain)
+	{
+		temp = (rtexturepool_t *) gltexturepoolchain;
+		R_FreeTexturePool(&temp);
+	}
+
+	/*
+	if (resizebuffer) Mem_Free(resizebuffer);resizebuffer = NULL;
+	if (colorconvertbuffer) Mem_Free(colorconvertbuffer);colorconvertbuffer = NULL;
+	if (resamplerow1) Mem_Free(resamplerow1);resamplerow1 = NULL;
+	if (resamplerow2) Mem_Free(resamplerow2);resamplerow2 = NULL;
+	if (texturebuffer) Mem_Free(texturebuffer);texturebuffer = NULL;
+	if (gltexnuminuse) Mem_Free(gltexnuminuse);gltexnuminuse = NULL;
+	*/
+	resizebuffersize = 0;
+	resamplerowsize = 0;
+	texturebuffersize = 0;
+	resizebuffer = NULL;
+	colorconvertbuffer = NULL;
+	resamplerow1 = NULL;
+	resamplerow2 = NULL;
+	texturebuffer = NULL;
+	gltexnuminuse = NULL;
+	Mem_FreePool(&texturemempool);
 }
 
-void r_textures_newmap(void)
+static void r_textures_newmap(void)
 {
 }
 
 void R_Textures_Init (void)
 {
-	Cmd_AddCommand("r_texturestats", GL_TextureStats_f);
+	Cmd_AddCommand ("gl_texturemode", &GL_TextureMode_f);
+	Cmd_AddCommand("r_texturestats", R_TextureStats_f);
+	Cvar_RegisterVariable (&r_max_scrapsize);
 	Cvar_RegisterVariable (&r_max_size);
 	Cvar_RegisterVariable (&r_picmip);
 	Cvar_RegisterVariable (&r_lerpimages);
-	Cvar_RegisterVariable (&r_upload);
 	Cvar_RegisterVariable (&r_precachetextures);
-#ifdef NORENDER
-	r_upload.value = 0;
-#endif
-
-	// 3dfx can only handle 256 wide textures
-	if (!Q_strncasecmp ((char *)gl_renderer, "3dfx",4) || strstr((char *)gl_renderer, "Glide"))
-		Cvar_Set ("r_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);
+	gltexnuminuse = NULL;
 
 	R_RegisterModule("R_Textures", r_textures_start, r_textures_shutdown, r_textures_newmap);
 }
 
-/*
-================
-R_FindTexture
-================
-*/
-int R_FindTexture (char *identifier)
-{
-	int		i;
-	gltexture_t	*glt;
-
-	for (i=0, glt=gltextures ; i<numgltextures ; i++, glt++)
-	{
-		if (!strcmp (identifier, glt->identifier))
-			return gltextures[i].texnum;
-	}
-
-	return -1;
-}
-
-void R_ResampleTextureLerpLine (byte *in, byte *out, int inwidth, int outwidth)
+static void R_ResampleTextureLerpLine (byte *in, byte *out, int inwidth, int outwidth, int bytesperpixel)
 {
-	int		j, xi, oldx = 0, f, fstep, endx;
+	int		j, xi, oldx = 0, f, fstep, endx, lerp;
 	fstep = (int) (inwidth*65536.0f/outwidth);
 	endx = (inwidth-1);
-	for (j = 0,f = 0;j < outwidth;j++, f += fstep)
+	if (bytesperpixel == 4)
 	{
-		xi = (int) f >> 16;
-		if (xi != oldx)
-		{
-			in += (xi - oldx) * 4;
-			oldx = xi;
-		}
-		if (xi < endx)
+		for (j = 0,f = 0;j < outwidth;j++, f += fstep)
 		{
-			int lerp = f & 0xFFFF;
-			*out++ = (byte) ((((in[4] - in[0]) * lerp) >> 16) + in[0]);
-			*out++ = (byte) ((((in[5] - in[1]) * lerp) >> 16) + in[1]);
-			*out++ = (byte) ((((in[6] - in[2]) * lerp) >> 16) + in[2]);
-			*out++ = (byte) ((((in[7] - in[3]) * lerp) >> 16) + in[3]);
+			xi = f >> 16;
+			if (xi != oldx)
+			{
+				in += (xi - oldx) * 4;
+				oldx = xi;
+			}
+			if (xi < endx)
+			{
+				lerp = f & 0xFFFF;
+				*out++ = (byte) ((((in[4] - in[0]) * lerp) >> 16) + in[0]);
+				*out++ = (byte) ((((in[5] - in[1]) * lerp) >> 16) + in[1]);
+				*out++ = (byte) ((((in[6] - in[2]) * lerp) >> 16) + in[2]);
+				*out++ = (byte) ((((in[7] - in[3]) * lerp) >> 16) + in[3]);
+			}
+			else // last pixel of the line has no pixel to lerp to
+			{
+				*out++ = in[0];
+				*out++ = in[1];
+				*out++ = in[2];
+				*out++ = in[3];
+			}
 		}
-		else // last pixel of the line has no pixel to lerp to
+	}
+	else if (bytesperpixel == 3)
+	{
+		for (j = 0,f = 0;j < outwidth;j++, f += fstep)
 		{
-			*out++ = in[0];
-			*out++ = in[1];
-			*out++ = in[2];
-			*out++ = in[3];
+			xi = f >> 16;
+			if (xi != oldx)
+			{
+				in += (xi - oldx) * 3;
+				oldx = xi;
+			}
+			if (xi < endx)
+			{
+				lerp = f & 0xFFFF;
+				*out++ = (byte) ((((in[3] - in[0]) * lerp) >> 16) + in[0]);
+				*out++ = (byte) ((((in[4] - in[1]) * lerp) >> 16) + in[1]);
+				*out++ = (byte) ((((in[5] - in[2]) * lerp) >> 16) + in[2]);
+			}
+			else // last pixel of the line has no pixel to lerp to
+			{
+				*out++ = in[0];
+				*out++ = in[1];
+				*out++ = in[2];
+			}
 		}
 	}
+	else
+		Sys_Error("R_ResampleTextureLerpLine: unsupported bytesperpixel %i\n", bytesperpixel);
 }
 
 /*
@@ -251,477 +578,978 @@ void R_ResampleTextureLerpLine (byte *in, byte *out, int inwidth, int outwidth)
 R_ResampleTexture
 ================
 */
-void R_ResampleTexture (void *indata, int inwidth, int inheight, void *outdata,  int outwidth, int outheight)
+static void R_ResampleTexture (void *indata, int inwidth, int inheight, void *outdata,  int outwidth, int outheight, int bytesperpixel)
 {
-	if (r_lerpimages.value)
+	if (resamplerowsize < outwidth*4)
 	{
-		int		i, j, yi, oldy, f, fstep, endy = (inheight-1);
-		byte	*inrow, *out, *row1, *row2;
-		out = outdata;
-		fstep = (int) (inheight*65536.0f/outheight);
-
-		row1 = qmalloc(outwidth*4);
-		row2 = qmalloc(outwidth*4);
-		inrow = indata;
-		oldy = 0;
-		R_ResampleTextureLerpLine (inrow, row1, inwidth, outwidth);
-		R_ResampleTextureLerpLine (inrow + inwidth*4, row2, inwidth, outwidth);
-		for (i = 0, f = 0;i < outheight;i++,f += fstep)
+		if (resamplerow1)
+			Mem_Free(resamplerow1);
+		if (resamplerow2)
+			Mem_Free(resamplerow2);
+		resamplerowsize = outwidth*4;
+		resamplerow1 = Mem_Alloc(texturemempool, resamplerowsize);
+		resamplerow2 = Mem_Alloc(texturemempool, resamplerowsize);
+	}
+#define row1 resamplerow1
+#define row2 resamplerow2
+	if (bytesperpixel == 4)
+	{
+		if (r_lerpimages.integer)
 		{
-			yi = f >> 16;
-			if (yi < endy)
+			int		i, j, yi, oldy, f, fstep, lerp, endy = (inheight-1), inwidth4 = inwidth*4, outwidth4 = outwidth*4;
+			byte	*inrow, *out;
+			out = outdata;
+			fstep = (int) (inheight*65536.0f/outheight);
+
+			inrow = indata;
+			oldy = 0;
+			R_ResampleTextureLerpLine (inrow, row1, inwidth, outwidth, bytesperpixel);
+			R_ResampleTextureLerpLine (inrow + inwidth4, row2, inwidth, outwidth, bytesperpixel);
+			for (i = 0, f = 0;i < outheight;i++,f += fstep)
 			{
-				int lerp = f & 0xFFFF;
-				if (yi != oldy)
+				yi = f >> 16;
+				if (yi < endy)
 				{
-					inrow = (byte *)indata + inwidth*4*yi;
-					if (yi == oldy+1)
-						memcpy(row1, row2, outwidth*4);
-					else
-						R_ResampleTextureLerpLine (inrow, row1, inwidth, outwidth);
-					R_ResampleTextureLerpLine (inrow + inwidth*4, row2, inwidth, outwidth);
-					oldy = yi;
+					lerp = f & 0xFFFF;
+					if (yi != oldy)
+					{
+						inrow = (byte *)indata + inwidth4*yi;
+						if (yi == oldy+1)
+							memcpy(row1, row2, outwidth4);
+						else
+							R_ResampleTextureLerpLine (inrow, row1, inwidth, outwidth, bytesperpixel);
+						R_ResampleTextureLerpLine (inrow + inwidth4, row2, inwidth, outwidth, bytesperpixel);
+						oldy = yi;
+					}
+					j = outwidth - 4;
+					while(j >= 0)
+					{
+#define LERPBYTE(i) out[i] = (byte) ((((row2[i] - row1[i]) * lerp) >> 16) + row1[i])
+						LERPBYTE( 0);
+						LERPBYTE( 1);
+						LERPBYTE( 2);
+						LERPBYTE( 3);
+						LERPBYTE( 4);
+						LERPBYTE( 5);
+						LERPBYTE( 6);
+						LERPBYTE( 7);
+						LERPBYTE( 8);
+						LERPBYTE( 9);
+						LERPBYTE(10);
+						LERPBYTE(11);
+						LERPBYTE(12);
+						LERPBYTE(13);
+						LERPBYTE(14);
+						LERPBYTE(15);
+						out += 16;
+						row1 += 16;
+						row2 += 16;
+						j -= 4;
+					}
+					if (j & 2)
+					{
+						LERPBYTE( 0);
+						LERPBYTE( 1);
+						LERPBYTE( 2);
+						LERPBYTE( 3);
+						LERPBYTE( 4);
+						LERPBYTE( 5);
+						LERPBYTE( 6);
+						LERPBYTE( 7);
+						out += 8;
+						row1 += 8;
+						row2 += 8;
+					}
+					if (j & 1)
+					{
+						LERPBYTE( 0);
+						LERPBYTE( 1);
+						LERPBYTE( 2);
+						LERPBYTE( 3);
+						out += 4;
+						row1 += 4;
+						row2 += 4;
+					}
+					row1 -= outwidth4;
+					row2 -= outwidth4;
 				}
+				else
+				{
+					if (yi != oldy)
+					{
+						inrow = (byte *)indata + inwidth4*yi;
+						if (yi == oldy+1)
+							memcpy(row1, row2, outwidth4);
+						else
+							R_ResampleTextureLerpLine (inrow, row1, inwidth, outwidth, bytesperpixel);
+						oldy = yi;
+					}
+					memcpy(out, row1, outwidth4);
+				}
+			}
+		}
+		else
+		{
+			int i, j;
+			unsigned frac, fracstep;
+			// relies on int being 4 bytes
+			int *inrow, *out;
+			out = outdata;
+
+			fracstep = inwidth*0x10000/outwidth;
+			for (i = 0;i < outheight;i++)
+			{
+				inrow = (int *)indata + inwidth*(i*inheight/outheight);
+				frac = fracstep >> 1;
 				j = outwidth - 4;
-				while(j >= 0)
+				while (j >= 0)
 				{
-					out[ 0] = (byte) ((((row2[ 0] - row1[ 0]) * lerp) >> 16) + row1[ 0]);
-					out[ 1] = (byte) ((((row2[ 1] - row1[ 1]) * lerp) >> 16) + row1[ 1]);
-					out[ 2] = (byte) ((((row2[ 2] - row1[ 2]) * lerp) >> 16) + row1[ 2]);
-					out[ 3] = (byte) ((((row2[ 3] - row1[ 3]) * lerp) >> 16) + row1[ 3]);
-					out[ 4] = (byte) ((((row2[ 4] - row1[ 4]) * lerp) >> 16) + row1[ 4]);
-					out[ 5] = (byte) ((((row2[ 5] - row1[ 5]) * lerp) >> 16) + row1[ 5]);
-					out[ 6] = (byte) ((((row2[ 6] - row1[ 6]) * lerp) >> 16) + row1[ 6]);
-					out[ 7] = (byte) ((((row2[ 7] - row1[ 7]) * lerp) >> 16) + row1[ 7]);
-					out[ 8] = (byte) ((((row2[ 8] - row1[ 8]) * lerp) >> 16) + row1[ 8]);
-					out[ 9] = (byte) ((((row2[ 9] - row1[ 9]) * lerp) >> 16) + row1[ 9]);
-					out[10] = (byte) ((((row2[10] - row1[10]) * lerp) >> 16) + row1[10]);
-					out[11] = (byte) ((((row2[11] - row1[11]) * lerp) >> 16) + row1[11]);
-					out[12] = (byte) ((((row2[12] - row1[12]) * lerp) >> 16) + row1[12]);
-					out[13] = (byte) ((((row2[13] - row1[13]) * lerp) >> 16) + row1[13]);
-					out[14] = (byte) ((((row2[14] - row1[14]) * lerp) >> 16) + row1[14]);
-					out[15] = (byte) ((((row2[15] - row1[15]) * lerp) >> 16) + row1[15]);
-					out += 16;
-					row1 += 16;
-					row2 += 16;
+					out[0] = inrow[frac >> 16];frac += fracstep;
+					out[1] = inrow[frac >> 16];frac += fracstep;
+					out[2] = inrow[frac >> 16];frac += fracstep;
+					out[3] = inrow[frac >> 16];frac += fracstep;
+					out += 4;
 					j -= 4;
 				}
 				if (j & 2)
 				{
-					out[ 0] = (byte) ((((row2[ 0] - row1[ 0]) * lerp) >> 16) + row1[ 0]);
-					out[ 1] = (byte) ((((row2[ 1] - row1[ 1]) * lerp) >> 16) + row1[ 1]);
-					out[ 2] = (byte) ((((row2[ 2] - row1[ 2]) * lerp) >> 16) + row1[ 2]);
-					out[ 3] = (byte) ((((row2[ 3] - row1[ 3]) * lerp) >> 16) + row1[ 3]);
-					out[ 4] = (byte) ((((row2[ 4] - row1[ 4]) * lerp) >> 16) + row1[ 4]);
-					out[ 5] = (byte) ((((row2[ 5] - row1[ 5]) * lerp) >> 16) + row1[ 5]);
-					out[ 6] = (byte) ((((row2[ 6] - row1[ 6]) * lerp) >> 16) + row1[ 6]);
-					out[ 7] = (byte) ((((row2[ 7] - row1[ 7]) * lerp) >> 16) + row1[ 7]);
-					out += 8;
-					row1 += 8;
-					row2 += 8;
+					out[0] = inrow[frac >> 16];frac += fracstep;
+					out[1] = inrow[frac >> 16];frac += fracstep;
+					out += 2;
 				}
 				if (j & 1)
 				{
-					out[ 0] = (byte) ((((row2[ 0] - row1[ 0]) * lerp) >> 16) + row1[ 0]);
-					out[ 1] = (byte) ((((row2[ 1] - row1[ 1]) * lerp) >> 16) + row1[ 1]);
-					out[ 2] = (byte) ((((row2[ 2] - row1[ 2]) * lerp) >> 16) + row1[ 2]);
-					out[ 3] = (byte) ((((row2[ 3] - row1[ 3]) * lerp) >> 16) + row1[ 3]);
-					out += 4;
-					row1 += 4;
-					row2 += 4;
-				}
-				row1 -= outwidth*4;
-				row2 -= outwidth*4;
-			}
-			else
-			{
-				if (yi != oldy)
-				{
-					inrow = (byte *)indata + inwidth*4*yi;
-					if (yi == oldy+1)
-						memcpy(row1, row2, outwidth*4);
-					else
-						R_ResampleTextureLerpLine (inrow, row1, inwidth, outwidth);
-					oldy = yi;
+					out[0] = inrow[frac >> 16];frac += fracstep;
+					out += 1;
 				}
-				memcpy(out, row1, outwidth * 4);
 			}
 		}
-		qfree(row1);
-		qfree(row2);
 	}
-	else
+	else if (bytesperpixel == 3)
 	{
-		int i, j;
-		unsigned frac, fracstep;
-		// relies on int being 4 bytes
-		int *inrow, *out;
-		out = outdata;
-
-		fracstep = inwidth*0x10000/outwidth;
-		for (i = 0;i < outheight;i++)
+		if (r_lerpimages.integer)
 		{
-			inrow = (int *)indata + inwidth*(i*inheight/outheight);
-			frac = fracstep >> 1;
-			j = outwidth - 4;
-			while (j >= 0)
-			{
-				out[0] = inrow[frac >> 16];frac += fracstep;
-				out[1] = inrow[frac >> 16];frac += fracstep;
-				out[2] = inrow[frac >> 16];frac += fracstep;
-				out[3] = inrow[frac >> 16];frac += fracstep;
-				out += 4;
-				j -= 4;
-			}
-			if (j & 2)
+			int		i, j, yi, oldy, f, fstep, lerp, endy = (inheight-1), inwidth3 = inwidth * 3, outwidth3 = outwidth * 3;
+			byte	*inrow, *out;
+			out = outdata;
+			fstep = (int) (inheight*65536.0f/outheight);
+
+			inrow = indata;
+			oldy = 0;
+			R_ResampleTextureLerpLine (inrow, row1, inwidth, outwidth, bytesperpixel);
+			R_ResampleTextureLerpLine (inrow + inwidth3, row2, inwidth, outwidth, bytesperpixel);
+			for (i = 0, f = 0;i < outheight;i++,f += fstep)
 			{
-				out[0] = inrow[frac >> 16];frac += fracstep;
-				out[1] = inrow[frac >> 16];frac += fracstep;
-				out += 2;
+				yi = f >> 16;
+				if (yi < endy)
+				{
+					lerp = f & 0xFFFF;
+					if (yi != oldy)
+					{
+						inrow = (byte *)indata + inwidth3*yi;
+						if (yi == oldy+1)
+							memcpy(row1, row2, outwidth3);
+						else
+							R_ResampleTextureLerpLine (inrow, row1, inwidth, outwidth, bytesperpixel);
+						R_ResampleTextureLerpLine (inrow + inwidth3, row2, inwidth, outwidth, bytesperpixel);
+						oldy = yi;
+					}
+					j = outwidth - 4;
+					while(j >= 0)
+					{
+#define LERPBYTE(i) out[i] = (byte) ((((row2[i] - row1[i]) * lerp) >> 16) + row1[i])
+						LERPBYTE( 0);
+						LERPBYTE( 1);
+						LERPBYTE( 2);
+						LERPBYTE( 3);
+						LERPBYTE( 4);
+						LERPBYTE( 5);
+						LERPBYTE( 6);
+						LERPBYTE( 7);
+						LERPBYTE( 8);
+						LERPBYTE( 9);
+						LERPBYTE(10);
+						LERPBYTE(11);
+						out += 12;
+						row1 += 12;
+						row2 += 12;
+						j -= 4;
+					}
+					if (j & 2)
+					{
+						LERPBYTE( 0);
+						LERPBYTE( 1);
+						LERPBYTE( 2);
+						LERPBYTE( 3);
+						LERPBYTE( 4);
+						LERPBYTE( 5);
+						out += 6;
+						row1 += 6;
+						row2 += 6;
+					}
+					if (j & 1)
+					{
+						LERPBYTE( 0);
+						LERPBYTE( 1);
+						LERPBYTE( 2);
+						out += 3;
+						row1 += 3;
+						row2 += 3;
+					}
+					row1 -= outwidth3;
+					row2 -= outwidth3;
+				}
+				else
+				{
+					if (yi != oldy)
+					{
+						inrow = (byte *)indata + inwidth3*yi;
+						if (yi == oldy+1)
+							memcpy(row1, row2, outwidth3);
+						else
+							R_ResampleTextureLerpLine (inrow, row1, inwidth, outwidth, bytesperpixel);
+						oldy = yi;
+					}
+					memcpy(out, row1, outwidth3);
+				}
 			}
-			if (j & 1)
+		}
+		else
+		{
+			int i, j, f, inwidth3 = inwidth * 3;
+			unsigned frac, fracstep;
+			byte *inrow, *out;
+			out = outdata;
+
+			fracstep = inwidth*0x10000/outwidth;
+			for (i = 0;i < outheight;i++)
 			{
-				out[0] = inrow[frac >> 16];frac += fracstep;
-				out += 1;
+				inrow = (byte *)indata + inwidth3*(i*inheight/outheight);
+				frac = fracstep >> 1;
+				j = outwidth - 4;
+				while (j >= 0)
+				{
+					f = (frac >> 16)*3;*out++ = inrow[f+0];*out++ = inrow[f+1];*out++ = inrow[f+2];frac += fracstep;
+					f = (frac >> 16)*3;*out++ = inrow[f+0];*out++ = inrow[f+1];*out++ = inrow[f+2];frac += fracstep;
+					f = (frac >> 16)*3;*out++ = inrow[f+0];*out++ = inrow[f+1];*out++ = inrow[f+2];frac += fracstep;
+					f = (frac >> 16)*3;*out++ = inrow[f+0];*out++ = inrow[f+1];*out++ = inrow[f+2];frac += fracstep;
+					j -= 4;
+				}
+				if (j & 2)
+				{
+					f = (frac >> 16)*3;*out++ = inrow[f+0];*out++ = inrow[f+1];*out++ = inrow[f+2];frac += fracstep;
+					f = (frac >> 16)*3;*out++ = inrow[f+0];*out++ = inrow[f+1];*out++ = inrow[f+2];frac += fracstep;
+					out += 2;
+				}
+				if (j & 1)
+				{
+					f = (frac >> 16)*3;*out++ = inrow[f+0];*out++ = inrow[f+1];*out++ = inrow[f+2];frac += fracstep;
+					out += 1;
+				}
 			}
 		}
 	}
+	else
+		Sys_Error("R_ResampleTexture: unsupported bytesperpixel %i\n", bytesperpixel);
+#undef row1
+#undef row2
 }
 
 // in can be the same as out
-void GL_MipReduce(byte *in, byte *out, int width, int height, int destwidth, int destheight)
+static void R_MipReduce(byte *in, byte *out, int *width, int *height, int destwidth, int destheight, int bytesperpixel)
 {
-	int x, y, width2, height2, nextrow;
-	if (width > destwidth)
+	int x, y, nextrow;
+	nextrow = *width * bytesperpixel;
+	if (*width > destwidth)
 	{
-		if (height > destheight)
+		*width >>= 1;
+		if (*height > destheight)
 		{
 			// reduce both
-			width2 = width >> 1;
-			height2 = height >> 1;
-			nextrow = width << 2;
-			for (y = 0;y < height2;y++)
+			*height >>= 1;
+			if (bytesperpixel == 4)
 			{
-				for (x = 0;x < width2;x++)
+				for (y = 0;y < *height;y++)
 				{
-					out[0] = (byte) ((in[0] + in[4] + in[nextrow  ] + in[nextrow+4]) >> 2);
-					out[1] = (byte) ((in[1] + in[5] + in[nextrow+1] + in[nextrow+5]) >> 2);
-					out[2] = (byte) ((in[2] + in[6] + in[nextrow+2] + in[nextrow+6]) >> 2);
-					out[3] = (byte) ((in[3] + in[7] + in[nextrow+3] + in[nextrow+7]) >> 2);
-					out += 4;
-					in += 8;
+					for (x = 0;x < *width;x++)
+					{
+						out[0] = (byte) ((in[0] + in[4] + in[nextrow  ] + in[nextrow+4]) >> 2);
+						out[1] = (byte) ((in[1] + in[5] + in[nextrow+1] + in[nextrow+5]) >> 2);
+						out[2] = (byte) ((in[2] + in[6] + in[nextrow+2] + in[nextrow+6]) >> 2);
+						out[3] = (byte) ((in[3] + in[7] + in[nextrow+3] + in[nextrow+7]) >> 2);
+						out += 4;
+						in += 8;
+					}
+					in += nextrow; // skip a line
+				}
+			}
+			else if (bytesperpixel == 3)
+			{
+				for (y = 0;y < *height;y++)
+				{
+					for (x = 0;x < *width;x++)
+					{
+						out[0] = (byte) ((in[0] + in[3] + in[nextrow  ] + in[nextrow+3]) >> 2);
+						out[1] = (byte) ((in[1] + in[4] + in[nextrow+1] + in[nextrow+4]) >> 2);
+						out[2] = (byte) ((in[2] + in[5] + in[nextrow+2] + in[nextrow+5]) >> 2);
+						out += 3;
+						in += 6;
+					}
+					in += nextrow; // skip a line
 				}
-				in += nextrow; // skip a line
 			}
+			else
+				Sys_Error("R_MipReduce: unsupported bytesperpixel %i\n", bytesperpixel);
 		}
 		else
 		{
 			// reduce width
-			width2 = width >> 1;
-			for (y = 0;y < height;y++)
+			if (bytesperpixel == 4)
 			{
-				for (x = 0;x < width2;x++)
+				for (y = 0;y < *height;y++)
 				{
-					out[0] = (byte) ((in[0] + in[4]) >> 1);
-					out[1] = (byte) ((in[1] + in[5]) >> 1);
-					out[2] = (byte) ((in[2] + in[6]) >> 1);
-					out[3] = (byte) ((in[3] + in[7]) >> 1);
-					out += 4;
-					in += 8;
+					for (x = 0;x < *width;x++)
+					{
+						out[0] = (byte) ((in[0] + in[4]) >> 1);
+						out[1] = (byte) ((in[1] + in[5]) >> 1);
+						out[2] = (byte) ((in[2] + in[6]) >> 1);
+						out[3] = (byte) ((in[3] + in[7]) >> 1);
+						out += 4;
+						in += 8;
+					}
+				}
+			}
+			else if (bytesperpixel == 3)
+			{
+				for (y = 0;y < *height;y++)
+				{
+					for (x = 0;x < *width;x++)
+					{
+						out[0] = (byte) ((in[0] + in[3]) >> 1);
+						out[1] = (byte) ((in[1] + in[4]) >> 1);
+						out[2] = (byte) ((in[2] + in[5]) >> 1);
+						out += 3;
+						in += 6;
+					}
 				}
 			}
+			else
+				Sys_Error("R_MipReduce: unsupported bytesperpixel %i\n", bytesperpixel);
 		}
 	}
 	else
 	{
-		if (height > destheight)
+		if (*height > destheight)
 		{
 			// reduce height
-			height2 = height >> 1;
-			nextrow = width << 2;
-			for (y = 0;y < height2;y++)
+			*height >>= 1;
+			if (bytesperpixel == 4)
 			{
-				for (x = 0;x < width;x++)
+				for (y = 0;y < *height;y++)
 				{
-					out[0] = (byte) ((in[0] + in[nextrow  ]) >> 1);
-					out[1] = (byte) ((in[1] + in[nextrow+1]) >> 1);
-					out[2] = (byte) ((in[2] + in[nextrow+2]) >> 1);
-					out[3] = (byte) ((in[3] + in[nextrow+3]) >> 1);
-					out += 4;
-					in += 4;
+					for (x = 0;x < *width;x++)
+					{
+						out[0] = (byte) ((in[0] + in[nextrow  ]) >> 1);
+						out[1] = (byte) ((in[1] + in[nextrow+1]) >> 1);
+						out[2] = (byte) ((in[2] + in[nextrow+2]) >> 1);
+						out[3] = (byte) ((in[3] + in[nextrow+3]) >> 1);
+						out += 4;
+						in += 4;
+					}
+					in += nextrow; // skip a line
+				}
+			}
+			else if (bytesperpixel == 3)
+			{
+				for (y = 0;y < *height;y++)
+				{
+					for (x = 0;x < *width;x++)
+					{
+						out[0] = (byte) ((in[0] + in[nextrow  ]) >> 1);
+						out[1] = (byte) ((in[1] + in[nextrow+1]) >> 1);
+						out[2] = (byte) ((in[2] + in[nextrow+2]) >> 1);
+						out += 3;
+						in += 3;
+					}
+					in += nextrow; // skip a line
 				}
-				in += nextrow; // skip a line
 			}
+			else
+				Sys_Error("R_MipReduce: unsupported bytesperpixel %i\n", bytesperpixel);
 		}
 		else
-			Sys_Error("GL_MipReduce: desired size already achieved\n");
+			Sys_Error("R_MipReduce: desired size already achieved\n");
 	}
 }
 
-void GL_Upload32(int glslot, byte *data, int width, int height, int flags)
+static void R_Upload(gltexture_t *glt, byte *data)
 {
-	int mip, width2, height2, width3, height3, internalformat;
-	byte *gammadata, *buffer;
+	int mip, width, height, internalformat;
+	byte *prevbuffer;
+	prevbuffer = data;
 
-	if (!r_upload.value)
-		return;
+	glBindTexture(GL_TEXTURE_2D, glt->image->texnum);
+	CHECKGLERROR
 
-	// 3 and 4 are converted by the driver to it's preferred format for the current display mode
-	internalformat = 3;
-	if (flags & TEXF_ALPHA)
-		internalformat = 4;
+	glt->flags &= ~GLTEXF_UPLOAD;
+
+	if (glt->flags & TEXF_FRAGMENT)
+	{
+		if (resizebuffersize < glt->image->width * glt->image->height * glt->image->bytesperpixel)
+		{
+			resizebuffersize = glt->image->width * glt->image->height * glt->image->bytesperpixel;
+			if (resizebuffer)
+				Mem_Free(resizebuffer);
+			if (colorconvertbuffer)
+				Mem_Free(colorconvertbuffer);
+			resizebuffer = Mem_Alloc(texturemempool, resizebuffersize);
+			colorconvertbuffer = Mem_Alloc(texturemempool, resizebuffersize);
+			if (!resizebuffer || !colorconvertbuffer)
+				Host_Error("R_Upload: out of memory\n");
+		}
+
+		if (glt->image->flags & GLTEXF_UPLOAD)
+		{
+			glt->image->flags &= ~GLTEXF_UPLOAD;
+			memset(resizebuffer, 255, glt->image->width * glt->image->height * glt->image->bytesperpixel);
+			glTexImage2D (GL_TEXTURE_2D, 0, glt->image->glinternalformat, glt->image->width, glt->image->height, 0, glt->image->glformat, GL_UNSIGNED_BYTE, resizebuffer);
+			CHECKGLERROR
+			glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, gl_filter_mag);
+			CHECKGLERROR
+			glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, gl_filter_mag);
+			CHECKGLERROR
+		}
 
-	// calculate power of 2 size
-	width2 = 1;while (width2 < width) width2 <<= 1;
-	height2 = 1;while (height2 < height) height2 <<= 1;
-	// calculate final size (mipmapped downward to this)
-	width3 = width2 >> (int) r_picmip.value;
-	height3 = height2 >> (int) r_picmip.value;
-	while (width3 > (int) r_max_size.value) width3 >>= 1;
-	while (height3 > (int) r_max_size.value) height3 >>= 1;
-	if (width3 < 1) width3 = 1;
-	if (height3 < 1) height3 = 1;
+		if (prevbuffer == NULL)
+		{
+			memset(resizebuffer, 255, glt->width * glt->height * glt->image->bytesperpixel);
+			prevbuffer = resizebuffer;
+		}
+		else if (glt->textype->textype == TEXTYPE_QPALETTE)
+		{
+			// promote paletted to RGBA, so we only have to worry about RGB and
+			// RGBA in the rest of this code
+			Image_Copy8bitRGBA(prevbuffer, colorconvertbuffer, glt->width * glt->height, d_8to24table);
+			prevbuffer = colorconvertbuffer;
+		}
 
-	gammadata = qmalloc(width*height*4);
-	buffer = qmalloc(width2*height2*4);
-	if (!gammadata || !buffer)
-		Host_Error("GL_Upload32: out of memory\n");
+		glTexSubImage2D(GL_TEXTURE_2D, 0, glt->x, glt->y, glt->width, glt->height, glt->image->glformat, GL_UNSIGNED_BYTE, prevbuffer);
+		CHECKGLERROR
+		return;
+	}
 
-	Image_CopyRGBAGamma(data, gammadata, width*height);
+	glt->image->flags &= ~GLTEXF_UPLOAD;
 
-	R_ResampleTexture(gammadata, width, height, buffer, width2, height2);
+	// these are rounded up versions of the size to do better resampling
+	width = 1;while(width < glt->width) width *= 2;
+	height = 1;while(height < glt->height) height *= 2;
 
-	qfree(gammadata);
+	if (resizebuffersize < width * height * glt->image->bytesperpixel)
+	{
+		resizebuffersize = width * height * glt->image->bytesperpixel;
+		if (resizebuffer)
+			Mem_Free(resizebuffer);
+		if (colorconvertbuffer)
+			Mem_Free(colorconvertbuffer);
+		resizebuffer = Mem_Alloc(texturemempool, resizebuffersize);
+		colorconvertbuffer = Mem_Alloc(texturemempool, resizebuffersize);
+		if (!resizebuffer || !colorconvertbuffer)
+			Host_Error("R_Upload: out of memory\n");
+	}
 
-	while (width2 > width3 || height2 > height3)
+	if (prevbuffer == NULL)
+	{
+		width = glt->image->width;
+		height = glt->image->height;
+		memset(resizebuffer, 255, width * height * glt->image->bytesperpixel);
+		prevbuffer = resizebuffer;
+	}
+	else
 	{
-		GL_MipReduce(buffer, buffer, width2, height2, width3, height3);
+		if (glt->textype->textype == TEXTYPE_QPALETTE)
+		{
+			// promote paletted to RGBA, so we only have to worry about RGB and
+			// RGBA in the rest of this code
+			Image_Copy8bitRGBA(prevbuffer, colorconvertbuffer, glt->width * glt->height, d_8to24table);
+			prevbuffer = colorconvertbuffer;
+		}
+
+		if (glt->width != width || glt->height != height)
+		{
+			R_ResampleTexture(prevbuffer, glt->width, glt->height, resizebuffer, width, height, glt->image->bytesperpixel);
+			prevbuffer = resizebuffer;
+		}
 
-		if (width2 > width3)
-			width2 >>= 1;
-		if (height2 > height3)
-			height2 >>= 1;
+		// apply picmip/max_size limitations
+		while (width > glt->image->width || height > glt->image->height)
+		{
+			R_MipReduce(prevbuffer, resizebuffer, &width, &height, glt->image->width, glt->image->height, glt->image->bytesperpixel);
+			prevbuffer = resizebuffer;
+		}
 	}
 
-	glBindTexture(GL_TEXTURE_2D, glslot);
+	// 3 and 4 are converted by the driver to it's preferred format for the current display mode
+	internalformat = 3;
+	if (glt->flags & TEXF_ALPHA)
+		internalformat = 4;
+
 	mip = 0;
-	glTexImage2D(GL_TEXTURE_2D, mip++, internalformat, width2, height2, 0, GL_RGBA, GL_UNSIGNED_BYTE, buffer);
-	if (flags & TEXF_MIPMAP)
+	glTexImage2D(GL_TEXTURE_2D, mip++, internalformat, width, height, 0, glt->image->glformat, GL_UNSIGNED_BYTE, prevbuffer);
+	CHECKGLERROR
+	if (glt->flags & TEXF_MIPMAP)
 	{
-		while (width2 > 1 || height2 > 1)
+		while (width > 1 || height > 1)
 		{
-			GL_MipReduce(buffer, buffer, width2, height2, 1, 1);
+			R_MipReduce(prevbuffer, resizebuffer, &width, &height, 1, 1, glt->image->bytesperpixel);
+			prevbuffer = resizebuffer;
 
-			if (width2 > 1)
-				width2 >>= 1;
-			if (height2 > 1)
-				height2 >>= 1;
-
-			glTexImage2D(GL_TEXTURE_2D, mip++, internalformat, width2, height2, 0, GL_RGBA, GL_UNSIGNED_BYTE, buffer);
+			glTexImage2D(GL_TEXTURE_2D, mip++, internalformat, width, height, 0, glt->image->glformat, GL_UNSIGNED_BYTE, prevbuffer);
+			CHECKGLERROR
 		}
 
 		glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, gl_filter_min);
-		glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, gl_filter_max);
+		CHECKGLERROR
+		glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, gl_filter_mag);
+		CHECKGLERROR
 	}
 	else
 	{
-		glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, gl_filter_max);
-		glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, gl_filter_max);
+		glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, gl_filter_mag);
+		CHECKGLERROR
+		glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, gl_filter_mag);
+		CHECKGLERROR
 	}
-	glTexEnvf(GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE);
-
-	qfree(buffer);
 }
 
-void GL_Upload8 (int glslot, byte *data, int width, int height, int flags)
+static void R_FindImageForTexture(gltexture_t *glt)
 {
-	byte *data32;
-	data32 = qmalloc(width*height*4);
-	Image_Copy8bitRGBA(data, data32, width*height, d_8to24table);
-	GL_Upload32(glslot, data32, width, height, flags);
-	qfree(data32);
+	int i, j, best, best2, x, y, w, h;
+	textypeinfo_t *texinfo;
+	gltexturepool_t *pool;
+	gltextureimage_t *image, **imagechainpointer;
+	texinfo = glt->textype;
+	pool = glt->pool;
+
+	x = 0;
+	y = 0;
+	w = glt->width;
+	h = glt->height;
+	if (glt->flags & TEXF_FRAGMENT)
+	{
+		for (imagechainpointer = &pool->imagechain;*imagechainpointer;imagechainpointer = &(*imagechainpointer)->imagechain)
+		{
+			image = *imagechainpointer;
+			if (image->type != GLIMAGETYPE_FRAGMENTS)
+				continue;
+			if (image->glformat != texinfo->glformat || image->glinternalformat != texinfo->glinternalformat)
+				continue;
+
+			// got a fragments texture, find a place in it if we can
+			best = block_size;
+			for (best = block_size, i = 0;i < block_size - w;i += texinfo->align)
+			{
+				for (best2 = 0, j = 0;j < w;j++)
+				{
+					if (image->blockallocation[i+j] >= best)
+						break;
+					if (best2 < image->blockallocation[i+j])
+						best2 = image->blockallocation[i+j];
+				}
+				if (j == w)
+				{
+					// this is a valid spot
+					x = i;
+					y = best = best2;
+				}
+			}
+
+			if (best + h > block_size)
+				continue;
+
+			for (i = 0;i < w;i++)
+				image->blockallocation[x + i] = best + h;
+
+			glt->x = x;
+			glt->y = y;
+			glt->image = image;
+			image->texturecount++;
+			return;
+		}
+
+		image = Mem_Alloc(texturemempool, sizeof(gltextureimage_t));
+		if (image == NULL)
+			Sys_Error("R_FindImageForTexture: ran out of memory\n");
+		//memset(image, 0, sizeof(*image));
+		image->type = GLIMAGETYPE_FRAGMENTS;
+		image->width = block_size;
+		image->height = block_size;
+		image->blockallocation = Mem_Alloc(texturemempool, block_size * sizeof(short));
+		memset(image->blockallocation, 0, block_size * sizeof(short));
+
+		x = 0;
+		y = 0;
+		for (i = 0;i < w;i++)
+			image->blockallocation[x + i] = y + h;
+	}
+	else
+	{
+		for (imagechainpointer = &pool->imagechain;*imagechainpointer;imagechainpointer = &(*imagechainpointer)->imagechain);
+
+		image = Mem_Alloc(texturemempool, sizeof(gltextureimage_t));
+		if (image == NULL)
+			Sys_Error("R_FindImageForTexture: ran out of memory\n");
+		//memset(image, 0, sizeof(*image));
+		image->type = GLIMAGETYPE_TILE;
+		image->blockallocation = NULL;
+
+		// calculate final size
+		if (r_max_size.integer > realmaxsize)
+			Cvar_SetValue("r_max_size", realmaxsize);
+		image->width = 1;while (image->width < glt->width) image->width <<= 1;
+		image->height = 1;while (image->height < glt->height) image->height <<= 1;
+		image->width >>= r_picmip.integer;while (image->width > r_max_size.integer) image->width >>= 1;
+		image->height >>= r_picmip.integer;while (image->height > r_max_size.integer) image->height >>= 1;
+		if (image->width < 1) image->width = 1;
+		if (image->height < 1) image->height = 1;
+	}
+	image->glinternalformat = texinfo->glinternalformat;
+	image->glformat = texinfo->glformat;
+	image->flags = (glt->flags & (TEXF_MIPMAP | TEXF_ALPHA)) | GLTEXF_UPLOAD;
+	image->bytesperpixel = texinfo->internalbytesperpixel;
+	for (i = 1;i < MAX_GLTEXTURES;i++)
+		if (!gltexnuminuse[i])
+			break;
+	if (i < MAX_GLTEXTURES)
+		gltexnuminuse[image->texnum = i] = true;
+	else
+		Sys_Error("R_FindImageForTexture: ran out of GL textures\n");
+	*imagechainpointer = image;
+	image->texturecount++;
+
+	glt->x = x;
+	glt->y = y;
+	glt->image = image;
 }
 
-void GL_UploadTexture (gltexture_t *glt)
+// note: R_FindImageForTexture must be called before this
+static void R_UploadTexture (gltexture_t *glt)
 {
-	if (glt->inputtexels == NULL)
+	if (!(glt->flags & (GLTEXF_UPLOAD | GLTEXF_PROCEDURAL)))
 		return;
-	if (glt->flags & TEXF_RGBA)
-		GL_Upload32(glt->texnum, glt->inputtexels, glt->width, glt->height, glt->flags);
-	else // 8bit
-		GL_Upload8(glt->texnum, glt->inputtexels, glt->width, glt->height, glt->flags);
-	glt->internalflags |= GLTEXF_UPLOADED;
-	qfree(glt->inputtexels);
-	glt->inputtexels = NULL;
-}
 
-int R_CalcTexelDataSize (int width, int height, int mipmapped)
-{
-	int width2, height2, size;
-	width2 = 1;while (width2 < width) width2 <<= 1;
-	height2 = 1;while (height2 < height) height2 <<= 1;
-	// calculate final size (mipmapped downward to this)
-	width2 >>= (int) r_picmip.value;
-	height2 >>= (int) r_picmip.value;
-	while (width2 > (int) r_max_size.value) width2 >>= 1;
-	while (height2 > (int) r_max_size.value) height2 >>= 1;
-	if (width2 < 1) width2 = 1;
-	if (height2 < 1) height2 = 1;
+	if (glt->flags & GLTEXF_PROCEDURAL)
+	{
+		if (glt->generate)
+		{
+			if (texturebuffersize < glt->width * glt->height * glt->textype->inputbytesperpixel)
+			{
+				if (texturebuffer)
+					Mem_Free(texturebuffer);
+				texturebuffersize = glt->width * glt->height * glt->textype->inputbytesperpixel;
+				texturebuffer = Mem_Alloc(texturemempool, texturebuffersize);
+			}
 
-	size = 0;
-	if (mipmapped)
+			glt->generate(texturebuffer, glt->width, glt->height, (void *)glt->proceduraldata, glt->proceduraldatasize);
+		}
+	}
+	else
 	{
-		while (width2 > 1 || height2 > 1)
+		R_Upload(glt, glt->inputtexels);
+		if (glt->inputtexels)
 		{
-			size += width2 * height2;
-			if (width2 > 1)
-				width2 >>= 1;
-			if (height2 > 1)
-				height2 >>= 1;
+			Mem_Free(glt->inputtexels);
+			glt->inputtexels = NULL;
+			glt->flags |= GLTEXF_DESTROYED;
 		}
-		size++; // count the last 1x1 mipmap
+		else if (glt->flags & GLTEXF_DESTROYED)
+			Con_Printf("R_UploadTexture: Texture %s already uploaded and destroyed.  Can not upload original image again.  Uploaded blank texture.\n", glt->identifier);
+	}
+}
+
+static gltexture_t *R_SetupTexture(gltexturepool_t *pool, char *identifier, int crc, int width, int height, int flags, textypeinfo_t *texinfo, byte *data, int (*generate)(byte *buffer, int width, int height, void *proceduraldata, int proceduraldatasize), void *proceduraldata, int proceduraldatasize)
+{
+	gltexture_t *glt;
+	glt = Mem_Alloc(texturemempool, sizeof(gltexture_t));
+	//memset(glt, 0, sizeof(gltexture_t));
+	if (identifier)
+	{
+		glt->identifier = Mem_Alloc(texturemempool, strlen(identifier)+1);
+		strcpy (glt->identifier, identifier);
 	}
 	else
-		size = width2*height2;
+		glt->identifier = NULL;
+	glt->pool = pool;
+	glt->chain = pool->gltchain;
+	pool->gltchain = glt;
+	glt->crc = crc;
+	glt->width = width;
+	glt->height = height;
+	glt->flags = flags;
+	glt->textype = texinfo;
 
-	size *= 4; // RGBA
+	if (data)
+	{
+		glt->inputtexels = Mem_Alloc(texturemempool, glt->width * glt->height * texinfo->inputbytesperpixel);
+		if (glt->inputtexels == NULL)
+			Sys_Error("R_SetupTexture: out of memory\n");
+		memcpy(glt->inputtexels, data, glt->width * glt->height * texinfo->inputbytesperpixel);
+	}
+	else
+		glt->inputtexels = NULL;
 
-	return size;
+	glt->generate = generate;
+	glt->proceduraldatasize = proceduraldatasize;
+	if (proceduraldatasize)
+	{
+		glt->proceduraldata = Mem_Alloc(texturemempool, proceduraldatasize);
+		if (glt->proceduraldata == NULL)
+			Sys_Error("R_SetupTexture: out of memory\n");
+	}
+	else
+		glt->proceduraldata = NULL;
+
+	R_FindImageForTexture(glt);
+	R_PrecacheTexture(glt);
+
+	return glt;
 }
 
 /*
 ================
-GL_LoadTexture
+R_LoadTexture
 ================
 */
-rtexture_t *R_LoadTexture (char *identifier, int width, int height, byte *data, int flags)
+rtexture_t *R_LoadTexture (rtexturepool_t *rtexturepool, char *identifier, int width, int height, byte *data, int textype, int flags)
 {
-	int				i, bytesperpixel, internalflags, precache;
-	gltexture_t		*glt;
-	unsigned short	crc;
+	int i;
+	gltexture_t *glt;
+	gltexturepool_t *pool = (gltexturepool_t *)rtexturepool;
+	textypeinfo_t *texinfo;
+	unsigned short crc;
 
-	if (isDedicated)
+	if (cls.state == ca_dedicated)
 		return NULL;
 
-	if (!identifier[0])
-		Host_Error("R_LoadTexture: no identifier\n");
-	if (data == NULL)
-		Host_Error("R_LoadTexture: \"%s\" has no data\n", identifier);
+	texinfo = R_GetTexTypeInfo(textype, flags);
+
+	// data can be NULL
+//	if (data == NULL)
+//		Host_Error("R_LoadTexture: \"%s\" has no data\n", identifier);
+
+	if (flags & TEXF_FRAGMENT)
+	{
+		if (width > block_size || height > block_size)
+			Host_Error("R_LoadTexture: fragment too big, must be no more than %dx%d\n", block_size, block_size);
+		if ((width * texinfo->internalbytesperpixel) & 3)
+			Host_Error("R_LoadTexture: incompatible width for fragment");
+	}
 
 	// clear the alpha flag if the texture has no transparent pixels
-	if (flags & TEXF_ALPHA)
+	switch(textype)
 	{
-		int alpha = false;
-		if (flags & TEXF_RGBA)
+	case TEXTYPE_QPALETTE:
+		if (flags & TEXF_ALPHA)
 		{
+			flags &= ~TEXF_ALPHA;
 			for (i = 0;i < width * height;i++)
 			{
-				if (data[i * 4 + 3] < 255)
+				if (data[i] == 255)
 				{
-					alpha = true;
+					flags |= TEXF_ALPHA;
 					break;
 				}
 			}
 		}
-		else
+		break;
+	case TEXTYPE_RGB:
+		if (flags & TEXF_ALPHA)
+			Host_Error("R_LoadTexture: RGB has no alpha, don't specify TEXF_ALPHA\n");
+		break;
+	case TEXTYPE_RGBA:
+		if (flags & TEXF_ALPHA)
 		{
+			flags &= ~TEXF_ALPHA;
 			for (i = 0;i < width * height;i++)
 			{
-				if (data[i] == 255)
+				if (data[i * 4 + 3] < 255)
 				{
-					alpha = true;
+					flags |= TEXF_ALPHA;
 					break;
 				}
 			}
 		}
-		if (!alpha)
-			flags &= ~TEXF_ALPHA;
+		break;
+	default:
+		Host_Error("R_LoadTexture: unknown texture type\n");
 	}
 
-	if (flags & TEXF_RGBA)
-		bytesperpixel = 4;
+	// LordHavoc: do a CRC to confirm the data really is the same as previous occurances.
+	if (data == NULL)
+		crc = 0;
 	else
-		bytesperpixel = 1;
+		crc = CRC_Block(data, width*height*texinfo->inputbytesperpixel);
 
-	internalflags = 0;
-	if (r_lerpimages.value != 0)
-		internalflags |= GLTEXF_LERPED;
-
-	// 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
-	for (i=0, glt=gltextures ; i<numgltextures ; i++, glt++)
+	if (identifier && (glt = R_FindTexture(pool, identifier)))
 	{
-		if (!strcmp (identifier, glt->identifier))
-		{
-			// LordHavoc: everyone hates cache mismatchs, so I fixed it
-			if (crc != glt->crc || width != glt->width || height != glt->height || flags != glt->flags)
-			{
-				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 (internalflags != glt->internalflags)
-				goto GL_LoadTexture_setup; // drop out with glt pointing to the texture to replace
-			return (rtexture_t *)glt;
-		}
+		if (crc == glt->crc && width == glt->width && height == glt->height && texinfo == glt->textype && ((flags ^ glt->flags) & TEXF_IMPORTANTBITS) == 0 && ((flags ^ glt->flags) & GLTEXF_IMPORTANTBITS) == 0)
+			return (rtexture_t *)glt; // exact match, use existing
+		Con_Printf("R_LoadTexture: cache mismatch on %s, replacing old texture\n", identifier);
+		R_FreeTexture(glt);
 	}
 
-/*
-	if (freeglt)
+	return (rtexture_t *)R_SetupTexture(pool, identifier, crc, width, height, flags | GLTEXF_UPLOAD, texinfo, data, NULL, NULL, 0);
+}
+
+rtexture_t *R_ProceduralTexture (rtexturepool_t *rtexturepool, char *identifier, int width, int height, int textype, int flags, int (*generate)(byte *buffer, int width, int height, void *proceduraldata, int proceduraldatasize), void *proceduraldata, int proceduraldatasize)
+{
+	gltexture_t		*glt;
+	gltexturepool_t	*pool = (gltexturepool_t *)rtexturepool;
+	textypeinfo_t	*texinfo;
+
+	if (cls.state == ca_dedicated)
+		return NULL;
+
+	texinfo = R_GetTexTypeInfo(textype, flags);
+
+	// no function is supported, for odd uses
+//	if (generate == NULL)
+//		Host_Error("R_ProceduralTexture: \"%s\" has no generate function\n", identifier);
+	if (flags & TEXF_FRAGMENT)
 	{
-		glt = freeglt;
-		strcpy (glt->identifier, identifier);
+		if (width > block_size || height > block_size)
+			Host_Error("R_ProceduralTexture: fragment too big, must be no more than %dx%d\n", block_size, block_size);
+		if ((width * texinfo->internalbytesperpixel) & 3)
+			Host_Error("R_ProceduralTexture: incompatible width for fragment");
 	}
-	else
+
+	// see if the texture is already present
+	if (identifier && (glt = R_FindTexture(pool, identifier)))
 	{
-*/
-		// 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 = gl_texture_number++;
-		strcpy (glt->identifier, identifier);
-//	}
+		if (width == glt->width && height == glt->height && texinfo == glt->textype && ((flags ^ glt->flags) & TEXF_IMPORTANTBITS) == 0 && ((flags ^ glt->flags) & GLTEXF_IMPORTANTBITS) == 0)
+			return (rtexture_t *)glt; // exact match, use existing
+		Con_DPrintf("R_LoadTexture: cache mismatch, replacing old texture\n");
+		R_FreeTexture(glt);
+	}
 
-// LordHavoc: label to drop out of the loop into the setup code
-GL_LoadTexture_setup:
-	glt->crc = crc; // LordHavoc: used to verify textures are identical
-	glt->width = width;
-	glt->height = height;
-	glt->flags = flags;
-	glt->internalflags = internalflags;
+	return (rtexture_t *)R_SetupTexture(pool, identifier, 0, width, height, flags | GLTEXF_PROCEDURAL | GLTEXF_UPLOAD, texinfo, NULL, generate, proceduraldata, proceduraldatasize);
+}
 
-	if (glt->inputtexels)
-		qfree(glt->inputtexels);
-	glt->inputtexeldatasize = width*height*bytesperpixel;
-	glt->inputtexels = qmalloc(glt->inputtexeldatasize);
+int R_TextureHasAlpha(rtexture_t *rt)
+{
+	gltexture_t *glt;
+	if (!rt)
+		return false;
+	glt = (gltexture_t *)rt;
+	return (glt->flags & TEXF_ALPHA) != 0;
+}
 
-	memcpy(glt->inputtexels, data, glt->inputtexeldatasize);
+int R_TextureWidth(rtexture_t *rt)
+{
+	if (!rt)
+		return false;
+	return ((gltexture_t *)rt)->width;
+}
 
-	glt->texeldatasize = R_CalcTexelDataSize(width, height, flags & TEXF_MIPMAP);
+int R_TextureHeight(rtexture_t *rt)
+{
+	if (!rt)
+		return false;
+	return ((gltexture_t *)rt)->height;
+}
 
-	precache = false;
-	if (flags & TEXF_ALWAYSPRECACHE)
-		precache = true;
-	else if (r_precachetextures.value >= 1)
+void R_GetFragmentLocation(rtexture_t *rt, int *x, int *y, float *fx1, float *fy1, float *fx2, float *fy2)
+{
+	gltexture_t *glt;
+	float iwidth, iheight;
+	if (cls.state == ca_dedicated)
 	{
-		if (flags & TEXF_PRECACHE)
-			precache = true;
-		if (r_precachetextures.value >= 2)
-			precache = true;
+		if (x)
+			*x = 0;
+		if (y)
+			*y = 0;
+		if (fx1 || fy1 || fx2 || fy2)
+		{
+			if (fx1)
+				*fx1 = 0;
+			if (fy1)
+				*fy1 = 0;
+			if (fx2)
+				*fx2 = 1;
+			if (fy2)
+				*fy2 = 1;
+		}
+		return;
 	}
+	if (!rt)
+		Host_Error("R_GetFragmentLocation: no texture supplied\n");
+	glt = (gltexture_t *)rt;
+	if (glt->flags & TEXF_FRAGMENT)
+	{
+		if (x)
+			*x = glt->x;
+		if (y)
+			*y = glt->y;
+		if (fx1 || fy1 || fx2 || fy2)
+		{
+			iwidth = 1.0f / glt->image->width;
+			iheight = 1.0f / glt->image->height;
+			if (fx1)
+				*fx1 = glt->x * iwidth;
+			if (fy1)
+				*fy1 = glt->y * iheight;
+			if (fx2)
+				*fx2 = (glt->x + glt->width) * iwidth;
+			if (fy2)
+				*fy2 = (glt->y + glt->height) * iheight;
+		}
+	}
+	else
+	{
+		if (x)
+			*x = 0;
+		if (y)
+			*y = 0;
+		if (fx1 || fy1 || fx2 || fy2)
+		{
+			if (fx1)
+				*fx1 = 0;
+			if (fy1)
+				*fy1 = 0;
+			if (fx2)
+				*fx2 = 1;
+			if (fy2)
+				*fy2 = 1;
+		}
+	}
+}
 
-	if (precache)
-		GL_UploadTexture(glt);
-
-	return (rtexture_t *)glt;
+int R_CompatibleFragmentWidth(int width, int textype, int flags)
+{
+	textypeinfo_t *texinfo = R_GetTexTypeInfo(textype, flags);
+	while ((width * texinfo->internalbytesperpixel) & 3)
+		width++;
+	return width;
 }
 
-// only used for lightmaps
-int R_GetTextureSlots(int count)
+void R_UpdateTexture(rtexture_t *rt, byte *data)
 {
-	int i;
-	i = gl_texture_number;
-	gl_texture_number += count;
-	return i;
+	gltexture_t *glt;
+	if (rt == NULL)
+		Host_Error("R_UpdateTexture: no texture supplied\n");
+	if (data == NULL)
+		Host_Error("R_UpdateTexture: no data supplied\n");
+	glt = (gltexture_t *)rt;
+	if (!(glt->flags & GLTEXF_PROCEDURAL))
+	{
+		if (glt->inputtexels == NULL)
+		{
+			glt->inputtexels = Mem_Alloc(texturemempool, glt->width * glt->height * glt->textype->inputbytesperpixel);
+			if (glt->inputtexels == NULL)
+				Host_Error("R_UpdateTexture: ran out of memory\n");
+		}
+		memcpy(glt->inputtexels, data, glt->width * glt->height * glt->textype->inputbytesperpixel);
+	}
+	R_Upload(glt, data);
 }
+