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/pbm.scm | |
parent | cdbc4960a0f4f3cdf38a1892e55e766de6b8ef81 (diff) |
Raneme procedures from pixel-setter/getter to pixel-writer/reader
Diffstat (limited to 'pnm/pbm.scm')
-rw-r--r-- | pnm/pbm.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/pnm/pbm.scm b/pnm/pbm.scm index b3d2c3c..e8e01d3 100644 --- a/pnm/pbm.scm +++ b/pnm/pbm.scm @@ -44,15 +44,15 @@ (values (+ (* y byte-width) byte-x) bit-x))) - (define (pixel-getter x y) + (define (pixel-reader x y) (let-values (((byte-idx bit-idx) (xy->byte-idx+bit-idx x y))) (let ((byte (bytevector-u8-ref data byte-idx))) (bit-set? (- 7 bit-idx) byte)))) - (define (pixel-setter x y b) + (define (pixel-writer x y b) (let-values (((byte-idx bit-idx) (xy->byte-idx+bit-idx x y))) (let ((byte (bytevector-u8-ref data byte-idx))) (bytevector-u8-set! data byte-idx (copy-bit (- 7 bit-idx) byte b))))) (unless (= byte-count (bytevector-length data)) (error (string-append "(pnm pbm) make-pbm-image: Invalid bytevector length" byte-count))) - (make-image 'pbm width height #t data pixel-getter pixel-setter))))) + (make-image 'pbm width height #t data pixel-reader pixel-writer))))) |