// ==========================================================================
//
// Surface.cpp		Drawing Surface Class for 3D Rendering Library
//
// --------------------------------------------------------------------------
//
// 08-14-2003		Hans-Martin Will	initial version
// 08-18-2010		Li XianJing		Adapt to ftk
//
// --------------------------------------------------------------------------
//
// Copyright (c) 2004, Hans-Martin Will. All rights reserved.
//
// Redistribution and use in source and binary forms, with or without
// modification, are permitted provided that the following conditions are
// met:
//
//	 *	Redistributions of source code must retain the above copyright
//		notice, this list of conditions and the following disclaimer.
//	 *	Redistributions in binary form must reproduce the above copyright
//		notice, this list of conditions and the following disclaimer in the
//		documentation and/or other materials provided with the distribution.
//
// THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
// AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
// IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
// ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
// LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY,
// OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
// SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
// INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
// CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
// ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF
// THE POSSIBILITY OF SUCH DAMAGE.
//
// ==========================================================================


#include "stdafx.h"
#include "Surface.h"
#include "Color.h"
#include <string.h>

using namespace EGL;

Surface :: Surface(const Config & config, NativeDisplayType display, NativeWindowType win)
	:	m_Config(config),
	  m_Rect (0, 0, config.GetConfigAttrib(EGL_WIDTH), 
			  config.GetConfigAttrib(EGL_HEIGHT)),
	  m_Display(NULL)
{
	FtkColor bg = {0};
	U32 width = GetWidth();
	U32 height = GetHeight();

	m_Config.SetConfigAttrib(EGL_WIDTH, width);
	m_Config.SetConfigAttrib(EGL_HEIGHT, height);

	m_AlphaBuffer	= new U8[width * height];
	m_DepthBuffer	= new U16[width * height];
	m_StencilBuffer = new U32[width * height];
	m_ColorBuffer	= new U16[width * height];
	
	bg.a = 0xff;
	m_Window = win;
	if(win != NULL)
	{
		m_Bitmap = ftk_bitmap_create(width, height, bg);
	}

	if (display != NULL) 
	{
		m_Display = display;
	}
	else
	{
		m_Display = ftk_default_display();
	}

	return;
}

Surface :: ~Surface() 
{
	if (m_Bitmap)
	{
		ftk_bitmap_unref(m_Bitmap);
		m_Bitmap = NULL;
	}

	if (m_Display != NULL) 
	{
		m_Display = NULL;
	}
	
	if(m_ColorBuffer != NULL)
	{
		delete m_ColorBuffer;
		m_ColorBuffer = NULL;
	}

	if (m_AlphaBuffer != 0) 
	{
		delete [] m_AlphaBuffer;
		m_AlphaBuffer = 0;
	}
	
	if (m_DepthBuffer != 0) 
	{
		delete[] m_DepthBuffer;
		m_DepthBuffer = 0;
	}

	if (m_StencilBuffer != 0) 
	{
		delete[] m_StencilBuffer;
		m_StencilBuffer = 0;
	}

	return;
}

void Surface :: Dispose() 
{
	if (GetCurrentContext() != 0) 
	{
		m_Disposed = true;
	} 
	else 
	{
		delete this;
	}
}

void Surface :: SetCurrentContext(Context * context) 
{
	m_CurrentContext = context;
	
	if (context == 0 && m_Disposed) 
	{
		delete this;
	}
}

namespace {
	template <class T> void FillRect(T * base, const Rect & bufferRect,
									 const Rect & fillRect,
									 const T& value, const T& mask) 
	{
		Rect rect = Rect::Intersect(fillRect, bufferRect);
		
		base += fillRect.x + fillRect.y * bufferRect.width;
		size_t gap = bufferRect.width - fillRect.width;
		
		size_t rows = fillRect.height;
		T inverseMask = ~mask;
		T maskedValue = value & mask;

		while (rows--) 
		{
			for (size_t columns = fillRect.width; columns > 0; columns--) 
			{
				*base = (*base & inverseMask) | maskedValue;
				++base;
			}
			
			base += gap;
		}
	}

	template <class T> void FillRect(T * base, const Rect & bufferRect, 
									 const Rect & fillRect,
									 const T& value) 
	{
		Rect rect = Rect::Intersect(fillRect, bufferRect);
		
		base += fillRect.x + fillRect.y * bufferRect.width;
		size_t gap = bufferRect.width - fillRect.width;
		
		size_t rows = fillRect.height;
		
		while (rows--) 
		{
			for (size_t columns = fillRect.width; columns > 0; columns--) 
			{
				*base = value;
				++base;
			}
			
			base += gap;
		}
	}
}

void Surface :: ClearDepthBuffer(U16 depth, bool mask, const Rect& scissor) 
{
	if (!mask || !m_DepthBuffer)
		return;
	
	FillRect(m_DepthBuffer, GetRect(), scissor, depth);
}


void Surface :: ClearStencilBuffer(U32 value, U32 mask, const Rect& scissor) 
{
	if (!mask || !m_StencilBuffer)
		return;
	
	if (mask != ~0) 
	{
		FillRect(m_StencilBuffer, GetRect(), scissor, value, mask);
	} 
	else 
	{
		FillRect(m_StencilBuffer, GetRect(), scissor, value);
	}
}

/*
I32 Surface :: DepthBitsFromDepth(GLclampx depth) {
  I32 result;
	gppMul_16_32s(EGL_CLAMP(depth, EGL_FIXED_0, EGL_FIXED_1), 0xffffff, &result);
	return result;
}
*/

void Surface :: ClearColorBuffer(const Color & rgba, const Color & mask, 
								 const Rect& scissor) 
{
	U16 color = rgba.ConvertTo565();
	U16 colorMask = mask.ConvertTo565();

	if (colorMask == 0xffff) 
	{
		FillRect(m_ColorBuffer, GetRect(), scissor, color);
	} 
	else 
	{
		FillRect(m_ColorBuffer, GetRect(), scissor, color, colorMask);
	}

	if (mask.A() && m_AlphaBuffer)
		FillRect(m_AlphaBuffer, GetRect(), scissor, rgba.A());
}


/*
 * For debugging
 */

#define BI_BITFIELDS 3

typedef struct tagBITMAPINFOHEADER
{
	int biSize; 
	long biWidth; 
	long biHeight; 
	short biPlanes; 
	short biBitCount; 
	int biCompression; 
	int biSizeImage; 
	long biXPelsPerMeter; 
	long biYPelsPerMeter; 
	int biClrUsed; 
	int biClrImportant; 
} BITMAPINFOHEADER;

struct InfoHeader 
{
		BITMAPINFOHEADER bmiHeader;
		short bmiColors[3];
};

typedef struct tagBITMAPFILEHEADER { 
  short bfType; 
  int bfSize; 
  short bfReserved1; 
  short bfReserved2; 
  int bfOffBits; 
} BITMAPFILEHEADER;

void InitInfoHeader(struct InfoHeader *h, int width, int height) 
{
	h->bmiHeader.biSize = sizeof(h->bmiHeader);
	h->bmiHeader.biWidth = width;
	h->bmiHeader.biHeight = height;
	h->bmiHeader.biPlanes = 1;
	h->bmiHeader.biBitCount = 16;
	h->bmiHeader.biCompression = BI_BITFIELDS;
	h->bmiHeader.biSizeImage = width * height * sizeof(short);
	h->bmiHeader.biXPelsPerMeter = 72 * 25;
	h->bmiHeader.biYPelsPerMeter = 72 * 25;
	h->bmiHeader.biClrUsed = 0;
	h->bmiHeader.biClrImportant = 0;
			
	h->bmiColors[0] = 0xF800;
	h->bmiColors[1] = 0x07E0;
	h->bmiColors[2] = 0x001F;
}

#include <sys/types.h>
#include <sys/stat.h>
#include <fcntl.h>
#include <unistd.h>

bool Surface::Save(const char *filename)
{
	struct InfoHeader info;
	BITMAPFILEHEADER header;
	int fd= open(filename, O_RDWR|O_CREAT|O_TRUNC, 0666);
	U16 *pixels;
	U8 data;
	int h;

	InitInfoHeader(&info, GetWidth(), GetHeight());

	header.bfType	   = 0x4d42;
	header.bfSize	   = sizeof(BITMAPFILEHEADER) + sizeof(info) + 
		info.bmiHeader.biSizeImage;
	header.bfReserved1 = 0;
	header.bfReserved2 = 0;
	header.bfOffBits   = sizeof(BITMAPFILEHEADER) + sizeof(info);

	printf("Saving image %s,  %ux%u, %u\n", filename, info.bmiHeader.biWidth, 
		   info.bmiHeader.biHeight,
		   info.bmiHeader.biSizeImage);
	printf("size %u, offset %u\n", header.bfSize, header.bfOffBits);

	if (fd < 3) 
	{
		fprintf(stderr, "Could not open file %s for writing\n", filename);
		return false;
	}

	if (write(fd, (const char *)&header, sizeof(header)) != sizeof(header))
	{
		fprintf(stderr, "Error writing bitmap %s header\n", filename);
		close(fd);
		return false;
	}

	if (write(fd, (const char *)&info, sizeof(info)) != sizeof(info))
	{
		fprintf(stderr, "Error writing bitmap %s info\n", filename);
		close(fd);
		return false;
	}

	pixels = m_ColorBuffer;

	for (h = GetHeight(); h; --h) 
	{
		if (write(fd, (const char *)pixels, sizeof(U16)*GetWidth()) !=
			sizeof(U16)*GetWidth())
		{
			fprintf(stderr, "Error writing bitmap %s data\n", filename);
			close(fd);
			return false;
		}

		pixels += GetWidth();
	}

	close(fd);

	return true;
}