#include "mxfont.h"
#include<stdio.h>
#include<stdlib.h>
#include<string.h>

int SDL_GetFX(struct SDL_Font *m,int x, int nw) {
	float xp = (float)x * (float)m->mx / (float)nw;		
	return (int)xp;
}

int SDL_GetFZ(struct SDL_Font *m, int y, int nh) {
	float yp = (float)y * (float)m->my / (float)nh;
	return (int)yp;
}


void InitFont(struct SDL_Font *m, int width, int height, int color) {
	int l,p,i,z;
	m->mx = width;
	m->my = height;
	for(l = 0; l <= 127; l++) {
		m->letters[l].fnt_ptr = (int**) malloc ( sizeof(int*) * width);
		for(p = 0; p < width; p++) {
			m->letters[l].fnt_ptr[p] = (int*) malloc ( sizeof(int) * height);
		}
		for(i = 0; i < width; i++) {
			for(z = 0; z < height; z++) {
				m->letters[l].fnt_ptr[i][z] = color;
			}
		}
	}
	m->tcolor = 0x0;
}

void dump_font(struct SDL_Font *fnt) {
	int i,z,p;
	for(p = 0; p <= 127; p++) {
		for(i = 0; i < fnt->mx; i++)
			for(z = 0; z < fnt->my; z++)
				printf("%d \n", fnt->letters[p].fnt_ptr[i][z]);
	}
}

struct SDL_Font *SDL_InitFont(const char *src) {
	FILE *fptr = fopen(src, "rb");
	int q = 0,mx = 0,my = 0;
	struct SDL_Font *fnt;
	int i,z,p;
	if(!fptr) return 0;

	fnt = (struct SDL_Font*)malloc(sizeof(struct SDL_Font));

	fread((char*)&q, sizeof(int), 1, fptr);
	if(q == -100) {
		fread((char*)&mx, sizeof(int), 1, fptr);
		fread((char*)&my, sizeof(int), 1, fptr);
		fread((char*)&fnt->tcolor, sizeof(int), 1, fptr);
		if(mx < 0 || mx < 0 || mx > 250 || my > 250) {
			// invalid font file
			fprintf(stderr, "Error invalid font file format!\n");
			free(fnt);
			return 0;
		}
		InitFont(fnt, mx, my, fnt->tcolor);
		for(p = 0; p <= 127; p++)
		for(i = 0; i < fnt->mx; i++) {
			for(z = 0; z < fnt->my; z++) {
				fread((char*)&fnt->letters[p].fnt_ptr[i][z], sizeof(int), 1, fptr);
			}
		}
	}
	fclose(fptr);
	return fnt;
}



void SDL_FreeFont(struct SDL_Font *m) {
	int l,i;
	for(l = 0; l <= 127; l++)
		if(m->letters[l].fnt_ptr)
			for(i = 0; i < m->mx; i++)
				free(m->letters[l].fnt_ptr[i]);

	free(m);
}

void SDL_PrintText(struct SDL_Surface *surf, struct SDL_Font *fnt, int x, int y, Uint32 color, const char *src) {
	int prev_x = x;
	int offset_x = prev_x, offset_y = y;
	int width = 0, height = 0;
	int i,z,p;

	if(fnt == 0) return;

	void *pbuf = lock(surf, surf->format->BitsPerPixel);


	for(p = 0; p < (int)strlen(src);  p++) {
		if(src[p] == '\n') {
			offset_x = prev_x;
			offset_y += height;
			continue;
		}
		for(i = 0; i < fnt->mx; i++) {
			for(z = 0; z < fnt->my; z++) {
				if(fnt->letters[src[p]].fnt_ptr[i][z] != fnt->tcolor) {
					setpixel(pbuf, (Uint32)offset_x+i, (Uint32)offset_y+z, color, surf->format->BitsPerPixel, surf->pitch);
					width=i;
					if(height < z)
						height=z;
				}
			}
		}
		offset_x += width;
	}
	unlock(surf);
}

void SDL_PrintTextScaled(struct SDL_Surface *surf, struct SDL_Font *fnt, int x, int y, int w, int h, Uint32 color, const char *src) {

		int prev_x = x;
	int offset_x = prev_x, offset_y = y;
	int width = 0, height = 0;
	int i,z,p;
	if(fnt == 0) return;

	void *pbuf = lock(surf, surf->format->BitsPerPixel);


	for(p = 0; p < (int)strlen(src);  p++) {
		if(src[p] == '\n') {
			offset_x = prev_x;
			offset_y += height;
			continue;
		}
		for(i = 0; i < w; i++) {
			for(z = 0; z < h; z++) {
				if(fnt->letters[src[p]].fnt_ptr[SDL_GetFX(fnt,i,w)][SDL_GetFZ(fnt,z,h)] != fnt->tcolor) {
					setpixel(pbuf, (Uint32)offset_x+i, (Uint32)offset_y+z, color, surf->format->BitsPerPixel, surf->pitch);
					width=i;
					if(height < z)
						height=z;
				}
			}
		}
		offset_x += width + 2;
	}
	unlock(surf);

}