diff options
Diffstat (limited to 'src/fltk-images-rgb.adb')
-rw-r--r-- | src/fltk-images-rgb.adb | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/src/fltk-images-rgb.adb b/src/fltk-images-rgb.adb index fbbf23e..881b8cb 100644 --- a/src/fltk-images-rgb.adb +++ b/src/fltk-images-rgb.adb @@ -44,6 +44,14 @@ package body FLTK.Images.RGB is + procedure fl_rgb_image_draw + (I : in System.Address; + X, Y, W, H, CX, CY : in Interfaces.C.int); + pragma Import (C, fl_rgb_image_draw, "fl_rgb_image_draw"); + + + + overriding procedure Finalize (This : in out RGB_Image) is begin @@ -104,5 +112,23 @@ package body FLTK.Images.RGB is end Desaturate; + + + procedure Draw + (This : in RGB_Image; + X, Y, W, H : in Integer; + CX, CY : in Integer := 0) is + begin + fl_rgb_image_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.RGB; |