diff options
| author | Masaya Tojo <masaya@tojo.tokyo> | 2024-08-04 22:48:14 +0900 |
|---|---|---|
| committer | Masaya Tojo <masaya@tojo.tokyo> | 2024-08-04 22:53:19 +0900 |
| commit | 8ea85b76e5858c2d205301fd02591c2a47cc088d (patch) | |
| tree | 142187894b859fefb2d976d3fb2634a101fd06c2 /pnm/ppm.scm | |
| parent | d71502c7022875b13543d22530c02f0d9a862e30 (diff) | |
Make `maxval` argument optional
Diffstat (limited to 'pnm/ppm.scm')
| -rw-r--r-- | pnm/ppm.scm | 26 |
1 files changed, 15 insertions, 11 deletions
diff --git a/pnm/ppm.scm b/pnm/ppm.scm index 496eee1..11331af 100644 --- a/pnm/ppm.scm +++ b/pnm/ppm.scm @@ -23,17 +23,21 @@ (scheme case-lambda) (pnm image)) (begin - (define (make-ppm-image width height maxval) - (when (or (< maxval 0) - (< 65536 maxval)) - (error "(pnm ppm) make-ppm-image: Maxval is out of range")) - (let ((data (make-bytevector (* width - height - (if (< maxval 256) - 3 - 6)) - 0))) - (%make-ppm-image width height maxval data))) + (define make-ppm-image + (case-lambda + ((width height) + (make-ppm-image width height 255)) + ((width height maxval) + (when (or (< maxval 0) + (< 65536 maxval)) + (error "(pnm ppm) make-ppm-image: Maxval is out of range")) + (let ((data (make-bytevector (* width + height + (if (< maxval 256) + 3 + 6)) + 0))) + (%make-ppm-image width height maxval data))))) (define (%make-ppm-image width height maxval data) (when (or (< maxval 0) |