/**
 * Surreal 64 Launcher (C) 2003
 *
 * 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 the Free Software Foundation, Inc.,
 * 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. To contact the
 * authors: email: buttza@hotmail.com, lantus@lantus-x.com
 *
 * Additional code and cleanups: Surreal64 CE Team (http://www.emuxtras.net)
 */

#include "Surface.h"

#include "../../../general.h"
#include "../../xdk_d3d8.h"

CSurface::CSurface()
{
	m_pTexture              = NULL;
	m_pVertexBuffer         = NULL;
	m_byOpacity             = 255;
	m_byR                   = 255;
	m_byG                   = 255;
	m_byB                   = 255;
	m_bLoaded               = false;
	m_x                     = 0;
	m_y                     = 0;
}

CSurface::~CSurface()
{
	Destroy();
}

bool CSurface::Create(const char *szFilename)
{
   xdk_d3d_video_t *d3d = (xdk_d3d_video_t*)driver.video_data;
	if (m_bLoaded)
		Destroy();

	HRESULT g_hResult = D3DXCreateTextureFromFileExA(d3d->d3d_render_device,                    // d3d device
	                                         szFilename,                              // filename
	                                         D3DX_DEFAULT, D3DX_DEFAULT,              // width/height
	                                         D3DX_DEFAULT,                            // mipmaps
	                                         0,                                       // usage
	                                         D3DFMT_A8R8G8B8,                         // format
	                                         D3DPOOL_MANAGED,                         // memory class
	                                         D3DX_DEFAULT,                            // texture filter
	                                         D3DX_DEFAULT,                            // mipmapping
	                                         0,                                       // colorkey
	                                         &m_imageInfo,                            // image info
	                                         NULL,                                    // pallete
	                                         &m_pTexture);                            // texture

	if (FAILED(g_hResult))
	{
		RARCH_ERR("Error occurred during D3DXCreateTextureFromFileExA().\n");
		return false;
	}

	// create a vertex buffer for the quad that will display the texture
   g_hResult = d3d->d3d_render_device->CreateVertexBuffer(4 * sizeof(DrawVerticeFormats),
	                                                   D3DUSAGE_WRITEONLY,
	                                                   D3DFVF_CUSTOMVERTEX,
	                                                   D3DPOOL_MANAGED, &m_pVertexBuffer);
	if (FAILED(g_hResult))
	{
		RARCH_ERR("Error occurred during CreateVertexBuffer().\n");
		m_pTexture->Release();
		return false;
	}

	m_bLoaded = true;

	return true;
}

bool CSurface::Create(int32_t width, int32_t height)
{
   xdk_d3d_video_t *d3d = (xdk_d3d_video_t*)driver.video_data;
	if (m_bLoaded)
		Destroy();

   HRESULT g_hResult = d3d->d3d_render_device->CreateTexture(width, height, 1, 0,
	                                              D3DFMT_A8R8G8B8, D3DPOOL_MANAGED,
	                                              &m_pTexture);

	if (FAILED(g_hResult))
	{
		RARCH_ERR("Error occurred during CreateTexture().\n");
		return false;
	}

	m_imageInfo.Width = width;
	m_imageInfo.Height = height;
	m_imageInfo.Format = D3DFMT_A8R8G8B8;

	// create a vertex buffer for the quad that will display the texture
   g_hResult = d3d->d3d_render_device->CreateVertexBuffer(4 * sizeof(DrawVerticeFormats),
	                                                   D3DUSAGE_WRITEONLY,
	                                                   D3DFVF_CUSTOMVERTEX,
	                                                   D3DPOOL_MANAGED, &m_pVertexBuffer);
	if (FAILED(g_hResult))
	{
		RARCH_ERR("Error occurred during CreateVertexBuffer().\n");
		m_pTexture->Release();
		return false;
	}

	m_bLoaded = true;

	return true;
}

void CSurface::Destroy()
{
	// free the vertex buffer
	if (m_pVertexBuffer)
	{
		m_pVertexBuffer->Release();
		m_pVertexBuffer = NULL;
	}

	// free the texture
	if (m_pTexture)
	{
		m_pTexture->Release();
		m_pTexture = NULL;
	}

	m_bLoaded = false;
}

bool CSurface::IsLoaded()
{
	return m_bLoaded;
}

bool CSurface::Render()
{
	return Render(m_x, m_y);
}

bool CSurface::Render(int x, int y)
{
	return Render(x, y, m_imageInfo.Width, m_imageInfo.Height);
}

bool CSurface::Render(int x, int y, int32_t w, int32_t h)
{
   xdk_d3d_video_t *d3d = (xdk_d3d_video_t*)driver.video_data;
	if (m_pTexture == NULL || m_pVertexBuffer == NULL || m_bLoaded == false)
		return false;

	float fX = static_cast<float>(x);
	float fY = static_cast<float>(y);

	// create the new vertices
	/*CustomVertex*/DrawVerticeFormats newVerts[] =
	{
		// x,		y,			z,	  color,					    u ,v
		{fX,            fY,             0.0f, /*D3DCOLOR_ARGB(m_byOpacity, m_byR, m_byG, m_byB),*/ 0, 0, 0},
		{fX + w,        fY,             0.0f, /*D3DCOLOR_ARGB(m_byOpacity, m_byR, m_byG, m_byB),*/ 0, 1, 0},
		{fX + w,        fY + h,         0.0f, /*D3DCOLOR_ARGB(m_byOpacity, m_byR, m_byG, m_byB),*/ 0, 1, 1},
		{fX,            fY + h,         0.0f, /*D3DCOLOR_ARGB(m_byOpacity, m_byR, m_byG, m_byB),*/ 0, 0, 1}
	};

	// load the existing vertices
	/*CustomVertex*/DrawVerticeFormats *pCurVerts;

	HRESULT g_hResult = m_pVertexBuffer->Lock(0, 0, (byte **)&pCurVerts, 0);

	if (FAILED(g_hResult))
	{
		RARCH_ERR("Error occurred during m_pVertexBuffer->Lock().\n");
		return false;
	}
	// copy the new verts over the old verts
	memcpy(pCurVerts, newVerts, 4 * sizeof(DrawVerticeFormats));

	m_pVertexBuffer->Unlock();


   d3d->d3d_render_device->SetRenderState(D3DRS_ALPHABLENDENABLE, TRUE);
	d3d->d3d_render_device->SetRenderState(D3DRS_SRCBLEND,  D3DBLEND_SRCALPHA);
	d3d->d3d_render_device->SetRenderState(D3DRS_DESTBLEND, D3DBLEND_INVSRCALPHA);

	// also blend the texture with the set alpha value
	d3d->d3d_render_device->SetTextureStageState(0, D3DTSS_ALPHAOP, D3DTOP_MODULATE);
	d3d->d3d_render_device->SetTextureStageState(0, D3DTSS_ALPHAARG1, D3DTA_DIFFUSE);
	d3d->d3d_render_device->SetTextureStageState(0, D3DTSS_ALPHAARG2, D3DTA_TEXTURE);

	// draw the quad
	d3d->d3d_render_device->SetTexture(0, m_pTexture);
	d3d->d3d_render_device->SetStreamSource(0, m_pVertexBuffer, sizeof(DrawVerticeFormats));
	d3d->d3d_render_device->SetVertexShader(D3DFVF_CUSTOMVERTEX);
	d3d->d3d_render_device->DrawPrimitive(D3DPT_QUADLIST, 0, 1);
	return true;
}

void CSurface::SetOpacity(byte opacity)
{
	m_byOpacity = opacity;
}

void CSurface::MoveTo(int x, int y)
{
	m_x = x;
	m_y = y;
}

int32_t CSurface::GetWidth()
{
	if (m_pTexture == NULL || m_pVertexBuffer == NULL)
		return 0;

	return m_imageInfo.Width;
}

int32_t CSurface::GetHeight()
{
	if (m_pTexture == NULL || m_pVertexBuffer == NULL)
		return 0;

	return m_imageInfo.Height;
}

int8_t CSurface::GetOpacity()
{
	return m_byOpacity;
}

IDirect3DTexture8 *CSurface::GetTexture()
{
	return m_pTexture;
}