diff options
Diffstat (limited to 'src/fltk-images-rgb.adb')
-rw-r--r-- | src/fltk-images-rgb.adb | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/src/fltk-images-rgb.adb b/src/fltk-images-rgb.adb index 0287914..fbbf23e 100644 --- a/src/fltk-images-rgb.adb +++ b/src/fltk-images-rgb.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.RGB is @@ -24,6 +29,8 @@ package body FLTK.Images.RGB is pragma Import (C, fl_rgb_image_copy2, "fl_rgb_image_copy2"); + + procedure fl_rgb_image_color_average (I : in System.Address; C : in Interfaces.C.int; @@ -66,8 +73,6 @@ package body FLTK.Images.RGB is end Copy; - - function Copy (This : in RGB_Image) return RGB_Image is @@ -92,8 +97,6 @@ package body FLTK.Images.RGB is end Color_Average; - - procedure Desaturate (This : in out RGB_Image) is begin |