// Copyright (c) 2015 YamaArashi

#include <stdio.h>
#include <stdlib.h>
#include <stdint.h>
#include <stdbool.h>
#include "global.h"
#include "font.h"
#include "gfx.h"
#include "util.h"

unsigned char gFontPalette[][3] = {
	{0x90, 0xC8, 0xFF}, // bg (saturated blue that contrasts well with the shadow color)
	{0x38, 0x38, 0x38}, // fg (dark grey)
	{0xD8, 0xD8, 0xD8}, // shadow (light grey)
	{0xFF, 0xFF, 0xFF}  // box (white)
};

static void ConvertFromHalfWidthLatinFont(unsigned char *src, unsigned char *dest, unsigned int numRows)
{
	unsigned int srcPixelsOffset = 0;

	for (unsigned int row = 0; row < numRows; row++) {
		for (unsigned int column = 0; column < 32; column++) {
			for (unsigned int glyphTile = 0; glyphTile < 2; glyphTile++) {
				unsigned int pixelsX = (column * 8);

				for (unsigned int i = 0; i < 8; i++) {
					unsigned int pixelsY = (row * 16) + (glyphTile * 8) + i;				
					unsigned int destPixelsOffset = (pixelsY * 64) + (pixelsX / 4);

					dest[destPixelsOffset] = src[srcPixelsOffset + 1];
					dest[destPixelsOffset + 1] = src[srcPixelsOffset];

					srcPixelsOffset += 2;
				}
			}
		}
	}
}

static void ConvertToHalfWidthLatinFont(unsigned char *src, unsigned char *dest, unsigned int numRows)
{
	unsigned int destPixelsOffset = 0;
	
	for (unsigned int row = 0; row < numRows; row++) {
		for (unsigned int column = 0; column < 32; column++) {
			for (unsigned int glyphTile = 0; glyphTile < 2; glyphTile++) {
				unsigned int pixelsX = (column * 8);

				for (unsigned int i = 0; i < 8; i++) {
					unsigned int pixelsY = (row * 16) + (glyphTile * 8) + i;
					unsigned int srcPixelsOffset = (pixelsY * 64) + (pixelsX / 4);

					dest[destPixelsOffset] = src[srcPixelsOffset + 1];
					dest[destPixelsOffset + 1] = src[srcPixelsOffset];

					destPixelsOffset += 2;
				}
			}
		}
	}
}

static void ConvertFromFullWidthLatinFont(unsigned char *src, unsigned char *dest, unsigned int numRows)
{
	unsigned int srcPixelsOffset = 0;

	for (unsigned int row = 0; row < numRows; row++) {
		for (unsigned int column = 0; column < 16; column++) {
			for (unsigned int glyphTile = 0; glyphTile < 4; glyphTile++) {
				unsigned int pixelsX = (column * 16) + ((glyphTile & 1) * 8);

				for (unsigned int i = 0; i < 8; i++) {
					unsigned int pixelsY = (row * 16) + ((glyphTile >> 1) * 8) + i;				
					unsigned int destPixelsOffset = (pixelsY * 64) + (pixelsX / 4);

					dest[destPixelsOffset] = src[srcPixelsOffset + 1];
					dest[destPixelsOffset + 1] = src[srcPixelsOffset];

					srcPixelsOffset += 2;
				}
			}
		}
	}
}

static void ConvertToFullWidthLatinFont(unsigned char *src, unsigned char *dest, unsigned int numRows)
{
	unsigned int destPixelsOffset = 0;

	for (unsigned int row = 0; row < numRows; row++) {
		for (unsigned int column = 0; column < 16; column++) {
			for (unsigned int glyphTile = 0; glyphTile < 4; glyphTile++) {
				unsigned int pixelsX = (column * 16) + ((glyphTile & 1) * 8);

				for (unsigned int i = 0; i < 8; i++) {
					unsigned int pixelsY = (row * 16) + ((glyphTile >> 1) * 8) + i;
					unsigned int srcPixelsOffset = (pixelsY * 64) + (pixelsX / 4);

					dest[destPixelsOffset] = src[srcPixelsOffset + 1];
					dest[destPixelsOffset + 1] = src[srcPixelsOffset];

					destPixelsOffset += 2;
				}
			}
		}
	}
}

static void ConvertFromHalfwidthJapaneseFont(unsigned char *src, unsigned char *dest, unsigned int numRows)
{
	for (unsigned int row = 0; row < numRows; row++) {
		for (unsigned int column = 0; column < 16; column++) {
			unsigned int glyphIndex = (row * 16) + column;

			for (unsigned int glyphTile = 0; glyphTile < 2; glyphTile++) {
				unsigned int pixelsX = column * 8;
				unsigned int srcPixelsOffset = 512 * (glyphIndex >> 4) + 16 * (glyphIndex & 0xF) + 256 * glyphTile;

				for (unsigned int i = 0; i < 8; i++) {
					unsigned int pixelsY = (row * 16) + (glyphTile * 8) + i;
					unsigned int destPixelsOffset = (pixelsY * 32) + (pixelsX / 4);
					
					dest[destPixelsOffset] = src[srcPixelsOffset + 1];
					dest[destPixelsOffset + 1] = src[srcPixelsOffset];

					srcPixelsOffset += 2;
				}
			}
		}
	}
}

static void ConvertToHalfwidthJapaneseFont(unsigned char *src, unsigned char *dest, unsigned int numRows)
{
	for (unsigned int row = 0; row < numRows; row++) {
		for (unsigned int column = 0; column < 16; column++) {
			unsigned int glyphIndex = (row * 16) + column;

			for (unsigned int glyphTile = 0; glyphTile < 2; glyphTile++) {
				unsigned int pixelsX = column * 8;
				unsigned int destPixelsOffset = 512 * (glyphIndex >> 4) + 16 * (glyphIndex & 0xF) + 256 * glyphTile;

				for (unsigned int i = 0; i < 8; i++) {
					unsigned int pixelsY = (row * 16) + (glyphTile * 8) + i;
					unsigned int srcPixelsOffset = (pixelsY * 32) + (pixelsX / 4);

					dest[destPixelsOffset] = src[srcPixelsOffset + 1];
					dest[destPixelsOffset + 1] = src[srcPixelsOffset];

					destPixelsOffset += 2;
				}
			}
		}
	}
}

static void ConvertFromFullwidthJapaneseFont(unsigned char *src, unsigned char *dest, unsigned int numRows)
{
	for (unsigned int row = 0; row < numRows; row++) {
		for (unsigned int column = 0; column < 16; column++) {
			unsigned int glyphIndex = (row * 16) + column;

			for (unsigned int glyphTile = 0; glyphTile < 4; glyphTile++) {
				unsigned int pixelsX = (column * 16) + ((glyphTile & 1) * 8);
				unsigned int srcPixelsOffset = 512 * (glyphIndex >> 3) + 32 * (glyphIndex & 7) + 256 * (glyphTile >> 1) + 16 * (glyphTile & 1);

				for (unsigned int i = 0; i < 8; i++) {
					unsigned int pixelsY = (row * 16) + ((glyphTile >> 1) * 8) + i;
					unsigned int destPixelsOffset = (pixelsY * 64) + (pixelsX / 4);

					dest[destPixelsOffset] = src[srcPixelsOffset + 1];
					dest[destPixelsOffset + 1] = src[srcPixelsOffset];

					srcPixelsOffset += 2;
				}
			}
		}
	}
}

static void ConvertToFullwidthJapaneseFont(unsigned char *src, unsigned char *dest, unsigned int numRows)
{
	for (unsigned int row = 0; row < numRows; row++) {
		for (unsigned int column = 0; column < 16; column++) {
			unsigned int glyphIndex = (row * 16) + column;

			for (unsigned int glyphTile = 0; glyphTile < 4; glyphTile++) {
				unsigned int pixelsX = (column * 16) + ((glyphTile & 1) * 8);
				unsigned int destPixelsOffset = 512 * (glyphIndex >> 3) + 32 * (glyphIndex & 7) + 256 * (glyphTile >> 1) + 16 * (glyphTile & 1);

				for (unsigned int i = 0; i < 8; i++) {
					unsigned int pixelsY = (row * 16) + ((glyphTile >> 1) * 8) + i;
					unsigned int srcPixelsOffset = (pixelsY * 64) + (pixelsX / 4);

					dest[destPixelsOffset] = src[srcPixelsOffset + 1];
					dest[destPixelsOffset + 1] = src[srcPixelsOffset];

					destPixelsOffset += 2;
				}
			}
		}
	}
}

static void SetFontPalette(struct Image *image)
{
	image->hasPalette = true;

	image->palette.numColors = 4;

	for (int i = 0; i < image->palette.numColors; i++) {
		image->palette.colors[i].red = gFontPalette[i][0];
		image->palette.colors[i].green = gFontPalette[i][1];
		image->palette.colors[i].blue = gFontPalette[i][2];
	}

	image->hasTransparency = false;
}

void ReadHalfWidthLatinFont(char *path, struct Image *image)
{
	int fileSize;
	unsigned char *buffer = ReadWholeFile(path, &fileSize);

	int numGlyphs = fileSize / 32;

	if (numGlyphs % 16 != 0)
		FATAL_ERROR("The number of glyphs (%d) is not a multiple of 16.\n", numGlyphs);

	int numRows = numGlyphs / 16;

	image->width = 256;
	image->height = numRows * 16;
	image->bitDepth = 2;
	image->pixels = malloc(fileSize);

	if (image->pixels == NULL)
		FATAL_ERROR("Failed to allocate memory for font.\n");

	ConvertFromHalfWidthLatinFont(buffer, image->pixels, numRows);

	free(buffer);

	SetFontPalette(image);
}

void WriteHalfWidthLatinFont(char *path, struct Image *image)
{
	if (image->width != 256)
		FATAL_ERROR("The width of the font image (%d) is not 256.\n", image->width);

	if (image->height % 16 != 0)
		FATAL_ERROR("The height of the font image (%d) is not a multiple of 16.\n", image->height);

	int numRows = image->height / 16;
	int bufferSize = numRows * 16 * 64;
	unsigned char *buffer = malloc(bufferSize);

	if (buffer == NULL)
		FATAL_ERROR("Failed to allocate memory for font.\n");

	ConvertToHalfWidthLatinFont(image->pixels, buffer, numRows);

	WriteWholeFile(path, buffer, bufferSize);

	free(buffer);
}

void ReadFullWidthLatinFont(char *path, struct Image *image)
{
	int fileSize;
	unsigned char *buffer = ReadWholeFile(path, &fileSize);

	int numGlyphs = fileSize / 64;

	if (numGlyphs % 16 != 0)
		FATAL_ERROR("The number of glyphs (%d) is not a multiple of 16.\n", numGlyphs);

	int numRows = numGlyphs / 16;

	image->width = 256;
	image->height = numRows * 16;
	image->bitDepth = 2;
	image->pixels = malloc(fileSize);

	if (image->pixels == NULL)
		FATAL_ERROR("Failed to allocate memory for font.\n");

	ConvertFromFullWidthLatinFont(buffer, image->pixels, numRows);

	free(buffer);

	SetFontPalette(image);
}

void WriteFullWidthLatinFont(char *path, struct Image *image)
{
	if (image->width != 256)
		FATAL_ERROR("The width of the font image (%d) is not 256.\n", image->width);

	if (image->height % 16 != 0)
		FATAL_ERROR("The height of the font image (%d) is not a multiple of 16.\n", image->height);

	int numRows = image->height / 16;
	int bufferSize = numRows * 16 * 64;
	unsigned char *buffer = malloc(bufferSize);

	if (buffer == NULL)
		FATAL_ERROR("Failed to allocate memory for font.\n");

	ConvertToFullWidthLatinFont(image->pixels, buffer, numRows);

	WriteWholeFile(path, buffer, bufferSize);

	free(buffer);
}

void ReadHalfwidthJapaneseFont(char *path, struct Image *image)
{
	int fileSize;
	unsigned char *buffer = ReadWholeFile(path, &fileSize);

	int glyphSize = 32;

	if (fileSize % glyphSize != 0)
		FATAL_ERROR("The file size (%d) is not a multiple of %d.\n", fileSize, glyphSize);

	int numGlyphs = fileSize / glyphSize;
	
	if (numGlyphs % 16 != 0)
		FATAL_ERROR("The number of glyphs (%d) is not a multiple of 16.\n", numGlyphs);

	int numRows = numGlyphs / 16;

	image->width = 128;
	image->height = numRows * 16;
	image->bitDepth = 2;
	image->pixels = malloc(fileSize);

	if (image->pixels == NULL)
		FATAL_ERROR("Failed to allocate memory for font.\n");

	ConvertFromHalfwidthJapaneseFont(buffer, image->pixels, numRows);

	free(buffer);

	SetFontPalette(image);
}

void WriteHalfwidthJapaneseFont(char *path, struct Image *image)
{
	if (image->width != 128)
		FATAL_ERROR("The width of the font image (%d) is not 128.\n", image->width);

	if (image->height % 16 != 0)
		FATAL_ERROR("The height of the font image (%d) is not a multiple of 16.\n", image->height);

	int numRows = image->height / 16;
	int bufferSize = numRows * 16 * 32;
	unsigned char *buffer = malloc(bufferSize);

	if (buffer == NULL)
		FATAL_ERROR("Failed to allocate memory for font.\n");

	ConvertToHalfwidthJapaneseFont(image->pixels, buffer, numRows);

	WriteWholeFile(path, buffer, bufferSize);

	free(buffer);
}

void ReadFullwidthJapaneseFont(char *path, struct Image *image)
{
	int fileSize;
	unsigned char *buffer = ReadWholeFile(path, &fileSize);

	int numGlyphs = fileSize / 64;

	if (numGlyphs % 16 != 0)
		FATAL_ERROR("The number of glyphs (%d) is not a multiple of 16.\n", numGlyphs);

	int numRows = numGlyphs / 16;

	image->width = 256;
	image->height = numRows * 16;
	image->bitDepth = 2;
	image->pixels = malloc(fileSize);

	if (image->pixels == NULL)
		FATAL_ERROR("Failed to allocate memory for font.\n");

	ConvertFromFullwidthJapaneseFont(buffer, image->pixels, numRows);

	free(buffer);

	SetFontPalette(image);
}

void WriteFullwidthJapaneseFont(char *path, struct Image *image)
{
	if (image->width != 256)
		FATAL_ERROR("The width of the font image (%d) is not 256.\n", image->width);

	if (image->height % 16 != 0)
		FATAL_ERROR("The height of the font image (%d) is not a multiple of 16.\n", image->height);

	int numRows = image->height / 16;
	int bufferSize = numRows * 16 * 64;
	unsigned char *buffer = malloc(bufferSize);

	if (buffer == NULL)
		FATAL_ERROR("Failed to allocate memory for font.\n");

	ConvertToFullwidthJapaneseFont(image->pixels, buffer, numRows);

	WriteWholeFile(path, buffer, bufferSize);

	free(buffer);
}
