From e59d89f39f090f8feb16a48ed150e5ac48c2858f Mon Sep 17 00:00:00 2001
From: Masaya Tojo <masaya@tojo.tokyo>
Date: Sat, 10 Aug 2024 22:53:12 +0900
Subject: Rename procedures from `image-*` to `pnm-image-*`

---
 pnm/image.scm | 56 ++++++++++++++++++++++++++++----------------------------
 1 file changed, 28 insertions(+), 28 deletions(-)

(limited to 'pnm/image.scm')

diff --git a/pnm/image.scm b/pnm/image.scm
index ceab0cf..f9d0b83 100644
--- a/pnm/image.scm
+++ b/pnm/image.scm
@@ -17,37 +17,37 @@
 ;;; along with R7RS-PNM. If not, see <https://www.gnu.org/licenses/>.
 
 (define-library (pnm image)
-  (export make-image
-          image?
-          image-type
-          image-width
-          image-height
-          image-maxval
-          image-data
-          image-pixel-getter
-          image-pixel-setter
-          image-ref
-          image-set!)
+  (export make-pnm-image
+          pnm-image?
+          pnm-image-type
+          pnm-image-width
+          pnm-image-height
+          pnm-image-maxval
+          pnm-image-data
+          pnm-image-pixel-getter
+          pnm-image-pixel-setter
+          pnm-image-ref
+          pnm-image-set!)
   (import (scheme base)
           (scheme case-lambda))
   (begin
-    (define-record-type <image>
-      (make-image type width height maxval data pixel-getter pixel-setter)
-      image?
-      (type image-type)
-      (width image-width)
-      (height image-height)
-      (maxval image-maxval)
-      (data image-data)
-      (pixel-getter image-pixel-getter)
-      (pixel-setter image-pixel-setter))
+    (define-record-type <pnm-image>
+      (make-pnm-image type width height maxval data pixel-getter pixel-setter)
+      pnm-image?
+      (type pnm-image-type)
+      (width pnm-image-width)
+      (height pnm-image-height)
+      (maxval pnm-image-maxval)
+      (data pnm-image-data)
+      (pixel-getter pnm-image-pixel-getter)
+      (pixel-setter pnm-image-pixel-setter))
 
-    (define (image-ref image x y)
-      ((image-pixel-getter image) x y))
+    (define (pnm-image-ref pnm-image x y)
+      ((pnm-image-pixel-getter pnm-image) x y))
 
-    (define image-set!
+    (define pnm-image-set!
       (case-lambda
-        ((image x y v)
-         ((image-pixel-setter image) x y v))
-        ((image x y r g b)
-         ((image-pixel-setter image) x y r g b))))))
+        ((pnm-image x y v)
+         ((pnm-image-pixel-setter pnm-image) x y v))
+        ((pnm-image x y r g b)
+         ((pnm-image-pixel-setter pnm-image) x y r g b))))))
-- 
cgit v1.2.3