package Themes.Palette is
type Base_Color is ( Black, White, Transparent, Magenta, Butter1, Butter2, Butter3, Orange1, Orange2, Orange3, Chocolate1, Chocolate2, Chocolate3, Chameleon1, Chameleon2, Chameleon3, Skyblue1, Skyblue2, Skyblue3, Plum1, Plum2, Plum3, Scarlet1, Scarlet2, Scarlet3, Chrome1, Chrome2, Chrome3, Chrome4, Chrome5, Chrome6 );
type Base_Colors_Array is array(Base_Color) of Allegro_Color;
base_colors : Base_Colors_Array;
procedure Initialize;
function Compare
( | a, b | : Allegro_Color; |
tolerance | : Natural := 0 ) return Boolean; |
function Contrast
( | fg, bg | : Allegro_Color; |
ratio | : Float := 1.75 ) return Allegro_Color; |
function Hard_Contrast
( | bg | : Allegro_Color ) return Allegro_Color; |
function Lighten
( | color | : Allegro_Color; |
factor | : Float ) return Allegro_Color; |
function Make_Grey
( | brightness | : Natural ) return Allegro_Color; |