diff options
Diffstat (limited to 'src/fltk-images-rgb.ads')
-rw-r--r-- | src/fltk-images-rgb.ads | 60 |
1 files changed, 58 insertions, 2 deletions
diff --git a/src/fltk-images-rgb.ads b/src/fltk-images-rgb.ads index 3aa3de0..67518c3 100644 --- a/src/fltk-images-rgb.ads +++ b/src/fltk-images-rgb.ads @@ -1,8 +1,17 @@ +with + + FLTK.Images.Pixmaps; + + package FLTK.Images.RGB is + ------------- + -- Types -- + ------------- + type RGB_Image is new Image with private; type RGB_Image_Reference (Data : not null access RGB_Image'Class) is limited null record @@ -11,6 +20,32 @@ package FLTK.Images.RGB is + -------------------- + -- Construction -- + -------------------- + + package Forge is + + function Create + (Data : in Color_Component_Array; + Width, Height : in Natural; + Depth : in Natural := 3; + Line_Data : in Natural := 0) + return RGB_Image; + + function Create + (Data : in FLTK.Images.Pixmaps.Pixmap'Class; + Background : in Color := Background_Color) + return RGB_Image; + + end Forge; + + function Get_Max_Size + return Natural; + + procedure Set_Max_Size + (Value : in Natural); + function Copy (This : in RGB_Image; Width, Height : in Natural) @@ -23,6 +58,10 @@ package FLTK.Images.RGB is + -------------- + -- Colors -- + -------------- + procedure Color_Average (This : in out RGB_Image; Col : in Color; @@ -34,6 +73,20 @@ package FLTK.Images.RGB is + ---------------- + -- Activity -- + ---------------- + + procedure Uncache + (This : in out RGB_Image); + + + + + --------------- + -- Drawing -- + --------------- + procedure Draw (This : in RGB_Image; X, Y : in Integer); @@ -53,8 +106,8 @@ private (This : in out RGB_Image); - - + pragma Inline (Get_Max_Size); + pragma Inline (Set_Max_Size); pragma Inline (Copy); @@ -62,6 +115,9 @@ private pragma Inline (Desaturate); + pragma Inline (Uncache); + + pragma Inline (Draw); |