#include <alib\img.h>
#include <alib\io.h>
#include <math.h>
#include <alib\freetype.h>

int GetFontH (ft_font *ftf){

    //return ftf->fti->h*1.1;

    ft_engine *fte = (ft_engine*)ftf->fti->fte;
    int height=(fte->face->height);
    return (height>>6)+1;
}

int FT_GetLetterW (ft_font *ftf, int num){
    if (!ftf )  return 0;

    fte_symbol *fte_s = fte_get_symbol(ftf->fti, num);

    if( fte_s == 0) return -1;

    return fte_s->xadvance;
}


int FT_GetStringW (wchar_t *str, ft_font *font){
	if (!font || !str) return 0;

	int str_w=0;

	for (int i=0; str[i]!='\0'; i++){
		int cur=str[i];
        int w=FT_GetLetterW (font, cur);
        if (w>0) str_w+=w;
	}

	return str_w;
}


int GetStringW (char *str, ft_font *font, int charmap){
	if (!font || !str) return 0;

	int len=strlen (str);
	wchar_t *wstr=new wchar_t [len+1];

	DecodeString (wstr, str, charmap);

	int w=FT_GetStringW (wstr, font);

	delete wstr; wstr=NULL;

	return w;
}

int
AIMG::
FT_DrawLetter (ft_font *ftf, int num, int x, int y, MyRECT rc, color32_t clr){
    if (!ftf )  return -1;

    fte_symbol *fte_s = fte_get_symbol(ftf->fti, num);

    if(fte_s == 0) return -2;
    if(!fte_s->bitmap) return fte_s->xadvance;

	int nx=x+fte_s->left;
	ft_engine *fte = (ft_engine*)ftf->fti->fte;
	int ascender=(fte->face->ascender);
	int ny=y-fte_s->top+(ascender>>6);

    uint8_t a = (GetA(clr));
	for (int j=0; j<fte_s->height; j++){
		for (int i=0; i<fte_s->width; i++){

			if (nx+i>=0 && nx+i<w_ && ny+j>=0 && ny+j<h_){
			    if (nx+i>=rc.x && nx+i<rc.x2 /*&& ny+j>=rc.y*/ && ny+j<rc.y2){
                    a=fte_s->bitmap[i + fte_s->width*j];
                    SetColor (nx+i, ny+j, rgb_rgb32 ((GetR(clr)), (GetG(clr)), (GetB(clr)), a));
                }
			}
		}
	}

	return fte_s->xadvance;
}


int
AIMG::
FT_DrawScrollString (wchar_t *str, ft_font *font, int x1, int y1, int x2, int y2, int slide, int TEXT_ALIGN, color32_t clr){
	if (!font || !str) return -1;
    int w=0;
	int xy_cur=x1-slide;

	if (TEXT_ALIGN&TEXT_ALIGNMIDDLE || TEXT_ALIGN&TEXT_ALIGNRIGHT) w=FT_GetStringW (str, font);

    if (TEXT_ALIGN&TEXT_ALIGNMIDDLE){ xy_cur+=((x2-x1)-w)/2;}
    if (TEXT_ALIGN&TEXT_ALIGNRIGHT){ xy_cur+=((x2-x1)-w);}

	for (int i=0; str[i]!='\0'; i++){
		int cur=str[i];
        MyRECT rc;
        rc.x=x1;
        rc.x2=x2;
        rc.y=y1;
        rc.y2=y2;
        xy_cur+=FT_DrawLetter (font, cur, xy_cur, y1, rc, clr);
	}

	return 0;
}

int
AIMG::
DrawScrollString (char *str, ft_font *font, int x1, int y1, int x2, int y2, int slide, int TEXT_ALIGN, color32_t clr, int charmap){
	if (!font || !str) return -1;

    int len=strlen (str);
	wchar_t *wstr=new wchar_t [len+1];

    DecodeString (wstr, str, charmap);

    FT_DrawScrollString (wstr, font, x1, y1, x2, y2, slide, TEXT_ALIGN, clr);

    delete wstr; wstr=NULL;

    return 0;
}

wchar_t buf_str[512];
int
AIMG::
DrawString (char *str, ft_font *font, int x1, int y1, int x2, int y2, int TEXT_ALIGN, color32_t clr, int charmap){
	if (!font || !str) return -1;

    int len=strlen (str);
	wchar_t *wstr=new wchar_t [len+1];

    DecodeString (wstr, str, charmap);

    int ycur=0;
    int s=0;
	for (int i=0; wstr[i]!='\0'; i++){
        if (wstr[i]=='\n'){
            buf_str[s]='\0';
            FT_DrawScrollString (buf_str, font, x1, y1+ycur, x2, y2+ycur, 0, TEXT_ALIGN, clr);
            s=0; buf_str[s]='\0';
            ycur+=GetFontH (font);
            i++;
        }
        buf_str[s]=wstr[i]; s++;
	}
	buf_str[s]='\0';
    FT_DrawScrollString (buf_str, font, x1, y1+ycur, x2, y2+ycur, 0, TEXT_ALIGN, clr);

    delete wstr; wstr=NULL;

    return 0;
}