bitmap-appendtiff

(bitmap-appendtiff <bitmap> <filename>) appends a new page to the end of the supplied tiff file containing the given bitmap in G4 encoding. If the supplied file does not already exist this function creates the file writing the bitmap to the first page.

[1] (define page (bitmap-create 200 200))
page
[2] (bitmap-appendtiff page "/tmp/example.tiff")
ok
[3] (bitmap-appendtiff page "/tmp/example.tiff")
ok
[4] (system "file /tmp/example.tiff")
/tmp/example.tiff: TIFF image data, little-endian, direntries=12, height=200, bps=1, compression=bi-level group 4, PhotometricIntepretation=WhiteIsZero, orientation=upper-left, width=200
0
[5]

This is the just created tiff file opened with macOS Preview:

MacOS Preview