Finished up FLTK.Images and partially complete derivatives

1 files changed, 26 insertions, 0 deletions

diff --git a/src/fltk-images-bitmaps.adb b/src/fltk-images-bitmaps.adb
index f8c954c..6d80954 100644
--- a/src/fltk-images-bitmaps.adb
+++ b/src/fltk-images-bitmaps.adb
@@ -31,6 +31,14 @@ package body FLTK.Images.Bitmaps is
 
 
 
+    procedure fl_bitmap_draw
+           (I                  : in System.Address;
+            X, Y, W, H, CX, CY : in Interfaces.C.int);
+    pragma Import (C, fl_bitmap_draw, "fl_bitmap_draw");
+
+
+
+
     overriding procedure Finalize
            (This : in out Bitmap) is
     begin
@@ -70,5 +78,23 @@ package body FLTK.Images.Bitmaps is
     end Copy;
 
 
+
+
+    procedure Draw
+           (This       : in Bitmap;
+            X, Y, W, H : in Integer;
+            CX, CY     : in Integer := 0) is
+    begin
+        fl_bitmap_draw
+               (This.Void_Ptr,
+                Interfaces.C.int (X),
+                Interfaces.C.int (Y),
+                Interfaces.C.int (W),
+                Interfaces.C.int (H),
+                Interfaces.C.int (CX),
+                Interfaces.C.int (CY));
+    end Draw;
+
+
 end FLTK.Images.Bitmaps;