From de0f3b8bbb85d9c5d5a226e761f658ee2e0d697b Mon Sep 17 00:00:00 2001
From: Jedidiah Barber <contact@jedbarber.id.au>
Date: Sun, 25 Feb 2024 20:00:47 +1300
Subject: A few more Fl_Draw functions bound

---
 doc/fl_draw.html | 61 ++++++++++++++++++++++++++++++++++++++++----------------
 1 file changed, 44 insertions(+), 17 deletions(-)

(limited to 'doc')

diff --git a/doc/fl_draw.html b/doc/fl_draw.html
index 71da104..654d586 100644
--- a/doc/fl_draw.html
+++ b/doc/fl_draw.html
@@ -91,7 +91,8 @@
 
   <tr>
 <td><pre>
-int fl_add_symbol(const char *name, void(*drawit)(Fl_Color), int scalable);
+int fl_add_symbol(const char *name, void(*drawit)(Fl_Color),
+    int scalable);
 </pre></td>
 <td><pre>
 procedure Add_Symbol
@@ -215,18 +216,14 @@ function Clip_Box
 <td><pre>
 Fl_Region fl_clip_region();
 </pre></td>
-<td><pre>
-
-</pre></td>
+<td>Left unbound due to being OS-specific</td>
   </tr>
 
   <tr>
 <td><pre>
 void fl_clip_region(Fl_Region r);
 </pre></td>
-<td><pre>
-
-</pre></td>
+<td>Left unbound due to being OS-specific</td>
   </tr>
 
   <tr>
@@ -403,7 +400,13 @@ void fl_draw_image(const uchar *buf, int X, int Y,
     int W, int H, int D=3, int L=0);
 </pre></td>
 <td><pre>
-
+procedure Draw_Image
+       (X, Y, W, H      : in Integer;
+        Data            : in Color_Component_Array;
+        Depth           : in Positive := 3;
+        Line_Data       : in Natural := 0;
+        Flip_Horizontal : in Boolean := False;
+        Flip_Vertical   : in Boolean := False);
 </pre></td>
   </tr>
 
@@ -413,7 +416,10 @@ void fl_draw_image(Fl_Draw_Image_Cb cb, void *data,
     int X, int Y, int W, int H, int D=3);
 </pre></td>
 <td><pre>
-
+procedure Draw_Image
+       (X, Y, W, H : in Integer;
+        Callback   : in Image_Draw_Function;
+        Depth      : in Positive := 3);
 </pre></td>
   </tr>
 
@@ -423,7 +429,13 @@ void fl_draw_image_mono(const uchar *buf, int X, int Y,
     int W, int H, int D=1, int L=0);
 </pre></td>
 <td><pre>
-
+procedure Draw_Image_Mono
+       (X, Y, W, H      : in Integer;
+        Data            : in Color_Component_Array;
+        Depth           : in Positive := 1;
+        Line_Data       : in Natural := 0;
+        Flip_Horizontal : Boolean := False;
+        Flip_Vertical   : Boolean := False);
 </pre></td>
   </tr>
 
@@ -433,7 +445,10 @@ void fl_draw_image_mono(Fl_Draw_Image_Cb cb, void *data,
     int X, int Y, int W, int H, int D=1);
 </pre></td>
 <td><pre>
-
+procedure Draw_Image_Mono
+       (X, Y, W, H : in Integer;
+        Callback   : in Image_Draw_Function;
+        Depth      : in Positive := 1);
 </pre></td>
   </tr>
 
@@ -674,7 +689,8 @@ procedure Outline
 
   <tr>
 <td><pre>
-void fl_loop(int x, int y, int x1, int y1, int x2, int y2, int x3, int y3);
+void fl_loop(int x, int y, int x1, int y1,
+    int x2, int y2, int x3, int y3);
 </pre></td>
 <td><pre>
 procedure Outline
@@ -870,10 +886,18 @@ procedure Push_No_Clip;
 
   <tr>
 <td><pre>
-uchar * fl_read_image(uchar *p, int X, int Y, int W, int H, int alpha=0);
+uchar * fl_read_image(uchar *p, int X, int Y, int W, int H,
+    int alpha=0);
 </pre></td>
 <td><pre>
-
+function Read_Image
+       (X, Y, W, H : in Integer;
+        Alpha      : in Integer := 0)
+    return Color_Component_Array
+with Post =>
+       (if Alpha = 0
+        then Read_Image'Result'Length = W * H * 3
+        else Read_Image'Result'Length = W * H * 4);
 </pre></td>
   </tr>
 
@@ -1035,7 +1059,8 @@ procedure Set_Status
 <td><pre>
 const char * fl_shortcut_label(unsigned int shortcut);
 
-const char * fl_shortcut_label(unsigned int shortcut, const char **eom);
+const char * fl_shortcut_label(unsigned int shortcut,
+    const char **eom);
 </pre></td>
 <td><pre>
 function Shortcut_Label
@@ -1056,9 +1081,11 @@ function Get_Font_Size
 
   <tr>
 <td><pre>
-void fl_text_extents(const char *, int &dx, int &dy, int &w, int &h);
+void fl_text_extents(const char *,
+    int &dx, int &dy, int &w, int &h);
 
-void fl_text_extents(const char *t, int n, int &dx, int &dy, int &w, int &h);
+void fl_text_extents(const char *t, int n,
+    int &dx, int &dy, int &w, int &h);
 </pre></td>
 <td><pre>
 procedure Text_Extents
-- 
cgit