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-bitmaps.adb | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

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

diff --git a/body/fltk-images-bitmaps.adb b/body/fltk-images-bitmaps.adb
index e2c7dd3..cfb63d7 100644
--- a/body/fltk-images-bitmaps.adb
+++ b/body/fltk-images-bitmaps.adb
@@ -16,6 +16,8 @@ package body FLTK.Images.Bitmaps is
     --  Functions From C  --
     ------------------------
 
+    --  Allocation  --
+
     function new_fl_bitmap
            (D    : in Storage.Integer_Address;
             W, H : in Interfaces.C.int)
@@ -28,6 +30,11 @@ package body FLTK.Images.Bitmaps is
     pragma Import (C, free_fl_bitmap, "free_fl_bitmap");
     pragma Inline (free_fl_bitmap);
 
+
+
+
+    --  Copying  --
+
     function fl_bitmap_copy
            (I    : in Storage.Integer_Address;
             W, H : in Interfaces.C.int)
@@ -44,6 +51,8 @@ package body FLTK.Images.Bitmaps is
 
 
 
+    --  Activity  --
+
     procedure fl_bitmap_uncache
            (I : in Storage.Integer_Address);
     pragma Import (C, fl_bitmap_uncache, "fl_bitmap_uncache");
@@ -52,6 +61,8 @@ package body FLTK.Images.Bitmaps is
 
 
 
+    --  Pixel Data  --
+
     function fl_bitmap_data
            (B : in Storage.Integer_Address)
         return Storage.Integer_Address;
@@ -61,6 +72,8 @@ package body FLTK.Images.Bitmaps is
 
 
 
+    --  Drawing  --
+
     procedure fl_bitmap_draw2
            (I    : in Storage.Integer_Address;
             X, Y : in Interfaces.C.int);
@@ -120,6 +133,8 @@ package body FLTK.Images.Bitmaps is
     --  API Subprograms  --
     -----------------------
 
+    --  Contracts  --
+
     function To_Next_Byte
            (Bits : in Natural)
         return Natural is
-- 
cgit