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.adb | |
| parent | 33c3691b571ce4b6a2aa6997b70c3bc5d991ca9d (diff) | |
Updated coding style, added progress log
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 |