-#include "qdata.h"\r
-#include "inout.h"\r
-\r
-char mip_prefix[1024]; // directory to dump the textures in\r
-\r
-qboolean colormap_issued;\r
-byte colormap_palette[768];\r
-\r
-/*\r
-==============\r
-RemapZero\r
-\r
-Replaces all 0 bytes in an image with the closest palette entry.\r
-This is because NT won't let us change index 0, so any palette\r
-animation leaves those pixels untouched.\r
-==============\r
-*/\r
-void RemapZero (byte *pixels, byte *palette, int width, int height)\r
-{\r
- int i, c;\r
- int alt_zero;\r
- int value, best;\r
-\r
- alt_zero = 0;\r
- best = 9999999;\r
- for (i=1 ; i<255 ; i++)\r
- {\r
- value = palette[i*3+0]+palette[i*3+1]+palette[i*3+2];\r
- if (value < best)\r
- {\r
- best = value;\r
- alt_zero = i;\r
- }\r
- }\r
-\r
- c = width*height;\r
- for (i=0 ; i<c ; i++)\r
- if (pixels[i] == 0)\r
- pixels[i] = alt_zero;\r
-}\r
-\r
-/*\r
-==============\r
-Cmd_Grab\r
-\r
-$grab filename x y width height\r
-==============\r
-*/\r
-void Cmd_Grab (void)\r
-{\r
- int xl,yl,w,h,y;\r
- byte *cropped;\r
- char savename[1024];\r
- char dest[1024];\r
-\r
- GetToken (false);\r
-\r
- if (token[0] == '/' || token[0] == '\\')\r
- sprintf (savename, "%s%s.pcx", gamedir, token+1);\r
- else\r
- sprintf (savename, "%spics/%s.pcx", gamedir, token);\r
-\r
- if (g_release)\r
- {\r
- if (token[0] == '/' || token[0] == '\\')\r
- sprintf (dest, "%s.pcx", token+1);\r
- else\r
- sprintf (dest, "pics/%s.pcx", token);\r
-\r
- ReleaseFile (dest);\r
- return;\r
- }\r
-\r
- GetToken (false);\r
- xl = atoi (token);\r
- GetToken (false);\r
- yl = atoi (token);\r
- GetToken (false);\r
- w = atoi (token);\r
- GetToken (false);\r
- h = atoi (token);\r
-\r
- if (xl<0 || yl<0 || w<0 || h<0 || xl+w>byteimagewidth || yl+h>byteimageheight)\r
- Error ("GrabPic: Bad size: %i, %i, %i, %i",xl,yl,w,h);\r
-\r
- // crop it to the proper size\r
- cropped = malloc (w*h);\r
- for (y=0 ; y<h ; y++)\r
- {\r
- memcpy (cropped+y*w, byteimage+(y+yl)*byteimagewidth+xl, w);\r
- }\r
-\r
- // save off the new image\r
- printf ("saving %s\n", savename);\r
- CreatePath (savename);\r
- WritePCXfile (savename, cropped, w, h, lbmpalette);\r
-\r
- free (cropped);\r
-}\r
-\r
-/*\r
-==============\r
-Cmd_Raw\r
-\r
-$grab filename x y width height\r
-==============\r
-*/\r
-void Cmd_Raw (void)\r
-{\r
- int xl,yl,w,h,y;\r
- byte *cropped;\r
- char savename[1024];\r
- char dest[1024];\r
-\r
- GetToken (false);\r
-\r
- sprintf (savename, "%s%s.lmp", gamedir, token);\r
-\r
- if (g_release)\r
- {\r
- sprintf (dest, "%s.lmp", token);\r
- ReleaseFile (dest);\r
- return;\r
- }\r
-\r
- GetToken (false);\r
- xl = atoi (token);\r
- GetToken (false);\r
- yl = atoi (token);\r
- GetToken (false);\r
- w = atoi (token);\r
- GetToken (false);\r
- h = atoi (token);\r
-\r
- if (xl<0 || yl<0 || w<0 || h<0 || xl+w>byteimagewidth || yl+h>byteimageheight)\r
- Error ("GrabPic: Bad size: %i, %i, %i, %i",xl,yl,w,h);\r
-\r
- // crop it to the proper size\r
- cropped = malloc (w*h);\r
- for (y=0 ; y<h ; y++)\r
- {\r
- memcpy (cropped+y*w, byteimage+(y+yl)*byteimagewidth+xl, w);\r
- }\r
-\r
- // save off the new image\r
- printf ("saving %s\n", savename);\r
- CreatePath (savename);\r
-\r
- SaveFile (savename, cropped, w*h);\r
-\r
- free (cropped);\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
-COLORMAP GRABBING\r
-\r
-=============================================================================\r
-*/\r
-\r
-/*\r
-===============\r
-BestColor\r
-===============\r
-*/\r
-byte BestColor (int r, int g, int b, int start, int stop)\r
-{\r
- int i;\r
- int dr, dg, db;\r
- int bestdistortion, distortion;\r
- int bestcolor;\r
- byte *pal;\r
-\r
-//\r
-// let any color go to 0 as a last resort\r
-//\r
- bestdistortion = 256*256*4;\r
- bestcolor = 0;\r
-\r
- pal = colormap_palette + start*3;\r
- for (i=start ; i<= stop ; i++)\r
- {\r
- dr = r - (int)pal[0];\r
- dg = g - (int)pal[1];\r
- db = b - (int)pal[2];\r
- pal += 3;\r
- distortion = dr*dr + dg*dg + db*db;\r
- if (distortion < bestdistortion)\r
- {\r
- if (!distortion)\r
- return i; // perfect match\r
-\r
- bestdistortion = distortion;\r
- bestcolor = i;\r
- }\r
- }\r
-\r
- return bestcolor;\r
-}\r
-\r
-\r
-/*\r
-==============\r
-Cmd_Colormap\r
-\r
-$colormap filename\r
-\r
- the brightes colormap is first in the table (FIXME: reverse this now?)\r
-\r
- 64 rows of 256 : lightmaps\r
- 256 rows of 256 : translucency table\r
-==============\r
-*/\r
-void Cmd_Colormap (void)\r
-{\r
- int levels, brights;\r
- int l, c;\r
- float frac, red, green, blue;\r
- float range;\r
- byte *cropped, *lump_p;\r
- char savename[1024];\r
- char dest[1024];\r
-\r
- colormap_issued = true;\r
- if (!g_release)\r
- memcpy (colormap_palette, lbmpalette, 768);\r
-\r
- if (!TokenAvailable ())\r
- { // just setting colormap_issued\r
- return;\r
- }\r
-\r
- GetToken (false);\r
- sprintf (savename, "%spics/%s.pcx", gamedir, token);\r
-\r
- if (g_release)\r
- {\r
- sprintf (dest, "pics/%s.pcx", token);\r
- ReleaseFile (dest);\r
- return;\r
- }\r
-\r
- range = 2;\r
- levels = 64;\r
- brights = 1; // ignore 255 (transparent)\r
-\r
- cropped = malloc((levels+256)*256);\r
- lump_p = cropped;\r
-\r
-// shaded levels\r
- for (l=0;l<levels;l++)\r
- {\r
- frac = range - range*(float)l/(levels-1);\r
- for (c=0 ; c<256-brights ; c++)\r
- {\r
- red = lbmpalette[c*3];\r
- green = lbmpalette[c*3+1];\r
- blue = lbmpalette[c*3+2];\r
-\r
- red = (int)(red*frac+0.5);\r
- green = (int)(green*frac+0.5);\r
- blue = (int)(blue*frac+0.5);\r
- \r
-//\r
-// note: 254 instead of 255 because 255 is the transparent color, and we\r
-// don't want anything remapping to that\r
-// don't use color 0, because NT can't remap that (or 255)\r
-//\r
- *lump_p++ = BestColor(red,green,blue, 1, 254);\r
- }\r
-\r
- // fullbrights allways stay the same\r
- for ( ; c<256 ; c++)\r
- *lump_p++ = c;\r
- }\r
- \r
-// 66% transparancy table\r
- for (l=0;l<255;l++)\r
- {\r
- for (c=0 ; c<255 ; c++)\r
- {\r
- red = lbmpalette[c*3]*0.33 + lbmpalette[l*3]*0.66;\r
- green = lbmpalette[c*3+1]*0.33 + lbmpalette[l*3+1]*0.66;\r
- blue = lbmpalette[c*3+2]*0.33 + lbmpalette[l*3+2]*0.66;\r
-\r
- *lump_p++ = BestColor(red,green,blue, 1, 254);\r
- }\r
- *lump_p++ = 255;\r
- }\r
- for (c=0 ; c<256 ; c++)\r
- *lump_p++ = 255;\r
- \r
- // save off the new image\r
- printf ("saving %s\n", savename);\r
- CreatePath (savename);\r
- WritePCXfile (savename, cropped, 256, levels+256, lbmpalette);\r
-\r
- free (cropped);\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
-MIPTEX GRABBING\r
-\r
-=============================================================================\r
-*/\r
-\r
-byte pixdata[256];\r
-\r
-int d_red, d_green, d_blue;\r
-\r
-byte palmap[32][32][32];\r
-qboolean palmap_built;\r
-\r
-/*\r
-=============\r
-FindColor\r
-=============\r
-*/\r
-int FindColor (int r, int g, int b)\r
-{\r
- int bestcolor;\r
-\r
- if (r > 255)\r
- r = 255;\r
- if (r < 0)\r
- r = 0;\r
- if (g > 255)\r
- g = 255;\r
- if (g < 0)\r
- g = 0;\r
- if (b > 255)\r
- b = 255;\r
- if (b < 0)\r
- b = 0;\r
-#ifndef TABLECOLORS\r
- bestcolor = BestColor (r, g, b, 0, 254);\r
-#else\r
- bestcolor = palmap[r>>3][g>>3][b>>3];\r
-#endif\r
-\r
- return bestcolor;\r
-}\r
-\r
-\r
-void BuildPalmap (void)\r
-{\r
-#ifdef TABLECOLORS\r
- int r, g, b;\r
- int bestcolor;\r
-\r
- if (palmap_built)\r
- return;\r
- palmap_built = true;\r
-\r
- for (r=4 ; r<256 ; r+=8)\r
- {\r
- for (g=4 ; g<256 ; g+=8)\r
- {\r
- for (b=4 ; b<256 ; b+=8)\r
- {\r
- bestcolor = BestColor (r, g, b, 1, 254);\r
- palmap[r>>3][g>>3][b>>3] = bestcolor;\r
- }\r
- }\r
- }\r
-#endif\r
-\r
- if (!colormap_issued)\r
- Error ("You must issue a $colormap command first");\r
-\r
-}\r
-\r
-/*\r
-=============\r
-AveragePixels\r
-=============\r
-*/\r
-byte AveragePixels (int count)\r
-{\r
- int r,g,b;\r
- int i;\r
- int vis;\r
- int pix;\r
- int bestcolor;\r
- byte *pal;\r
- int fullbright;\r
- \r
- vis = 0;\r
- r = g = b = 0;\r
- fullbright = 0;\r
- for (i=0 ; i<count ; i++)\r
- {\r
- pix = pixdata[i];\r
- \r
- r += lbmpalette[pix*3];\r
- g += lbmpalette[pix*3+1];\r
- b += lbmpalette[pix*3+2];\r
- vis++;\r
- }\r
- \r
- r /= vis;\r
- g /= vis;\r
- b /= vis;\r
-\r
- // error diffusion\r
- r += d_red;\r
- g += d_green;\r
- b += d_blue;\r
- \r
-//\r
-// find the best color\r
-//\r
- bestcolor = FindColor (r, g, b);\r
-\r
- // error diffusion\r
- pal = colormap_palette + bestcolor*3;\r
- d_red = r - (int)pal[0];\r
- d_green = g - (int)pal[1];\r
- d_blue = b - (int)pal[2];\r
-\r
- return bestcolor;\r
-}\r
-\r
-\r
-typedef enum\r
-{\r
- pt_contents,\r
- pt_flags,\r
- pt_animvalue,\r
- pt_flagvalue\r
-} parmtype_t;\r
-\r
-typedef struct\r
-{\r
- char *name;\r
- int flags;\r
- parmtype_t type;\r
-} mipparm_t;\r
-\r
-mipparm_t mipparms[] =\r
-{\r
- // utility content attributes\r
- {"water", CONTENTS_WATER, pt_contents},\r
- {"slime", CONTENTS_SLIME, pt_contents}, // mildly damaging\r
- {"lava", CONTENTS_LAVA, pt_contents}, // very damaging\r
- {"window", CONTENTS_WINDOW, pt_contents}, // solid, but doesn't eat internal textures\r
- {"mist", CONTENTS_MIST, pt_contents}, // non-solid window\r
- {"origin", CONTENTS_ORIGIN, pt_contents}, // center of rotating brushes\r
- {"playerclip", CONTENTS_PLAYERCLIP, pt_contents},\r
- {"monsterclip", CONTENTS_MONSTERCLIP, pt_contents},\r
-\r
- // utility surface attributes\r
- {"hint", SURF_HINT, pt_flags},\r
- {"skip", SURF_SKIP, pt_flags},\r
- {"light", SURF_LIGHT, pt_flagvalue}, // value is the light quantity\r
-\r
- // texture chaining\r
- {"anim", 0, pt_animvalue}, // value is the next animation\r
-\r
- // server attributes\r
- {"slick", SURF_SLICK, pt_flags},\r
-\r
- // drawing attributes\r
- {"sky", SURF_SKY, pt_flags},\r
- {"warping", SURF_WARP, pt_flags}, // only valid with 64x64 textures\r
- {"trans33", SURF_TRANS33, pt_flags}, // translucent should allso set fullbright\r
- {"trans66", SURF_TRANS66, pt_flags},\r
- {"flowing", SURF_FLOWING, pt_flags}, // flow direction towards angle 0\r
- {"nodraw", SURF_NODRAW, pt_flags}, // for clip textures and trigger textures\r
-\r
- {NULL, 0, pt_contents}\r
-};\r
-\r
-\r
-\r
-/*\r
-==============\r
-Cmd_Mip\r
-\r
-$mip filename x y width height <OPTIONS>\r
-must be multiples of sixteen\r
-SURF_WINDOW\r
-==============\r
-*/\r
-void Cmd_Mip (void)\r
-{\r
- int x,y,xl,yl,xh,yh,w,h;\r
- byte *screen_p, *source;\r
- int linedelta;\r
- miptex_t *qtex;\r
- int miplevel, mipstep;\r
- int xx, yy, pix;\r
- int count;\r
- int flags, value, contents;\r
- mipparm_t *mp;\r
- char lumpname[64];\r
- byte *lump_p;\r
- char filename[1024];\r
- char animname[64];\r
-\r
- GetToken (false);\r
- strcpy (lumpname, token);\r
- \r
- GetToken (false);\r
- xl = atoi (token);\r
- GetToken (false);\r
- yl = atoi (token);\r
- GetToken (false);\r
- w = atoi (token);\r
- GetToken (false);\r
- h = atoi (token);\r
-\r
- if ( (w & 15) || (h & 15) )\r
- Error ("line %i: miptex sizes must be multiples of 16", scriptline);\r
-\r
- flags = 0;\r
- contents = 0;\r
- value = 0;\r
-\r
- animname[0] = 0;\r
-\r
- // get optional flags and values\r
- while (TokenAvailable ())\r
- {\r
- GetToken (false);\r
- \r
- for (mp=mipparms ; mp->name ; mp++)\r
- {\r
- if (!strcmp(mp->name, token))\r
- {\r
- switch (mp->type)\r
- {\r
- case pt_animvalue:\r
- GetToken (false); // specify the next animation frame\r
- strcpy (animname, token);\r
- break;\r
- case pt_flags:\r
- flags |= mp->flags;\r
- break;\r
- case pt_contents:\r
- contents |= mp->flags;\r
- break;\r
- case pt_flagvalue:\r
- flags |= mp->flags;\r
- GetToken (false); // specify the light value\r
- value = atoi(token);\r
- break;\r
- }\r
- break;\r
- }\r
- }\r
- if (!mp->name)\r
- Error ("line %i: unknown parm %s", scriptline, token);\r
- }\r
-\r
- sprintf (filename, "%stextures/%s/%s.wal", gamedir, mip_prefix, lumpname);\r
- if (g_release)\r
- return; // textures are only released by $maps\r
-\r
- xh = xl+w;\r
- yh = yl+h;\r
-\r
- qtex = malloc (sizeof(miptex_t) + w*h*2);\r
- memset (qtex, 0, sizeof(miptex_t));\r
-\r
- qtex->width = LittleLong(w);\r
- qtex->height = LittleLong(h);\r
- qtex->flags = LittleLong(flags);\r
- qtex->contents = LittleLong(contents);\r
- qtex->value = LittleLong(value);\r
- sprintf (qtex->name, "%s/%s", mip_prefix, lumpname);\r
- if (animname[0])\r
- sprintf (qtex->animname, "%s/%s", mip_prefix, animname);\r
- \r
- lump_p = (byte *)(&qtex->value+1);\r
- \r
- screen_p = byteimage + yl*byteimagewidth + xl;\r
- linedelta = byteimagewidth - w;\r
-\r
- source = lump_p;\r
- qtex->offsets[0] = LittleLong(lump_p - (byte *)qtex);\r
-\r
- for (y=yl ; y<yh ; y++)\r
- {\r
- for (x=xl ; x<xh ; x++)\r
- {\r
- pix = *screen_p++;\r
- if (pix == 255)\r
- pix = 1; // should never happen\r
- *lump_p++ = pix;\r
- }\r
- screen_p += linedelta;\r
- }\r
- \r
-//\r
-// subsample for greater mip levels\r
-//\r
- d_red = d_green = d_blue = 0; // no distortion yet\r
-\r
- for (miplevel = 1 ; miplevel<4 ; miplevel++)\r
- {\r
- qtex->offsets[miplevel] = LittleLong(lump_p - (byte *)qtex);\r
- \r
- mipstep = 1<<miplevel;\r
- for (y=0 ; y<h ; y+=mipstep)\r
- {\r
-\r
- for (x = 0 ; x<w ; x+= mipstep)\r
- {\r
- count = 0;\r
- for (yy=0 ; yy<mipstep ; yy++)\r
- for (xx=0 ; xx<mipstep ; xx++)\r
- {\r
- pixdata[count] = source[ (y+yy)*w + x + xx ];\r
- count++;\r
- }\r
- *lump_p++ = AveragePixels (count);\r
- } \r
- }\r
- }\r
-\r
-//\r
-// dword align the size\r
-//\r
- while ((int)lump_p&3)\r
- *lump_p++ = 0;\r
-\r
-//\r
-// write it out\r
-//\r
- printf ("writing %s\n", filename);\r
- SaveFile (filename, (byte *)qtex, lump_p - (byte *)qtex);\r
-\r
- free (qtex);\r
-}\r
-\r
-/*\r
-===============\r
-Cmd_Mippal\r
-===============\r
-*/\r
-void Cmd_Mippal (void)\r
-{\r
- colormap_issued = true;\r
- if (g_release)\r
- return;\r
-\r
- memcpy (colormap_palette, lbmpalette, 768);\r
-\r
- BuildPalmap();\r
-}\r
-\r
-\r
-/*\r
-===============\r
-Cmd_Mipdir\r
-===============\r
-*/\r
-void Cmd_Mipdir (void)\r
-{\r
- char filename[1024];\r
-\r
- GetToken (false);\r
- strcpy (mip_prefix, token);\r
- // create the directory if needed\r
- sprintf (filename, "%stextures", gamedir, mip_prefix);\r
- Q_mkdir (filename); \r
- sprintf (filename, "%stextures/%s", gamedir, mip_prefix);\r
- Q_mkdir (filename); \r
-}\r
-\r
-\r
-/*\r
-=============================================================================\r
-\r
-ENVIRONMENT MAP GRABBING\r
-\r
-Creates six pcx files from tga files without any palette edge seams\r
-also copies the tga files for GL rendering.\r
-=============================================================================\r
-*/\r
-\r
-// 3dstudio environment map suffixes\r
-char *suf[6] = {"rt", "ft", "lf", "bk", "up", "dn"};\r
-\r
-/*\r
-=================\r
-Cmd_Environment\r
-=================\r
-*/\r
-void Cmd_Environment (void)\r
-{\r
- char name[1024];\r
- int i, x, y;\r
- byte image[256*256];\r
- byte *tga;\r
-\r
- GetToken (false);\r
-\r
- if (g_release)\r
- {\r
- for (i=0 ; i<6 ; i++)\r
- {\r
- sprintf (name, "env/%s%s.pcx", token, suf[i]);\r
- ReleaseFile (name);\r
- sprintf (name, "env/%s%s.tga", token, suf[i]);\r
- ReleaseFile (name);\r
- }\r
- return;\r
- }\r
- // get the palette\r
- BuildPalmap ();\r
-\r
- sprintf (name, "%senv/", gamedir);\r
- CreatePath (name);\r
-\r
- // convert the images\r
- for (i=0 ; i<6 ; i++)\r
- {\r
- sprintf (name, "%senv/%s%s.tga", gamedir, token, suf[i]);\r
- printf ("loading %s...\n", name);\r
- LoadTGA (name, &tga, NULL, NULL);\r
-\r
- for (y=0 ; y<256 ; y++)\r
- {\r
- for (x=0 ; x<256 ; x++)\r
- {\r
- image[y*256+x] = FindColor (tga[(y*256+x)*4+0],tga[(y*256+x)*4+1],tga[(y*256+x)*4+2]);\r
- }\r
- }\r
- free (tga);\r
- sprintf (name, "%senv/%s%s.pcx", gamedir, token, suf[i]);\r
- if (FileTime (name) != -1)\r
- printf ("%s already exists, not overwriting.\n", name);\r
- else\r
- WritePCXfile (name, image, 256, 256, colormap_palette);\r
- }\r
-}\r
-\r
+#include "qdata.h"
+#include "inout.h"
+
+char mip_prefix[1024]; // directory to dump the textures in
+
+qboolean colormap_issued;
+byte colormap_palette[768];
+
+/*
+==============
+RemapZero
+
+Replaces all 0 bytes in an image with the closest palette entry.
+This is because NT won't let us change index 0, so any palette
+animation leaves those pixels untouched.
+==============
+*/
+void RemapZero (byte *pixels, byte *palette, int width, int height)
+{
+ int i, c;
+ int alt_zero;
+ int value, best;
+
+ alt_zero = 0;
+ best = 9999999;
+ for (i=1 ; i<255 ; i++)
+ {
+ value = palette[i*3+0]+palette[i*3+1]+palette[i*3+2];
+ if (value < best)
+ {
+ best = value;
+ alt_zero = i;
+ }
+ }
+
+ c = width*height;
+ for (i=0 ; i<c ; i++)
+ if (pixels[i] == 0)
+ pixels[i] = alt_zero;
+}
+
+/*
+==============
+Cmd_Grab
+
+$grab filename x y width height
+==============
+*/
+void Cmd_Grab (void)
+{
+ int xl,yl,w,h,y;
+ byte *cropped;
+ char savename[1024];
+ char dest[1024];
+
+ GetToken (false);
+
+ if (token[0] == '/' || token[0] == '\\')
+ sprintf (savename, "%s%s.pcx", gamedir, token+1);
+ else
+ sprintf (savename, "%spics/%s.pcx", gamedir, token);
+
+ if (g_release)
+ {
+ if (token[0] == '/' || token[0] == '\\')
+ sprintf (dest, "%s.pcx", token+1);
+ else
+ sprintf (dest, "pics/%s.pcx", token);
+
+ ReleaseFile (dest);
+ return;
+ }
+
+ GetToken (false);
+ xl = atoi (token);
+ GetToken (false);
+ yl = atoi (token);
+ GetToken (false);
+ w = atoi (token);
+ GetToken (false);
+ h = atoi (token);
+
+ if (xl<0 || yl<0 || w<0 || h<0 || xl+w>byteimagewidth || yl+h>byteimageheight)
+ Error ("GrabPic: Bad size: %i, %i, %i, %i",xl,yl,w,h);
+
+ // crop it to the proper size
+ cropped = malloc (w*h);
+ for (y=0 ; y<h ; y++)
+ {
+ memcpy (cropped+y*w, byteimage+(y+yl)*byteimagewidth+xl, w);
+ }
+
+ // save off the new image
+ printf ("saving %s\n", savename);
+ CreatePath (savename);
+ WritePCXfile (savename, cropped, w, h, lbmpalette);
+
+ free (cropped);
+}
+
+/*
+==============
+Cmd_Raw
+
+$grab filename x y width height
+==============
+*/
+void Cmd_Raw (void)
+{
+ int xl,yl,w,h,y;
+ byte *cropped;
+ char savename[1024];
+ char dest[1024];
+
+ GetToken (false);
+
+ sprintf (savename, "%s%s.lmp", gamedir, token);
+
+ if (g_release)
+ {
+ sprintf (dest, "%s.lmp", token);
+ ReleaseFile (dest);
+ return;
+ }
+
+ GetToken (false);
+ xl = atoi (token);
+ GetToken (false);
+ yl = atoi (token);
+ GetToken (false);
+ w = atoi (token);
+ GetToken (false);
+ h = atoi (token);
+
+ if (xl<0 || yl<0 || w<0 || h<0 || xl+w>byteimagewidth || yl+h>byteimageheight)
+ Error ("GrabPic: Bad size: %i, %i, %i, %i",xl,yl,w,h);
+
+ // crop it to the proper size
+ cropped = malloc (w*h);
+ for (y=0 ; y<h ; y++)
+ {
+ memcpy (cropped+y*w, byteimage+(y+yl)*byteimagewidth+xl, w);
+ }
+
+ // save off the new image
+ printf ("saving %s\n", savename);
+ CreatePath (savename);
+
+ SaveFile (savename, cropped, w*h);
+
+ free (cropped);
+}
+
+/*
+=============================================================================
+
+COLORMAP GRABBING
+
+=============================================================================
+*/
+
+/*
+===============
+BestColor
+===============
+*/
+byte BestColor (int r, int g, int b, int start, int stop)
+{
+ int i;
+ int dr, dg, db;
+ int bestdistortion, distortion;
+ int bestcolor;
+ byte *pal;
+
+//
+// let any color go to 0 as a last resort
+//
+ bestdistortion = 256*256*4;
+ bestcolor = 0;
+
+ pal = colormap_palette + start*3;
+ for (i=start ; i<= stop ; i++)
+ {
+ dr = r - (int)pal[0];
+ dg = g - (int)pal[1];
+ db = b - (int)pal[2];
+ pal += 3;
+ distortion = dr*dr + dg*dg + db*db;
+ if (distortion < bestdistortion)
+ {
+ if (!distortion)
+ return i; // perfect match
+
+ bestdistortion = distortion;
+ bestcolor = i;
+ }
+ }
+
+ return bestcolor;
+}
+
+
+/*
+==============
+Cmd_Colormap
+
+$colormap filename
+
+ the brightes colormap is first in the table (FIXME: reverse this now?)
+
+ 64 rows of 256 : lightmaps
+ 256 rows of 256 : translucency table
+==============
+*/
+void Cmd_Colormap (void)
+{
+ int levels, brights;
+ int l, c;
+ float frac, red, green, blue;
+ float range;
+ byte *cropped, *lump_p;
+ char savename[1024];
+ char dest[1024];
+
+ colormap_issued = true;
+ if (!g_release)
+ memcpy (colormap_palette, lbmpalette, 768);
+
+ if (!TokenAvailable ())
+ { // just setting colormap_issued
+ return;
+ }
+
+ GetToken (false);
+ sprintf (savename, "%spics/%s.pcx", gamedir, token);
+
+ if (g_release)
+ {
+ sprintf (dest, "pics/%s.pcx", token);
+ ReleaseFile (dest);
+ return;
+ }
+
+ range = 2;
+ levels = 64;
+ brights = 1; // ignore 255 (transparent)
+
+ cropped = malloc((levels+256)*256);
+ lump_p = cropped;
+
+// shaded levels
+ for (l=0;l<levels;l++)
+ {
+ frac = range - range*(float)l/(levels-1);
+ for (c=0 ; c<256-brights ; c++)
+ {
+ red = lbmpalette[c*3];
+ green = lbmpalette[c*3+1];
+ blue = lbmpalette[c*3+2];
+
+ red = (int)(red*frac+0.5);
+ green = (int)(green*frac+0.5);
+ blue = (int)(blue*frac+0.5);
+
+//
+// note: 254 instead of 255 because 255 is the transparent color, and we
+// don't want anything remapping to that
+// don't use color 0, because NT can't remap that (or 255)
+//
+ *lump_p++ = BestColor(red,green,blue, 1, 254);
+ }
+
+ // fullbrights allways stay the same
+ for ( ; c<256 ; c++)
+ *lump_p++ = c;
+ }
+
+// 66% transparancy table
+ for (l=0;l<255;l++)
+ {
+ for (c=0 ; c<255 ; c++)
+ {
+ red = lbmpalette[c*3]*0.33 + lbmpalette[l*3]*0.66;
+ green = lbmpalette[c*3+1]*0.33 + lbmpalette[l*3+1]*0.66;
+ blue = lbmpalette[c*3+2]*0.33 + lbmpalette[l*3+2]*0.66;
+
+ *lump_p++ = BestColor(red,green,blue, 1, 254);
+ }
+ *lump_p++ = 255;
+ }
+ for (c=0 ; c<256 ; c++)
+ *lump_p++ = 255;
+
+ // save off the new image
+ printf ("saving %s\n", savename);
+ CreatePath (savename);
+ WritePCXfile (savename, cropped, 256, levels+256, lbmpalette);
+
+ free (cropped);
+}
+
+/*
+=============================================================================
+
+MIPTEX GRABBING
+
+=============================================================================
+*/
+
+byte pixdata[256];
+
+int d_red, d_green, d_blue;
+
+byte palmap[32][32][32];
+qboolean palmap_built;
+
+/*
+=============
+FindColor
+=============
+*/
+int FindColor (int r, int g, int b)
+{
+ int bestcolor;
+
+ if (r > 255)
+ r = 255;
+ if (r < 0)
+ r = 0;
+ if (g > 255)
+ g = 255;
+ if (g < 0)
+ g = 0;
+ if (b > 255)
+ b = 255;
+ if (b < 0)
+ b = 0;
+#ifndef TABLECOLORS
+ bestcolor = BestColor (r, g, b, 0, 254);
+#else
+ bestcolor = palmap[r>>3][g>>3][b>>3];
+#endif
+
+ return bestcolor;
+}
+
+
+void BuildPalmap (void)
+{
+#ifdef TABLECOLORS
+ int r, g, b;
+ int bestcolor;
+
+ if (palmap_built)
+ return;
+ palmap_built = true;
+
+ for (r=4 ; r<256 ; r+=8)
+ {
+ for (g=4 ; g<256 ; g+=8)
+ {
+ for (b=4 ; b<256 ; b+=8)
+ {
+ bestcolor = BestColor (r, g, b, 1, 254);
+ palmap[r>>3][g>>3][b>>3] = bestcolor;
+ }
+ }
+ }
+#endif
+
+ if (!colormap_issued)
+ Error ("You must issue a $colormap command first");
+
+}
+
+/*
+=============
+AveragePixels
+=============
+*/
+byte AveragePixels (int count)
+{
+ int r,g,b;
+ int i;
+ int vis;
+ int pix;
+ int bestcolor;
+ byte *pal;
+ int fullbright;
+
+ vis = 0;
+ r = g = b = 0;
+ fullbright = 0;
+ for (i=0 ; i<count ; i++)
+ {
+ pix = pixdata[i];
+
+ r += lbmpalette[pix*3];
+ g += lbmpalette[pix*3+1];
+ b += lbmpalette[pix*3+2];
+ vis++;
+ }
+
+ r /= vis;
+ g /= vis;
+ b /= vis;
+
+ // error diffusion
+ r += d_red;
+ g += d_green;
+ b += d_blue;
+
+//
+// find the best color
+//
+ bestcolor = FindColor (r, g, b);
+
+ // error diffusion
+ pal = colormap_palette + bestcolor*3;
+ d_red = r - (int)pal[0];
+ d_green = g - (int)pal[1];
+ d_blue = b - (int)pal[2];
+
+ return bestcolor;
+}
+
+
+typedef enum
+{
+ pt_contents,
+ pt_flags,
+ pt_animvalue,
+ pt_flagvalue
+} parmtype_t;
+
+typedef struct
+{
+ char *name;
+ int flags;
+ parmtype_t type;
+} mipparm_t;
+
+mipparm_t mipparms[] =
+{
+ // utility content attributes
+ {"water", CONTENTS_WATER, pt_contents},
+ {"slime", CONTENTS_SLIME, pt_contents}, // mildly damaging
+ {"lava", CONTENTS_LAVA, pt_contents}, // very damaging
+ {"window", CONTENTS_WINDOW, pt_contents}, // solid, but doesn't eat internal textures
+ {"mist", CONTENTS_MIST, pt_contents}, // non-solid window
+ {"origin", CONTENTS_ORIGIN, pt_contents}, // center of rotating brushes
+ {"playerclip", CONTENTS_PLAYERCLIP, pt_contents},
+ {"monsterclip", CONTENTS_MONSTERCLIP, pt_contents},
+
+ // utility surface attributes
+ {"hint", SURF_HINT, pt_flags},
+ {"skip", SURF_SKIP, pt_flags},
+ {"light", SURF_LIGHT, pt_flagvalue}, // value is the light quantity
+
+ // texture chaining
+ {"anim", 0, pt_animvalue}, // value is the next animation
+
+ // server attributes
+ {"slick", SURF_SLICK, pt_flags},
+
+ // drawing attributes
+ {"sky", SURF_SKY, pt_flags},
+ {"warping", SURF_WARP, pt_flags}, // only valid with 64x64 textures
+ {"trans33", SURF_TRANS33, pt_flags}, // translucent should allso set fullbright
+ {"trans66", SURF_TRANS66, pt_flags},
+ {"flowing", SURF_FLOWING, pt_flags}, // flow direction towards angle 0
+ {"nodraw", SURF_NODRAW, pt_flags}, // for clip textures and trigger textures
+
+ {NULL, 0, pt_contents}
+};
+
+
+
+/*
+==============
+Cmd_Mip
+
+$mip filename x y width height <OPTIONS>
+must be multiples of sixteen
+SURF_WINDOW
+==============
+*/
+void Cmd_Mip (void)
+{
+ int x,y,xl,yl,xh,yh,w,h;
+ byte *screen_p, *source;
+ int linedelta;
+ miptex_t *qtex;
+ int miplevel, mipstep;
+ int xx, yy, pix;
+ int count;
+ int flags, value, contents;
+ mipparm_t *mp;
+ char lumpname[64];
+ byte *lump_p;
+ char filename[1024];
+ char animname[64];
+
+ GetToken (false);
+ strcpy (lumpname, token);
+
+ GetToken (false);
+ xl = atoi (token);
+ GetToken (false);
+ yl = atoi (token);
+ GetToken (false);
+ w = atoi (token);
+ GetToken (false);
+ h = atoi (token);
+
+ if ( (w & 15) || (h & 15) )
+ Error ("line %i: miptex sizes must be multiples of 16", scriptline);
+
+ flags = 0;
+ contents = 0;
+ value = 0;
+
+ animname[0] = 0;
+
+ // get optional flags and values
+ while (TokenAvailable ())
+ {
+ GetToken (false);
+
+ for (mp=mipparms ; mp->name ; mp++)
+ {
+ if (!strcmp(mp->name, token))
+ {
+ switch (mp->type)
+ {
+ case pt_animvalue:
+ GetToken (false); // specify the next animation frame
+ strcpy (animname, token);
+ break;
+ case pt_flags:
+ flags |= mp->flags;
+ break;
+ case pt_contents:
+ contents |= mp->flags;
+ break;
+ case pt_flagvalue:
+ flags |= mp->flags;
+ GetToken (false); // specify the light value
+ value = atoi(token);
+ break;
+ }
+ break;
+ }
+ }
+ if (!mp->name)
+ Error ("line %i: unknown parm %s", scriptline, token);
+ }
+
+ sprintf (filename, "%stextures/%s/%s.wal", gamedir, mip_prefix, lumpname);
+ if (g_release)
+ return; // textures are only released by $maps
+
+ xh = xl+w;
+ yh = yl+h;
+
+ qtex = malloc (sizeof(miptex_t) + w*h*2);
+ memset (qtex, 0, sizeof(miptex_t));
+
+ qtex->width = LittleLong(w);
+ qtex->height = LittleLong(h);
+ qtex->flags = LittleLong(flags);
+ qtex->contents = LittleLong(contents);
+ qtex->value = LittleLong(value);
+ sprintf (qtex->name, "%s/%s", mip_prefix, lumpname);
+ if (animname[0])
+ sprintf (qtex->animname, "%s/%s", mip_prefix, animname);
+
+ lump_p = (byte *)(&qtex->value+1);
+
+ screen_p = byteimage + yl*byteimagewidth + xl;
+ linedelta = byteimagewidth - w;
+
+ source = lump_p;
+ qtex->offsets[0] = LittleLong(lump_p - (byte *)qtex);
+
+ for (y=yl ; y<yh ; y++)
+ {
+ for (x=xl ; x<xh ; x++)
+ {
+ pix = *screen_p++;
+ if (pix == 255)
+ pix = 1; // should never happen
+ *lump_p++ = pix;
+ }
+ screen_p += linedelta;
+ }
+
+//
+// subsample for greater mip levels
+//
+ d_red = d_green = d_blue = 0; // no distortion yet
+
+ for (miplevel = 1 ; miplevel<4 ; miplevel++)
+ {
+ qtex->offsets[miplevel] = LittleLong(lump_p - (byte *)qtex);
+
+ mipstep = 1<<miplevel;
+ for (y=0 ; y<h ; y+=mipstep)
+ {
+
+ for (x = 0 ; x<w ; x+= mipstep)
+ {
+ count = 0;
+ for (yy=0 ; yy<mipstep ; yy++)
+ for (xx=0 ; xx<mipstep ; xx++)
+ {
+ pixdata[count] = source[ (y+yy)*w + x + xx ];
+ count++;
+ }
+ *lump_p++ = AveragePixels (count);
+ }
+ }
+ }
+
+//
+// dword align the size
+//
+ while ((int)lump_p&3)
+ *lump_p++ = 0;
+
+//
+// write it out
+//
+ printf ("writing %s\n", filename);
+ SaveFile (filename, (byte *)qtex, lump_p - (byte *)qtex);
+
+ free (qtex);
+}
+
+/*
+===============
+Cmd_Mippal
+===============
+*/
+void Cmd_Mippal (void)
+{
+ colormap_issued = true;
+ if (g_release)
+ return;
+
+ memcpy (colormap_palette, lbmpalette, 768);
+
+ BuildPalmap();
+}
+
+
+/*
+===============
+Cmd_Mipdir
+===============
+*/
+void Cmd_Mipdir (void)
+{
+ char filename[1024];
+
+ GetToken (false);
+ strcpy (mip_prefix, token);
+ // create the directory if needed
+ sprintf (filename, "%stextures", gamedir, mip_prefix);
+ Q_mkdir (filename);
+ sprintf (filename, "%stextures/%s", gamedir, mip_prefix);
+ Q_mkdir (filename);
+}
+
+
+/*
+=============================================================================
+
+ENVIRONMENT MAP GRABBING
+
+Creates six pcx files from tga files without any palette edge seams
+also copies the tga files for GL rendering.
+=============================================================================
+*/
+
+// 3dstudio environment map suffixes
+char *suf[6] = {"rt", "ft", "lf", "bk", "up", "dn"};
+
+/*
+=================
+Cmd_Environment
+=================
+*/
+void Cmd_Environment (void)
+{
+ char name[1024];
+ int i, x, y;
+ byte image[256*256];
+ byte *tga;
+
+ GetToken (false);
+
+ if (g_release)
+ {
+ for (i=0 ; i<6 ; i++)
+ {
+ sprintf (name, "env/%s%s.pcx", token, suf[i]);
+ ReleaseFile (name);
+ sprintf (name, "env/%s%s.tga", token, suf[i]);
+ ReleaseFile (name);
+ }
+ return;
+ }
+ // get the palette
+ BuildPalmap ();
+
+ sprintf (name, "%senv/", gamedir);
+ CreatePath (name);
+
+ // convert the images
+ for (i=0 ; i<6 ; i++)
+ {
+ sprintf (name, "%senv/%s%s.tga", gamedir, token, suf[i]);
+ printf ("loading %s...\n", name);
+ LoadTGA (name, &tga, NULL, NULL);
+
+ for (y=0 ; y<256 ; y++)
+ {
+ for (x=0 ; x<256 ; x++)
+ {
+ image[y*256+x] = FindColor (tga[(y*256+x)*4+0],tga[(y*256+x)*4+1],tga[(y*256+x)*4+2]);
+ }
+ }
+ free (tga);
+ sprintf (name, "%senv/%s%s.pcx", gamedir, token, suf[i]);
+ if (FileTime (name) != -1)
+ printf ("%s already exists, not overwriting.\n", name);
+ else
+ WritePCXfile (name, image, 256, 256, colormap_palette);
+ }
+}
+