/*
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
*/


#include "qdata.h"

byte			*byteimage, *lbmpalette;
int				byteimagewidth, byteimageheight;

qboolean		TrueColorImage;
int				longimagewidth, longimageheight;

char			book_prefix[1024];
byte			buffer[640 * 480];
unsigned long	bufferl[640 * 480];

miptex_t *CreateBook8(byte *buffer, int w, int h, byte *palette, int *FinalSize)
{
	miptex_t	*mp;
	int			i, j;
	byte		*pos;
	int			size;

	size = sizeof(*mp) + (w * h);
	mp = (miptex_t *)SafeMalloc(size, "CreateBook8");
	memset(mp, 0, size);

	mp->version = MIP_VERSION;

	for(i=j=0;i<256;i++,j+=3)
	{
		mp->palette[i].r = palette[j];
		mp->palette[i].g = palette[j+1];
		mp->palette[i].b = palette[j+2];
	}
	pos = (byte *)(mp + 1);

	mp->width[0] = w;
	mp->height[0] = h;
	mp->offsets[0] = sizeof(*mp);
	memcpy(pos, buffer, w * h);

	*FinalSize = size;
	return(mp);
}

miptex32_t *CreateBook32(long *buffer, int w, int h, int *FinalSize)
{
	miptex32_t	*mp;
	byte		*pos;
	int			size;

	size = sizeof(*mp) + (w * h * 4);
	mp = (miptex32_t *)SafeMalloc(size, "CreateBook32");
	memset(mp, 0, size);

	mp->version = MIP32_VERSION;

	pos = (byte *)(mp + 1);

	mp->width[0] = w;
	mp->height[0] = h;
	mp->offsets[0] = sizeof(*mp);
	memcpy(pos, buffer, w * h * 4);

	*FinalSize = size;
	return(mp);
}


// Routines to chop a random sized image into gl texture friendly chunks

typedef struct rect_s 
{
	int		x, y;
	int		w, h;
	char	name[4];
} rect_t;

int GetCoords(int x, int store[MAX_MD2SKINS])
{
	int		index, start, delta;

	index = 0;
	start = 0;
	delta = 256;

	store[index++] = start;
	while(x)
	{
		if(x >= delta)
		{
			start += delta;
			store[index++] = start;
			x -= delta;
		}
		else
		{
			delta >>= 1;
		}
	}
	return(index);
}

int ChopImage(int w, int h, rect_t coords[MAX_MD2SKINS])
{
	int		xs[MAX_MD2SKINS], ys[MAX_MD2SKINS];
	int		xcount, ycount, x, y, index;

	index = 0;
	xcount = GetCoords(w, xs) - 1;
	ycount = GetCoords(h, ys) - 1;

	for(y = 0; y < ycount; y++)
	{
		for(x = 0; x < xcount; x++, index++)
		{
			coords[index].x = xs[x];
			coords[index].y = ys[y];
			coords[index].w = xs[x + 1] - xs[x];
			coords[index].h = ys[y + 1] - ys[y];
			coords[index].name[0] = x + '0';
			coords[index].name[1] = y + '0';
			coords[index].name[2] = 0;
		}
	}
	return(index);
}

/*
===============
Cmd_Pic
===============
*/

void Cmd_Book()
{
	int             xl,yl,xh,yh,w,h;
	byte            *dest, *source;
	int				flags, value, contents;
	char			lumpname[64];
	char			filename[1024];
	unsigned long	*destl, *sourcel;
	int             linedelta, x, y;
	int				size;
	miptex_t		*qtex;
	miptex32_t		*qtex32;
	float			scale_x, scale_y;
	int				numrects, i;
	rect_t			coords[MAX_MD2SKINS];
	bookframe_t		bframes[MAX_MD2SKINS];
	bookframe_t		*bf;
	book_t			book;

	GetScriptToken (false);
	strcpy (lumpname, token);
	
	GetScriptToken (false);
	xl = atoi (token);
	GetScriptToken (false);
	yl = atoi (token);
	GetScriptToken (false);
	w = atoi (token);
	GetScriptToken (false);
	h = atoi (token);

	total_x += w;
	total_y += h;
	total_textures++;

	if ( (w & 7) || (h & 7) )
		Error ("line %i: miptex sizes must be multiples of 8", scriptline);

	flags = 0;
	contents = 0;
	value = 0;

	scale_x = scale_y = 0.5;

	if (g_release)
		return;

	if(TrueColorImage)
	{
		xh = xl + w;
		yh = yl + h;

		if (xl >= longimagewidth || xh > longimagewidth ||
			yl >= longimageheight || yh > longimageheight)
		{
			Error ("line %i: bad clip dimmensions (%d,%d) (%d,%d) > image (%d,%d)", scriptline, xl,yl,w,h,longimagewidth,longimageheight);
		}

		sourcel = (unsigned long *) longimage + (yl * longimagewidth) + xl;
		destl = (unsigned long *) longimage;
		linedelta = (longimagewidth - w);

		for(y = yl; y < yh; y++)
		{
			for(x = xl; x < xh; x++)
			{
				*destl++ = *sourcel++;	// RGBA
			}
			sourcel += linedelta;
		}

		// Get rectangles to chop into
		numrects = ChopImage(w, h, coords);

		bf = bframes;
		for(i = 0; i < numrects; i++, bf++)
		{
			// Copy section of image to buffer
			sourcel = (unsigned long *) longimage + (coords[i].y * w) + coords[i].x;
			destl = bufferl;
			linedelta = w - coords[i].w;

			for(y = 0; y < coords[i].h; y++)
			{
				for(x = 0; x < coords[i].w; x++)
				{
					*destl++ = *sourcel++;
				}
				sourcel += linedelta;
			}

			qtex32 = CreateBook32(bufferl, coords[i].w, coords[i].h, &size);

			qtex32->flags = flags;
			qtex32->contents = contents;
			qtex32->value = value;
			qtex32->scale_x = scale_x;
			qtex32->scale_y = scale_y;

			sprintf (filename, "%sbook/%s/%s_%s.m32", gamedir, book_prefix, lumpname, coords[i].name);
			sprintf (qtex32->name, "%s/%s_%s.m32", book_prefix, lumpname, coords[i].name);

			strcpy(bf->name, qtex32->name);
			bf->x = coords[i].x;
			bf->y = coords[i].y;
			bf->w = coords[i].w;
			bf->h = coords[i].h;
 		//
		// write it out
		//
			printf ("writing %s\n", filename);
			SaveFile (filename, (byte *)qtex32, size);

			free (qtex32);
		}
	}
	else
	{
		xh = xl + w;
		yh = yl + h;

		if (xl >= byteimagewidth || xh > byteimagewidth ||
			yl >= byteimageheight || yh > byteimageheight)
		{
			Error ("line %i: bad clip dimmensions (%d,%d) (%d,%d) > image (%d,%d)", scriptline, xl,yl,w,h,byteimagewidth,byteimageheight);
		}

		// Copy image to top left
		source = byteimage + yl*byteimagewidth + xl;
		dest = byteimage;
		linedelta = byteimagewidth - w;

		for(y = yl; y < yh; y++)
		{
			for(x = xl; x < xh; x++)
			{
				*dest++ = *source++;
			}
			source += linedelta;
		}

		// Get rectangles to chop into
		numrects = ChopImage(w, h, coords);

		bf = bframes;
		for(i = 0; i < numrects; i++, bf++)
		{
			// Copy section of image to buffer
			source = byteimage + (coords[i].y * w) + coords[i].x;
			dest = buffer;
			linedelta = w - coords[i].w;

			for(y = 0; y < coords[i].h; y++)
			{
				for(x = 0; x < coords[i].w; x++)
				{
					*dest++ = *source++;
				}
				source += linedelta;
			}

			qtex = CreateBook8(buffer, coords[i].w, coords[i].h, lbmpalette, &size);

			qtex->flags = flags;
			qtex->contents = contents;
			qtex->value = value;

			sprintf (filename, "%sbook/%s/%s_%s.m8", gamedir, book_prefix, lumpname, coords[i].name);
			sprintf (qtex->name, "%s/%s_%s.m8", book_prefix, lumpname, coords[i].name);

			strcpy(bf->name, qtex->name);
			bf->x = coords[i].x;
			bf->y = coords[i].y;
			bf->w = coords[i].w;
			bf->h = coords[i].h;
 		//
		// write it out
		//
			printf ("writing %s\n", filename);
			SaveFile (filename, (byte *)qtex, size);

			free (qtex);
		}
	}
	// Set up descriptor
	size = sizeof(bookframe_t) * numrects;

	book.bheader.ident = IDBOOKHEADER;
	book.bheader.version = BOOK_VERSION;
	book.bheader.num_segments = numrects;
	book.bheader.total_w = w;
	book.bheader.total_h = h;
	memcpy(book.bframes, bframes, size);

	// Save out segment descriptor
	sprintf (filename, "%sBook/%s/%s.bk", gamedir, book_prefix, lumpname);
	printf ("writing %s\n", filename);
	SaveFile (filename, (byte *)&book, size + sizeof(bookheader_t));
}

/*
===============
Cmd_picdir
===============
*/
void Cmd_Bookdir (void)
{
	char	filename[1024];

	GetScriptToken (false);
	strcpy (book_prefix, token);
	// create the directory if needed
	sprintf (filename, "%sBook", gamedir);
	Q_mkdir (filename); 
	sprintf (filename, "%sBook/%s", gamedir, book_prefix);
	Q_mkdir (filename); 
}

// end