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/image.scm | |
parent | 440d81869346951bbd7060043faeb5593ac5865d (diff) |
Rename procedures from image-pixel-read/write! to image-pixel-ref/set!
Diffstat (limited to 'pnm/image.scm')
-rw-r--r-- | pnm/image.scm | 24 |
1 files changed, 12 insertions, 12 deletions
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 <image> - (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)))))) |