package Allegro.Palettes is
type A_RGB is access all RGB;
type Palette_Index is range 0..PAL_SIZE-1;
type Palette is array (Palette_Index) of RGB;
procedure Fade_From
( | source, dest | : Palette; |
speed | : Fade_Speed ); |
procedure Fade_From_Range
( | source, dest | : Palette; |
speed | : Fade_Speed; | |
from, to | : Palette_Index ); |
procedure Fade_In
( | p | : Palette; |
speed | : Fade_Speed ); |
procedure Fade_In_Range
( | p | : Palette; |
speed | : Fade_Speed; | |
from, to | : Palette_Index ); |
procedure Fade_Interpolate
( | source, dest | : Palette; |
output | : in out Palette; | |
pos | : Interpolate_Type; | |
from, to | : Palette_Index ); |
procedure Fade_Out
( | speed | : Fade_Speed ); |
procedure Fade_Out_Range
( | speed | : Fade_Speed; |
from, to | : Palette_Index ); |
procedure Generate_332_Palette
( | pal | : in out Palette ); |
procedure Get_Color
( | index | : Palette_Index; |
p | : A_RGB ); |
procedure Get_Palette
( | p | : in out Palette ); |
procedure Get_Palette_Range
( | p | : in out Palette; |
from, to | : Palette_Index ); |
procedure Select_Palette
( | p | : Palette ); |
procedure Set_Color
( | index | : Palette_Index; |
p | : A_RGB ); |
procedure Set_Palette
( | p | : Palette ); |
procedure Set_Palette_Range
( | p | : Palette; |
from, to | : Palette_Index; | |
vsync | : Boolean ); |