Most relevant methods for Image now implemented, except for Draw

1 files changed, 31 insertions, 0 deletions

diff --git a/src/fltk-images.ads b/src/fltk-images.ads
index f005443..980eb23 100644
--- a/src/fltk-images.ads
+++ b/src/fltk-images.ads
@@ -1,16 +1,47 @@
 
 
+with FLTK.Enums; use FLTK.Enums;
+
+
 package FLTK.Images is
 
 
     type Image is new Wrapper with private;
 
 
+    type Blend is new Float range 0.0 .. 1.0;
+
+
     function Create
            (Width, Height, Depth : in Natural)
         return Image;
 
 
+    function Copy
+           (This          : in Image;
+            Width, Height : in Natural)
+        return Image;
+
+
+    function Copy
+           (This : in Image)
+        return Image;
+
+
+    procedure Color_Average
+           (This   : in out Image;
+            Col    : in     Color;
+            Amount : in     Blend);
+
+
+    procedure Desaturate
+           (This : in out Image);
+
+
+    procedure Inactive
+           (This : in out Image);
+
+
     function Get_W
            (This : in Image)
         return Natural;