/*
Copyright (c) 2013 "LliureX"
Framebuffer boot splash

This file is part of Bootcookie.

Bootcookie 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 3 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, see <http://www.gnu.org/licenses/>.
*/

#include "gfx.hpp"
#include "framebuffer.hpp"
#include <fstream>
#include <iostream>
#include <cmath>
#include <cstdio>

using namespace net::lliurex::bootcookie;
using namespace std;

Palette::Palette()
{
	/* default palette is a linear grey shading*/
	for(int n=0;n<256;n++)
	{
		red[n]=n;
		green[n]=n;
		blue[n]=n;
	}
}

void Palette::Load(const char * filename)
{
	ifstream pfile (filename);
	int r,g,b;
	int index = 0;
	
	while(pfile.good() && index<256)
	{
		pfile>>r>>g>>b;
				
		//cout<<"color("<<index<<"):"<<r<<","<<g<<","<<b<<endl;
		
		red[index]=r;
		green[index]=g;
		blue[index]=b;
		
		index++;
	}
	
	pfile.close();
}


int Palette::MatchColor(uint8_t red,uint8_t green,uint8_t blue)
{
	int best_index=0;
	double best_value=100000.0;
	double value;
	
	int r,g,b;
	
	for(int n=0;n<256;n++)
	{
		r = red - this->red[n];
		g = green - this->green[n];
		b = blue - this->blue[n];
		
		value = (r*r) + (g*g) + (b*b);
		value=sqrt(value);
		
		if(value<best_value)
		{
			best_value=value;
			best_index=n;
		}
	}
	
	return best_index;
}


Surface::Surface(const char * filename)
{
	
	int status=0;
	FILE * f;
	uint8_t buffer[32];
	Palette * pal;
	
	uint8_t chunk;
	uint8_t raw;
	int len;
	int bpp;
	int r,g,b,a;
	int xorig,yorig;
	
	/*  humm,  we don't want framebuffer to be created here, this should be 
	* approached in a different way
	*/
	pal = &FrameBuffer::GetDefault()->palette;


	f=fopen(filename,"rb");
	fread(buffer,1,18,f);
	
	xorig=buffer[8]+(buffer[9]<<8);
	yorig=buffer[10]+(buffer[11]<<8);
	
	width=buffer[12]+(buffer[13]<<8);
	height=buffer[14]+(buffer[15]<<8);
	
	/*
		ToDo: TGA may contain a variable length meta data before image
	*/
		
	/* 8-BIT RLE Encoded*/
	if(buffer[1]==1 && buffer[2]==TGA_TYPE_8BPP_RLE)
	{
		
	}
	
	/* RGB RLE Encoded */
	if(buffer[2]==TGA_TYPE_RGB_RLE)
	{
		
	}
	
	/* Uncompressed RGB*/
	if(buffer[2]==TGA_TYPE_RGB)
	{
		//cout<<"Surface: Uncompressed RGB"<<endl;
		len = width*height;
		pixels = new uint8_t[len];
		
		bpp = buffer[16];
		
		switch(bpp)
		{
			case 16:
				cout<<"Surface: RGB 16-bit not supported"<<endl;
			break;
			
			case 24:
				//cout<<"Surface: RGB 24-bit not supported"<<endl;
				for(int j=0;j<height;j++)
				{
					for(int i=0;i<width;i++)
					{
						fread(&b,1,1,f);
						fread(&g,1,1,f);
						fread(&r,1,1,f);
												
						pixels[i+((height-1)-j)*width]=pal->MatchColor(r,g,b);
					}
				}
			break;
			
			case 32:
				//cout<<"Surface: RGB 32-bit"<<endl;
			
				for(int j=0;j<height;j++)
				{
					for(int i=0;i<width;i++)
					{
						fread(&b,1,1,f);
						fread(&g,1,1,f);
						fread(&r,1,1,f);
						fread(&a,1,1,f);
						
						pixels[i+((height-1)-j)*width]=pal->MatchColor(r,g,b);
					}
				}
				
			break;
		}
	}
	
	fclose(f);
	
}

Surface::~Surface()
{
	delete [] pixels;
}