1. with Allegro.Bitmaps;                   use Allegro.Bitmaps; 
  2. with Allegro.Fonts;                     use Allegro.Fonts; 
  3. with Allegro.Truecolor;                 use Allegro.Truecolor; 
  4.  
  5. -- Allegro 4.4.2 - Text output 
  6. -- This package is missing: 
  7. -- textprintf_ex, textprintf_centre_ex, textprintf_right_ex 
  8. -- textprintf_justify_ex 
  9. package Allegro.Text_IO is 
  10.  
  11.     function Get_Allegro_404_Char return Integer; 
  12.  
  13.     function Get_Font return A_Font; 
  14.  
  15.     procedure Set_Allegro_404_Char( c : Integer ); 
  16.  
  17.     procedure Set_Font( f : A_Font ); 
  18.  
  19.     function Text_Height( f : not null A_Font ) return Natural; 
  20.  
  21.     function Text_Length( f : not null A_Font; str : String ) return Natural; 
  22.  
  23.     procedure Textout_Ex( bmp   : not null A_Bitmap; 
  24.                           f     : not null A_Font; 
  25.                           s     : String; 
  26.                           x, y  : Integer; 
  27.                           color : Color_Type; 
  28.                           bg    : Integer ); 
  29.  
  30.     procedure Textout_Centre_Ex( bmp   : not null A_Bitmap; 
  31.                                  f     : not null A_Font; 
  32.                                  s     : String; 
  33.                                  x, y  : Integer; 
  34.                                  color : Color_Type; 
  35.                                  bg    : Integer ); 
  36.  
  37.     procedure Textout_Justify_Ex( bmp    : not null A_Bitmap; 
  38.                                   f      : not null A_Font; 
  39.                                   s      : String; 
  40.                                   x1, x2 : Integer; 
  41.                                   y      : Integer; 
  42.                                   diff   : Integer; 
  43.                                   color  : Color_Type; 
  44.                                   bg     : Integer ); 
  45.  
  46.     procedure Textout_Right_Ex( bmp   : not null A_Bitmap; 
  47.                                 f     : not null A_Font; 
  48.                                 s     : String; 
  49.                                 x, y  : Integer; 
  50.                                 color : Color_Type; 
  51.                                 bg    : Integer ); 
  52.  
  53. private 
  54.  
  55.     pragma Import( C, Get_Allegro_404_Char, "get_allegro_404_char" ); 
  56.     pragma Import( C, Get_Font, "get_font" ); 
  57.     pragma Import( C, Set_Allegro_404_Char, "set_allegro_404_char" ); 
  58.     pragma Import( C, Set_Font, "set_font" ); 
  59.     pragma Import( C, Text_Height, "text_height" ); 
  60.  
  61. end Allegro.Text_IO;