From f18ea4474bb4905a00e0b39e7205c177ee994196 Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Tue, 20 Feb 2024 18:04:23 +1300 Subject: Improved binding for the FLTK.Images package subtree --- src/fltk.ads | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'src/fltk.ads') diff --git a/src/fltk.ads b/src/fltk.ads index c4cf336..7ad5c96 100644 --- a/src/fltk.ads +++ b/src/fltk.ads @@ -30,7 +30,9 @@ package FLTK is type Greyscale is new Character range 'A' .. 'X'; type Color is mod 2**32; + type Color_Component is mod 256; + type Color_Component_Array is array (Positive range <>) of aliased Color_Component; -- Examples of RGB colors -- The lowest byte has to be 00 for the color to be RGB @@ -381,6 +383,12 @@ private + for Color_Component_Array'Component_Size use Interfaces.C.CHAR_BIT; + pragma Convention (C, Color_Component_Array); + + + + type Alignment is new Interfaces.Unsigned_16; Align_Center : constant Alignment := 0; Align_Top : constant Alignment := 1; -- cgit