diff options
Diffstat (limited to 'src/fltk-images-bitmaps.ads')
| -rw-r--r-- | src/fltk-images-bitmaps.ads | 37 |
1 files changed, 35 insertions, 2 deletions
diff --git a/src/fltk-images-bitmaps.ads b/src/fltk-images-bitmaps.ads index 14df718..cf35396 100644 --- a/src/fltk-images-bitmaps.ads +++ b/src/fltk-images-bitmaps.ads @@ -3,6 +3,10 @@ package FLTK.Images.Bitmaps is + ------------- + -- Types -- + ------------- + type Bitmap is new Image with private; type Bitmap_Reference (Data : not null access Bitmap'Class) is limited null record @@ -11,6 +15,22 @@ package FLTK.Images.Bitmaps is + -------------------- + -- Construction -- + -------------------- + + package Forge is + + -- Please note that I'm pretty sure (?) input data here should be some + -- declared item that lives at least as long as the resulting Bitmap + + function Create + (Data : in Color_Component_Array; + Width, Height : in Natural) + return Bitmap; + + end Forge; + function Copy (This : in Bitmap; Width, Height : in Natural) @@ -23,6 +43,20 @@ package FLTK.Images.Bitmaps is + ---------------- + -- Activity -- + ---------------- + + procedure Uncache + (This : in out Bitmap); + + + + + --------------- + -- Drawing -- + --------------- + procedure Draw (This : in Bitmap; X, Y : in Integer); @@ -42,9 +76,8 @@ private (This : in out Bitmap); - - pragma Inline (Copy); + pragma Inline (Uncache); pragma Inline (Draw); |