From f771fb288ff62d761fcf43e0815a9b2a482db7b4 Mon Sep 17 00:00:00 2001 From: Masaya Tojo Date: Wed, 7 Aug 2024 23:42:19 +0900 Subject: Rename procedures from image-pixel-read/write! to image-pixel-ref/set! --- pnm/image.scm | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) (limited to 'pnm/image.scm') diff --git a/pnm/image.scm b/pnm/image.scm index 4022184..15702ba 100644 --- a/pnm/image.scm +++ b/pnm/image.scm @@ -24,30 +24,30 @@ image-height image-maxval image-data - image-pixel-reader - image-pixel-writer - image-pixel-read - image-pixel-write!) + image-pixel-getter + image-pixel-setter + image-pixel-ref + image-pixel-set!) (import (scheme base) (scheme case-lambda)) (begin (define-record-type - (make-image type width height maxval data pixel-reader pixel-writer) + (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-reader image-pixel-reader) - (pixel-writer image-pixel-writer)) + (pixel-getter image-pixel-getter) + (pixel-setter image-pixel-setter)) - (define (image-pixel-read image x y) - ((image-pixel-reader image) x y)) + (define (image-pixel-ref image x y) + ((image-pixel-getter image) x y)) - (define image-pixel-write! + (define image-pixel-set! (case-lambda ((image x y v) - ((image-pixel-writer image) x y v)) + ((image-pixel-setter image) x y v)) ((image x y r g b) - ((image-pixel-writer image) x y r g b)))))) + ((image-pixel-setter image) x y r g b)))))) -- cgit v1.2.3