diff options
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)))))) |