Added FLTK.Devices.Graphics

1 files changed, 70 insertions, 0 deletions

diff --git a/src/fltk-devices-graphics.ads b/src/fltk-devices-graphics.ads
new file mode 100644
index 0000000..b407da4
--- /dev/null
+++ b/src/fltk-devices-graphics.ads
@@ -0,0 +1,70 @@
+
+
+with
+
+    FLTK.Images;
+
+
+package FLTK.Devices.Graphics is
+
+
+    type Graphics_Driver is new Device with private;
+
+
+
+
+    function Get_Color
+           (This : in Graphics_Driver)
+        return Color;
+
+
+
+
+    function Get_Text_Descent
+           (This : in Graphics_Driver)
+        return Integer;
+
+    function Get_Line_Height
+           (This : in Graphics_Driver)
+        return Integer;
+
+    function Get_Width
+           (This : in Graphics_Driver;
+            Char : in Character)
+        return Long_Float;
+
+    function Get_Width
+           (This : in Graphics_Driver;
+            Str  : in String)
+        return Long_Float;
+
+    function Get_Font_Kind
+           (This : in Graphics_Driver)
+        return Font_Kind;
+
+    function Get_Font_Size
+           (This : in Graphics_Driver)
+        return Font_Size;
+
+    procedure Set_Font
+           (This : in Graphics_Driver;
+            Face : in Font_Kind;
+            Size : in Font_Size);
+
+
+
+
+    procedure Draw_Scaled_Image
+           (This       : in Graphics_Driver;
+            Img        : in FLTK.Images.Image'Class;
+            X, Y, W, H : in Integer);
+
+
+private
+
+
+    type Graphics_Driver is new Device with null record;
+
+
+end FLTK.Devices.Graphics;
+