/*
Copyright (C) 1999-2007 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 <stdio.h>
#include <string.h>
#include <glib.h>
#include "m8.h"

void LoadM8(const char *name, unsigned char **pic, int *width, int *height)
{
    FILE    	*f;
    m8_header_t	*m8_header;
    rgb_t	*palette;
    int		i, num_pixels, size;
    char	text_buf[255] = { 0 };
    char 	*text_dot_pos;
    unsigned int	length;
    unsigned char	*palette_ent, *buf_temp;
    unsigned char       *buffer, *m8_file_buffer;

    strcpy(text_buf, name);
    text_dot_pos = strchr(text_buf, '.');
    if (text_dot_pos)
      *text_dot_pos = 0;
    // Fix for .pcx.m8 extention
    strcat(text_buf, ".pcx.m8");

    // open file
    if ( length = vfsLoadFile ((char *) text_buf, (void **) &m8_file_buffer) == (unsigned int) -1)
    {
    	strcpy(text_buf, name);
	for(i=(strlen(text_buf)-1); i>0; i--)
	{
		if(text_buf[i]=='.')
		{
			text_buf[i]=0;
			break;
		}
	}
	strcat(text_buf, ".m8");
    	if ( length = vfsLoadFile ((char *) text_buf, (void **) &m8_file_buffer) == (unsigned int) -1)
	{
    		Sys_Printf("Unable to open file %s\n",name);
		return;
	}
    }
    
    m8_header = (m8_header_t *)m8_file_buffer;

    // make sure we have a valid M8 file
    if ( m8_header->version != M8_VERSION)
    {
	    vfsFreeFile(m8_file_buffer);
	    Sys_Printf("Invalid M8 file %s\n", name);
	    return;
    }

    // Get M8 Info
    *width    = m8_header->width[0];		// Only interested in 1st MIP
    *height   = m8_header->height[0];
    num_pixels = (*width) * (*height);
    size = num_pixels*4;

    // Allocate buffer
    buf_temp = (unsigned char *)(g_malloc(size));
    *pic = buf_temp;

    // Load Palette
    palette = m8_header->palette;

    // Image data
    buffer = m8_file_buffer + m8_header->offsets[0];


    // Load texture into buffer
    palette_ent = buffer;
    for(i=0; i<num_pixels; i++)
    {
	*buf_temp++ = palette[*palette_ent].r;
	*buf_temp++ = palette[*palette_ent].g;
	*buf_temp++ = palette[*palette_ent].b;
	*buf_temp++ = 255;		// No alpha
	palette_ent++;
    }

    Sys_Printf("Loaded file %s\n",text_buf);

    vfsFreeFile(m8_file_buffer);
}