From 547e538476a788dfeb5974f9b8ad29441d18980b Mon Sep 17 00:00:00 2001
From: Jedidiah Barber <contact@jedbarber.id.au>
Date: Thu, 6 Feb 2025 19:28:33 +1300
Subject: Slightly better / more consistent comments

---
 body/fltk-images-rgb.adb | 30 +++++++++++++++++++++++++++++-
 1 file changed, 29 insertions(+), 1 deletion(-)

(limited to 'body/fltk-images-rgb.adb')

diff --git a/body/fltk-images-rgb.adb b/body/fltk-images-rgb.adb
index 4e193bf..f3dff61 100644
--- a/body/fltk-images-rgb.adb
+++ b/body/fltk-images-rgb.adb
@@ -16,6 +16,8 @@ package body FLTK.Images.RGB is
     --  Functions From C  --
     ------------------------
 
+    --  Allocation  --
+
     function new_fl_rgb_image
            (Data       : in Storage.Integer_Address;
             W, H, D, L : in Interfaces.C.int)
@@ -35,6 +37,11 @@ package body FLTK.Images.RGB is
     pragma Import (C, free_fl_rgb_image, "free_fl_rgb_image");
     pragma Inline (free_fl_rgb_image);
 
+
+
+
+    --  Static Settings  --
+
     function fl_rgb_image_get_max_size
         return Interfaces.C.size_t;
     pragma Import (C, fl_rgb_image_get_max_size, "fl_rgb_image_get_max_size");
@@ -45,6 +52,11 @@ package body FLTK.Images.RGB is
     pragma Import (C, fl_rgb_image_set_max_size, "fl_rgb_image_set_max_size");
     pragma Inline (fl_rgb_image_set_max_size);
 
+
+
+
+    --  Copying  --
+
     function fl_rgb_image_copy
            (I    : in Storage.Integer_Address;
             W, H : in Interfaces.C.int)
@@ -61,6 +73,8 @@ package body FLTK.Images.RGB is
 
 
 
+    --  Colors  --
+
     procedure fl_rgb_image_color_average
            (I : in Storage.Integer_Address;
             C : in Interfaces.C.int;
@@ -76,6 +90,8 @@ package body FLTK.Images.RGB is
 
 
 
+    --  Activity  --
+
     procedure fl_rgb_image_uncache
            (I : in Storage.Integer_Address);
     pragma Import (C, fl_rgb_image_uncache, "fl_rgb_image_uncache");
@@ -84,6 +100,8 @@ package body FLTK.Images.RGB is
 
 
 
+    --  Pixel Data  --
+
     function fl_rgb_image_data
            (I : in Storage.Integer_Address)
         return Storage.Integer_Address;
@@ -93,6 +111,8 @@ package body FLTK.Images.RGB is
 
 
 
+    --  Drawing  --
+
     procedure fl_rgb_image_draw2
            (I    : in Storage.Integer_Address;
             X, Y : in Interfaces.C.int);
@@ -165,7 +185,11 @@ package body FLTK.Images.RGB is
 
 
 
-    --  Copying  --
+    -----------------------
+    --  API Subprograms  --
+    -----------------------
+
+    --  Static Settings  --
 
     function Get_Max_Size
         return Natural is
@@ -181,6 +205,10 @@ package body FLTK.Images.RGB is
     end Set_Max_Size;
 
 
+
+
+    --  Copying  --
+
     function Copy
            (This          : in RGB_Image;
             Width, Height : in Natural)
-- 
cgit