Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 5735 → Rev 5736

/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 textarea(word x,y;dword text,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;
: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
}
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
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
IF(data)free(data);
tmp = io.read(path);
data = tmp;
begin = data;
size_file = io.FILES_SIZE;
tmp +=size_file;
tmp--;