1. -- 
  2. -- Copyright (c) 2013 Kevin Wellwood 
  3. -- All rights reserved. 
  4. -- 
  5. -- This source code is distributed under the Modified BSD License. For terms and 
  6. -- conditions, see license.txt. 
  7. -- 
  8.  
  9. with Allegro.File_IO;                   use Allegro.File_IO; 
  10.  
  11. -- Allegro 5.0.9 - TTF fonts addon 
  12. package Allegro.Fonts.TTF is 
  13.  
  14.     -- Initialization 
  15.  
  16.     function Al_Init_TTF_Addon return Boolean; 
  17.  
  18.     procedure Al_Shutdown_TTF_Addon; 
  19.     pragma Import( C, Al_Shutdown_TTF_Addon, "al_shutdown_ttf_addon" ); 
  20.  
  21.     function Al_Get_Allegro_TTF_Version return Unsigned_32; 
  22.     pragma Import( C, Al_Get_Allegro_TTF_Version, "al_get_allegro_ttf_version" ); 
  23.  
  24.     -- Loading routines 
  25.  
  26.     ALLEGRO_TTF_NO_KERNING  : constant Font_Loading_Flags := 1; 
  27.     ALLEGRO_TTF_MONOCHROME  : constant Font_Loading_Flags := 2; 
  28.     ALLEGRO_TTF_NO_AUTOHINT : constant Font_Loading_Flags := 4; 
  29.  
  30.     function Al_Load_TTF_Font( filename : String; 
  31.                                size     : Integer; 
  32.                                flags    : Font_Loading_Flags ) return A_Allegro_Font; 
  33.  
  34.     function Al_Load_TTF_Font_f( file     : A_Allegro_File; 
  35.                                  filename : String; 
  36.                                  size     : Integer; 
  37.                                  flags    : Font_Loading_Flags ) return A_Allegro_Font; 
  38.  
  39.     function Al_Load_TTF_Font_Stretch( filename : String; 
  40.                                        w, h     : Integer; 
  41.                                        flags    : Font_Loading_Flags ) return A_Allegro_Font; 
  42.  
  43.     function Al_Load_TTF_Font_Stretch_f( file     : A_Allegro_File; 
  44.                                          filename : String; 
  45.                                          w, h     : Integer; 
  46.                                          flags    : Font_Loading_Flags ) return A_Allegro_Font; 
  47.  
  48. end Allegro.Fonts.TTF;