kolibrios-fun/programs/cmm/lib/font.h

#ifndef INCLUDE_FONT_H
#define INCLUDE_FONT_H

#ifndef INCLUDE_MATH_H
#include "../lib/math.h"
#endif

#ifndef INCLUDE_IO_H
#include "../lib/io.h"
#endif

:struct FONT
{
	byte width,height,offsetLine;
	dword file_size;
	word block;
	dword data;
	dword begin;
	dword size_file;
	byte load(...);
	byte symbol(word x,y;byte s;dword c);
	dword text(word x,y;dword text,c;byte size);
	dword textarea(word x,y;dword text,c;byte size);
	byte changeSIZE(byte size);
};
FONT font = 0;
:byte FONT::changeSIZE(byte size)
{
	dword TMP_DATA;
	dword ofs;
	byte s;
	IF(size<9) size = 8;
	IF(size>45)size = 45;
		s = size-8;
		data = begin;
		TMP_DATA = data;
		TMP_DATA +=s*4;
		ofs = DSDWORD[TMP_DATA];
		IF(ofs==-1)return false;
		data += ofs;
		data += 156;
		TMP_DATA = data;
		file_size = DSDWORD[TMP_DATA];
		TMP_DATA += file_size;
		TMP_DATA--;
		height = DSBYTE[TMP_DATA];
		TMP_DATA--;
		width =  DSBYTE[TMP_DATA];
		block = math.ceil(height*width/32);
		return true;
}
:dword FONT::text(word x,y;dword text1,c;byte size)
{
	dword len=0;
	if(size)if(!changeSIZE(size))return 0;
	
	WHILE(DSBYTE[text1])
	{
		len += symbol(x+len,y,DSBYTE[text1],c);
		text1++;
	}
	return len;
}
:dword FONT::textarea(word x,y;dword text1,c;byte size)
{
	dword len=0;
	if(size)if(!changeSIZE(size))return 0;
	WHILE(DSBYTE[text1])
	{
		IF(DSBYTE[text1]=='\r'){ y+=height; len=0;}
		ELSE	len += symbol(x+len,y,DSBYTE[text1],c);
		text1++;
	}
	return len;
}
:byte FONT::symbol(signed x,y;byte s;dword c)
{
        dword xi,yi;
        dword tmp,_;
        dword iii;
        byte rw=0;
        IF(offsetLine)y+=offsetLine;
        IF(s==32)return width/4;
		IF(s==9)return width;
        yi = 0;
        iii = 0;
        tmp = 4*block*s;
        tmp +=data;
        while(yi<height)
        {
                xi = 0;
                WHILE(xi<width)
                {
                        IF(!(iii%32))
                        {
                                tmp += 4;
                                _ = DSDWORD[tmp];
                        }
                        ELSE _ >>= 1;
                        IF(_&1)
                        {
                                IF(xi>rw)rw=xi;
                                PutPixel(x+xi,y+yi,c);
                        }
                        xi++;
                        iii++;
                }
                yi++;
        }
        return rw;
}
:byte FONT::load(dword path)
{
	dword tmp;
	IF(data)free(data);
	tmp = io.read(path);
	data = tmp;
	begin = data;
	size_file = io.FILES_SIZE;
	tmp +=size_file;
	tmp--;
	height = DSBYTE[tmp];
	tmp--;
	width = DSBYTE[tmp];
	block = math.ceil(height*width/32);
}

#endif