diff options
Diffstat (limited to 'src/fltk-images-pixmaps.ads')
-rw-r--r-- | src/fltk-images-pixmaps.ads | 31 |
1 files changed, 29 insertions, 2 deletions
diff --git a/src/fltk-images-pixmaps.ads b/src/fltk-images-pixmaps.ads index b72c382..a935e72 100644 --- a/src/fltk-images-pixmaps.ads +++ b/src/fltk-images-pixmaps.ads @@ -3,6 +3,10 @@ package FLTK.Images.Pixmaps is + ------------- + -- Types -- + ------------- + type Pixmap is new Image with private; type Pixmap_Reference (Data : not null access Pixmap'Class) is limited null record @@ -11,6 +15,10 @@ package FLTK.Images.Pixmaps is + -------------------- + -- Construction -- + -------------------- + function Copy (This : in Pixmap; Width, Height : in Natural) @@ -23,6 +31,10 @@ package FLTK.Images.Pixmaps is + -------------- + -- Colors -- + -------------- + procedure Color_Average (This : in out Pixmap; Col : in Color; @@ -34,6 +46,20 @@ package FLTK.Images.Pixmaps is + ---------------- + -- Activity -- + ---------------- + + procedure Uncache + (This : in out Pixmap); + + + + + --------------- + -- Drawing -- + --------------- + procedure Draw (This : in Pixmap; X, Y : in Integer); @@ -53,12 +79,13 @@ private (This : in out Pixmap); - - pragma Inline (Color_Average); pragma Inline (Desaturate); + pragma Inline (Uncache); + + pragma Inline (Copy); pragma Inline (Draw); |