diff options
Diffstat (limited to 'pnm/write.scm')
| -rw-r--r-- | pnm/write.scm | 52 |
1 files changed, 26 insertions, 26 deletions
diff --git a/pnm/write.scm b/pnm/write.scm index 849e3de..60dbd0e 100644 --- a/pnm/write.scm +++ b/pnm/write.scm @@ -17,15 +17,15 @@ ;;; along with R7RS-PNM. If not, see <https://www.gnu.org/licenses/>. (define-library (pnm write) - (export image-write) + (export pnm-image-write) (import (scheme base) (scheme case-lambda) (pnm image)) (begin - (define image-write + (define pnm-image-write (case-lambda - ((image out) - (case (image-type image) + ((pnm-image out) + (case (pnm-image-type pnm-image) ((ppm) (write-string-u8 "P6\n" out)) ((pgm) @@ -33,23 +33,23 @@ ((pbm) (write-string-u8 "P4\n" out)) (else - (error "(pnm write) image-write: Not supported type" (image-type image)))) - (write-string-u8 (number->string (image-width image)) out) + (error "(pnm write) pnm-image-write: Not supported type" (pnm-image-type pnm-image)))) + (write-string-u8 (number->string (pnm-image-width pnm-image)) out) (write-string-u8 " " out) - (write-string-u8 (number->string (image-height image)) out) + (write-string-u8 (number->string (pnm-image-height pnm-image)) out) (write-string-u8 "\n" out) - (case (image-type image) + (case (pnm-image-type pnm-image) ((pgm ppm) - (write-string-u8 (number->string (image-maxval image)) out) + (write-string-u8 (number->string (pnm-image-maxval pnm-image)) out) (write-string-u8 "\n" out))) - (write-bytevector (image-data image) out)) - ((image out plain?) + (write-bytevector (pnm-image-data pnm-image) out)) + ((pnm-image out plain?) (if plain? - (image-write/plan image out) - (image-write image out))))) + (pnm-image-write/plan pnm-image out) + (pnm-image-write pnm-image out))))) - (define (image-write/plan image out) - (case (image-type image) + (define (pnm-image-write/plan pnm-image out) + (case (pnm-image-type pnm-image) ((ppm) (write-string-u8 "P3\n" out)) ((pgm) @@ -57,19 +57,19 @@ ((pbm) (write-string-u8 "P1\n" out)) (else - (error "(pnm write) image-write: Not supported type" (image-type image)))) - (write-string-u8 (number->string (image-width image)) out) + (error "(pnm write) image-write: Not supported type" (pnm-image-type pnm-image)))) + (write-string-u8 (number->string (pnm-image-width pnm-image)) out) (write-string-u8 " " out) - (write-string-u8 (number->string (image-height image)) out) + (write-string-u8 (number->string (pnm-image-height pnm-image)) out) (write-string-u8 "\n" out) - (case (image-type image) + (case (pnm-image-type pnm-image) ((pgm ppm) - (write-string-u8 (number->string (image-maxval image)) out) + (write-string-u8 (number->string (pnm-image-maxval pnm-image)) out) (write-string-u8 "\n" out))) (let-values (((write-token write-newline) (limit-line-length-writer 70 out))) - (let ((width (image-width image)) - (height (image-height image))) + (let ((width (pnm-image-width pnm-image)) + (height (pnm-image-height pnm-image))) (define (write-raster write-pixel) (do ((y 0 (+ y 1))) ((= y height)) @@ -78,23 +78,23 @@ ((= x width)) (write-pixel x y)) (write-newline))) - (case (image-type image) + (case (pnm-image-type pnm-image) ((ppm) (write-raster (lambda (x y) - (let-values (((r g b) (image-ref image x y))) + (let-values (((r g b) (pnm-image-ref pnm-image x y))) (write-token (number->string r)) (write-token (number->string g)) (write-token (number->string b)))))) ((pgm) (write-raster (lambda (x y) - (let ((v (image-ref image x y))) + (let ((v (pnm-image-ref pnm-image x y))) (write-token (number->string v)))))) ((pbm) (write-raster (lambda (x y) - (let ((b (image-ref image x y))) + (let ((b (pnm-image-ref pnm-image x y))) (write-token (if b "1" "0")))))))))) (define (write-string-u8 str out) |