From 2cbec01126c34e70fc8e11d77553ef5bfd94cec7 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Fri, 18 May 2018 16:21:25 +1000
Subject: Added Choices, Pixmaps, GIFs, XPMs

---
 src/fltk-images-pixmaps.ads | 67 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 67 insertions(+)
 create mode 100644 src/fltk-images-pixmaps.ads

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

diff --git a/src/fltk-images-pixmaps.ads b/src/fltk-images-pixmaps.ads
new file mode 100644
index 0000000..b72c382
--- /dev/null
+++ b/src/fltk-images-pixmaps.ads
@@ -0,0 +1,67 @@
+
+
+package FLTK.Images.Pixmaps is
+
+
+    type Pixmap is new Image with private;
+
+    type Pixmap_Reference (Data : not null access Pixmap'Class) is limited null record
+        with Implicit_Dereference => Data;
+
+
+
+
+    function Copy
+           (This          : in Pixmap;
+            Width, Height : in Natural)
+        return Pixmap'Class;
+
+    function Copy
+           (This : in Pixmap)
+        return Pixmap'Class;
+
+
+
+
+    procedure Color_Average
+           (This   : in out Pixmap;
+            Col    : in     Color;
+            Amount : in     Blend);
+
+    procedure Desaturate
+           (This : in out Pixmap);
+
+
+
+
+    procedure Draw
+           (This : in Pixmap;
+            X, Y : in Integer);
+
+    procedure Draw
+           (This       : in Pixmap;
+            X, Y, W, H : in Integer;
+            CX, CY     : in Integer := 0);
+
+
+private
+
+
+    type Pixmap is new Image with null record;
+
+    overriding procedure Finalize
+           (This : in out Pixmap);
+
+
+
+
+    pragma Inline (Color_Average);
+    pragma Inline (Desaturate);
+
+
+    pragma Inline (Copy);
+    pragma Inline (Draw);
+
+
+end FLTK.Images.Pixmaps;
+
-- 
cgit