quakeforge/libs/util/tga.c
2001-12-21 06:07:30 +00:00

284 lines
6.4 KiB
C

/*
tga.c
targa image handling
Copyright (C) 1996-1997 Id Software, Inc.
This program 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.
This program 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 this program; if not, write to:
Free Software Foundation, Inc.
59 Temple Place - Suite 330
Boston, MA 02111-1307, USA
*/
static const char rcsid[] =
"$Id$";
#ifdef HAVE_CONFIG_H
# include "config.h"
#endif
#ifdef HAVE_STRING_H
# include <string.h>
#endif
#ifdef HAVE_STRINGS_H
# include <strings.h>
#endif
#include <stdlib.h>
#include "QF/qendian.h"
#include "QF/sys.h"
#include "QF/texture.h"
#include "QF/tga.h"
#include "QF/vfs.h"
#include "QF/zone.h"
#include "compat.h"
static int
fgetLittleShort (VFile *f)
{
byte b1, b2;
b1 = Qgetc (f);
b2 = Qgetc (f);
return (short) (b1 + b2 * 256);
}
/*
static int
fgetLittleLong (VFile *f)
{
byte b1, b2, b3, b4;
b1 = Qgetc(f);
b2 = Qgetc(f);
b3 = Qgetc(f);
b4 = Qgetc(f);
return b1 + (b2<<8) + (b3<<16) + (b4<<24);
}
*/
static inline byte *
blit_rgb (byte *buf, int count, byte red, byte green, byte blue)
{
while (count--) {
buf[0] = red;
buf[1] = green;
buf[2] = blue;
buf += 3;
}
return buf;
}
static inline byte *
blit_rgba (byte *buf, int count, byte red, byte green, byte blue, byte alpha)
{
while (count--) {
buf[0] = red;
buf[1] = green;
buf[2] = blue;
buf[3] = alpha;
buf += 4;
}
return buf;
}
static inline byte *
read_bgr (byte *buf, int count, byte **data)
{
byte blue = (*data)[0];
byte green = (*data)[1];
byte red = (*data)[2];
*data += 3;
return blit_rgb(buf, count, red, green, blue);
}
static inline byte *
read_rgb (byte *buf, int count, byte **data)
{
byte red = (*data)[0];
byte green = (*data)[1];
byte blue = (*data)[2];
*data += 3;
return blit_rgb(buf, count, red, green, blue);
}
static inline byte *
read_bgra (byte *buf, int count, byte **data)
{
byte blue = (*data)[0];
byte green = (*data)[1];
byte red = (*data)[2];
byte alpha = (*data)[3];
*data += 4;
return blit_rgba (buf, count, red, green, blue, alpha);
}
static inline byte *
read_rgba (byte *buf, int count, byte **data)
{
byte red = (*data)[0];
byte green = (*data)[1];
byte blue = (*data)[2];
byte alpha = (*data)[3];
*data += 4;
return blit_rgba (buf, count, red, green, blue, alpha);
}
struct tex_s *
LoadTGA (VFile *fin)
{
byte *dataByte, *pixcol, *pixrow;
int column, row, columns, rows, numPixels, span;
int targa_mark;
TargaHeader *targa;
tex_t *tex;
targa_mark = Hunk_LowMark ();
targa = Hunk_AllocName (com_filesize, "TGA");
Qread (fin, targa, com_filesize);
targa->colormap_index = LittleShort (targa->colormap_index);
targa->colormap_length = LittleShort (targa->colormap_length);
targa->x_origin = LittleShort (targa->x_origin);
targa->y_origin = LittleShort (targa->y_origin);
targa->width = LittleShort (targa->width);
targa->height = LittleShort (targa->height);
if (targa->image_type != 2 && targa->image_type != 10)
Sys_Error ("LoadTGA: Only type 2 and 10 targa RGB images supported\n");
if (targa->colormap_type != 0
|| (targa->pixel_size != 32 && targa->pixel_size != 24))
Sys_Error ("Texture_LoadTGA: Only 32 or 24 bit images supported "
"(no colormaps)\n");
columns = targa->width;
rows = targa->height;
numPixels = columns * rows;
switch (targa->pixel_size) {
case 24:
tex = Hunk_TempAlloc (field_offset (tex_t, data[numPixels * 3]));
if (!tex)
Sys_Error ("LoadTGA: Memory Allocation Failure\n");
tex->format = tex_rgb;
break;
default:
case 32:
tex = Hunk_TempAlloc (field_offset (tex_t, data[numPixels * 4]));
if (!tex)
Sys_Error ("LoadTGA: Memory Allocation Failure\n");
tex->format = tex_rgba;
break;
}
tex->width = columns;
tex->height = rows;
tex->palette = 0;
// skip TARGA image comment
dataByte = (byte *)(targa + 1);
dataByte += targa->id_length;
span = columns * tex->format;
pixrow = tex->data + (rows - 1) * span;
if (targa->image_type == 2) { // Uncompressed image
switch (targa->pixel_size) {
case 24:
for (row = rows - 1; row >= 0; row--, pixrow -= span) {
pixcol = pixrow;
for (column = 0; column < columns; column++)
pixcol = read_bgr (pixcol, 1, &dataByte);
}
break;
case 32:
for (row = rows - 1; row >= 0; row--, pixrow -= span) {
pixcol = pixrow;
for (column = 0; column < columns; column++)
pixcol = read_bgra (pixcol, 1, &dataByte);
}
break;
}
} else if (targa->image_type == 10) { // RLE compressed image
unsigned char packetHeader, packetSize;
byte *(*expand)(byte *buf, int count, byte **data);
if (targa->pixel_size == 24)
expand = read_bgr;
else
expand = read_bgra;
for (row = rows - 1; row >= 0; row--, pixrow -= span) {
pixcol = pixrow;
for (column = 0; column < columns;) {
packetHeader = *dataByte++;
packetSize = 1 + (packetHeader & 0x7f);
while (packetSize > columns - column) {
int count = columns - column;
packetSize -= count;
if (packetHeader & 0x80) { // run-length packet
expand (pixcol, count, &dataByte);
} else { // non run-length packet
while (count--)
expand (pixcol, 1, &dataByte);
}
column = 0;
pixcol = (pixrow -= span);
if (--row < 0)
goto done;
}
column += packetSize;
if (packetHeader & 0x80) { // run-length packet
pixcol = expand (pixcol, packetSize, &dataByte);
} else { // non run-length packet
while (packetSize--)
pixcol = expand (pixcol, 1, &dataByte);
}
}
}
done:
}
Hunk_FreeToLowMark (targa_mark);
return tex;
}
void
WriteTGAfile (const char *tganame, byte *data, int width, int height)
{
TargaHeader header;
memset (&header, 0, sizeof (header));
header.image_type = 2; // uncompressed type
header.width = LittleShort (width);
header.height = LittleShort (height);
header.pixel_size = 24;
COM_WriteBuffers (tganame, 2, &header, sizeof (header), data,
width * height * 3);
}