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