diff options
| author | Masaya Tojo <masaya@tojo.tokyo> | 2024-08-10 22:53:12 +0900 |
|---|---|---|
| committer | Masaya Tojo <masaya@tojo.tokyo> | 2024-08-10 23:13:11 +0900 |
| commit | e59d89f39f090f8feb16a48ed150e5ac48c2858f (patch) | |
| tree | d88fb66f0280f717599fd4e9ca97eb4a234ef24a /pnm/ppm.scm | |
| parent | f67f8d68b33a5d0b2ae2409a81c30d852a475ebe (diff) | |
Rename procedures from `image-*` to `pnm-image-*`
Diffstat (limited to 'pnm/ppm.scm')
| -rw-r--r-- | pnm/ppm.scm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/pnm/ppm.scm b/pnm/ppm.scm index bdf60cf..ff1abb3 100644 --- a/pnm/ppm.scm +++ b/pnm/ppm.scm @@ -79,9 +79,9 @@ (bytevector-u8-set! data (+ idx 2) b))) (unless (= byte-count (bytevector-length data)) (error (string-append "(pnm pbm) make-pbm-image: Invalid bytevector length" byte-count))) - (make-image 'ppm width height maxval data - (if unsafe? pixel-getter (make-safe-pixel-getter pixel-getter)) - (if unsafe? pixel-setter (make-safe-pixel-setter pixel-setter)))) + (make-pnm-image 'ppm width height maxval data + (if unsafe? pixel-getter (make-safe-pixel-getter pixel-getter)) + (if unsafe? pixel-setter (make-safe-pixel-setter pixel-setter)))) (let* ((w*6 (* width 6)) (byte-count (* w*6 height))) (define (xy->idx x y) (+ (* 6 x) (* y w*6))) @@ -106,6 +106,6 @@ (bytevector-u8-set! data (+ idx 5) b2)))) (unless (= byte-count (bytevector-length data)) (error (string-append "(pnm pbm) make-pbm-image: Invalid bytevector length" byte-count))) - (make-image 'ppm width height maxval data - (if unsafe? pixel-getter (make-safe-pixel-getter pixel-getter)) - (if unsafe? pixel-setter (make-safe-pixel-setter pixel-setter)))))))) + (make-pnm-image 'ppm width height maxval data + (if unsafe? pixel-getter (make-safe-pixel-getter pixel-getter)) + (if unsafe? pixel-setter (make-safe-pixel-setter pixel-setter)))))))) |