Alpha animation assessment algorithm added

1 files changed, 22 insertions, 0 deletions

diff --git a/src/fltk.adb b/src/fltk.adb
index 61491d9..f302b47 100644
--- a/src/fltk.adb
+++ b/src/fltk.adb
@@ -17,6 +17,15 @@ use type
 package body FLTK is
 
 
+    function fl_enum_rgb_color
+           (R, G, B : in Interfaces.C.unsigned_char)
+        return Interfaces.C.unsigned;
+    pragma Import (C, fl_enum_rgb_color, "fl_enum_rgb_color");
+    pragma Inline (fl_enum_rgb_color);
+
+
+
+
     function fl_abi_check
            (V : in Interfaces.C.int)
         return Interfaces.C.int;
@@ -100,6 +109,19 @@ package body FLTK is
 
 
 
+    function RGB_Color
+           (R, G, B : in Color_Component)
+        return Color is
+    begin
+        return Color (fl_enum_rgb_color
+           (Interfaces.C.unsigned_char (R),
+            Interfaces.C.unsigned_char (G),
+            Interfaces.C.unsigned_char (B)));
+    end RGB_Color;
+
+
+
+
     function Press
            (Key : in Pressable_Key)
         return Keypress is