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.Color;                     use Allegro.Color; 
  10.  
  11. package Allegro.Drawing is 
  12.  
  13.     procedure Al_Clear_To_Color( color : Allegro_Color ); 
  14.     pragma Import( C, Al_Clear_To_Color, "al_clear_to_color" ); 
  15.  
  16.     procedure Al_Draw_Pixel( x, y : Float; color : Allegro_Color ); 
  17.     pragma Import( C, Al_Draw_Pixel, "al_draw_pixel" ); 
  18.  
  19. end Allegro.Drawing;