5 lines
116 B
Scheme
5 lines
116 B
Scheme
(define image (make-image 3 2))
|
|
(image-fill! image *black*)
|
|
(image-set! image 2 1 *blue*)
|
|
(display image)
|
|
(newline)
|