summaryrefslogtreecommitdiff
path: root/spec/fltk.ads
diff options
context:
space:
mode:
authorJedidiah Barber <contact@jedbarber.id.au>2025-02-10 22:50:09 +1300
committerJedidiah Barber <contact@jedbarber.id.au>2025-02-10 22:50:09 +1300
commit446989277ad276e9820e54ea1fb4ed550b93e998 (patch)
treea37115bfb16f215f93a46bd32829c3306e938cf3 /spec/fltk.ads
parent11d2b6c11604a1e355e3f9b40762f59b4d434e07 (diff)
Filled holes in Enumerations and FLTK (Screen) APIs
Diffstat (limited to 'spec/fltk.ads')
-rw-r--r--spec/fltk.ads58
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);