diff options
| author | Jed Barber <jjbarber@y7mail.com> | 2017-06-17 11:28:39 +1000 |
|---|---|---|
| committer | Jed Barber <jjbarber@y7mail.com> | 2017-06-17 11:28:39 +1000 |
| commit | fb37523537cdb69a31dede401a604981ce8b7b9d (patch) | |
| tree | 9d8f8dc3a00ce27b69aa4b7d7696b49d659fcbe1 /src/fltk-images-rgb.adb | |
| parent | 33c3691b571ce4b6a2aa6997b70c3bc5d991ca9d (diff) | |
Updated coding style, added progress log
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 |