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/read.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'pnm/read.scm') diff --git a/pnm/read.scm b/pnm/read.scm index d13557e..42ded91 100644 --- a/pnm/read.scm +++ b/pnm/read.scm @@ -71,7 +71,7 @@ (pbm-image (make-pbm-image width height))) (read-text-raster width height #f in (lambda (x y v) - (image-pixel-write! pbm-image x y (= v 1))) + (image-pixel-set! pbm-image x y (= v 1))) unexpected-eof-error unexpected-character-error) pbm-image)) @@ -87,7 +87,7 @@ (read-bytevector (* 6 width height) in)))) ((P3) (let ((ppm-image (make-ppm-image width height maxval))) - (read-text-raster width height #t in (image-pixel-writer ppm-image) + (read-text-raster width height #t in (image-pixel-setter ppm-image) unexpected-eof-error unexpected-character-error) ppm-image)) @@ -99,7 +99,7 @@ (read-bytevector (* 2 width height) in)))) ((P2) (let ((pgm-image (make-pgm-image width height maxval))) - (read-text-raster width height #f in (image-pixel-writer pgm-image) + (read-text-raster width height #f in (image-pixel-setter pgm-image) unexpected-eof-error unexpected-character-error) pgm-image)))))))))) -- cgit v1.2.3