From 1e761c7b4491377fe9c91a37c438856178cc4f8e Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Fri, 28 Jul 2017 10:45:20 +1000 Subject: Finished up FLTK.Images and partially complete derivatives --- src/fltk-images-bitmaps.ads | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'src/fltk-images-bitmaps.ads') diff --git a/src/fltk-images-bitmaps.ads b/src/fltk-images-bitmaps.ads index ce688f1..8f2e4bf 100644 --- a/src/fltk-images-bitmaps.ads +++ b/src/fltk-images-bitmaps.ads @@ -18,6 +18,14 @@ package FLTK.Images.Bitmaps is return Bitmap; + + + procedure Draw + (This : in Bitmap; + X, Y, W, H : in Integer; + CX, CY : in Integer := 0); + + private -- cgit