diff options
author | Jedidiah Barber <contact@jedbarber.id.au> | 2024-02-21 18:48:49 +1300 |
---|---|---|
committer | Jedidiah Barber <contact@jedbarber.id.au> | 2024-02-21 18:48:49 +1300 |
commit | fbec75e5847cace1edd5b10e16176f1fba18f969 (patch) | |
tree | ba196482bd0e7572e1ed9c442070554fa01c5691 /src/fltk-images-tiled.ads | |
parent | c5b296567825c48d3658d62f01ec770449379e85 (diff) |
Fl_Tiled_Image binding added
Diffstat (limited to 'src/fltk-images-tiled.ads')
-rw-r--r-- | src/fltk-images-tiled.ads | 112 |
1 files changed, 112 insertions, 0 deletions
diff --git a/src/fltk-images-tiled.ads b/src/fltk-images-tiled.ads new file mode 100644 index 0000000..cf3ee13 --- /dev/null +++ b/src/fltk-images-tiled.ads @@ -0,0 +1,112 @@ + + +package FLTK.Images.Tiled is + + + ------------- + -- Types -- + ------------- + + type Tiled_Image is new Image with private; + + type Tiled_Image_Reference (Data : not null access Tiled_Image'Class) is + limited null record with Implicit_Dereference => Data; + + + + + -------------------- + -- Construction -- + -------------------- + + package Forge is + + function Create + (From : in out Image'Class; + W, H : in Integer := 0) + return Tiled_Image; + + end Forge; + + function Copy + (This : in Tiled_Image; + Width, Height : in Natural) + return Tiled_Image'Class; + + function Copy + (This : in Tiled_Image) + return Tiled_Image'Class; + + + + + --------------------- + -- Miscellaneous -- + --------------------- + + procedure Inactive + (This : in out Tiled_Image); + + function Tile + (This : in out Tiled_Image) + return Image_Reference; + + + + + -------------- + -- Colors -- + -------------- + + procedure Color_Average + (This : in out Tiled_Image; + Hue : in Color; + Amount : in Blend); + + procedure Desaturate + (This : in out Tiled_Image); + + + + + --------------- + -- Drawing -- + --------------- + + procedure Draw + (This : in Tiled_Image; + X, Y : in Integer); + + procedure Draw + (This : in Tiled_Image; + X, Y, W, H : in Integer; + CX, CY : in Integer); + + +private + + + type Tiled_Image is new Image with record + Dummy : aliased Image; + end record; + + overriding procedure Finalize + (This : in out Tiled_Image); + + + pragma Inline (Copy); + + + pragma Inline (Inactive); + pragma Inline (Tile); + + + pragma Inline (Color_Average); + pragma Inline (Desaturate); + + + pragma Inline (Draw); + + +end FLTK.Images.Tiled; + |