From 39d3db4cbdfa9d55c428bce9382166744406f936 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Wed, 28 Mar 2018 13:42:35 +1100 Subject: Added FLTK.Images.Shared and completed FLTK.Devices.Surfaces.Image --- src/fltk-devices-surfaces-image.adb | 15 +++++++++++++++ 1 file changed, 15 insertions(+) (limited to 'src/fltk-devices-surfaces-image.adb') diff --git a/src/fltk-devices-surfaces-image.adb b/src/fltk-devices-surfaces-image.adb index 0621e39..1955bf3 100644 --- a/src/fltk-devices-surfaces-image.adb +++ b/src/fltk-devices-surfaces-image.adb @@ -44,6 +44,11 @@ package body FLTK.Devices.Surfaces.Image is return System.Address; pragma Import (C, fl_image_surface_image, "fl_image_surface_image"); + function fl_image_surface_highres_image + (S : in System.Address) + return System.Address; + pragma Import (C, fl_image_surface_highres_image, "fl_image_surface_highres_image"); + @@ -138,6 +143,16 @@ package body FLTK.Devices.Surfaces.Image is end Get_Image; + function Get_Highres_Image + (This : in Image_Surface) + return FLTK.Images.Shared.Shared_Image is + begin + return Img : FLTK.Images.Shared.Shared_Image do + Wrapper (Img).Void_Ptr := fl_image_surface_highres_image (This.Void_Ptr); + end return; + end Get_Highres_Image; + + procedure Set_Current -- cgit