diff options
Diffstat (limited to 'src/fltk-images-pixmaps.ads')
-rw-r--r-- | src/fltk-images-pixmaps.ads | 67 |
1 files changed, 67 insertions, 0 deletions
diff --git a/src/fltk-images-pixmaps.ads b/src/fltk-images-pixmaps.ads new file mode 100644 index 0000000..b72c382 --- /dev/null +++ b/src/fltk-images-pixmaps.ads @@ -0,0 +1,67 @@ + + +package FLTK.Images.Pixmaps is + + + type Pixmap is new Image with private; + + type Pixmap_Reference (Data : not null access Pixmap'Class) is limited null record + with Implicit_Dereference => Data; + + + + + function Copy + (This : in Pixmap; + Width, Height : in Natural) + return Pixmap'Class; + + function Copy + (This : in Pixmap) + return Pixmap'Class; + + + + + procedure Color_Average + (This : in out Pixmap; + Col : in Color; + Amount : in Blend); + + procedure Desaturate + (This : in out Pixmap); + + + + + procedure Draw + (This : in Pixmap; + X, Y : in Integer); + + procedure Draw + (This : in Pixmap; + X, Y, W, H : in Integer; + CX, CY : in Integer := 0); + + +private + + + type Pixmap is new Image with null record; + + overriding procedure Finalize + (This : in out Pixmap); + + + + + pragma Inline (Color_Average); + pragma Inline (Desaturate); + + + pragma Inline (Copy); + pragma Inline (Draw); + + +end FLTK.Images.Pixmaps; + |