Subversion Repositories Kolibri OS

// Сам шрифт представляет.

// Голова:

// [2 байта символы:KF]

// [4 байта:указатель на название шрифта]

// [1 байт:размер массива указателей на размеры шрифтов, указатель 4 байта, т.е. размер = размер массива*4]

// [размер массива*4 байт:указатели..]

// Тело файла:

// [4 байта:масштаб ширина][4 байта:масштаб высота][255*4 байт:указатели на символы][масштаб ширина*масштаб высота байт: данные символов..]

// Конец:

// [Название шрифта:"Times New Roman"]

#ifndef INCLUDE_KFONT_H

#define INCLUDE_KFONT_H

#ifndef INCLUDE_MATH_H

#include "../lib/math.h"

#endif

#ifndef INCLUDE_IO_H

#include "../lib/fs.h"

#endif

#include "../lib/patterns/rgb.h"

#define DEFAULT_FONT "/sys/fonts/Tahoma.kf"

#define KFONT_BPP 4

int kfont_char_width[255];

:struct __SIZE

{

	dword width,height;

	signed offset_x, offset_y;

	byte pt;

};

:struct KFONT

{

	__SIZE size;

	int width,height;

	byte bold,smooth;

	dword color, background;

	dword font,font_begin;

	word block;

	dword raw;

	dword raw_size;

	bool init();

	bool changeSIZE();

	byte symbol();

	byte symbol_size();

	dword getsize();

	int get_label_width();

	void ApplySmooth();

	int WriteIntoWindow();

	int WriteIntoWindowCenter();

	dword WriteIntoBuffer();

	void ShowBuffer();

	void ShowBufferPart();

} kfont;

:bool KFONT::init(dword font_path)

{

	dword fsize_notused;

	if(font)free(font);

	read_file(font_path, #font_begin, #fsize_notused);

	if(!EAX) {

		RunProgram("/sys/@notify", "'Error: KFONT is not loaded.' -E");

		return false;

	}

	changeSIZE();

	smooth = true;

	return true;

}

:bool KFONT::changeSIZE()

{

	int i;

	dword file_size;

	dword ofs;

	if(size.pt<9) size.pt = 9;

	font = font_begin;

	ofs = DSDWORD[calc(size.pt-8<<2+font_begin)];

	if(ofs==-1)return false;

	font += ofs + 156;

	file_size = DSDWORD[calc(font)];

	height = DSBYTE[calc(font+file_size) - 1];

	width =  DSBYTE[calc(font+file_size) - 2];

	block = math.ceil(height*width/32);

	for (i=0; i<256; i++) {

		kfont_char_width[i] = symbol_size((byte) i);

	}

	return true;

}

:dword KFONT::getsize(byte font_size, dword text1)

{

	size.height = size.width = 0;

	size.offset_x = size.offset_y = -1;

	if (size.pt != font_size) {

		size.pt = font_size;

		if(!changeSIZE())return 0;

	}

	WHILE(DSBYTE[text1])

	{

		size.width += symbol_size(DSBYTE[text1]);

		text1++;

	}

	$neg size.offset_y

	$neg size.offset_x

	size.height += size.offset_y+1;

	size.width += size.offset_x+1;

	return size.width;

}

//WILL NOT WORK if requested font_size

//is differ from precalculated kfont_char_width[]

:int KFONT::get_label_width(dword _label)

{

	int len=0;

	while (ESBYTE[_label]) {

		len += kfont_char_width[ ESBYTE[_label] ];

		_label++;

	}

	return len;

}

:byte KFONT::symbol_size(byte s)

{

	int chaw_width;

	chaw_width = symbol(0,0, s, 0);

	if(bold) chaw_width += math.ceil(size.pt/17);

	return chaw_width;

}

:byte KFONT::symbol(signed x,y; byte s; dword image_raw)

{

	dword xi,yi;

	dword iii = 0;

	dword offs;

	dword tmp, _;

	byte X;

	byte chaw_width=0;

	if(s==32)return width/4+1;

	if(s==9)return width;

	s = Cp866ToAnsi(s);

	tmp = block*s << 2 + font;

	for(yi=0; yi

	{

		EDI = size.offset_y + yi + y * size.width * KFONT_BPP + image_raw;

		for(xi=0; xi

		{

			if(iii%32) _ >>= 1;

			else

			{

					tmp += 4;

					_ = DSDWORD[tmp];

			}

			if(_&1) //check does the pixel set

			{

				if(xi>chaw_width)chaw_width=xi;

				//in case of image_raw!=0 draw font into bug

				//in case of image_raw==0 calculate size

				if (image_raw)

				{

					offs = x + xi * KFONT_BPP + EDI;

					DSDWORD[offs] = color;

					if(bold) DSDWORD[offs+KFONT_BPP] = color;

				}

				else

				{

					if(size.height

					if(size.offset_y<0)size.offset_y = yi; else if(yi

					if(!X) X = xi; else if(X>xi)X = xi;

					if(size.offset_x<0)size.offset_x = X;

				}

			}

			iii++;

		}

	}

	return chaw_width;

}

inline fastcall Cp866ToAnsi(AL) {

	if (AL>=128)&&(AL<=175) return AL+64;

	if (AL>=224)&&(AL<=239) return AL+16;

	if (AL==241) return 184; //e ruAL with dotAL (yo)

	if (AL==240) return 168; //E ruAL with dotAL (yo)

	if (AL==242) return 'E'; //E ukr (ye)

	if (AL==243) return 186; //e ukr (ye)

	if (AL==244) return 'I'; //I ukr (yi)

	if (AL==245) return 191; //i ukr (yi)

	return AL;

}

/*=====================================================================================

===========================                                 ===========================

===========================               RAW               ===========================

===========================                                 ===========================

=====================================================================================*/

inline fastcall dword b32(EAX) { return DSDWORD[EAX]; }

:void KFONT::ApplySmooth()

{

	dword i,line_w,to,dark_background;

	line_w = size.width * KFONT_BPP;

	to = size.height - 1 * line_w + raw - KFONT_BPP;

	for(i=raw; i < to; i+=KFONT_BPP)

	{

		if(i-raw%line_w +KFONT_BPP == line_w) continue;

		// pixels position, where b - black, w - write

		// bw

		// wb

		if(b32(i)!=background) {

			if (b32(i+KFONT_BPP)==background)

			&& (b32(i+line_w)==background) && (b32(i+KFONT_BPP+line_w)!=background)

			{

				dark_background = MixColors(background,b32(i),200);

				DSDWORD[i+KFONT_BPP] = dark_background;

				DSDWORD[i+line_w] = dark_background;

			}

		}

		// wb

		// bw

		else if (b32(i+KFONT_BPP)!=background)

		&& (b32(i+line_w)!=background) && (b32(i+KFONT_BPP+line_w)==background)

		{

			dark_background = MixColors(background,b32(i+KFONT_BPP),200);

			DSDWORD[i] = dark_background;

			DSDWORD[i+KFONT_BPP+line_w] = dark_background;

		}

	}

}

:dword KFONT::WriteIntoBuffer(int x,y,w,h; dword _background, _color; byte font_size; dword text1)

{

	dword new_raw_size;

	if(!text1)return;

	if (size.pt != font_size) {

		getsize(font_size, text1);

		y -= size.offset_y;

	}

	color = _color;

	background = _background;

	size.width = w;

	size.height = h;

	new_raw_size = w*h*KFONT_BPP;

	if(raw_size != new_raw_size)

	{

		raw_size = new_raw_size;

		free(raw);

		raw = malloc(raw_size);

		// Fill background color

		EBX = background;

		EAX = raw_size+raw;

		for (EDI=raw; EDI

	}

	WHILE(DSBYTE[text1])

	{

		x+=symbol(x,y,DSBYTE[text1], raw);

		if(bold)x+=math.ceil(size.pt/17);

		text1++;

	}

	return x;

}

:int KFONT::WriteIntoWindow(int x,y; dword _background, _color; byte font_size; dword text1)

{

	if(!text1)return 0;

	getsize(font_size, text1);

	raw_size = NULL;

	WriteIntoBuffer(0, -size.offset_y, size.width-size.offset_x,

		size.height-size.offset_y, _background, _color, font_size, text1);

	if (smooth) ApplySmooth();

	ShowBuffer(x,y);

	return size.offset_x + size.width;

}

:int KFONT::WriteIntoWindowCenter(dword x, _y,w,h, _background, _color; byte font_size; dword text1)

{

	getsize(font_size, text1);

	return WriteIntoWindow(w-size.width/2+x-1, _y, _background, _color, font_size, text1);

}

:void KFONT::ShowBuffer(dword _x, _y)

{

	PutPaletteImage(raw, size.width, size.height, _x, _y, 32, 0);

}

:void KFONT::ShowBufferPart(dword _x, _y, _w, _h, _buf_offset)

{

	PutPaletteImage(_buf_offset * KFONT_BPP + raw, _w, _h, _x, _y, 32, 0);

}

#endif