diff options
author | Jedidiah Barber <contact@jedbarber.id.au> | 2025-02-10 22:50:09 +1300 |
---|---|---|
committer | Jedidiah Barber <contact@jedbarber.id.au> | 2025-02-10 22:50:09 +1300 |
commit | 446989277ad276e9820e54ea1fb4ed550b93e998 (patch) | |
tree | a37115bfb16f215f93a46bd32829c3306e938cf3 /spec/fltk.ads | |
parent | 11d2b6c11604a1e355e3f9b40762f59b4d434e07 (diff) |
Filled holes in Enumerations and FLTK (Screen) APIs
Diffstat (limited to 'spec/fltk.ads')
-rw-r--r-- | spec/fltk.ads | 58 |
1 files changed, 58 insertions, 0 deletions
diff --git a/spec/fltk.ads b/spec/fltk.ads index db75720..24e68fe 100644 --- a/spec/fltk.ads +++ b/spec/fltk.ads @@ -46,14 +46,53 @@ package FLTK is type Color_Component is mod 256; type Color_Component_Array is array (Positive range <>) of aliased Color_Component; + subtype Blend is Float range 0.0 .. 1.0; + + function RGB_Color + (Light : in Greyscale) + return Color; + + function RGB_Color + (Light : in Color_Component) + return Color; + function RGB_Color (R, G, B : in Color_Component) return Color; + function Color_Cube + (R, G, B : in Color_Component) + return Color; + + function Grey_Ramp + (Light : in Greyscale) + return Color; + + function Grey_Ramp + (Light : in Color_Component) + return Color; + + function Darker + (Tone : in Color) + return Color; + + function Lighter + (Tone : in Color) + return Color; + function Contrast (Fore, Back : in Color) return Color; + function Inactive + (Tone : in Color) + return Color; + + function Color_Average + (Tone1, Tone2 : in Color; + Weight : in Blend := 0.5) + return Color; + -- Examples of RGB colors without the above function -- The lowest byte has to be 00 for the color to be RGB RGB_Red_Color : constant Color := 16#ff000000#; @@ -282,6 +321,18 @@ package FLTK is Gleam_Round_Down_Box, Free_Box); + function Filled + (Box : in Box_Kind) + return Box_Kind; + + function Frame + (Box : in Box_Kind) + return Box_Kind; + + function Down + (Box : in Box_Kind) + return Box_Kind; + @@ -662,7 +713,14 @@ private pragma Inline (RGB_Color); + pragma Inline (Color_Cube); + pragma Inline (Contrast); + pragma Inline (Grey_Ramp); + pragma Inline (Darker); + pragma Inline (Lighter); pragma Inline (Contrast); + pragma Inline (Inactive); + pragma Inline (Color_Average); pragma Inline (ABI_Check); pragma Inline (ABI_Version); |