diff options
author | Masaya Tojo <masaya@tojo.tokyo> | 2024-08-07 23:42:19 +0900 |
---|---|---|
committer | Masaya Tojo <masaya@tojo.tokyo> | 2024-08-07 23:43:24 +0900 |
commit | f771fb288ff62d761fcf43e0815a9b2a482db7b4 (patch) | |
tree | 009f9289fbb6c0e937993fd00e9bcdf798d50364 /pnm/write.scm | |
parent | 440d81869346951bbd7060043faeb5593ac5865d (diff) |
Rename procedures from image-pixel-read/write! to image-pixel-ref/set!
Diffstat (limited to 'pnm/write.scm')
-rw-r--r-- | pnm/write.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/pnm/write.scm b/pnm/write.scm index c85fec5..849e3de 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-pixel-read image x y))) + (let-values (((r g b) (image-ref 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-pixel-read image x y))) + (let ((v (image-ref image x y))) (write-token (number->string v)))))) ((pbm) (write-raster (lambda (x y) - (let ((b (image-pixel-read image x y))) + (let ((b (image-ref image x y))) (write-token (if b "1" "0")))))))))) (define (write-string-u8 str out) |