From 3c1d24af6e0250839358b1c9cab8094ee975ea1a Mon Sep 17 00:00:00 2001
From: Masaya Tojo <masaya@tojo.tokyo>
Date: Sat, 3 Aug 2024 20:57:38 +0900
Subject: Support PBM format

---
 pnm/write.scm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'pnm/write.scm')

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)))
-- 
cgit v1.2.3