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