1. with Allegro.Bitmaps;                   use Allegro.Bitmaps; 
  2.  
  3. package Tanskanen is 
  4.  
  5.     procedure AlphaBlend32( src, 
  6.                             dst   : not null A_Bitmap; 
  7.                             dst_x, 
  8.                             dst_y : Integer ); 
  9.  
  10.     procedure AlphaBlend32_Ex( src, 
  11.                                dst         : not null A_Bitmap; 
  12.                                dst_x, 
  13.                                dst_y       : Integer; 
  14.                                globalAlpha : Integer ); 
  15.  
  16. private 
  17.  
  18.     pragma Import( C, AlphaBlend32, "AlphaBlend32" ); 
  19.     pragma Import( C, AlphaBlend32_Ex, "AlphaBlend32_Ex" ); 
  20.  
  21. end Tanskanen;