Update lib font

git-svn-id: svn://kolibrios.org@5736 a494cfbc-eb01-0410-851d-a64ba20cac60

programs/cmm/example fonts/example original font.c

@@ -4,16 +4,13 @@
 
 byte id,key;
 
-FONT TimeNewRoman = 0;
-FONT Verdana = 0;
 void main()
 {   
 
 	SetEventMask(1100111b);
 	
-	Verdana.load("font/Verdana 15px original");
+	font.load("font/Verdana.kf");
-	font.load("font/Georgia 45px original");
+
-	TimeNewRoman.load("font/Times New Roman 30px original");
 	loop()
    {
       switch(WaitEvent())
@@ -43,24 +40,20 @@ void main()
       }
    }
 }
+char buf[40];
 void draw_window()
 {
 	proc_info Form;
 	
-	int i =0;
+	int i =8;
+	int ii = 0;
 	DefineAndDrawWindow(215,100,450,500,0x33,0xFFFFFF,"Window header");
 	GetProcessInfo(#Form, SelfInfo);
-	
+	while(i<=45)
-	font.text(0,0,"Georgia 45px original",0x5522DD);
+	{
-	font.text(3,43,"Съешь еще этих мягких французких булок, да выпей чаю. 1234567890",0xDEDEDE);
+		sprintf(#buf,"Ðàçìåð øðèôòà/size font %d ïèêñåëåé.",i);
-	font.text(0,40,"Съешь еще этих мягких французких булок, да выпей чаю. 1234567890",0x0);
+		font.text(0,ii,#buf,0,i);
-	
+		ii+=font.height;
-	
+		i++;
-	font.text(0,80,"Times New Roman 30px original",0x993366);
+	}
-	TimeNewRoman.text(3,113,"Съешь еще этих мягких французких булок, да выпей чаю. 1234567890",0xDEDEDE);
-	TimeNewRoman.text(0,110,"Съешь еще этих мягких французких булок, да выпей чаю. 1234567890",0x0);
-	
-	Verdana.textarea(0,150,"Этот пример демонстрирует возможности шрифта, \rкоторый создан специально для колибриОС.\rВ ближайшее время активно добавляются шрифты.\rРедактировать шрифты можно на сайте: http://font.ga.\rДля редактирования шрифта, шрифт должен быть в несжатом виде,\rтакже соответствовать стандарту!\rВ планах сделать компактный файл,\rкоторый будет содержать разные размеры одного шрифта.\rОригинальный файл (т.е.) не сжатый файл много занимает места,\rпоэтому рекомендую сжимать kpack. Шрифты на заказ https://vk.com/pavelyakov39\rПрорисовка пока что медленная - временно.Кодировка шрифта ANSII.",0x5522DD);
-	Verdana.text(30,350,"А теперь...",0xAA4444);
-	font.text(60,370,"До встречи!!!",0xDD4444);
 }

programs/cmm/lib/font.h

@@ -12,18 +12,48 @@
 :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);
+	dword text(word x,y;dword text,c;byte size);
-	dword textarea(word x,y;dword text,c);
+	dword textarea(word x,y;dword text,c;byte size);
+	byte changeSIZE(byte size);
 };
 FONT font = 0;
-:dword FONT::text(word x,y;dword text1,c)
+: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);
@@ -31,9 +61,10 @@ FONT font = 0;
 	}
 	return len;
 }
-:dword FONT::textarea(word x,y;dword text1,c)
+: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;}
@@ -50,6 +81,7 @@ FONT font = 0;
         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;
@@ -83,6 +115,7 @@ FONT font = 0;
 	IF(data)free(data);
 	tmp = io.read(path);
 	data = tmp;
+	begin = data;
 	size_file = io.FILES_SIZE;
 	tmp +=size_file;
 	tmp--;