#include "stdafx.h"
#include <Dwmapi.h>
#include "Renderer.h"
#include "DirectXTK/SpriteBatch.h"
#include "DirectXTK/SpriteFont.h"
#include "DirectXTK/DDSTextureLoader.h"
#include "DirectXTK/WICTextureLoader.h"
#include "../Core/PPU.h"
#include "../Core/VideoRenderer.h"
#include "../Core/VideoDecoder.h"
#include "../Core/EmulationSettings.h"
#include "../Core/MessageManager.h"
#include "../Utilities/UTF8Util.h"
#include "../Core/HdNesPack.h"

using namespace DirectX;

namespace NES
{
	Renderer::Renderer(HWND hWnd)
	{
		_hWnd = hWnd;

		SetScreenSize(256, 240);

		MessageManager::RegisterMessageManager(this);
	}

	Renderer::~Renderer()
	{
		VideoRenderer::GetInstance()->UnregisterRenderingDevice(this);
		CleanupDevice();
	}

	void Renderer::SetScreenSize(uint32_t width, uint32_t height)
	{
		double scale = EmulationSettings::GetVideoScale();

		ScreenSize screenSize;
		VideoDecoder::GetInstance()->GetScreenSize(screenSize, false);

		if(_screenHeight != screenSize.Height || _screenWidth != screenSize.Width || _nesFrameHeight != height || _nesFrameWidth != width) {
			_frameLock.Acquire();
			_nesFrameHeight = height;
			_nesFrameWidth = width;
			_newFrameBufferSize = width*height;

			_screenHeight = screenSize.Height;
			_screenWidth = screenSize.Width;

			_screenBufferSize = _screenHeight*_screenWidth;

			Reset();
			_frameLock.Release();
		}
	}

	void Renderer::Reset()
	{
		CleanupDevice();
		if(FAILED(InitDevice())) {
			CleanupDevice();
		} else {
			VideoRenderer::GetInstance()->RegisterRenderingDevice(this);
		}
	}

	void Renderer::CleanupDevice()
	{
		if(_pTexture[0]) {
			_pTexture[0]->Release();
			_pTexture[0] = nullptr;
		}
		if(_pTexture[1]) {
			_pTexture[1]->Release();
			_pTexture[1] = nullptr;
		}
		if(_overlayTexture) {
			_overlayTexture->Release();
			_overlayTexture = nullptr;
		}

		if(_samplerState) {
			_samplerState->Release();
			_samplerState = nullptr;
		}
		if(_pRenderTargetView) {
			_pRenderTargetView->Release();
			_pRenderTargetView = nullptr;
		}
		if(_pSwapChain) {
			_pSwapChain->Release();
			_pSwapChain = nullptr;
		}
		if(_pDeviceContext) {
			_pDeviceContext->Release();
			_pDeviceContext = nullptr;
		}
		if(_pd3dDevice) {
			_pd3dDevice->Release();
			_pd3dDevice = nullptr;
		}
		if(_pAlphaEnableBlendingState) {
			_pAlphaEnableBlendingState->Release();
			_pAlphaEnableBlendingState = nullptr;
		}
		if(_pDepthDisabledStencilState) {
			_pDepthDisabledStencilState->Release();
			_pDepthDisabledStencilState = nullptr;
		}
	}

	//--------------------------------------------------------------------------------------
	// Create Direct3D device and swap chain
	//--------------------------------------------------------------------------------------
	HRESULT Renderer::InitDevice()
	{
		HRESULT hr = S_OK;

		UINT createDeviceFlags = 0;
#ifdef _DEBUG
		createDeviceFlags |= D3D11_CREATE_DEVICE_DEBUG;
#endif

		D3D_DRIVER_TYPE driverTypes[] =
		{
			D3D_DRIVER_TYPE_HARDWARE,
			D3D_DRIVER_TYPE_WARP,
			D3D_DRIVER_TYPE_REFERENCE,
		};
		UINT numDriverTypes = ARRAYSIZE(driverTypes);

		D3D_FEATURE_LEVEL featureLevels[] =
		{
			D3D_FEATURE_LEVEL_11_1,
			D3D_FEATURE_LEVEL_11_0,
			D3D_FEATURE_LEVEL_10_1,
			D3D_FEATURE_LEVEL_10_0,
		};
		UINT numFeatureLevels = ARRAYSIZE(featureLevels);

		DXGI_SWAP_CHAIN_DESC sd;
		ZeroMemory(&sd, sizeof(sd));
		sd.BufferCount = 1;
		sd.BufferDesc.Width = _screenWidth;
		sd.BufferDesc.Height = _screenHeight;
		sd.BufferDesc.Format = DXGI_FORMAT_B8G8R8A8_UNORM;
		sd.BufferDesc.RefreshRate.Numerator = 60;
		sd.BufferDesc.RefreshRate.Denominator = 1;
		sd.BufferUsage = DXGI_USAGE_RENDER_TARGET_OUTPUT;
		sd.OutputWindow = _hWnd;
		sd.SampleDesc.Count = 1;
		sd.SampleDesc.Quality = 0;
		sd.Windowed = TRUE;

		D3D_DRIVER_TYPE driverType = D3D_DRIVER_TYPE_NULL;
		D3D_FEATURE_LEVEL featureLevel = D3D_FEATURE_LEVEL_11_1;
		for(UINT driverTypeIndex = 0; driverTypeIndex < numDriverTypes; driverTypeIndex++) {
			driverType = driverTypes[driverTypeIndex];
			featureLevel = D3D_FEATURE_LEVEL_11_1;
			hr = D3D11CreateDeviceAndSwapChain(nullptr, driverType, nullptr, createDeviceFlags, featureLevels, numFeatureLevels, D3D11_SDK_VERSION, &sd, &_pSwapChain, &_pd3dDevice, &featureLevel, &_pDeviceContext);

			if(hr == E_INVALIDARG) {
				// DirectX 11.0 platforms will not recognize D3D_FEATURE_LEVEL_11_1 so we need to retry without it
				featureLevel = D3D_FEATURE_LEVEL_11_0;
				hr = D3D11CreateDeviceAndSwapChain(nullptr, driverType, nullptr, createDeviceFlags, &featureLevels[1], numFeatureLevels - 1, D3D11_SDK_VERSION, &sd, &_pSwapChain, &_pd3dDevice, &featureLevel, &_pDeviceContext);
			}

			if(SUCCEEDED(hr)) {
				break;
			}
		}
		if(FAILED(hr)) {
			return hr;
		}

		// Create a render target view
		ID3D11Texture2D* pBackBuffer = nullptr;
		hr = _pSwapChain->GetBuffer(0, __uuidof(ID3D11Texture2D), (LPVOID*)&pBackBuffer);
		if(FAILED(hr)) {
			return hr;
		}

		hr = _pd3dDevice->CreateRenderTargetView(pBackBuffer, nullptr, &_pRenderTargetView);
		pBackBuffer->Release();
		if(FAILED(hr)) {
			return hr;
		}

		D3D11_DEPTH_STENCIL_DESC depthDisabledStencilDesc;
		ZeroMemory(&depthDisabledStencilDesc, sizeof(depthDisabledStencilDesc));
		depthDisabledStencilDesc.DepthEnable = false;
		depthDisabledStencilDesc.DepthWriteMask = D3D11_DEPTH_WRITE_MASK_ALL;
		depthDisabledStencilDesc.DepthFunc = D3D11_COMPARISON_LESS;
		depthDisabledStencilDesc.StencilEnable = true;
		depthDisabledStencilDesc.StencilReadMask = 0xFF;
		depthDisabledStencilDesc.StencilWriteMask = 0xFF;
		depthDisabledStencilDesc.FrontFace.StencilFailOp = D3D11_STENCIL_OP_KEEP;
		depthDisabledStencilDesc.FrontFace.StencilDepthFailOp = D3D11_STENCIL_OP_INCR;
		depthDisabledStencilDesc.FrontFace.StencilPassOp = D3D11_STENCIL_OP_KEEP;
		depthDisabledStencilDesc.FrontFace.StencilFunc = D3D11_COMPARISON_ALWAYS;
		depthDisabledStencilDesc.BackFace.StencilFailOp = D3D11_STENCIL_OP_KEEP;
		depthDisabledStencilDesc.BackFace.StencilDepthFailOp = D3D11_STENCIL_OP_DECR;
		depthDisabledStencilDesc.BackFace.StencilPassOp = D3D11_STENCIL_OP_KEEP;
		depthDisabledStencilDesc.BackFace.StencilFunc = D3D11_COMPARISON_ALWAYS;

		// Create the state using the device.
		if(FAILED(_pd3dDevice->CreateDepthStencilState(&depthDisabledStencilDesc, &_pDepthDisabledStencilState))) {
			return S_FALSE;
		}

		// Clear the blend state description.
		D3D11_BLEND_DESC blendStateDescription;
		ZeroMemory(&blendStateDescription, sizeof(D3D11_BLEND_DESC));

		// Create an alpha enabled blend state description.
		blendStateDescription.RenderTarget[0].BlendEnable = TRUE;
		blendStateDescription.RenderTarget[0].SrcBlend = D3D11_BLEND_ONE;
		blendStateDescription.RenderTarget[0].DestBlend = D3D11_BLEND_INV_SRC_ALPHA;
		blendStateDescription.RenderTarget[0].BlendOp = D3D11_BLEND_OP_ADD;
		blendStateDescription.RenderTarget[0].SrcBlendAlpha = D3D11_BLEND_ONE;
		blendStateDescription.RenderTarget[0].DestBlendAlpha = D3D11_BLEND_ZERO;
		blendStateDescription.RenderTarget[0].BlendOpAlpha = D3D11_BLEND_OP_ADD;
		blendStateDescription.RenderTarget[0].RenderTargetWriteMask = 0x0f;

		// Create the blend state using the description.
		if(FAILED(_pd3dDevice->CreateBlendState(&blendStateDescription, &_pAlphaEnableBlendingState))) {
			return S_FALSE;
		}

		float blendFactor[4];
		blendFactor[0] = 0.0f;
		blendFactor[1] = 0.0f;
		blendFactor[2] = 0.0f;
		blendFactor[3] = 0.0f;
	
		_pDeviceContext->OMSetBlendState(_pAlphaEnableBlendingState, blendFactor, 0xffffffff);
		_pDeviceContext->OMSetDepthStencilState(_pDepthDisabledStencilState, 1);
		_pDeviceContext->OMSetRenderTargets(1, &_pRenderTargetView, nullptr);

		// Setup the viewport
		D3D11_VIEWPORT vp;
		vp.Width = (FLOAT)_screenWidth;
		vp.Height = (FLOAT)_screenHeight;
		vp.MinDepth = 0.0f;
		vp.MaxDepth = 1.0f;
		vp.TopLeftX = 0;
		vp.TopLeftY = 0;
		_pDeviceContext->RSSetViewports(1, &vp);

		_pTexture[0] = CreateTexture(_nesFrameWidth, _nesFrameHeight);
		if(!_pTexture[0]) {
			return S_FALSE;
		}
		_pTexture[1] = CreateTexture(_nesFrameWidth, _nesFrameHeight);
		if(!_pTexture[1]) {
			return S_FALSE;
		}

		_overlayTexture = CreateTexture(8, 8);
		if(!_overlayTexture) {
			return S_FALSE;
		}

		////////////////////////////////////////////////////////////////////////////
		_spriteBatch.reset(new SpriteBatch(_pDeviceContext));

		_largeFont.reset(new SpriteFont(_pd3dDevice, L"Resources\\Font.64.spritefont"));
		_font.reset(new SpriteFont(_pd3dDevice, L"Resources\\Font.24.spritefont"));

		//Sample state
		D3D11_SAMPLER_DESC samplerDesc;
		ZeroMemory(&samplerDesc, sizeof(samplerDesc));
		samplerDesc.Filter = D3D11_FILTER_MIN_MAG_MIP_POINT;
		samplerDesc.AddressU = D3D11_TEXTURE_ADDRESS_CLAMP;
		samplerDesc.AddressV = D3D11_TEXTURE_ADDRESS_CLAMP;
		samplerDesc.AddressW = D3D11_TEXTURE_ADDRESS_CLAMP;
		//samplerDesc.BorderColor = { 1.0f, 1.0f, 1.0f, 1.0f };
		samplerDesc.MinLOD = -FLT_MAX;
		samplerDesc.MaxLOD = FLT_MAX;
		samplerDesc.MipLODBias = 0.0f;
		samplerDesc.MaxAnisotropy = 1;
		samplerDesc.ComparisonFunc = D3D11_COMPARISON_NEVER;
		
		_pd3dDevice->CreateSamplerState(&samplerDesc, &_samplerState);

		/*if(!FAILED(CreateDDSTextureFromFile(_pd3dDevice, L"Resources\\Toast.dds", nullptr, &_toastTexture))) {
			return S_FALSE;
		}*/

		return S_OK;
	}

	ID3D11Texture2D* Renderer::CreateTexture(uint32_t width, uint32_t height)
	{
		ID3D11Texture2D* texture;

		D3D11_TEXTURE2D_DESC desc;
		ZeroMemory(&desc, sizeof(D3D11_TEXTURE2D_DESC));
		desc.ArraySize = 1;
		desc.BindFlags = D3D11_BIND_SHADER_RESOURCE;
		desc.CPUAccessFlags = D3D11_CPU_ACCESS_WRITE;
		desc.Format = DXGI_FORMAT_B8G8R8A8_UNORM;
		desc.MipLevels = 1;
		desc.MiscFlags = 0;
		desc.SampleDesc.Count = 1;
		desc.SampleDesc.Quality = 0;
		desc.Usage = D3D11_USAGE_DYNAMIC;
		desc.Width = width;
		desc.Height = height;
		desc.MiscFlags = 0;

		HRESULT hr = _pd3dDevice->CreateTexture2D(&desc, nullptr, &texture);
		if(FAILED(hr)) {
			return nullptr;
		}
		return texture;
	}

	ID3D11ShaderResourceView* Renderer::GetShaderResourceView(ID3D11Texture2D* texture)
	{
		D3D11_SHADER_RESOURCE_VIEW_DESC srvDesc;
		D3D11_TEXTURE2D_DESC desc;
		D3D11_RESOURCE_DIMENSION type;
		texture->GetType(&type);
		texture->GetDesc(&desc);
		srvDesc.Format = desc.Format;
		srvDesc.ViewDimension = D3D11_SRV_DIMENSION_TEXTURE2D;
		srvDesc.Texture2D.MipLevels = desc.MipLevels;
		srvDesc.Texture2D.MostDetailedMip = desc.MipLevels - 1;

		ID3D11ShaderResourceView *shaderResourceView = nullptr;
		_pd3dDevice->CreateShaderResourceView(texture, &srvDesc, &shaderResourceView);

		return shaderResourceView;
	}

	void Renderer::DisplayMessage(string title, string message)
	{
		shared_ptr<ToastInfo> toast(new ToastInfo(title, message, 4000, ""));
		DisplayToast(toast);
	}

	void Renderer::DisplayToast(shared_ptr<ToastInfo> toast)
	{
		_toasts.push_front(toast);
	}

	void Renderer::DrawString(string message, float x, float y, DirectX::FXMVECTOR color, float scale, SpriteFont* font)
	{
		std::wstring textStr = utf8::utf8::decode(message);
		DrawString(textStr, x, y, color, scale, font);
	}

	void Renderer::DrawString(std::wstring message, float x, float y, DirectX::FXMVECTOR color, float scale, SpriteFont* font)
	{
		const wchar_t *text = message.c_str();
		if(font == nullptr) {
			font = _font.get();
		}

		font->DrawString(_spriteBatch.get(), text, XMFLOAT2(x, y), color, 0.0f, XMFLOAT2(0, 0), scale);
	}

	void Renderer::UpdateFrame(void *frameBuffer, uint32_t width, uint32_t height)
	{
		SetScreenSize(width, height);

		uint32_t bpp = 4;
		uint8_t* outputBuffer = (uint8_t*)frameBuffer;

		_frameLock.Acquire();

		uint32_t rowPitch = width * bpp;
		D3D11_MAPPED_SUBRESOURCE dd;
		_pDeviceContext->Map(_pTexture[0], 0, D3D11_MAP_WRITE_DISCARD, 0, &dd);
		uint8_t* surfacePointer = (uint8_t*)dd.pData;
		for(uint32_t i = 0, iMax = height; i < iMax; i++) {
			memcpy(surfacePointer, outputBuffer, rowPitch);
			outputBuffer += rowPitch;
			surfacePointer += dd.RowPitch;
		}
		_pDeviceContext->Unmap(_pTexture[0], 0);

		_needFlip = true;

		_frameLock.Release();

		_frameChanged = true;
	}

	void Renderer::DrawNESScreen()
	{
		//Swap buffers - emulator always writes to texture 0, screen always draws texture 1 (allows us to release a lock earlier while avoiding crashes)
		if(_needFlip) {
			ID3D11Texture2D *texture = _pTexture[0];
			_pTexture[0] = _pTexture[1];
			_pTexture[1] = texture;
			_needFlip = false;
		}

		ID3D11ShaderResourceView *nesOutputBuffer = GetShaderResourceView(_pTexture[1]);

		RECT destRect;
		destRect.left = 0;
		destRect.top = 0;
		destRect.right = _screenWidth;
		destRect.bottom = _screenHeight;

		_spriteBatch->Draw(nesOutputBuffer, destRect);
		nesOutputBuffer->Release();
	}

	void Renderer::DrawPauseScreen()
	{
		RECT destRect;
		destRect.left = 0;
		destRect.right = _screenWidth;
		destRect.bottom = _screenHeight;
		destRect.top = 0;

		D3D11_MAPPED_SUBRESOURCE dd;
		_pDeviceContext->Map(_overlayTexture, 0, D3D11_MAP_WRITE_DISCARD, 0, &dd);
		
		uint8_t* surfacePointer = (uint8_t*)dd.pData;
		for(uint32_t i = 0, len = 8; i < len; i++) {
			//Gray transparent overlay
			for(int j = 0; j < 8; j++) {
				((uint32_t*)surfacePointer)[j] = 0xAA222222;
			}
			surfacePointer += dd.RowPitch;
		}
		_pDeviceContext->Unmap(_overlayTexture, 0);
		
		ID3D11ShaderResourceView *shaderResourceView = GetShaderResourceView(_overlayTexture);
		_spriteBatch->Draw(shaderResourceView, destRect);
		shaderResourceView->Release();

		XMVECTOR stringDimensions = _largeFont->MeasureString(L"PAUSE");
		DrawString("PAUSE", (float)_screenWidth / 2 - stringDimensions.m128_f32[0] / 2, (float)_screenHeight / 2 - stringDimensions.m128_f32[1] / 2 - 8, Colors::AntiqueWhite, 1.0f, _largeFont.get());
	}

	void Renderer::Render()
	{
		bool paused = EmulationSettings::IsPaused();
		if(_noUpdateCount > 10 || _frameChanged || paused || !_toasts.empty()) {
			_frameLock.Acquire();
			_noUpdateCount = 0;

			if(_frameChanged) {
				_frameChanged = false;
				_renderedFrameCount++;
			}
			// Clear the back buffer 
			_pDeviceContext->ClearRenderTargetView(_pRenderTargetView, Colors::Black);

			_spriteBatch->Begin(SpriteSortMode_Deferred, nullptr, _samplerState);

			//Draw nes screen
			DrawNESScreen();

			if(paused) {
				DrawPauseScreen();
			} else if(VideoDecoder::GetInstance()->IsRunning()) {
				//Draw FPS counter
				if(EmulationSettings::CheckFlag(EmulationFlags::ShowFPS)) {				
					if(_fpsTimer.GetElapsedMS() > 1000) {
						//Update fps every sec
						uint32_t frameCount = VideoDecoder::GetInstance()->GetFrameCount();
						if(frameCount - _lastFrameCount < 0) {
							_currentFPS = 0;
						} else {
							_currentFPS = (int)(std::round((double)(frameCount - _lastFrameCount) / (_fpsTimer.GetElapsedMS() / 1000)));
							_currentRenderedFPS = (int)(std::round((double)(_renderedFrameCount - _lastRenderedFrameCount) / (_fpsTimer.GetElapsedMS() / 1000)));
						}
						_lastFrameCount = frameCount;
						_lastRenderedFrameCount = _renderedFrameCount;
						_fpsTimer.Reset();
					}

					if(_currentFPS > 5000) {
						_currentFPS = 0;
					}
					if(_currentRenderedFPS > 5000) {
						_currentRenderedFPS = 0;
					}

					string fpsString = string("FPS: ") + std::to_string(_currentFPS) + " / " + std::to_string(_currentRenderedFPS);
					DrawString(fpsString, (float)(_screenWidth - 120), 13, Colors::AntiqueWhite, 1.0f);
				}
			}

			DrawToasts();

			_spriteBatch->End();

			_frameLock.Release();

			// Present the information rendered to the back buffer to the front buffer (the screen)
			_pSwapChain->Present(EmulationSettings::CheckFlag(EmulationFlags::VerticalSync) ? 1 : 0, 0);
		} else {
			_noUpdateCount++;
		}
	}

	void Renderer::RemoveOldToasts()
	{
		_toasts.remove_if([](shared_ptr<ToastInfo> toast) { return toast->IsToastExpired(); });
	}

	void Renderer::DrawToasts()
	{
		RemoveOldToasts();

		int counter = 0;
		int lastHeight = 5;
		for(shared_ptr<ToastInfo> toast : _toasts) {
			if(counter < 6) {
				DrawToast(toast, lastHeight);
			} else {
				break;
			}
			counter++;
		}
	}

	std::wstring Renderer::WrapText(string utf8Text, SpriteFont* font, float maxLineWidth, uint32_t &lineCount)
	{
		using std::wstring;
		wstring text = utf8::utf8::decode(utf8Text);
		wstring wrappedText;
		list<wstring> words;
		wstring currentWord;
		for(size_t i = 0, len = text.length(); i < len; i++) {
			if(text[i] == L' ' || text[i] == L'\n') {
				if(currentWord.length() > 0) {
					words.push_back(currentWord);
					currentWord.clear();
				}
			} else {
				currentWord += text[i];
			}
		}
		if(currentWord.length() > 0) {
			words.push_back(currentWord);
		}

		lineCount = 1;
		float spaceWidth = font->MeasureString(L" ").m128_f32[0];
		float lineWidth = 0.0f;
		for(wstring word : words) {
			for(unsigned int i = 0; i < word.size(); i++) {
				if(!font->ContainsCharacter(word[i])) {
					word[i] = L'?';
				}
			}
			float wordWidth = font->MeasureString(word.c_str()).m128_f32[0];

			if(lineWidth + wordWidth < maxLineWidth) {
				wrappedText += word + L" ";
				lineWidth += wordWidth + spaceWidth;
			} else {
				wrappedText += L"\n" + word + L" ";
				lineWidth = wordWidth + spaceWidth;
				lineCount++;
			}
		}

		return wrappedText;
	}

	void Renderer::DrawToast(shared_ptr<ToastInfo> toast, int &lastHeight)
	{
		//Get opacity for fade in/out effect
		float opacity = toast->GetOpacity();
		XMVECTORF32 color = { opacity, opacity, opacity, opacity };
		float textLeftMargin = 4.0f;

		int lineHeight = 25;
		string text = "[" + toast->GetToastTitle() + "] " + toast->GetToastMessage();
		uint32_t lineCount = 0;
		std::wstring wrappedText = WrapText(text, _font.get(), _screenWidth - textLeftMargin * 2 - 20, lineCount);
		lastHeight += lineCount * lineHeight;
		DrawString(wrappedText, textLeftMargin, (float)(_screenHeight - lastHeight), color, 1);
	}
}