type A_Allegro_Font is access all Allegro_Font;
type A_Loader_Proc is access function( filename : C.char_array; size : Integer; flags : Font_Loading_Flags ) return A_Allegro_Font;
type Unicode_Range_Array is array (Integer range <>) of Unicode_Range;
ALLEGRO_ALIGN_LEFT : constant Font_Draw_Flags := 0;
ALLEGRO_ALIGN_CENTRE : constant Font_Draw_Flags := 1;
ALLEGRO_ALIGN_CENTER : constant Font_Draw_Flags := 1;
ALLEGRO_ALIGN_RIGHT : constant Font_Draw_Flags := 2;
ALLEGRO_ALIGN_INTEGER : constant Font_Draw_Flags := 4;
function Al_Load_Font
( | filename | : String; |
size | : Integer; | |
flags | : Font_Loading_Flags ) return A_Allegro_Font; |
procedure Al_Destroy_Font
( | f | : in out A_Allegro_Font ); |
function Al_Register_Font_Loader
( | ext | : String; |
load | : A_Loader_Proc ) return Boolean; |
function Al_Get_Font_Line_Height
( | f | : A_Allegro_Font ) return Integer; |
function Al_Get_Font_Ascent
( | f | : A_Allegro_Font ) return Integer; |
function Al_Get_Font_Descent
( | f | : A_Allegro_Font ) return Integer; |
function Al_Get_Text_Width
( | f | : A_Allegro_Font; |
str | : String ) return Integer; |
function Al_Get_Ustr_Width
( | f | : A_Allegro_Font; |
ustr | : A_Allegro_Ustr ) return Integer; |
procedure Al_Draw_Text
( | font | : A_Allegro_Font; |
color | : Allegro_Color; | |
x, y | : Float; | |
flags | : Font_Draw_Flags; | |
text | : String ); |
procedure Al_Draw_Ustr
( | font | : A_Allegro_Font; |
color | : Allegro_Color; | |
x, y | : Float; | |
flags | : Font_Draw_Flags; | |
ustr | : A_Allegro_Ustr ); |
procedure Al_Draw_Justified_Text
( | font | : A_Allegro_Font; |
color | : Allegro_Color; | |
x1, x2 | : Float; | |
y | : Float; | |
diff | : Float; | |
flags | : Font_Draw_Flags; | |
text | : String ); |
procedure Al_Draw_Justified_Ustr
( | font | : A_Allegro_Font; |
color | : Allegro_Color; | |
x1, x2 | : Float; | |
y | : Float; | |
diff | : Float; | |
flags | : Font_Draw_Flags; | |
text | : A_Allegro_Ustr ); |
procedure Al_Get_Text_Dimensions
( | f | : A_Allegro_Font; |
text | : String; | |
bbx | : out Integer; | |
bby | : out Integer; | |
bbw | : out Integer; | |
bbh | : out Integer ); |
procedure Al_Get_Ustr_Dimensions
( | f | : A_Allegro_Font; |
text | : A_Allegro_Ustr; | |
bbx | : out Integer; | |
bby | : out Integer; | |
bbw | : out Integer; | |
bbh | : out Integer ); |
function Al_Grab_Font_From_Bitmap
( | bmp | : A_Allegro_Bitmap; |
ranges | : Unicode_Range_Array ) return A_Allegro_Font; |
function Al_Create_Builtin_Font return A_Allegro_Font;
function Al_Load_Bitmap_Font
( | filename | : String ) return A_Allegro_Font; |