/* $Id$ */
#include <Mw/Milsko.h>

#include "stb_image.h"

#define FontWidth 7
#define FontHeight 14
#define FontScale 1

static int hex(const char* txt, int len) {
	int i;
	int r = 0;
	for(i = 0; i < len; i++) {
		char c = txt[i];
		int  n = 0;
		if('a' <= c && c <= 'f') {
			n = c - 'a' + 10;
		} else if('A' <= c && c <= 'F') {
			n = c - 'A' + 10;
		} else if('0' <= c && c <= '9') {
			n = c - '0';
		}
		r = r << 4;
		r |= n;
	}
	return r;
}

MwLLColor MwParseColor(MwWidget handle, const char* text) {
	int r = 0;
	int g = 0;
	int b = 0;

	if(text[0] == '#' && strlen(text) == 4) {
		r = hex(text + 1, 1);
		g = hex(text + 2, 1);
		b = hex(text + 3, 1);

		r |= r << 4;
		g |= g << 4;
		b |= b << 4;
	} else if(text[0] == '#' && strlen(text) == 7) {
		r = hex(text + 1, 2);
		g = hex(text + 3, 2);
		b = hex(text + 5, 2);
	}

	return MwLLAllocColor(handle->lowlevel, r, g, b);
}

void MwDrawRect(MwWidget handle, MwRect* rect, MwLLColor color) {
	MwPoint p[4];

	p[0].x = rect->x;
	p[0].y = rect->y;

	p[1].x = rect->x + rect->width;
	p[1].y = rect->y;

	p[2].x = rect->x + rect->width;
	p[2].y = rect->y + rect->height;

	p[3].x = rect->x;
	p[3].y = rect->y + rect->height;

	MwLLPolygon(handle->lowlevel, p, 4, color);
}

void MwDrawFrame(MwWidget handle, MwRect* rect, MwLLColor color, int invert) {
	const int border = 2;

	MwDrawFrameEx(handle, rect, color, invert, border);
}

void MwDrawFrameEx(MwWidget handle, MwRect* rect, MwLLColor color, int invert, int border) {
	MwPoint	  p[6];
	const int diff	  = 128;
	MwLLColor darker  = MwLLAllocColor(handle->lowlevel, color->red - diff, color->green - diff, color->blue - diff);
	MwLLColor lighter = MwLLAllocColor(handle->lowlevel, color->red + diff, color->green + diff, color->blue + diff);

	p[0].x = rect->x;
	p[0].y = rect->y;

	p[1].x = rect->x + rect->width;
	p[1].y = rect->y;

	p[2].x = rect->x + rect->width - border;
	p[2].y = rect->y + border;

	p[3].x = rect->x + border;
	p[3].y = rect->y + border;

	p[4].x = rect->x + border;
	p[4].y = rect->y + rect->height - border;

	p[5].x = rect->x;
	p[5].y = rect->y + rect->height;

	MwLLPolygon(handle->lowlevel, p, 6, invert ? darker : lighter);

	p[0].x = rect->x + rect->width;
	p[0].y = rect->y;

	p[1].x = rect->x + rect->width - border;
	p[1].y = rect->y + border;

	p[2].x = rect->x + rect->width - border;
	p[2].y = rect->y + rect->height - border;

	p[3].x = rect->x + border;
	p[3].y = rect->y + rect->height - border;

	p[4].x = rect->x;
	p[4].y = rect->y + rect->height;

	p[5].x = rect->x + rect->width;
	p[5].y = rect->y + rect->height;

	MwLLPolygon(handle->lowlevel, p, 6, invert ? lighter : darker);

	MwLLFreeColor(lighter);
	MwLLFreeColor(darker);

	rect->x += border;
	rect->y += border;
	rect->width -= border * 2;
	rect->height -= border * 2;
}

void MwDrawText(MwWidget handle, MwPoint* point, const char* text, MwLLColor color) {
	int    i, x, y, sx, sy;
	MwRect r;

	sx = point->x - strlen(text) * FontWidth * FontScale / 2;
	sy = point->y - FontHeight * FontScale / 2;

	for(i = 0; text[i] != 0; i++) {
		for(y = 0; y < FontHeight; y++) {
			for(x = 0; x < FontWidth; x++) {
				r.x	 = sx + x * FontScale;
				r.y	 = sy + y * FontScale;
				r.width	 = FontScale;
				r.height = FontScale;

				if(MwFontData[(unsigned char)text[i]].data[y] & (1 << ((FontWidth - 1) - x))) {
					MwDrawRect(handle, &r, color);
				}
			}
		}
		sx += FontWidth * FontScale;
	}
}

int MwTextWidth(MwWidget handle, const char* text) {
	(void)handle;

	return strlen(text) * FontWidth * FontScale;
}

int MwTextHeight(MwWidget handle, const char* text) {
	(void)handle;
	(void)text;

	return FontHeight * FontScale;
}

MwLLPixmap MwLoadImage(MwWidget handle, const char* path) {
	int	       width, height, ch;
	unsigned char* rgb = stbi_load(path, &width, &height, &ch, 4);
	MwLLPixmap     px;

	if(rgb == NULL) return NULL;

	px = MwLLCreatePixmap(handle->lowlevel, rgb, width, height);

	free(rgb);

	return px;
}