diff options
| author | Masaya Tojo <masaya@tojo.tokyo> | 2024-08-04 19:34:27 +0900 |
|---|---|---|
| committer | Masaya Tojo <masaya@tojo.tokyo> | 2024-08-04 19:34:27 +0900 |
| commit | fd4a72db990d6ec5e62b4d1ffebd8f40c8ee5a30 (patch) | |
| tree | 329a8b62c2f11682865944abd9c8ac8083cf1e9d /pnm/read.scm | |
| parent | f5d3c117582d25e1aa5b7ea37947653b2276585c (diff) | |
Remove the ability to pass bytevector directly to make-*-image
Diffstat (limited to 'pnm/read.scm')
| -rw-r--r-- | pnm/read.scm | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/pnm/read.scm b/pnm/read.scm index e277a32..a2e0555 100644 --- a/pnm/read.scm +++ b/pnm/read.scm @@ -64,8 +64,8 @@ (case magic-number ((P4) (read-single-whitespace*) - (make-pbm-image width height - (read-bytevector (* (ceiling (/ width 8)) height) in))) + (%make-pbm-image width height + (read-bytevector (* (ceiling (/ width 8)) height) in))) ((P1) (let ((byte-width (ceiling (/ width 8))) (pbm-image (make-pbm-image width height))) @@ -81,10 +81,10 @@ (case magic-number ((P6) (read-single-whitespace*) - (make-ppm-image width height maxval - (if (< maxval 256) - (read-bytevector (* 3 width height) in) - (read-bytevector (* 6 width height) in)))) + (%make-ppm-image width height maxval + (if (< maxval 256) + (read-bytevector (* 3 width height) in) + (read-bytevector (* 6 width height) in)))) ((P3) (let ((ppm-image (make-ppm-image width height maxval))) (read-text-raster width height #t in (image-pixel-setter ppm-image) @@ -93,10 +93,10 @@ ppm-image)) ((P5) (read-single-whitespace*) - (make-pgm-image width height maxval - (if (< maxval 256) - (read-bytevector (* width height) in) - (read-bytevector (* 2 width height) in)))) + (%make-pgm-image width height maxval + (if (< maxval 256) + (read-bytevector (* width height) in) + (read-bytevector (* 2 width height) in)))) ((P2) (let ((pgm-image (make-pgm-image width height maxval))) (read-text-raster width height #f in (image-pixel-setter pgm-image) |