-/*\r
-Copyright (C) 1999-2007 id Software, Inc. and contributors.\r
-For a list of contributors, see the accompanying CONTRIBUTORS file.\r
-\r
-This file is part of GtkRadiant.\r
-\r
-GtkRadiant is free software; you can redistribute it and/or modify\r
-it under the terms of the GNU General Public License as published by\r
-the Free Software Foundation; either version 2 of the License, or\r
-(at your option) any later version.\r
-\r
-GtkRadiant is distributed in the hope that it will be useful,\r
-but WITHOUT ANY WARRANTY; without even the implied warranty of\r
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
-GNU General Public License for more details.\r
-\r
-You should have received a copy of the GNU General Public License\r
-along with GtkRadiant; if not, write to the Free Software\r
-Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA\r
-*/\r
-\r
-// imagelib.c\r
-\r
-#include "cmdlib.h"\r
-#include "imagelib.h"\r
-#include "vfs.h"\r
-\r
-int fgetLittleShort (FILE *f)\r
-{\r
- byte b1, b2;\r
-\r
- b1 = fgetc(f);\r
- b2 = fgetc(f);\r
-\r
- return (short)(b1 + b2*256);\r
-}\r
-\r
-int fgetLittleLong (FILE *f)\r
-{\r
- byte b1, b2, b3, b4;\r
-\r
- b1 = fgetc(f);\r
- b2 = fgetc(f);\r
- b3 = fgetc(f);\r
- b4 = fgetc(f);\r
-\r
- return b1 + (b2<<8) + (b3<<16) + (b4<<24);\r
-}\r
-\r
-int bufLittleShort (byte *buf, int len, int *pos)\r
-{\r
- byte b1, b2;\r
-\r
- if ((len - *pos) < 2)\r
- Error ("Unexpected buffer end");\r
-\r
- b1 = buf[*pos]; *pos += 1;\r
- b2 = buf[*pos]; *pos += 1;\r
-\r
- return (short)(b1 + b2*256);\r
-}\r
-\r
-int bufLittleLong (byte *buf, int len, int *pos)\r
-{\r
- byte b1, b2, b3, b4;\r
-\r
- if ((len - *pos) < 4)\r
- Error ("Unexpected buffer end");\r
-\r
- b1 = buf[*pos]; *pos += 1;\r
- b2 = buf[*pos]; *pos += 1;\r
- b3 = buf[*pos]; *pos += 1;\r
- b4 = buf[*pos]; *pos += 1;\r
-\r
- return b1 + (b2<<8) + (b3<<16) + (b4<<24);\r
-}\r
-\r
-\r
-/*\r
-============================================================================\r
-\r
- LBM STUFF\r
-\r
-============================================================================\r
-*/\r
-\r
-\r
-typedef unsigned char UBYTE;\r
-//conflicts with windows typedef short WORD;\r
-typedef unsigned short UWORD;\r
-typedef long LONG;\r
-\r
-typedef enum\r
-{\r
- ms_none,\r
- ms_mask,\r
- ms_transcolor,\r
- ms_lasso\r
-} mask_t;\r
-\r
-typedef enum\r
-{\r
- cm_none,\r
- cm_rle1\r
-} compress_t;\r
-\r
-typedef struct\r
-{\r
- UWORD w,h;\r
- short x,y;\r
- UBYTE nPlanes;\r
- UBYTE masking;\r
- UBYTE compression;\r
- UBYTE pad1;\r
- UWORD transparentColor;\r
- UBYTE xAspect,yAspect;\r
- short pageWidth,pageHeight;\r
-} bmhd_t;\r
-\r
-extern bmhd_t bmhd; // will be in native byte order\r
-\r
-\r
-\r
-#define FORMID ('F'+('O'<<8)+((int)'R'<<16)+((int)'M'<<24))\r
-#define ILBMID ('I'+('L'<<8)+((int)'B'<<16)+((int)'M'<<24))\r
-#define PBMID ('P'+('B'<<8)+((int)'M'<<16)+((int)' '<<24))\r
-#define BMHDID ('B'+('M'<<8)+((int)'H'<<16)+((int)'D'<<24))\r
-#define BODYID ('B'+('O'<<8)+((int)'D'<<16)+((int)'Y'<<24))\r
-#define CMAPID ('C'+('M'<<8)+((int)'A'<<16)+((int)'P'<<24))\r
-\r
-\r
-bmhd_t bmhd;\r
-\r
-int Align (int l)\r
-{\r
- if (l&1)\r
- return l+1;\r
- return l;\r
-}\r
-\r
-\r
-\r
-/*\r
-================\r
-LBMRLEdecompress\r
-\r
-Source must be evenly aligned!\r
-================\r
-*/\r
-byte *LBMRLEDecompress (byte *source,byte *unpacked, int bpwidth)\r
-{\r
- int count;\r
- byte b,rept;\r
-\r
- count = 0;\r
-\r
- do\r
- {\r
- rept = *source++;\r
-\r
- if (rept > 0x80)\r
- {\r
- rept = (rept^0xff)+2;\r
- b = *source++;\r
- memset(unpacked,b,rept);\r
- unpacked += rept;\r
- }\r
- else if (rept < 0x80)\r
- {\r
- rept++;\r
- memcpy(unpacked,source,rept);\r
- unpacked += rept;\r
- source += rept;\r
- }\r
- else\r
- rept = 0; // rept of 0x80 is NOP\r
-\r
- count += rept;\r
-\r
- } while (count<bpwidth);\r
-\r
- if (count>bpwidth)\r
- Error ("Decompression exceeded width!\n");\r
-\r
-\r
- return source;\r
-}\r
-\r
-\r
-/*\r
-=================\r
-LoadLBM\r
-=================\r
-*/\r
-void LoadLBM (const char *filename, byte **picture, byte **palette)\r
-{\r
- byte *LBMbuffer, *picbuffer, *cmapbuffer;\r
- int y;\r
- byte *LBM_P, *LBMEND_P;\r
- byte *pic_p;\r
- byte *body_p;\r
-\r
- int formtype,formlength;\r
- int chunktype,chunklength;\r
-\r
-// qiet compiler warnings\r
- picbuffer = NULL;\r
- cmapbuffer = NULL;\r
-\r
-//\r
-// load the LBM\r
-//\r
- LoadFile (filename, (void **)&LBMbuffer);\r
-\r
-//\r
-// parse the LBM header\r
-//\r
- LBM_P = LBMbuffer;\r
- if ( *(int *)LBMbuffer != LittleLong(FORMID) )\r
- Error ("No FORM ID at start of file!\n");\r
-\r
- LBM_P += 4;\r
- formlength = BigLong( *(int *)LBM_P );\r
- LBM_P += 4;\r
- LBMEND_P = LBM_P + Align(formlength);\r
-\r
- formtype = LittleLong(*(int *)LBM_P);\r
-\r
- if (formtype != ILBMID && formtype != PBMID)\r
- Error ("Unrecognized form type: %c%c%c%c\n", formtype&0xff\r
- ,(formtype>>8)&0xff,(formtype>>16)&0xff,(formtype>>24)&0xff);\r
-\r
- LBM_P += 4;\r
-\r
-//\r
-// parse chunks\r
-//\r
-\r
- while (LBM_P < LBMEND_P)\r
- {\r
- chunktype = LBM_P[0] + (LBM_P[1]<<8) + (LBM_P[2]<<16) + (LBM_P[3]<<24);\r
- LBM_P += 4;\r
- chunklength = LBM_P[3] + (LBM_P[2]<<8) + (LBM_P[1]<<16) + (LBM_P[0]<<24);\r
- LBM_P += 4;\r
-\r
- switch ( chunktype )\r
- {\r
- case BMHDID:\r
- memcpy (&bmhd,LBM_P,sizeof(bmhd));\r
- bmhd.w = BigShort(bmhd.w);\r
- bmhd.h = BigShort(bmhd.h);\r
- bmhd.x = BigShort(bmhd.x);\r
- bmhd.y = BigShort(bmhd.y);\r
- bmhd.pageWidth = BigShort(bmhd.pageWidth);\r
- bmhd.pageHeight = BigShort(bmhd.pageHeight);\r
- break;\r
-\r
- case CMAPID:\r
- cmapbuffer = safe_malloc (768);\r
- memset (cmapbuffer, 0, 768);\r
- memcpy (cmapbuffer, LBM_P, chunklength);\r
- break;\r
-\r
- case BODYID:\r
- body_p = LBM_P;\r
-\r
- pic_p = picbuffer = safe_malloc (bmhd.w*bmhd.h);\r
- if (formtype == PBMID)\r
- {\r
- //\r
- // unpack PBM\r
- //\r
- for (y=0 ; y<bmhd.h ; y++, pic_p += bmhd.w)\r
- {\r
- if (bmhd.compression == cm_rle1)\r
- body_p = LBMRLEDecompress ((byte *)body_p\r
- , pic_p , bmhd.w);\r
- else if (bmhd.compression == cm_none)\r
- {\r
- memcpy (pic_p,body_p,bmhd.w);\r
- body_p += Align(bmhd.w);\r
- }\r
- }\r
-\r
- }\r
- else\r
- {\r
- //\r
- // unpack ILBM\r
- //\r
- Error ("%s is an interlaced LBM, not packed", filename);\r
- }\r
- break;\r
- }\r
-\r
- LBM_P += Align(chunklength);\r
- }\r
-\r
- free (LBMbuffer);\r
-\r
- *picture = picbuffer;\r
-\r
- if (palette)\r
- *palette = cmapbuffer;\r
-}\r
-\r
-\r
-/*\r
-============================================================================\r
-\r
- WRITE LBM\r
-\r
-============================================================================\r
-*/\r
-\r
-/*\r
-==============\r
-WriteLBMfile\r
-==============\r
-*/\r
-void WriteLBMfile (const char *filename, byte *data,\r
- int width, int height, byte *palette)\r
-{\r
- byte *lbm, *lbmptr;\r
- int *formlength, *bmhdlength, *cmaplength, *bodylength;\r
- int length;\r
- bmhd_t basebmhd;\r
-\r
- lbm = lbmptr = safe_malloc (width*height+1000);\r
-\r
-//\r
-// start FORM\r
-//\r
- *lbmptr++ = 'F';\r
- *lbmptr++ = 'O';\r
- *lbmptr++ = 'R';\r
- *lbmptr++ = 'M';\r
-\r
- formlength = (int*)lbmptr;\r
- lbmptr+=4; // leave space for length\r
-\r
- *lbmptr++ = 'P';\r
- *lbmptr++ = 'B';\r
- *lbmptr++ = 'M';\r
- *lbmptr++ = ' ';\r
-\r
-//\r
-// write BMHD\r
-//\r
- *lbmptr++ = 'B';\r
- *lbmptr++ = 'M';\r
- *lbmptr++ = 'H';\r
- *lbmptr++ = 'D';\r
-\r
- bmhdlength = (int *)lbmptr;\r
- lbmptr+=4; // leave space for length\r
-\r
- memset (&basebmhd,0,sizeof(basebmhd));\r
- basebmhd.w = BigShort((short)width);\r
- basebmhd.h = BigShort((short)height);\r
- basebmhd.nPlanes = BigShort(8);\r
- basebmhd.xAspect = BigShort(5);\r
- basebmhd.yAspect = BigShort(6);\r
- basebmhd.pageWidth = BigShort((short)width);\r
- basebmhd.pageHeight = BigShort((short)height);\r
-\r
- memcpy (lbmptr,&basebmhd,sizeof(basebmhd));\r
- lbmptr += sizeof(basebmhd);\r
-\r
- length = lbmptr-(byte *)bmhdlength-4;\r
- *bmhdlength = BigLong(length);\r
- if (length&1)\r
- *lbmptr++ = 0; // pad chunk to even offset\r
-\r
-//\r
-// write CMAP\r
-//\r
- *lbmptr++ = 'C';\r
- *lbmptr++ = 'M';\r
- *lbmptr++ = 'A';\r
- *lbmptr++ = 'P';\r
-\r
- cmaplength = (int *)lbmptr;\r
- lbmptr+=4; // leave space for length\r
-\r
- memcpy (lbmptr,palette,768);\r
- lbmptr += 768;\r
-\r
- length = lbmptr-(byte *)cmaplength-4;\r
- *cmaplength = BigLong(length);\r
- if (length&1)\r
- *lbmptr++ = 0; // pad chunk to even offset\r
-\r
-//\r
-// write BODY\r
-//\r
- *lbmptr++ = 'B';\r
- *lbmptr++ = 'O';\r
- *lbmptr++ = 'D';\r
- *lbmptr++ = 'Y';\r
-\r
- bodylength = (int *)lbmptr;\r
- lbmptr+=4; // leave space for length\r
-\r
- memcpy (lbmptr,data,width*height);\r
- lbmptr += width*height;\r
-\r
- length = lbmptr-(byte *)bodylength-4;\r
- *bodylength = BigLong(length);\r
- if (length&1)\r
- *lbmptr++ = 0; // pad chunk to even offset\r
-\r
-//\r
-// done\r
-//\r
- length = lbmptr-(byte *)formlength-4;\r
- *formlength = BigLong(length);\r
- if (length&1)\r
- *lbmptr++ = 0; // pad chunk to even offset\r
-\r
-//\r
-// write output file\r
-//\r
- SaveFile (filename, lbm, lbmptr-lbm);\r
- free (lbm);\r
-}\r
-\r
-\r
-/*\r
-============================================================================\r
-\r
-LOAD PCX\r
-\r
-============================================================================\r
-*/\r
-\r
-typedef struct\r
-{\r
- char manufacturer;\r
- char version;\r
- char encoding;\r
- char bits_per_pixel;\r
- unsigned short xmin,ymin,xmax,ymax;\r
- unsigned short hres,vres;\r
- unsigned char palette[48];\r
- char reserved;\r
- char color_planes;\r
- unsigned short bytes_per_line;\r
- unsigned short palette_type;\r
- char filler[58];\r
- unsigned char data; // unbounded\r
-} pcx_t;\r
-\r
-\r
-/*\r
-==============\r
-LoadPCX\r
-==============\r
-*/\r
-\r
-/* RR2DO2 */\r
-#define DECODEPCX( b, d, r ) d=*b++;if((d&0xC0)==0xC0){r=d&0x3F;d=*b++;}else{r=1;}\r
-\r
-void LoadPCX( const char *filename, byte **pic, byte **palette, int *width, int *height )\r
-{\r
- byte *raw;\r
- pcx_t *pcx;\r
- int x, y, lsize;\r
- int len;\r
- int dataByte, runLength;\r
- byte *out, *pix;\r
- \r
-\r
- /* load the file */\r
- len = vfsLoadFile (filename, (void **)&raw, 0);\r
- if( len == -1 ) \r
- Error( "LoadPCX: Couldn't read %s", filename );\r
-\r
- \r
- /* parse the PCX file */\r
- pcx = (pcx_t *)raw;\r
- raw = &pcx->data;\r
-\r
- pcx->xmin = LittleShort(pcx->xmin);\r
- pcx->ymin = LittleShort(pcx->ymin);\r
- pcx->xmax = LittleShort(pcx->xmax);\r
- pcx->ymax = LittleShort(pcx->ymax);\r
- pcx->hres = LittleShort(pcx->hres);\r
- pcx->vres = LittleShort(pcx->vres);\r
- pcx->bytes_per_line = LittleShort(pcx->bytes_per_line);\r
- pcx->palette_type = LittleShort(pcx->palette_type);\r
-\r
- if (pcx->manufacturer != 0x0a\r
- || pcx->version != 5\r
- || pcx->encoding != 1\r
- || pcx->bits_per_pixel != 8\r
- || pcx->xmax >= 640\r
- || pcx->ymax >= 480)\r
- Error ("Bad pcx file %s", filename);\r
- \r
- if (palette)\r
- {\r
- *palette = safe_malloc(768);\r
- memcpy (*palette, (byte *)pcx + len - 768, 768);\r
- }\r
-\r
- if (width)\r
- *width = pcx->xmax+1;\r
- if (height)\r
- *height = pcx->ymax+1;\r
-\r
- if (!pic)\r
- return;\r
-\r
- out = safe_malloc ( (pcx->ymax+1) * (pcx->xmax+1) );\r
- if (!out)\r
- Error( "LoadPCX: couldn't allocate");\r
-\r
- *pic = out;\r
- pix = out;\r
- \r
- /* RR2DO2: pcx fix */\r
- lsize = pcx->color_planes * pcx->bytes_per_line;\r
- \r
- /* go scanline by scanline */\r
- for( y = 0; y <= pcx->ymax; y++, pix += pcx->xmax + 1 )\r
- {\r
- /* do a scanline */\r
- for( x=0; x <= pcx->xmax; )\r
- {\r
- /* RR2DO2 */\r
- DECODEPCX( raw, dataByte, runLength );\r
- while( runLength-- > 0 )\r
- pix[ x++ ] = dataByte;\r
- }\r
-\r
- /* RR2DO2: discard any other data */\r
- while( x < lsize )\r
- {\r
- DECODEPCX( raw, dataByte, runLength );\r
- x++;\r
- }\r
- while( runLength-- > 0 )\r
- x++;\r
- }\r
- \r
- /* validity check */\r
- if( raw - (byte *) pcx > len)\r
- Error( "PCX file %s was malformed", filename );\r
- free( pcx );\r
-}\r
-\r
-\r
-\r
-/* \r
-============== \r
-WritePCXfile \r
-============== \r
-*/ \r
-void WritePCXfile (const char *filename, byte *data, \r
- int width, int height, byte *palette) \r
-{\r
- int i, j, length;\r
- pcx_t *pcx;\r
- byte *pack;\r
- \r
- pcx = safe_malloc (width*height*2+1000);\r
- memset (pcx, 0, sizeof(*pcx));\r
-\r
- pcx->manufacturer = 0x0a; // PCX id\r
- pcx->version = 5; // 256 color\r
- pcx->encoding = 1; // uncompressed\r
- pcx->bits_per_pixel = 8; // 256 color\r
- pcx->xmin = 0;\r
- pcx->ymin = 0;\r
- pcx->xmax = LittleShort((short)(width-1));\r
- pcx->ymax = LittleShort((short)(height-1));\r
- pcx->hres = LittleShort((short)width);\r
- pcx->vres = LittleShort((short)height);\r
- pcx->color_planes = 1; // chunky image\r
- pcx->bytes_per_line = LittleShort((short)width);\r
- pcx->palette_type = LittleShort(1); // not a grey scale\r
-\r
- // pack the image\r
- pack = &pcx->data;\r
- \r
- for (i=0 ; i<height ; i++)\r
- {\r
- for (j=0 ; j<width ; j++)\r
- {\r
- if ( (*data & 0xc0) != 0xc0)\r
- *pack++ = *data++;\r
- else\r
- {\r
- *pack++ = 0xc1;\r
- *pack++ = *data++;\r
- }\r
- }\r
- }\r
- \r
- // write the palette\r
- *pack++ = 0x0c; // palette ID byte\r
- for (i=0 ; i<768 ; i++)\r
- *pack++ = *palette++;\r
- \r
-// write output file \r
- length = pack - (byte *)pcx;\r
- SaveFile (filename, pcx, length);\r
-\r
- free (pcx);\r
-} \r
- \r
-/*\r
-============================================================================\r
-\r
-LOAD BMP\r
-\r
-============================================================================\r
-*/\r
-\r
-\r
-/*\r
-\r
-// we can't just use these structures, because\r
-// compiler structure alignment will not be portable\r
-// on this unaligned stuff\r
-\r
-typedef struct tagBITMAPFILEHEADER { // bmfh \r
- WORD bfType; // BM\r
- DWORD bfSize; \r
- WORD bfReserved1; \r
- WORD bfReserved2; \r
- DWORD bfOffBits; \r
-} BITMAPFILEHEADER; \r
- \r
-typedef struct tagBITMAPINFOHEADER{ // bmih \r
- DWORD biSize; \r
- LONG biWidth; \r
- LONG biHeight; \r
- WORD biPlanes; \r
- WORD biBitCount \r
- DWORD biCompression; \r
- DWORD biSizeImage; \r
- LONG biXPelsPerMeter; \r
- LONG biYPelsPerMeter; \r
- DWORD biClrUsed; \r
- DWORD biClrImportant; \r
-} BITMAPINFOHEADER; \r
- \r
-typedef struct tagBITMAPINFO { // bmi \r
- BITMAPINFOHEADER bmiHeader; \r
- RGBQUAD bmiColors[1]; \r
-} BITMAPINFO; \r
-\r
-typedef struct tagBITMAPCOREHEADER { // bmch \r
- DWORD bcSize; \r
- WORD bcWidth; \r
- WORD bcHeight; \r
- WORD bcPlanes; \r
- WORD bcBitCount; \r
-} BITMAPCOREHEADER; \r
- \r
-typedef struct _BITMAPCOREINFO { // bmci \r
- BITMAPCOREHEADER bmciHeader; \r
- RGBTRIPLE bmciColors[1]; \r
-} BITMAPCOREINFO; \r
- \r
-*/\r
-\r
-/*\r
-==============\r
-LoadBMP\r
-==============\r
-*/\r
-void LoadBMP (const char *filename, byte **pic, byte **palette, int *width, int *height)\r
-{\r
- byte *out;\r
- int i;\r
- int bfSize; \r
- int bfOffBits; \r
- int structSize;\r
- int bcWidth; \r
- int bcHeight; \r
- int bcPlanes; \r
- int bcBitCount; \r
- byte bcPalette[1024];\r
- qboolean flipped;\r
- byte *in;\r
- int len, pos = 0;\r
-\r
- len = vfsLoadFile (filename, (void **)&in, 0);\r
- if (len == -1) \r
- {\r
- Error ("Couldn't read %s", filename);\r
- }\r
-\r
- i = bufLittleShort (in, len, &pos);\r
- if (i != 'B' + ('M'<<8) ) {\r
- Error ("%s is not a bmp file", filename);\r
- }\r
-\r
- bfSize = bufLittleLong (in, len, &pos);\r
- bufLittleShort(in, len, &pos);\r
- bufLittleShort(in, len, &pos);\r
- bfOffBits = bufLittleLong (in, len, &pos);\r
-\r
- // the size will tell us if it is a\r
- // bitmapinfo or a bitmapcore\r
- structSize = bufLittleLong (in, len, &pos);\r
- if (structSize == 40)\r
- {\r
- // bitmapinfo\r
- bcWidth = bufLittleLong(in, len, &pos); \r
- bcHeight= bufLittleLong(in, len, &pos); \r
- bcPlanes = bufLittleShort(in, len, &pos); \r
- bcBitCount = bufLittleShort(in, len, &pos); \r
-\r
- pos += 24;\r
-\r
- if (palette)\r
- {\r
- memcpy (bcPalette, in+pos, 1024);\r
- pos += 1024;\r
- *palette = safe_malloc(768);\r
-\r
- for (i = 0 ; i < 256 ; i++)\r
- {\r
- (*palette)[i * 3 + 0] = bcPalette[i * 4 + 2];\r
- (*palette)[i * 3 + 1] = bcPalette[i * 4 + 1];\r
- (*palette)[i * 3 + 2] = bcPalette[i * 4 + 0];\r
- }\r
- }\r
- }\r
- else if (structSize == 12)\r
- {\r
- // bitmapcore\r
- bcWidth = bufLittleShort(in, len, &pos); \r
- bcHeight= bufLittleShort(in, len, &pos); \r
- bcPlanes = bufLittleShort(in, len, &pos); \r
- bcBitCount = bufLittleShort(in, len, &pos); \r
-\r
- if (palette)\r
- {\r
- memcpy (bcPalette, in+pos, 768);\r
- pos += 768;\r
- *palette = safe_malloc(768);\r
-\r
- for (i = 0 ; i < 256 ; i++) {\r
- (*palette)[i * 3 + 0] = bcPalette[i * 3 + 2];\r
- (*palette)[i * 3 + 1] = bcPalette[i * 3 + 1];\r
- (*palette)[i * 3 + 2] = bcPalette[i * 3 + 0];\r
- }\r
- }\r
- } else {\r
- Error ("%s had strange struct size", filename);\r
- }\r
-\r
- if (bcPlanes != 1) {\r
- Error ("%s was not a single plane image", filename);\r
- }\r
-\r
- if (bcBitCount != 8) {\r
- Error ("%s was not an 8 bit image", filename);\r
- }\r
-\r
- if (bcHeight < 0) {\r
- bcHeight = -bcHeight;\r
- flipped = qtrue;\r
- } else {\r
- flipped = qfalse;\r
- }\r
-\r
- if (width)\r
- *width = bcWidth;\r
- if (height)\r
- *height = bcHeight;\r
-\r
- if (!pic) {\r
- free (in);\r
- return;\r
- }\r
-\r
- out = safe_malloc ( bcWidth * bcHeight );\r
- *pic = out;\r
- pos = bfOffBits;\r
-\r
- if (flipped) {\r
- for (i = 0 ; i < bcHeight ; i++) {\r
- memcpy (out + bcWidth * (bcHeight - 1 - i), in+pos, bcWidth);\r
- pos += bcWidth;\r
- }\r
- } else {\r
- memcpy (out, in+pos, bcWidth*bcHeight);\r
- pos += bcWidth*bcHeight;\r
- }\r
-\r
- free (in);\r
-}\r
-\r
-\r
-/*\r
-============================================================================\r
-\r
-LOAD IMAGE\r
-\r
-============================================================================\r
-*/\r
-\r
-/*\r
-==============\r
-Load256Image\r
-\r
-Will load either an lbm or pcx, depending on extension.\r
-Any of the return pointers can be NULL if you don't want them.\r
-==============\r
-*/\r
-void Load256Image (const char *name, byte **pixels, byte **palette, int *width, int *height)\r
-{\r
- char ext[128];\r
-\r
- ExtractFileExtension (name, ext);\r
- if (!Q_stricmp (ext, "lbm"))\r
- {\r
- LoadLBM (name, pixels, palette);\r
- if (width)\r
- *width = bmhd.w;\r
- if (height)\r
- *height = bmhd.h;\r
- }\r
- else if (!Q_stricmp (ext, "pcx"))\r
- {\r
- LoadPCX (name, pixels, palette, width, height);\r
- }\r
- else if (!Q_stricmp (ext, "bmp"))\r
- {\r
- LoadBMP (name, pixels, palette, width, height);\r
- }\r
- else\r
- Error ("%s doesn't have a known image extension", name);\r
-}\r
-\r
-\r
-/*\r
-==============\r
-Save256Image\r
-\r
-Will save either an lbm or pcx, depending on extension.\r
-==============\r
-*/\r
-void Save256Image (const char *name, byte *pixels, byte *palette,\r
- int width, int height)\r
-{\r
- char ext[128];\r
-\r
- ExtractFileExtension (name, ext);\r
- if (!Q_stricmp (ext, "lbm"))\r
- {\r
- WriteLBMfile (name, pixels, width, height, palette);\r
- }\r
- else if (!Q_stricmp (ext, "pcx"))\r
- {\r
- WritePCXfile (name, pixels, width, height, palette);\r
- }\r
- else\r
- Error ("%s doesn't have a known image extension", name);\r
-}\r
-\r
-\r
-\r
-\r
-/*\r
-============================================================================\r
-\r
-TARGA IMAGE\r
-\r
-============================================================================\r
-*/\r
-\r
-typedef struct _TargaHeader {\r
- unsigned char id_length, colormap_type, image_type;\r
- unsigned short colormap_index, colormap_length;\r
- unsigned char colormap_size;\r
- unsigned short x_origin, y_origin, width, height;\r
- unsigned char pixel_size, attributes;\r
-} TargaHeader;\r
-\r
-/*\r
-=============\r
-LoadTGABuffer\r
-=============\r
-*/\r
-void LoadTGABuffer ( byte *buffer, byte **pic, int *width, int *height)\r
-{\r
- int columns, rows, numPixels;\r
- byte *pixbuf;\r
- int row, column;\r
- byte *buf_p;\r
- TargaHeader targa_header;\r
- byte *targa_rgba;\r
-\r
- *pic = NULL;\r
-\r
- buf_p = buffer;\r
-\r
- targa_header.id_length = *buf_p++;\r
- targa_header.colormap_type = *buf_p++;\r
- targa_header.image_type = *buf_p++;\r
- \r
- targa_header.colormap_index = LittleShort ( *(short *)buf_p );\r
- buf_p += 2;\r
- targa_header.colormap_length = LittleShort ( *(short *)buf_p );\r
- buf_p += 2;\r
- targa_header.colormap_size = *buf_p++;\r
- targa_header.x_origin = LittleShort ( *(short *)buf_p );\r
- buf_p += 2;\r
- targa_header.y_origin = LittleShort ( *(short *)buf_p );\r
- buf_p += 2;\r
- targa_header.width = LittleShort ( *(short *)buf_p );\r
- buf_p += 2;\r
- targa_header.height = LittleShort ( *(short *)buf_p );\r
- buf_p += 2;\r
- targa_header.pixel_size = *buf_p++;\r
- targa_header.attributes = *buf_p++;\r
-\r
- if (targa_header.image_type!=2 \r
- && targa_header.image_type!=10\r
- && targa_header.image_type != 3 ) \r
- {\r
- Error("LoadTGA: Only type 2 (RGB), 3 (gray), and 10 (RGB) TGA images supported\n");\r
- }\r
-\r
- if ( targa_header.colormap_type != 0 )\r
- {\r
- Error("LoadTGA: colormaps not supported\n" );\r
- }\r
-\r
- if ( ( targa_header.pixel_size != 32 && targa_header.pixel_size != 24 ) && targa_header.image_type != 3 )\r
- {\r
- Error("LoadTGA: Only 32 or 24 bit images supported (no colormaps)\n");\r
- }\r
-\r
- columns = targa_header.width;\r
- rows = targa_header.height;\r
- numPixels = columns * rows;\r
-\r
- if (width)\r
- *width = columns;\r
- if (height)\r
- *height = rows;\r
-\r
- targa_rgba = safe_malloc (numPixels*4);\r
- *pic = targa_rgba;\r
-\r
- if (targa_header.id_length != 0)\r
- buf_p += targa_header.id_length; // skip TARGA image comment\r
- \r
- if ( targa_header.image_type==2 || targa_header.image_type == 3 )\r
- { \r
- // Uncompressed RGB or gray scale image\r
- for(row=rows-1; row>=0; row--) \r
- {\r
- pixbuf = targa_rgba + row*columns*4;\r
- for(column=0; column<columns; column++) \r
- {\r
- unsigned char red,green,blue,alphabyte;\r
- switch (targa_header.pixel_size) \r
- {\r
- \r
- case 8:\r
- blue = *buf_p++;\r
- green = blue;\r
- red = blue;\r
- *pixbuf++ = red;\r
- *pixbuf++ = green;\r
- *pixbuf++ = blue;\r
- *pixbuf++ = 255;\r
- break;\r
-\r
- case 24:\r
- blue = *buf_p++;\r
- green = *buf_p++;\r
- red = *buf_p++;\r
- *pixbuf++ = red;\r
- *pixbuf++ = green;\r
- *pixbuf++ = blue;\r
- *pixbuf++ = 255;\r
- break;\r
- case 32:\r
- blue = *buf_p++;\r
- green = *buf_p++;\r
- red = *buf_p++;\r
- alphabyte = *buf_p++;\r
- *pixbuf++ = red;\r
- *pixbuf++ = green;\r
- *pixbuf++ = blue;\r
- *pixbuf++ = alphabyte;\r
- break;\r
- default:\r
- //Error("LoadTGA: illegal pixel_size '%d' in file '%s'\n", targa_header.pixel_size, name );\r
- break;\r
- }\r
- }\r
- }\r
- }\r
- else if (targa_header.image_type==10) { // Runlength encoded RGB images\r
- unsigned char red,green,blue,alphabyte,packetHeader,packetSize,j;\r
-\r
- red = 0;\r
- green = 0;\r
- blue = 0;\r
- alphabyte = 0xff;\r
-\r
- for(row=rows-1; row>=0; row--) {\r
- pixbuf = targa_rgba + row*columns*4;\r
- for(column=0; column<columns; ) {\r
- packetHeader= *buf_p++;\r
- packetSize = 1 + (packetHeader & 0x7f);\r
- if (packetHeader & 0x80) { // run-length packet\r
- switch (targa_header.pixel_size) {\r
- case 24:\r
- blue = *buf_p++;\r
- green = *buf_p++;\r
- red = *buf_p++;\r
- alphabyte = 255;\r
- break;\r
- case 32:\r
- blue = *buf_p++;\r
- green = *buf_p++;\r
- red = *buf_p++;\r
- alphabyte = *buf_p++;\r
- break;\r
- default:\r
- //Error("LoadTGA: illegal pixel_size '%d' in file '%s'\n", targa_header.pixel_size, name );\r
- break;\r
- }\r
- \r
- for(j=0;j<packetSize;j++) {\r
- *pixbuf++=red;\r
- *pixbuf++=green;\r
- *pixbuf++=blue;\r
- *pixbuf++=alphabyte;\r
- column++;\r
- if (column==columns) { // run spans across rows\r
- column=0;\r
- if (row>0)\r
- row--;\r
- else\r
- goto breakOut;\r
- pixbuf = targa_rgba + row*columns*4;\r
- }\r
- }\r
- }\r
- else { // non run-length packet\r
- for(j=0;j<packetSize;j++) {\r
- switch (targa_header.pixel_size) {\r
- case 24:\r
- blue = *buf_p++;\r
- green = *buf_p++;\r
- red = *buf_p++;\r
- *pixbuf++ = red;\r
- *pixbuf++ = green;\r
- *pixbuf++ = blue;\r
- *pixbuf++ = 255;\r
- break;\r
- case 32:\r
- blue = *buf_p++;\r
- green = *buf_p++;\r
- red = *buf_p++;\r
- alphabyte = *buf_p++;\r
- *pixbuf++ = red;\r
- *pixbuf++ = green;\r
- *pixbuf++ = blue;\r
- *pixbuf++ = alphabyte;\r
- break;\r
- default:\r
- //Sysprintf("LoadTGA: illegal pixel_size '%d' in file '%s'\n", targa_header.pixel_size, name );\r
- break;\r
- }\r
- column++;\r
- if (column==columns) { // pixel packet run spans across rows\r
- column=0;\r
- if (row>0)\r
- row--;\r
- else\r
- goto breakOut;\r
- pixbuf = targa_rgba + row*columns*4;\r
- } \r
- }\r
- }\r
- }\r
- breakOut:;\r
- }\r
- }\r
-\r
- // vertically flipped\r
- if ( (targa_header.attributes & (1<<5)) ) {\r
- int flip;\r
- for (row = 0; row < .5f * rows; row++)\r
- {\r
- for (column = 0; column < columns; column++)\r
- {\r
- flip = *( (int*)targa_rgba + row * columns + column);\r
- *( (int*)targa_rgba + row * columns + column) = *( (int*)targa_rgba + ( ( rows - 1 ) - row ) * columns + column );\r
- *( (int*)targa_rgba + ( ( rows - 1 ) - row ) * columns + column ) = flip;\r
- }\r
- }\r
- }\r
-\r
- //free(buffer);\r
-}\r
-\r
-\r
-\r
-/*\r
-=============\r
-LoadTGA\r
-=============\r
-*/\r
-void LoadTGA (const char *name, byte **pixels, int *width, int *height)\r
-{\r
- byte *buffer;\r
- int nLen;\r
- //\r
- // load the file\r
- //\r
- nLen = vfsLoadFile ( ( char * ) name, (void **)&buffer, 0);\r
- if (nLen == -1) \r
- {\r
- Error ("Couldn't read %s", name);\r
- }\r
-\r
- LoadTGABuffer(buffer, pixels, width, height);\r
-\r
-}\r
-\r
-\r
-/*\r
-================\r
-WriteTGA\r
-================\r
-*/\r
-void WriteTGA (const char *filename, byte *data, int width, int height) {\r
- byte *buffer;\r
- int i;\r
- int c;\r
- FILE *f;\r
-\r
- buffer = safe_malloc(width*height*4 + 18);\r
- memset (buffer, 0, 18);\r
- buffer[2] = 2; // uncompressed type\r
- buffer[12] = width&255;\r
- buffer[13] = width>>8;\r
- buffer[14] = height&255;\r
- buffer[15] = height>>8;\r
- buffer[16] = 32; // pixel size\r
-\r
- // swap rgb to bgr\r
- c = 18 + width * height * 4;\r
- for (i=18 ; i<c ; i+=4)\r
- {\r
- buffer[i] = data[i-18+2]; // blue\r
- buffer[i+1] = data[i-18+1]; // green\r
- buffer[i+2] = data[i-18+0]; // red\r
- buffer[i+3] = data[i-18+3]; // alpha\r
- }\r
-\r
- f = fopen (filename, "wb");\r
- fwrite (buffer, 1, c, f);\r
- fclose (f);\r
-\r
- free (buffer);\r
-}\r
-\r
-/*\r
-============================================================================\r
-\r
-LOAD32BITIMAGE\r
-\r
-============================================================================\r
-*/\r
-\r
-/*\r
-==============\r
-Load32BitImage\r
-\r
-Any of the return pointers can be NULL if you don't want them.\r
-==============\r
-*/\r
-void Load32BitImage (const char *name, unsigned **pixels, int *width, int *height)\r
-{\r
- char ext[128];\r
- byte *palette;\r
- byte *pixels8;\r
- byte *pixels32;\r
- int size;\r
- int i;\r
- int v;\r
-\r
- ExtractFileExtension (name, ext);\r
- if (!Q_stricmp (ext, "tga")) {\r
- LoadTGA (name, (byte **)pixels, width, height);\r
- } else {\r
- Load256Image (name, &pixels8, &palette, width, height);\r
- if (!pixels) {\r
- return;\r
- }\r
- size = *width * *height;\r
- pixels32 = safe_malloc(size * 4);\r
- *pixels = (unsigned *)pixels32;\r
- for (i = 0 ; i < size ; i++) {\r
- v = pixels8[i];\r
- pixels32[i*4 + 0] = palette[ v * 3 + 0 ];\r
- pixels32[i*4 + 1] = palette[ v * 3 + 1 ];\r
- pixels32[i*4 + 2] = palette[ v * 3 + 2 ];\r
- pixels32[i*4 + 3] = 0xff;\r
- }\r
- }\r
-}\r
-\r
-\r
+/*
+ Copyright (C) 1999-2006 Id Software, Inc. and contributors.
+ For a list of contributors, see the accompanying CONTRIBUTORS file.
+
+ This file is part of GtkRadiant.
+
+ GtkRadiant is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+
+ GtkRadiant is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License
+ along with GtkRadiant; if not, write to the Free Software
+ Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
+ */
+
+// imagelib.c
+
+#include "inout.h"
+#include "cmdlib.h"
+#include "etclib.h"
+#include "imagelib.h"
+#include "vfs.h"
+
+int fgetLittleShort( FILE *f ){
+ byte b1, b2;
+
+ b1 = fgetc( f );
+ b2 = fgetc( f );
+
+ return (short)( b1 + b2 * 256 );
+}
+
+int fgetLittleLong( FILE *f ){
+ byte b1, b2, b3, b4;
+
+ b1 = fgetc( f );
+ b2 = fgetc( f );
+ b3 = fgetc( f );
+ b4 = fgetc( f );
+
+ return b1 + ( b2 << 8 ) + ( b3 << 16 ) + ( b4 << 24 );
+}
+
+int bufLittleShort( byte *buf, int len, int *pos ){
+ byte b1, b2;
+
+ if ( ( len - *pos ) < 2 ) {
+ Error( "Unexpected buffer end" );
+ }
+
+ b1 = buf[*pos]; *pos += 1;
+ b2 = buf[*pos]; *pos += 1;
+
+ return (short)( b1 + b2 * 256 );
+}
+
+int bufLittleLong( byte *buf, int len, int *pos ){
+ byte b1, b2, b3, b4;
+
+ if ( ( len - *pos ) < 4 ) {
+ Error( "Unexpected buffer end" );
+ }
+
+ b1 = buf[*pos]; *pos += 1;
+ b2 = buf[*pos]; *pos += 1;
+ b3 = buf[*pos]; *pos += 1;
+ b4 = buf[*pos]; *pos += 1;
+
+ return b1 + ( b2 << 8 ) + ( b3 << 16 ) + ( b4 << 24 );
+}
+
+
+/*
+ ============================================================================
+
+ LBM STUFF
+
+ ============================================================================
+ */
+
+
+typedef unsigned char UBYTE;
+//conflicts with windows typedef short WORD;
+typedef unsigned short UWORD;
+typedef long LONG;
+
+typedef enum
+{
+ ms_none,
+ ms_mask,
+ ms_transcolor,
+ ms_lasso
+} mask_t;
+
+typedef enum
+{
+ cm_none,
+ cm_rle1
+} compress_t;
+
+typedef struct
+{
+ UWORD w,h;
+ short x,y;
+ UBYTE nPlanes;
+ UBYTE masking;
+ UBYTE compression;
+ UBYTE pad1;
+ UWORD transparentColor;
+ UBYTE xAspect,yAspect;
+ short pageWidth,pageHeight;
+} bmhd_t;
+
+extern bmhd_t bmhd; // will be in native byte order
+
+
+
+#define FORMID ( 'F' + ( 'O' << 8 ) + ( (int)'R' << 16 ) + ( (int)'M' << 24 ) )
+#define ILBMID ( 'I' + ( 'L' << 8 ) + ( (int)'B' << 16 ) + ( (int)'M' << 24 ) )
+#define PBMID ( 'P' + ( 'B' << 8 ) + ( (int)'M' << 16 ) + ( (int)' ' << 24 ) )
+#define BMHDID ( 'B' + ( 'M' << 8 ) + ( (int)'H' << 16 ) + ( (int)'D' << 24 ) )
+#define BODYID ( 'B' + ( 'O' << 8 ) + ( (int)'D' << 16 ) + ( (int)'Y' << 24 ) )
+#define CMAPID ( 'C' + ( 'M' << 8 ) + ( (int)'A' << 16 ) + ( (int)'P' << 24 ) )
+
+
+bmhd_t bmhd;
+
+int Align( int l ){
+ if ( l & 1 ) {
+ return l + 1;
+ }
+ return l;
+}
+
+
+
+/*
+ ================
+ LBMRLEdecompress
+
+ Source must be evenly aligned!
+ ================
+ */
+byte *LBMRLEDecompress( byte *source,byte *unpacked, int bpwidth ){
+ int count;
+ byte b,rept;
+
+ count = 0;
+
+ do
+ {
+ rept = *source++;
+
+ if ( rept > 0x80 ) {
+ rept = ( rept ^ 0xff ) + 2;
+ b = *source++;
+ memset( unpacked,b,rept );
+ unpacked += rept;
+ }
+ else if ( rept < 0x80 ) {
+ rept++;
+ memcpy( unpacked,source,rept );
+ unpacked += rept;
+ source += rept;
+ }
+ else{
+ rept = 0; // rept of 0x80 is NOP
+
+ }
+ count += rept;
+
+ } while ( count < bpwidth );
+
+ if ( count > bpwidth ) {
+ Error( "Decompression exceeded width!\n" );
+ }
+
+
+ return source;
+}
+
+
+/*
+ =================
+ LoadLBM
+ =================
+ */
+void LoadLBM( const char *filename, byte **picture, byte **palette ){
+ byte *LBMbuffer, *picbuffer, *cmapbuffer;
+ int y;
+ byte *LBM_P, *LBMEND_P;
+ byte *pic_p;
+ byte *body_p;
+
+ int formtype,formlength;
+ int chunktype,chunklength;
+
+// qiet compiler warnings
+ picbuffer = NULL;
+ cmapbuffer = NULL;
+
+//
+// load the LBM
+//
+ LoadFile( filename, (void **)&LBMbuffer );
+
+//
+// parse the LBM header
+//
+ LBM_P = LBMbuffer;
+ if ( *(int *)LBMbuffer != LittleLong( FORMID ) ) {
+ Error( "No FORM ID at start of file!\n" );
+ }
+
+ LBM_P += 4;
+ formlength = BigLong( *(int *)LBM_P );
+ LBM_P += 4;
+ LBMEND_P = LBM_P + Align( formlength );
+
+ formtype = LittleLong( *(int *)LBM_P );
+
+ if ( formtype != ILBMID && formtype != PBMID ) {
+ Error( "Unrecognized form type: %c%c%c%c\n", formtype & 0xff
+ ,( formtype >> 8 ) & 0xff,( formtype >> 16 ) & 0xff,( formtype >> 24 ) & 0xff );
+ }
+
+ LBM_P += 4;
+
+//
+// parse chunks
+//
+
+ while ( LBM_P < LBMEND_P )
+ {
+ chunktype = LBM_P[0] + ( LBM_P[1] << 8 ) + ( LBM_P[2] << 16 ) + ( LBM_P[3] << 24 );
+ LBM_P += 4;
+ chunklength = LBM_P[3] + ( LBM_P[2] << 8 ) + ( LBM_P[1] << 16 ) + ( LBM_P[0] << 24 );
+ LBM_P += 4;
+
+ switch ( chunktype )
+ {
+ case BMHDID:
+ memcpy( &bmhd,LBM_P,sizeof( bmhd ) );
+ bmhd.w = BigShort( bmhd.w );
+ bmhd.h = BigShort( bmhd.h );
+ bmhd.x = BigShort( bmhd.x );
+ bmhd.y = BigShort( bmhd.y );
+ bmhd.pageWidth = BigShort( bmhd.pageWidth );
+ bmhd.pageHeight = BigShort( bmhd.pageHeight );
+ break;
+
+ case CMAPID:
+ cmapbuffer = safe_malloc( 768 );
+ memset( cmapbuffer, 0, 768 );
+ memcpy( cmapbuffer, LBM_P, chunklength );
+ break;
+
+ case BODYID:
+ body_p = LBM_P;
+
+ pic_p = picbuffer = safe_malloc( bmhd.w * bmhd.h );
+ if ( formtype == PBMID ) {
+ //
+ // unpack PBM
+ //
+ for ( y = 0 ; y < bmhd.h ; y++, pic_p += bmhd.w )
+ {
+ if ( bmhd.compression == cm_rle1 ) {
+ body_p = LBMRLEDecompress( (byte *)body_p
+ , pic_p, bmhd.w );
+ }
+ else if ( bmhd.compression == cm_none ) {
+ memcpy( pic_p,body_p,bmhd.w );
+ body_p += Align( bmhd.w );
+ }
+ }
+
+ }
+ else
+ {
+ //
+ // unpack ILBM
+ //
+ Error( "%s is an interlaced LBM, not packed", filename );
+ }
+ break;
+ }
+
+ LBM_P += Align( chunklength );
+ }
+
+ free( LBMbuffer );
+
+ *picture = picbuffer;
+
+ if ( palette ) {
+ *palette = cmapbuffer;
+ }
+}
+
+
+/*
+ ============================================================================
+
+ WRITE LBM
+
+ ============================================================================
+ */
+
+/*
+ ==============
+ WriteLBMfile
+ ==============
+ */
+void WriteLBMfile( const char *filename, byte *data,
+ int width, int height, byte *palette ){
+ byte *lbm, *lbmptr;
+ int *formlength, *bmhdlength, *cmaplength, *bodylength;
+ int length;
+ bmhd_t basebmhd;
+
+ lbm = lbmptr = safe_malloc( width * height + 1000 );
+
+//
+// start FORM
+//
+ *lbmptr++ = 'F';
+ *lbmptr++ = 'O';
+ *lbmptr++ = 'R';
+ *lbmptr++ = 'M';
+
+ formlength = (int*)lbmptr;
+ lbmptr += 4; // leave space for length
+
+ *lbmptr++ = 'P';
+ *lbmptr++ = 'B';
+ *lbmptr++ = 'M';
+ *lbmptr++ = ' ';
+
+//
+// write BMHD
+//
+ *lbmptr++ = 'B';
+ *lbmptr++ = 'M';
+ *lbmptr++ = 'H';
+ *lbmptr++ = 'D';
+
+ bmhdlength = (int *)lbmptr;
+ lbmptr += 4; // leave space for length
+
+ memset( &basebmhd,0,sizeof( basebmhd ) );
+ basebmhd.w = BigShort( (short)width );
+ basebmhd.h = BigShort( (short)height );
+ basebmhd.nPlanes = BigShort( 8 );
+ basebmhd.xAspect = BigShort( 5 );
+ basebmhd.yAspect = BigShort( 6 );
+ basebmhd.pageWidth = BigShort( (short)width );
+ basebmhd.pageHeight = BigShort( (short)height );
+
+ memcpy( lbmptr,&basebmhd,sizeof( basebmhd ) );
+ lbmptr += sizeof( basebmhd );
+
+ length = lbmptr - (byte *)bmhdlength - 4;
+ *bmhdlength = BigLong( length );
+ if ( length & 1 ) {
+ *lbmptr++ = 0; // pad chunk to even offset
+
+ }
+//
+// write CMAP
+//
+ *lbmptr++ = 'C';
+ *lbmptr++ = 'M';
+ *lbmptr++ = 'A';
+ *lbmptr++ = 'P';
+
+ cmaplength = (int *)lbmptr;
+ lbmptr += 4; // leave space for length
+
+ memcpy( lbmptr,palette,768 );
+ lbmptr += 768;
+
+ length = lbmptr - (byte *)cmaplength - 4;
+ *cmaplength = BigLong( length );
+ if ( length & 1 ) {
+ *lbmptr++ = 0; // pad chunk to even offset
+
+ }
+//
+// write BODY
+//
+ *lbmptr++ = 'B';
+ *lbmptr++ = 'O';
+ *lbmptr++ = 'D';
+ *lbmptr++ = 'Y';
+
+ bodylength = (int *)lbmptr;
+ lbmptr += 4; // leave space for length
+
+ memcpy( lbmptr,data,width * height );
+ lbmptr += width * height;
+
+ length = lbmptr - (byte *)bodylength - 4;
+ *bodylength = BigLong( length );
+ if ( length & 1 ) {
+ *lbmptr++ = 0; // pad chunk to even offset
+
+ }
+//
+// done
+//
+ length = lbmptr - (byte *)formlength - 4;
+ *formlength = BigLong( length );
+ if ( length & 1 ) {
+ *lbmptr++ = 0; // pad chunk to even offset
+
+ }
+//
+// write output file
+//
+ SaveFile( filename, lbm, lbmptr - lbm );
+ free( lbm );
+}
+
+
+/*
+ ============================================================================
+
+ LOAD PCX
+
+ ============================================================================
+ */
+
+typedef struct
+{
+ char manufacturer;
+ char version;
+ char encoding;
+ char bits_per_pixel;
+ unsigned short xmin,ymin,xmax,ymax;
+ unsigned short hres,vres;
+ unsigned char palette[48];
+ char reserved;
+ char color_planes;
+ unsigned short bytes_per_line;
+ unsigned short palette_type;
+ char filler[58];
+ unsigned char data; // unbounded
+} pcx_t;
+
+
+/*
+ ==============
+ LoadPCX
+ ==============
+ */
+
+/* RR2DO2 */
+#define DECODEPCX( b, d, r ) d = *b++; if ( ( d & 0xC0 ) == 0xC0 ) {r = d & 0x3F; d = *b++; }else{r = 1; }
+
+void LoadPCX( const char *filename, byte **pic, byte **palette, int *width, int *height ){
+ byte *raw;
+ pcx_t *pcx;
+ int x, y, lsize;
+ int len;
+ int dataByte, runLength;
+ byte *out, *pix;
+
+
+ /* load the file */
+ len = vfsLoadFile( filename, (void **)&raw, 0 );
+ if ( len == -1 ) {
+ Error( "LoadPCX: Couldn't read %s", filename );
+ }
+
+
+ /* parse the PCX file */
+ pcx = (pcx_t *)raw;
+ raw = &pcx->data;
+
+ pcx->xmin = LittleShort( pcx->xmin );
+ pcx->ymin = LittleShort( pcx->ymin );
+ pcx->xmax = LittleShort( pcx->xmax );
+ pcx->ymax = LittleShort( pcx->ymax );
+ pcx->hres = LittleShort( pcx->hres );
+ pcx->vres = LittleShort( pcx->vres );
+ pcx->bytes_per_line = LittleShort( pcx->bytes_per_line );
+ pcx->palette_type = LittleShort( pcx->palette_type );
+
+ if ( pcx->manufacturer != 0x0a
+ || pcx->version != 5
+ || pcx->encoding != 1
+ || pcx->bits_per_pixel != 8
+ || pcx->xmax >= 640
+ || pcx->ymax >= 480 ) {
+ Error( "Bad pcx file %s", filename );
+ }
+
+ if ( palette ) {
+ *palette = safe_malloc( 768 );
+ memcpy( *palette, (byte *)pcx + len - 768, 768 );
+ }
+
+ if ( width ) {
+ *width = pcx->xmax + 1;
+ }
+ if ( height ) {
+ *height = pcx->ymax + 1;
+ }
+
+ if ( !pic ) {
+ return;
+ }
+
+ out = safe_malloc( ( pcx->ymax + 1 ) * ( pcx->xmax + 1 ) );
+ if ( !out ) {
+ Error( "LoadPCX: couldn't allocate" );
+ }
+
+ *pic = out;
+ pix = out;
+
+ /* RR2DO2: pcx fix */
+ lsize = pcx->color_planes * pcx->bytes_per_line;
+
+ /* go scanline by scanline */
+ for ( y = 0; y <= pcx->ymax; y++, pix += pcx->xmax + 1 )
+ {
+ /* do a scanline */
+ runLength = 0;
+ for ( x = 0; x <= pcx->xmax; )
+ {
+ /* RR2DO2 */
+ DECODEPCX( raw, dataByte, runLength );
+ while ( runLength-- > 0 )
+ pix[ x++ ] = dataByte;
+ }
+
+ /* RR2DO2: discard any other data */
+ while ( x < lsize )
+ {
+ DECODEPCX( raw, dataByte, runLength );
+ x++;
+ }
+ while ( runLength-- > 0 )
+ x++;
+ }
+
+ /* validity check */
+ if ( raw - (byte *) pcx > len ) {
+ Error( "PCX file %s was malformed", filename );
+ }
+ free( pcx );
+}
+
+
+
+/*
+ ==============
+ WritePCXfile
+ ==============
+ */
+void WritePCXfile( const char *filename, byte *data,
+ int width, int height, byte *palette ){
+ int i, j, length;
+ pcx_t *pcx;
+ byte *pack;
+
+ pcx = safe_malloc( width * height * 2 + 1000 );
+ memset( pcx, 0, sizeof( *pcx ) );
+
+ pcx->manufacturer = 0x0a; // PCX id
+ pcx->version = 5; // 256 color
+ pcx->encoding = 1; // uncompressed
+ pcx->bits_per_pixel = 8; // 256 color
+ pcx->xmin = 0;
+ pcx->ymin = 0;
+ pcx->xmax = LittleShort( (short)( width - 1 ) );
+ pcx->ymax = LittleShort( (short)( height - 1 ) );
+ pcx->hres = LittleShort( (short)width );
+ pcx->vres = LittleShort( (short)height );
+ pcx->color_planes = 1; // chunky image
+ pcx->bytes_per_line = LittleShort( (short)width );
+ pcx->palette_type = LittleShort( 1 ); // not a grey scale
+
+ // pack the image
+ pack = &pcx->data;
+
+ for ( i = 0 ; i < height ; i++ )
+ {
+ for ( j = 0 ; j < width ; j++ )
+ {
+ if ( ( *data & 0xc0 ) != 0xc0 ) {
+ *pack++ = *data++;
+ }
+ else
+ {
+ *pack++ = 0xc1;
+ *pack++ = *data++;
+ }
+ }
+ }
+
+ // write the palette
+ *pack++ = 0x0c; // palette ID byte
+ for ( i = 0 ; i < 768 ; i++ )
+ *pack++ = *palette++;
+
+// write output file
+ length = pack - (byte *)pcx;
+ SaveFile( filename, pcx, length );
+
+ free( pcx );
+}
+
+/*
+ ============================================================================
+
+ LOAD BMP
+
+ ============================================================================
+ */
+
+
+/*
+
+ // we can't just use these structures, because
+ // compiler structure alignment will not be portable
+ // on this unaligned stuff
+
+ typedef struct tagBITMAPFILEHEADER { // bmfh
+ WORD bfType; // BM
+ DWORD bfSize;
+ WORD bfReserved1;
+ WORD bfReserved2;
+ DWORD bfOffBits;
+ } BITMAPFILEHEADER;
+
+ typedef struct tagBITMAPINFOHEADER{ // bmih
+ DWORD biSize;
+ LONG biWidth;
+ LONG biHeight;
+ WORD biPlanes;
+ WORD biBitCount
+ DWORD biCompression;
+ DWORD biSizeImage;
+ LONG biXPelsPerMeter;
+ LONG biYPelsPerMeter;
+ DWORD biClrUsed;
+ DWORD biClrImportant;
+ } BITMAPINFOHEADER;
+
+ typedef struct tagBITMAPINFO { // bmi
+ BITMAPINFOHEADER bmiHeader;
+ RGBQUAD bmiColors[1];
+ } BITMAPINFO;
+
+ typedef struct tagBITMAPCOREHEADER { // bmch
+ DWORD bcSize;
+ WORD bcWidth;
+ WORD bcHeight;
+ WORD bcPlanes;
+ WORD bcBitCount;
+ } BITMAPCOREHEADER;
+
+ typedef struct _BITMAPCOREINFO { // bmci
+ BITMAPCOREHEADER bmciHeader;
+ RGBTRIPLE bmciColors[1];
+ } BITMAPCOREINFO;
+
+ */
+
+/*
+ ==============
+ LoadBMP
+ ==============
+ */
+void LoadBMP( const char *filename, byte **pic, byte **palette, int *width, int *height ){
+ byte *out;
+ int i;
+ int bfOffBits;
+ int structSize;
+ int bcWidth;
+ int bcHeight;
+ int bcPlanes;
+ int bcBitCount;
+ byte bcPalette[1024];
+ qboolean flipped;
+ byte *in;
+ int len, pos = 0;
+
+ len = vfsLoadFile( filename, (void **)&in, 0 );
+ if ( len == -1 ) {
+ Error( "Couldn't read %s", filename );
+ }
+
+ i = bufLittleShort( in, len, &pos );
+ if ( i != 'B' + ( 'M' << 8 ) ) {
+ Error( "%s is not a bmp file", filename );
+ }
+
+ /* bfSize = */ bufLittleLong( in, len, &pos );
+ bufLittleShort( in, len, &pos );
+ bufLittleShort( in, len, &pos );
+ bfOffBits = bufLittleLong( in, len, &pos );
+
+ // the size will tell us if it is a
+ // bitmapinfo or a bitmapcore
+ structSize = bufLittleLong( in, len, &pos );
+ if ( structSize == 40 ) {
+ // bitmapinfo
+ bcWidth = bufLittleLong( in, len, &pos );
+ bcHeight = bufLittleLong( in, len, &pos );
+ bcPlanes = bufLittleShort( in, len, &pos );
+ bcBitCount = bufLittleShort( in, len, &pos );
+
+ pos += 24;
+
+ if ( palette ) {
+ memcpy( bcPalette, in + pos, 1024 );
+ pos += 1024;
+ *palette = safe_malloc( 768 );
+
+ for ( i = 0 ; i < 256 ; i++ )
+ {
+ ( *palette )[i * 3 + 0] = bcPalette[i * 4 + 2];
+ ( *palette )[i * 3 + 1] = bcPalette[i * 4 + 1];
+ ( *palette )[i * 3 + 2] = bcPalette[i * 4 + 0];
+ }
+ }
+ }
+ else if ( structSize == 12 ) {
+ // bitmapcore
+ bcWidth = bufLittleShort( in, len, &pos );
+ bcHeight = bufLittleShort( in, len, &pos );
+ bcPlanes = bufLittleShort( in, len, &pos );
+ bcBitCount = bufLittleShort( in, len, &pos );
+
+ if ( palette ) {
+ memcpy( bcPalette, in + pos, 768 );
+ pos += 768;
+ *palette = safe_malloc( 768 );
+
+ for ( i = 0 ; i < 256 ; i++ ) {
+ ( *palette )[i * 3 + 0] = bcPalette[i * 3 + 2];
+ ( *palette )[i * 3 + 1] = bcPalette[i * 3 + 1];
+ ( *palette )[i * 3 + 2] = bcPalette[i * 3 + 0];
+ }
+ }
+ }
+ else {
+ Error( "%s had strange struct size", filename );
+ }
+
+ if ( bcPlanes != 1 ) {
+ Error( "%s was not a single plane image", filename );
+ }
+
+ if ( bcBitCount != 8 ) {
+ Error( "%s was not an 8 bit image", filename );
+ }
+
+ if ( bcHeight < 0 ) {
+ bcHeight = -bcHeight;
+ flipped = qtrue;
+ }
+ else {
+ flipped = qfalse;
+ }
+
+ if ( width ) {
+ *width = bcWidth;
+ }
+ if ( height ) {
+ *height = bcHeight;
+ }
+
+ if ( !pic ) {
+ free( in );
+ return;
+ }
+
+ out = safe_malloc( bcWidth * bcHeight );
+ *pic = out;
+ pos = bfOffBits;
+
+ if ( flipped ) {
+ for ( i = 0 ; i < bcHeight ; i++ ) {
+ memcpy( out + bcWidth * ( bcHeight - 1 - i ), in + pos, bcWidth );
+ pos += bcWidth;
+ }
+ }
+ else {
+ memcpy( out, in + pos, bcWidth * bcHeight );
+ pos += bcWidth * bcHeight;
+ }
+
+ free( in );
+}
+
+
+/*
+ ============================================================================
+
+ LOAD IMAGE
+
+ ============================================================================
+ */
+
+/*
+ ==============
+ Load256Image
+
+ Will load either an lbm or pcx, depending on extension.
+ Any of the return pointers can be NULL if you don't want them.
+ ==============
+ */
+void Load256Image( const char *name, byte **pixels, byte **palette, int *width, int *height ){
+ char ext[128];
+
+ ExtractFileExtension( name, ext );
+ if ( !Q_stricmp( ext, "lbm" ) ) {
+ LoadLBM( name, pixels, palette );
+ if ( width ) {
+ *width = bmhd.w;
+ }
+ if ( height ) {
+ *height = bmhd.h;
+ }
+ }
+ else if ( !Q_stricmp( ext, "pcx" ) ) {
+ LoadPCX( name, pixels, palette, width, height );
+ }
+ else if ( !Q_stricmp( ext, "bmp" ) ) {
+ LoadBMP( name, pixels, palette, width, height );
+ }
+ else{
+ Error( "%s doesn't have a known image extension", name );
+ }
+}
+
+
+/*
+ ==============
+ Save256Image
+
+ Will save either an lbm or pcx, depending on extension.
+ ==============
+ */
+void Save256Image( const char *name, byte *pixels, byte *palette,
+ int width, int height ){
+ char ext[128];
+
+ ExtractFileExtension( name, ext );
+ if ( !Q_stricmp( ext, "lbm" ) ) {
+ WriteLBMfile( name, pixels, width, height, palette );
+ }
+ else if ( !Q_stricmp( ext, "pcx" ) ) {
+ WritePCXfile( name, pixels, width, height, palette );
+ }
+ else{
+ Error( "%s doesn't have a known image extension", name );
+ }
+}
+
+
+
+
+/*
+ ============================================================================
+
+ TARGA IMAGE
+
+ ============================================================================
+ */
+
+typedef struct _TargaHeader {
+ unsigned char id_length, colormap_type, image_type;
+ unsigned short colormap_index, colormap_length;
+ unsigned char colormap_size;
+ unsigned short x_origin, y_origin, width, height;
+ unsigned char pixel_size, attributes;
+} TargaHeader;
+
+void TargaError( TargaHeader *t, const char *message ){
+ Sys_Printf( "%s\n:TargaHeader:\nuint8 id_length = %i;\nuint8 colormap_type = %i;\nuint8 image_type = %i;\nuint16 colormap_index = %i;\nuint16 colormap_length = %i;\nuint8 colormap_size = %i;\nuint16 x_origin = %i;\nuint16 y_origin = %i;\nuint16 width = %i;\nuint16 height = %i;\nuint8 pixel_size = %i;\nuint8 attributes = %i;\n", message, t->id_length, t->colormap_type, t->image_type, t->colormap_index, t->colormap_length, t->colormap_size, t->x_origin, t->y_origin, t->width, t->height, t->pixel_size, t->attributes );
+}
+
+/*
+ =============
+ LoadTGABuffer
+ =============
+ */
+void LoadTGABuffer( const byte *f, const byte *enddata, byte **pic, int *width, int *height ){
+ int x, y, row_inc, compressed, readpixelcount, red, green, blue, alpha, runlen, pindex, alphabits, image_width, image_height;
+ byte *pixbuf, *image_rgba;
+ const byte *fin;
+ unsigned char *p;
+ TargaHeader targa_header;
+ unsigned char palette[256 * 4];
+
+ *pic = NULL;
+
+ // abort if it is too small to parse
+ if ( enddata - f < 19 ) {
+ return;
+ }
+
+ targa_header.id_length = f[0];
+ targa_header.colormap_type = f[1];
+ targa_header.image_type = f[2];
+
+ targa_header.colormap_index = f[3] + f[4] * 256;
+ targa_header.colormap_length = f[5] + f[6] * 256;
+ targa_header.colormap_size = f[7];
+ targa_header.x_origin = f[8] + f[9] * 256;
+ targa_header.y_origin = f[10] + f[11] * 256;
+ targa_header.width = image_width = f[12] + f[13] * 256;
+ targa_header.height = image_height = f[14] + f[15] * 256;
+
+ targa_header.pixel_size = f[16];
+ targa_header.attributes = f[17];
+
+ // advance to end of header
+ fin = f + 18;
+
+ // skip TARGA image comment (usually 0 bytes)
+ fin += targa_header.id_length;
+
+ // read/skip the colormap if present (note: according to the TARGA spec it
+ // can be present even on truecolor or greyscale images, just not used by
+ // the image data)
+ if ( targa_header.colormap_type ) {
+ if ( targa_header.colormap_length > 256 ) {
+ TargaError( &targa_header, "LoadTGA: only up to 256 colormap_length supported\n" );
+ return;
+ }
+ if ( targa_header.colormap_index ) {
+ TargaError( &targa_header, "LoadTGA: colormap_index not supported\n" );
+ return;
+ }
+ if ( targa_header.colormap_size == 24 ) {
+ for ( x = 0; x < targa_header.colormap_length; x++ )
+ {
+ palette[x * 4 + 2] = *fin++;
+ palette[x * 4 + 1] = *fin++;
+ palette[x * 4 + 0] = *fin++;
+ palette[x * 4 + 3] = 255;
+ }
+ }
+ else if ( targa_header.colormap_size == 32 ) {
+ for ( x = 0; x < targa_header.colormap_length; x++ )
+ {
+ palette[x * 4 + 2] = *fin++;
+ palette[x * 4 + 1] = *fin++;
+ palette[x * 4 + 0] = *fin++;
+ palette[x * 4 + 3] = *fin++;
+ }
+ }
+ else
+ {
+ TargaError( &targa_header, "LoadTGA: Only 32 and 24 bit colormap_size supported\n" );
+ return;
+ }
+ }
+
+ // check our pixel_size restrictions according to image_type
+ if ( targa_header.image_type == 2 || targa_header.image_type == 10 ) {
+ if ( targa_header.pixel_size != 24 && targa_header.pixel_size != 32 ) {
+ TargaError( &targa_header, "LoadTGA: only 24bit and 32bit pixel sizes supported for type 2 and type 10 images\n" );
+ return;
+ }
+ }
+ else if ( targa_header.image_type == 1 || targa_header.image_type == 9 ) {
+ if ( targa_header.pixel_size != 8 ) {
+ TargaError( &targa_header, "LoadTGA: only 8bit pixel size for type 1, 3, 9, and 11 images supported\n" );
+ return;
+ }
+ }
+ else if ( targa_header.image_type == 3 || targa_header.image_type == 11 ) {
+ if ( targa_header.pixel_size != 8 ) {
+ TargaError( &targa_header, "LoadTGA: only 8bit pixel size for type 1, 3, 9, and 11 images supported\n" );
+ return;
+ }
+ }
+ else
+ {
+ TargaError( &targa_header, "LoadTGA: Only type 1, 2, 3, 9, 10, and 11 targa RGB images supported" );
+ return;
+ }
+
+ if ( targa_header.attributes & 0x10 ) {
+ TargaError( &targa_header, "LoadTGA: origin must be in top left or bottom left, top right and bottom right are not supported\n" );
+ return;
+ }
+
+ // number of attribute bits per pixel, we only support 0 or 8
+ alphabits = targa_header.attributes & 0x0F;
+ if ( alphabits != 8 && alphabits != 0 ) {
+ TargaError( &targa_header, "LoadTGA: only 0 or 8 attribute (alpha) bits supported\n" );
+ return;
+ }
+
+ image_rgba = safe_malloc( image_width * image_height * 4 );
+ if ( !image_rgba ) {
+ Sys_Printf( "LoadTGA: not enough memory for %i by %i image\n", image_width, image_height );
+ return;
+ }
+
+ // If bit 5 of attributes isn't set, the image has been stored from bottom to top
+ if ( ( targa_header.attributes & 0x20 ) == 0 ) {
+ pixbuf = image_rgba + ( image_height - 1 ) * image_width * 4;
+ row_inc = -image_width * 4 * 2;
+ }
+ else
+ {
+ pixbuf = image_rgba;
+ row_inc = 0;
+ }
+
+ compressed = targa_header.image_type == 9 || targa_header.image_type == 10 || targa_header.image_type == 11;
+ x = 0;
+ y = 0;
+ red = green = blue = alpha = 255;
+ while ( y < image_height )
+ {
+ // decoder is mostly the same whether it's compressed or not
+ readpixelcount = 1000000;
+ runlen = 1000000;
+ if ( compressed && fin < enddata ) {
+ runlen = *fin++;
+ // high bit indicates this is an RLE compressed run
+ if ( runlen & 0x80 ) {
+ readpixelcount = 1;
+ }
+ runlen = 1 + ( runlen & 0x7f );
+ }
+
+ while ( ( runlen-- ) && y < image_height )
+ {
+ if ( readpixelcount > 0 ) {
+ readpixelcount--;
+ red = green = blue = alpha = 255;
+ if ( fin < enddata ) {
+ switch ( targa_header.image_type )
+ {
+ case 1:
+ case 9:
+ // colormapped
+ pindex = *fin++;
+ if ( pindex >= targa_header.colormap_length ) {
+ pindex = 0; // error
+ }
+ p = palette + pindex * 4;
+ red = p[0];
+ green = p[1];
+ blue = p[2];
+ alpha = p[3];
+ break;
+ case 2:
+ case 10:
+ // BGR or BGRA
+ blue = *fin++;
+ if ( fin < enddata ) {
+ green = *fin++;
+ }
+ if ( fin < enddata ) {
+ red = *fin++;
+ }
+ if ( targa_header.pixel_size == 32 && fin < enddata ) {
+ alpha = *fin++;
+ }
+ break;
+ case 3:
+ case 11:
+ // greyscale
+ red = green = blue = *fin++;
+ break;
+ }
+ if ( !alphabits ) {
+ alpha = 255;
+ }
+ }
+ }
+ *pixbuf++ = red;
+ *pixbuf++ = green;
+ *pixbuf++ = blue;
+ *pixbuf++ = alpha;
+ x++;
+ if ( x == image_width ) {
+ // end of line, advance to next
+ x = 0;
+ y++;
+ pixbuf += row_inc;
+ }
+ }
+ }
+
+ *pic = image_rgba;
+ if ( width ) {
+ *width = image_width;
+ }
+ if ( height ) {
+ *height = image_height;
+ }
+}
+
+
+/*
+ =============
+ LoadTGA
+ =============
+ */
+void LoadTGA( const char *name, byte **pixels, int *width, int *height ){
+ byte *buffer;
+ int nLen;
+ //
+ // load the file
+ //
+ nLen = vfsLoadFile( name, (void **)&buffer, 0 );
+ if ( nLen == -1 ) {
+ Error( "Couldn't read %s", name );
+ }
+
+ LoadTGABuffer( buffer, buffer + nLen, pixels, width, height );
+
+}
+
+
+/*
+ ================
+ WriteTGA
+ ================
+ */
+void WriteTGA( const char *filename, byte *data, int width, int height ) {
+ byte *buffer;
+ int i;
+ int c;
+ FILE *f;
+
+ buffer = safe_malloc( width * height * 4 + 18 );
+ memset( buffer, 0, 18 );
+ buffer[2] = 2; // uncompressed type
+ buffer[12] = width & 255;
+ buffer[13] = width >> 8;
+ buffer[14] = height & 255;
+ buffer[15] = height >> 8;
+ buffer[16] = 32; // pixel size
+
+ // swap rgb to bgr
+ c = 18 + width * height * 4;
+ for ( i = 18 ; i < c ; i += 4 )
+ {
+ buffer[i] = data[i - 18 + 2]; // blue
+ buffer[i + 1] = data[i - 18 + 1]; // green
+ buffer[i + 2] = data[i - 18 + 0]; // red
+ buffer[i + 3] = data[i - 18 + 3]; // alpha
+ }
+
+ f = fopen( filename, "wb" );
+ fwrite( buffer, 1, c, f );
+ fclose( f );
+
+ free( buffer );
+}
+
+void WriteTGAGray( const char *filename, byte *data, int width, int height ) {
+ byte buffer[18];
+ FILE *f;
+
+ memset( buffer, 0, 18 );
+ buffer[2] = 3; // uncompressed type
+ buffer[12] = width & 255;
+ buffer[13] = width >> 8;
+ buffer[14] = height & 255;
+ buffer[15] = height >> 8;
+ buffer[16] = 8; // pixel size
+
+ f = fopen( filename, "wb" );
+ fwrite( buffer, 1, 18, f );
+ fwrite( data, 1, width * height, f );
+ fclose( f );
+}
+
+/*
+ ============================================================================
+
+ LOAD32BITIMAGE
+
+ ============================================================================
+ */
+
+/*
+ ==============
+ Load32BitImage
+
+ Any of the return pointers can be NULL if you don't want them.
+ ==============
+ */
+void Load32BitImage( const char *name, unsigned **pixels, int *width, int *height ){
+ char ext[128];
+ byte *palette;
+ byte *pixels8;
+ byte *pixels32;
+ int size;
+ int i;
+ int v;
+
+ ExtractFileExtension( name, ext );
+ if ( !Q_stricmp( ext, "tga" ) ) {
+ LoadTGA( name, (byte **)pixels, width, height );
+ }
+ else {
+ Load256Image( name, &pixels8, &palette, width, height );
+ if ( !pixels ) {
+ return;
+ }
+ size = *width * *height;
+ pixels32 = safe_malloc( size * 4 );
+ *pixels = (unsigned *)pixels32;
+ for ( i = 0 ; i < size ; i++ ) {
+ v = pixels8[i];
+ pixels32[i * 4 + 0] = palette[ v * 3 + 0 ];
+ pixels32[i * 4 + 1] = palette[ v * 3 + 1 ];
+ pixels32[i * 4 + 2] = palette[ v * 3 + 2 ];
+ pixels32[i * 4 + 3] = 0xff;
+ }
+ }
+}
+
+
+/*
+ ============================================================================
+
+ KHRONOS TEXTURE
+
+ ============================================================================
+ */
+
+
+#define KTX_UINT32_LE( buf ) ( ( unsigned int )( (buf)[0] | ( (buf)[1] << 8 ) | ( (buf)[2] << 16 ) | ( (buf)[3] << 24 ) ) )
+#define KTX_UINT32_BE( buf ) ( ( unsigned int )( (buf)[3] | ( (buf)[2] << 8 ) | ( (buf)[1] << 16 ) | ( (buf)[0] << 24 ) ) )
+
+#define KTX_TYPE_UNSIGNED_BYTE 0x1401
+#define KTX_TYPE_UNSIGNED_SHORT_4_4_4_4 0x8033
+#define KTX_TYPE_UNSIGNED_SHORT_5_5_5_1 0x8034
+#define KTX_TYPE_UNSIGNED_SHORT_5_6_5 0x8363
+
+#define KTX_FORMAT_ALPHA 0x1906
+#define KTX_FORMAT_RGB 0x1907
+#define KTX_FORMAT_RGBA 0x1908
+#define KTX_FORMAT_LUMINANCE 0x1909
+#define KTX_FORMAT_LUMINANCE_ALPHA 0x190A
+#define KTX_FORMAT_BGR 0x80E0
+#define KTX_FORMAT_BGRA 0x80E1
+
+#define KTX_FORMAT_ETC1_RGB8 0x8D64
+
+static void KTX_DecodeA8( const byte *in, qboolean bigEndian, byte *out ){
+ out[0] = out[1] = out[2] = 0;
+ out[3] = in[0];
+}
+
+static void KTX_DecodeRGB8( const byte *in, qboolean bigEndian, byte *out ){
+ out[0] = in[0];
+ out[1] = in[1];
+ out[2] = in[2];
+ out[3] = 255;
+}
+
+static void KTX_DecodeRGBA8( const byte *in, qboolean bigEndian, byte *out ){
+ out[0] = in[0];
+ out[1] = in[1];
+ out[2] = in[2];
+ out[3] = in[3];
+}
+
+static void KTX_DecodeL8( const byte *in, qboolean bigEndian, byte *out ){
+ out[0] = out[1] = out[2] = in[0];
+ out[3] = 255;
+}
+
+static void KTX_DecodeLA8( const byte *in, qboolean bigEndian, byte *out ){
+ out[0] = out[1] = out[2] = in[0];
+ out[3] = in[1];
+}
+
+static void KTX_DecodeBGR8( const byte *in, qboolean bigEndian, byte *out ){
+ out[0] = in[2];
+ out[1] = in[1];
+ out[2] = in[0];
+ out[3] = 255;
+}
+
+static void KTX_DecodeBGRA8( const byte *in, qboolean bigEndian, byte *out ){
+ out[0] = in[2];
+ out[1] = in[1];
+ out[2] = in[0];
+ out[3] = in[3];
+}
+
+static void KTX_DecodeRGBA4( const byte *in, qboolean bigEndian, byte *out ){
+ unsigned short rgba;
+ int r, g, b, a;
+
+ if ( bigEndian ) {
+ rgba = ( in[0] << 8 ) | in[1];
+ }
+ else {
+ rgba = ( in[1] << 8 ) | in[0];
+ }
+
+ r = ( rgba >> 12 ) & 0xf;
+ g = ( rgba >> 8 ) & 0xf;
+ b = ( rgba >> 4 ) & 0xf;
+ a = rgba & 0xf;
+ out[0] = ( r << 4 ) | r;
+ out[1] = ( g << 4 ) | g;
+ out[2] = ( b << 4 ) | b;
+ out[3] = ( a << 4 ) | a;
+}
+
+static void KTX_DecodeRGBA5( const byte *in, qboolean bigEndian, byte *out ){
+ unsigned short rgba;
+ int r, g, b;
+
+ if ( bigEndian ) {
+ rgba = ( in[0] << 8 ) | in[1];
+ }
+ else {
+ rgba = ( in[1] << 8 ) | in[0];
+ }
+
+ r = ( rgba >> 11 ) & 0x1f;
+ g = ( rgba >> 6 ) & 0x1f;
+ b = ( rgba >> 1 ) & 0x1f;
+ out[0] = ( r << 3 ) | ( r >> 2 );
+ out[1] = ( g << 3 ) | ( g >> 2 );
+ out[2] = ( b << 3 ) | ( b >> 2 );
+ out[3] = ( rgba & 1 ) * 255;
+}
+
+static void KTX_DecodeRGB5( const byte *in, qboolean bigEndian, byte *out ){
+ unsigned short rgba;
+ int r, g, b;
+
+ if ( bigEndian ) {
+ rgba = ( in[0] << 8 ) | in[1];
+ }
+ else {
+ rgba = ( in[1] << 8 ) | in[0];
+ }
+
+ r = ( rgba >> 11 ) & 0x1f;
+ g = ( rgba >> 5 ) & 0x3f;
+ b = rgba & 0x1f;
+ out[0] = ( r << 3 ) | ( r >> 2 );
+ out[1] = ( g << 2 ) | ( g >> 4 );
+ out[2] = ( b << 3 ) | ( b >> 2 );
+ out[3] = 255;
+}
+
+typedef struct
+{
+ unsigned int type;
+ unsigned int format;
+ unsigned int pixelSize;
+ void ( *decode )( const byte *in, qboolean bigEndian, byte *out );
+} KTX_UncompressedFormat_t;
+
+static const KTX_UncompressedFormat_t KTX_UncompressedFormats[] =
+{
+ { KTX_TYPE_UNSIGNED_BYTE, KTX_FORMAT_ALPHA, 1, KTX_DecodeA8 },
+ { KTX_TYPE_UNSIGNED_BYTE, KTX_FORMAT_RGB, 3, KTX_DecodeRGB8 },
+ { KTX_TYPE_UNSIGNED_BYTE, KTX_FORMAT_RGBA, 4, KTX_DecodeRGBA8 },
+ { KTX_TYPE_UNSIGNED_BYTE, KTX_FORMAT_LUMINANCE, 1, KTX_DecodeL8 },
+ { KTX_TYPE_UNSIGNED_BYTE, KTX_FORMAT_LUMINANCE_ALPHA, 2, KTX_DecodeLA8 },
+ { KTX_TYPE_UNSIGNED_BYTE, KTX_FORMAT_BGR, 3, KTX_DecodeBGR8 },
+ { KTX_TYPE_UNSIGNED_BYTE, KTX_FORMAT_BGRA, 4, KTX_DecodeBGRA8 },
+ { KTX_TYPE_UNSIGNED_SHORT_4_4_4_4, KTX_FORMAT_RGBA, 2, KTX_DecodeRGBA4 },
+ { KTX_TYPE_UNSIGNED_SHORT_5_5_5_1, KTX_FORMAT_RGBA, 2, KTX_DecodeRGBA5 },
+ { KTX_TYPE_UNSIGNED_SHORT_5_6_5, KTX_FORMAT_RGB, 2, KTX_DecodeRGB5 },
+ { 0, 0, 0, NULL }
+};
+
+static qboolean KTX_DecodeETC1( const byte* in, size_t inSize, unsigned int width, unsigned int height, byte* out ){
+ unsigned int y, stride = width * 4;
+ byte rgba[64];
+
+ if ( inSize < ( ( ( ( width + 3 ) & ~3 ) * ( ( height + 3 ) & ~3 ) ) >> 1 ) ) {
+ return qfalse;
+ }
+
+ for ( y = 0; y < height; y += 4, out += stride * 4 )
+ {
+ byte *p;
+ unsigned int x, blockrows;
+
+ blockrows = height - y;
+ if ( blockrows > 4 ) {
+ blockrows = 4;
+ }
+
+ p = out;
+ for ( x = 0; x < width; x += 4, p += 16 )
+ {
+ unsigned int blockrowsize, blockrow;
+
+ ETC_DecodeETC1Block( in, rgba, qtrue );
+ in += 8;
+
+ blockrowsize = width - x;
+ if ( blockrowsize > 4 ) {
+ blockrowsize = 4;
+ }
+ blockrowsize *= 4;
+ for ( blockrow = 0; blockrow < blockrows; blockrow++ )
+ {
+ memcpy( p + blockrow * stride, rgba + blockrow * 16, blockrowsize );
+ }
+ }
+ }
+
+ return qtrue;
+}
+
+#define KTX_HEADER_UINT32( buf ) ( bigEndian ? KTX_UINT32_BE( buf ) : KTX_UINT32_LE( buf ) )
+
+void LoadKTXBufferFirstImage( const byte *buffer, size_t bufSize, byte **pic, int *picWidth, int *picHeight ){
+ unsigned int type, format, width, height, imageOffset;
+ byte *pixels;
+
+ if ( bufSize < 64 ) {
+ Error( "LoadKTX: Image doesn't have a header" );
+ }
+
+ if ( memcmp( buffer, "\xABKTX 11\xBB\r\n\x1A\n", 12 ) ) {
+ Error( "LoadKTX: Image has the wrong identifier" );
+ }
+
+ qboolean bigEndian = ( buffer[4] == 4 );
+
+ type = KTX_HEADER_UINT32( buffer + 16 );
+ if ( type ) {
+ format = KTX_HEADER_UINT32( buffer + 32 );
+ }
+ else {
+ format = KTX_HEADER_UINT32( buffer + 28 );
+ }
+
+ width = KTX_HEADER_UINT32( buffer + 36 );
+ height = KTX_HEADER_UINT32( buffer + 40 );
+ if ( !width ) {
+ Error( "LoadKTX: Image has zero width" );
+ }
+ if ( !height ) {
+ height = 1;
+ }
+ if ( picWidth ) {
+ *picWidth = width;
+ }
+ if ( picHeight ) {
+ *picHeight = height;
+ }
+
+ imageOffset = 64 + KTX_HEADER_UINT32( buffer + 60 ) + 4;
+ if ( bufSize < imageOffset ) {
+ Error( "LoadKTX: No image in the file" );
+ }
+ buffer += imageOffset;
+ bufSize -= imageOffset;
+
+ pixels = safe_malloc( width * height * 4 );
+ *pic = pixels;
+
+ if ( type ) {
+ const KTX_UncompressedFormat_t *ktxFormat = KTX_UncompressedFormats;
+ unsigned int pixelSize;
+ unsigned int inRowLength, inPadding;
+ unsigned int y;
+
+ while ( ktxFormat->type )
+ {
+ if ( ktxFormat->type == type && ktxFormat->format == format ) {
+ break;
+ }
+ ktxFormat++;
+ }
+ if ( !ktxFormat->type ) {
+ Error( "LoadKTX: Image has an unsupported pixel type 0x%X or format 0x%X", type, format );
+ }
+
+ pixelSize = ktxFormat->pixelSize;
+ inRowLength = width * pixelSize;
+ inPadding = ( ( inRowLength + 3 ) & ~3 ) - inRowLength;
+
+ if ( bufSize < height * ( inRowLength + inPadding ) ) {
+ Error( "LoadKTX: Image is truncated" );
+ }
+
+ for ( y = 0; y < height; y++ )
+ {
+ unsigned int x;
+ for ( x = 0; x < width; x++, buffer += pixelSize, pixels += 4 )
+ {
+ ktxFormat->decode( buffer, bigEndian, pixels );
+ }
+ buffer += inPadding;
+ }
+ }
+ else {
+ qboolean decoded = qfalse;
+
+ switch ( format )
+ {
+ case KTX_FORMAT_ETC1_RGB8:
+ decoded = KTX_DecodeETC1( buffer, bufSize, width, height, pixels );
+ break;
+ default:
+ Error( "LoadKTX: Image has an unsupported compressed format format 0x%X", format );
+ break;
+ }
+
+ if ( !decoded ) {
+ Error( "LoadKTX: Image is truncated" );
+ }
+ }
+}
projects / xonotic / netradiant.git / blobdiff