From ffc566b41d9dd64b2d571f68458a272f503958c6 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Mon, 15 May 2017 11:08:34 +1000
Subject: Most relevant methods for Image now implemented, except for Draw

---
 src/fltk-images.ads | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)

(limited to 'src/fltk-images.ads')

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;
-- 
cgit