aboutsummaryrefslogtreecommitdiff
path: root/pnm/write.scm
diff options
context:
space:
mode:
authorMasaya Tojo <masaya@tojo.tokyo>2024-08-03 20:57:38 +0900
committerMasaya Tojo <masaya@tojo.tokyo>2024-08-03 21:07:04 +0900
commit3c1d24af6e0250839358b1c9cab8094ee975ea1a (patch)
treee5d2e7919ad87fd3fa7f3be0d4b3c85a0bcd6faf /pnm/write.scm
parent53073f7a4818ed954a835c9ab6848376271b4695 (diff)
Support PBM format
Diffstat (limited to 'pnm/write.scm')
-rw-r--r--pnm/write.scm2
1 files changed, 2 insertions, 0 deletions
diff --git a/pnm/write.scm b/pnm/write.scm
index b41a0d9..75cd433 100644
--- a/pnm/write.scm
+++ b/pnm/write.scm
@@ -30,6 +30,8 @@
(write-string-u8 "P6\n"))
((pgm)
(write-string-u8 "P5\n"))
+ ((pbm)
+ (write-string-u8 "P4\n"))
(else
(error "(pnm write) pnm-write: Not supported type" (image-type image))))
(write-string-u8 (number->string (image-width image)))