From 53073f7a4818ed954a835c9ab6848376271b4695 Mon Sep 17 00:00:00 2001 From: Masaya Tojo Date: Sat, 3 Aug 2024 20:30:12 +0900 Subject: Rename local variables from getter/setter to pixel-getter/pixel-setter --- pnm/pgm.scm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'pnm/pgm.scm') diff --git a/pnm/pgm.scm b/pnm/pgm.scm index 5abbab2..c0e0b25 100644 --- a/pnm/pgm.scm +++ b/pnm/pgm.scm @@ -41,25 +41,25 @@ (if (< maxval 256) (let () (define (xy->idx x y) (+ x (* y width))) - (define (getter x y) + (define (pixel-getter x y) (let ((idx (xy->idx x y))) (bytevector-u8-ref data idx))) - (define (setter x y v) + (define (pixel-setter x y v) (let ((idx (xy->idx x y))) (bytevector-u8-set! data idx v))) - (make-image 'pgm width height maxval data getter setter)) + (make-image 'pgm width height maxval data pixel-getter pixel-setter)) (let () (define (xy->idx x y) (+ x (* y width))) - (define (getter x y) + (define (pixel-getter x y) (let ((idx (xy->idx x y))) (combine-values (bytevector-u8-ref data idx) (bytevector-u8-ref data (+ idx 1))))) - (define (setter x y v) + (define (pixel-setter 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)))) - (make-image 'pgm width height maxval data getter setter)))))) + (make-image 'pgm width height maxval data pixel-getter pixel-setter)))))) (define (split-value v) (values (modulo (quotient v 256) 256) -- cgit v1.2.3