diff options
author | Masaya Tojo <masaya@tojo.tokyo> | 2024-08-07 12:29:21 +0900 |
---|---|---|
committer | Masaya Tojo <masaya@tojo.tokyo> | 2024-08-07 12:29:51 +0900 |
commit | 4847907ee7e44f9b83e7f7c55dc9605d261bb18e (patch) | |
tree | bd50782dfce418cdb0e4376b2ce8bf5c1daaa9c1 /pnm/pgm.scm | |
parent | cdbc4960a0f4f3cdf38a1892e55e766de6b8ef81 (diff) |
Raneme procedures from pixel-setter/getter to pixel-writer/reader
Diffstat (limited to 'pnm/pgm.scm')
-rw-r--r-- | pnm/pgm.scm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/pnm/pgm.scm b/pnm/pgm.scm index 200720f..c37d587 100644 --- a/pnm/pgm.scm +++ b/pnm/pgm.scm @@ -45,29 +45,29 @@ (if (< maxval 256) (let ((byte-count (* width height))) (define (xy->idx x y) (+ x (* y width))) - (define (pixel-getter x y) + (define (pixel-reader x y) (let ((idx (xy->idx x y))) (bytevector-u8-ref data idx))) - (define (pixel-setter x y v) + (define (pixel-writer x y v) (let ((idx (xy->idx x y))) (bytevector-u8-set! data idx v))) (unless (= byte-count (bytevector-length data)) (error (string-append "(pnm pbm) make-pbm-image: Invalid bytevector length" byte-count))) - (make-image 'pgm width height maxval data pixel-getter pixel-setter)) + (make-image 'pgm width height maxval data pixel-reader pixel-writer)) (let ((byte-count (* width height 2))) (define (xy->idx x y) (+ x (* y width))) - (define (pixel-getter x y) + (define (pixel-reader x y) (let ((idx (xy->idx x y))) (combine-values (bytevector-u8-ref data idx) (bytevector-u8-ref data (+ idx 1))))) - (define (pixel-setter x y v) + (define (pixel-writer x y v) (let ((idx (xy->idx x y))) (let-values (((v1 v2) (split-value v))) (bytevector-u8-set! data idx v1) (bytevector-u8-set! data (+ idx 1) v2)))) (unless (= byte-count (bytevector-length data)) (error (string-append "(pnm pbm) make-pbm-image: Invalid bytevector length" byte-count))) - (make-image 'pgm width height maxval data pixel-getter pixel-setter)))) + (make-image 'pgm width height maxval data pixel-reader pixel-writer)))) (define (split-value v) (values (modulo (quotient v 256) 256) |