with Allegro.Bitmaps; use Allegro.Bitmaps;
package Tanskanen is
procedure AlphaBlend32( src,
dst : not null A_Bitmap;
dst_x,
dst_y : Integer );
procedure AlphaBlend32_Ex( src,
dst : not null A_Bitmap;
dst_x,
dst_y : Integer;
globalAlpha : Integer );
private
pragma Import( C, AlphaBlend32, "AlphaBlend32" );
pragma Import( C, AlphaBlend32_Ex, "AlphaBlend32_Ex" );
end Tanskanen;