type RLE_Sprite is private;
type A_RLE_Sprite is access all RLE_Sprite;
procedure Destroy_RLE_Sprite
( | sprite | : in out A_RLE_Sprite ); |
procedure Draw_RLE_Sprite
( | bmp | : not null A_Bitmap; |
sprite | : not null A_RLE_Sprite; | |
x, y | : Integer ); |
procedure Draw_Trans_RLE_Sprite
( | bmp | : not null A_Bitmap; |
sprite | : not null A_RLE_Sprite; | |
x, y | : Integer ); |
procedure Draw_Lit_RLE_Sprite
( | bmp | : not null A_Bitmap; |
sprite | : not null A_RLE_Sprite; | |
x, y | : Integer; | |
color | : Color_Type ); |