RosettaCodeData/Task/Bitmap-Write-a-PPM-file/Scheme/bitmap-write-a-ppm-file-2.scm

(define image (make-image 800 600))
(image-fill! image *black*)
(image-set! image 400 300 *blue*)
(write-ppm image "out.ppm")