diff options
Diffstat (limited to 'src/fltk-images.adb')
-rw-r--r-- | src/fltk-images.adb | 29 |
1 files changed, 16 insertions, 13 deletions
diff --git a/src/fltk-images.adb b/src/fltk-images.adb index 906fc46..f99c760 100644 --- a/src/fltk-images.adb +++ b/src/fltk-images.adb @@ -1,8 +1,13 @@ -with Interfaces.C; -with System; -use type System.Address; +with + + Interfaces.C, + System; + +use type + + System.Address; package body FLTK.Images is @@ -29,6 +34,8 @@ package body FLTK.Images is pragma Import (C, fl_image_copy2, "fl_image_copy2"); + + procedure fl_image_color_average (I : in System.Address; C : in Interfaces.C.int; @@ -39,10 +46,16 @@ package body FLTK.Images is (I : in System.Address); pragma Import (C, fl_image_desaturate, "fl_image_desaturate"); + + + procedure fl_image_inactive (I : in System.Address); pragma Import (C, fl_image_inactive, "fl_image_inactive"); + + + function fl_image_w (I : in System.Address) return Interfaces.C.int; @@ -88,8 +101,6 @@ package body FLTK.Images is end Create; - - function Copy (This : in Image; Width, Height : in Natural) @@ -104,8 +115,6 @@ package body FLTK.Images is end Copy; - - function Copy (This : in Image) return Image is @@ -130,8 +139,6 @@ package body FLTK.Images is end Color_Average; - - procedure Desaturate (This : in out Image) is begin @@ -158,8 +165,6 @@ package body FLTK.Images is end Get_W; - - function Get_H (This : in Image) return Natural is @@ -168,8 +173,6 @@ package body FLTK.Images is end Get_H; - - function Get_D (This : in Image) return Natural is |