Subversion Repositories Kolibri OS

#ifndef INCLUDE_LABEL_H

#define INCLUDE_LABEL_H

#ifndef INCLUDE_MATH_H

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

#endif

#ifndef INCLUDE_IO_H

#include "../lib/io.h"

#endif

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

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

:struct __SIZE

{

	dword width,height;

	signed offset_x, offset_y;

	float offset_i,w_italic;

	byte pt;

	byte TMP_WEIGHT;

};

:struct LABEL

{

	__SIZE size;

	int width,height;

	byte bold,italic,smooth;

	dword color, background;

	dword font,font_begin;

	word block;

	byte init();

	byte changeSIZE();

	byte symbol();

	byte symbol_size();

	dword getsize();

	dword raw;

	dword raw_size;

	void apply_smooth();

	int write_center();

	int write();

	void write_buf();

	void show_buf();

} label;

:byte LABEL::changeSIZE()

{

	dword file_size;

	dword TMP_DATA;

	dword ofs;

	IF(size.pt<9) size.pt = 8;

	TMP_DATA = font = font_begin;

	TMP_DATA +=size.pt-8*4;

	ofs = DSDWORD[TMP_DATA];

	IF(ofs==-1)return false;

	font += ofs + 156;

	TMP_DATA = font;

	file_size = DSDWORD[TMP_DATA];

	TMP_DATA = font + file_size;

	height = DSBYTE[TMP_DATA - 1];

	width =  DSBYTE[TMP_DATA - 2];

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

	return true;

}

:dword LABEL::getsize(dword text1)

{

	size.height = size.width = 0;

	size.offset_x = size.offset_y = -1;

	IF(size.pt)IF(!changeSIZE())return 0;

	WHILE(DSBYTE[text1])

	{

		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;

	IF(italic)

	{

		size.w_italic = size.height/3;

		size.offset_i = size.w_italic/size.height;

		size.width += size.w_italic;

		size.w_italic = -size.w_italic;

	}

	return size.width;

}

:byte LABEL::symbol_size(byte s)

{

		dword xi,yi;

		dword tmp,_;

		dword iii = 0;

		byte rw=0;

		byte X;

		size.TMP_WEIGHT = math.ceil(size.pt/17);

		IF(s==32)

		{

			size.width += width/4;

			IF(bold) size.width+=size.TMP_WEIGHT;

			return;

		}

		IF(s==9)

		{

			size.width += width;

			IF(bold) size.width+=size.TMP_WEIGHT;

			return;

		}

		s = Cp866ToAnsi(s);

		tmp = 4*block*s + font;

		for(yi=0; yi

		{

			for(xi=0; xi

			{

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

				ELSE

				{

					tmp += 4;

					_ = DSDWORD[tmp];

				}

				IF(_&1)

				{

					IF(xi>rw)rw=xi;

					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;

				}

				iii++;

			}

		}

		size.width += rw;

		IF(bold) size.width+=size.TMP_WEIGHT;

		//IF(s=='_') size.width--; //http://board.kolibrios.org/viewtopic.php?f=44&t=973&start=645

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

}

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

{

		dword xi,yi;

		dword iii = 0;

		dword offs;

		float ital = -size.w_italic;

		dword ___x;

		byte rw=0;

		IF(s==32)return width/4;

		IF(s==9)return width;

		s = Cp866ToAnsi(s);

		EBX = block*s << 2 + font;

		for(yi=0; yi

		{

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

			for(xi=0; xi

			{

				IF(iii%32) $shr ecx,1

				ELSE

				{

						EBX += 4;

						ECX = DSDWORD[EBX];

				}

				IF(ECX&true)

				{

						IF(xi>rw)rw=xi;

						___x = x+xi;

						IF(italic)___x+=math.ceil(ital);

						offs = ___x*3 + EDI;

						DSDWORD[offs] = DSDWORD[offs] & 0xFF000000 | color;

						IF(bold) DSDWORD[offs+3] = DSDWORD[offs+3] & 0xFF000000 | color;

				}

				iii++;

			}

			if (italic) ital-=size.offset_i;

		}

		return rw;

}

byte Cp866ToAnsi(byte s) {

	IF(s>=128)&&(s<=175)s+=64;

	ELSE IF(s>=224)&&(s<=239)s+=16;

	ELSE IF(s==241)s=184; //e rus with dots (yo)

	ELSE IF(s==240)s=168; //E rus with dots (yo)

	ELSE IF(s==242)s='E'; //E ukr (ye)

	ELSE IF(s==243)s=186; //e ukr (ye)

	ELSE IF(s==244)s='I'; //I ukr (yi)

	ELSE IF(s==245)s=191; //i ukr (yi)

	return s;

}

:byte LABEL::init(dword font_path)

{

	IO label_io;

	IF(font)free(font);

	label_io.read(font_path);

	IF(!EAX) {

		notify("'Error: KFONT is not loaded.' -E");

		return false;

	}

	font_begin = font = label_io.buffer_data;

	height = DSBYTE[calc(font_begin+label_io.FILES_SIZE)-1];

	width = DSBYTE[calc(font_begin+label_io.FILES_SIZE)-2];

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

	smooth = true;

	return true;

}

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

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

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

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

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

inline fastcall dword b24(EAX) { return DSDWORD[EAX] & 0x00FFFFFF; }

:void LABEL::apply_smooth()

{

	dword i,line_w,to,dark_background;

	line_w = size.width * 3;

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

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

	{

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

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

		// bw

		// wb

		if(b24(i)!=background) && (b24(i+3)==background) && (b24(i+line_w)==background) && (b24(i+3+line_w)!=background)

		{

			dark_background = MixColors(background,b24(i),210);

			DSDWORD[i+3] = DSDWORD[i+3] & 0xFF000000 | dark_background;

			DSDWORD[i+line_w] = DSDWORD[i+line_w] & 0xFF000000 | dark_background;

		}

		// wb

		// bw

		else if(b24(i)==background) && (b24(i+3)!=background) && (b24(i+line_w)!=background) && (b24(i+3+line_w)==background)

		{

			dark_background = MixColors(background,b24(i+3),210);

			DSDWORD[i] = DSDWORD[i] & 0xFF000000 | dark_background;

			DSDWORD[i+3+line_w] = DSDWORD[i+3+line_w] & 0xFF000000 | dark_background;

		}

	}

}

:int LABEL::write_center(dword x,y,w,h; dword _background, _color; byte fontSizePoints; dword txt)

{

	size.pt = fontSizePoints;

	getsize(txt);

	return write(w-size.width/2+x,y, _background, _color, fontSizePoints, txt);

}

:int LABEL::write(int x,y; dword _background, _color; byte fontSizePoints; dword text1)

{

	signed len=0;

	IF(!text1)return false;

	IF(size.pt)IF(!changeSIZE())return false;

	size.pt = fontSizePoints;

	getsize(text1);

	color = _color;

	background = _background;

	y -= size.offset_y;

	EDX = size.width*size.height*3;

	IF(!raw_size)

	{

		raw_size = EDX;

		raw = malloc(raw_size);

	}

	ELSE IF(raw_size

	{

		raw_size = EDX;

		raw = realloc(raw,raw_size);

	}

	// Fill background color {

	EBX = background;

	EAX = raw_size+raw;

	for (EDI=raw; EDI

	// }

	len = size.offset_x;

	WHILE(DSBYTE[text1])

	{

		//IF(DSBYTE[text1]=='_') len--; //http://board.kolibrios.org/viewtopic.php?f=44&t=973&start=645

		len+=symbol(len,0,DSBYTE[text1], raw);

		IF(bold)len+=math.ceil(size.pt/17);

		text1++;

	}

	IF (smooth) apply_smooth();

	show_buf(x,y);

	return len;

}

:void LABEL::write_buf(int x,y,w,h; dword _background, _color; byte fontSizePoints; dword text1)

{

	dword new_raw_size;

	IF(!text1)return;

	IF(size.pt)IF(!changeSIZE())return;

	if (size.pt != fontSizePoints) {

		size.pt = fontSizePoints;

		getsize(text1);

		y -= size.offset_y;

	}

	color = _color;

	background = _background;

	size.width = w;

	size.height = h;

	new_raw_size = w*h*3;

	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;

}

:void LABEL::show_buf(dword x, y){

	_PutImage(x, y, size.width, size.height, raw);

}

#endif