From 440d81869346951bbd7060043faeb5593ac5865d Mon Sep 17 00:00:00 2001 From: Masaya Tojo Date: Wed, 7 Aug 2024 12:33:41 +0900 Subject: Rename procedures from image-ref/set! to image-pixel-read/pixel-write! --- pnm/write.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'pnm/write.scm') diff --git a/pnm/write.scm b/pnm/write.scm index 849e3de..c85fec5 100644 --- a/pnm/write.scm +++ b/pnm/write.scm @@ -82,19 +82,19 @@ ((ppm) (write-raster (lambda (x y) - (let-values (((r g b) (image-ref image x y))) + (let-values (((r g b) (image-pixel-read image x y))) (write-token (number->string r)) (write-token (number->string g)) (write-token (number->string b)))))) ((pgm) (write-raster (lambda (x y) - (let ((v (image-ref image x y))) + (let ((v (image-pixel-read image x y))) (write-token (number->string v)))))) ((pbm) (write-raster (lambda (x y) - (let ((b (image-ref image x y))) + (let ((b (image-pixel-read image x y))) (write-token (if b "1" "0")))))))))) (define (write-string-u8 str out) -- cgit v1.2.3