5 lines
140 B
Racket
5 lines
140 B
Racket
#lang racket
|
|
(require racket/draw)
|
|
(let ((b (make-object bitmap% 320 240)))
|
|
(send b set-argb-pixels 100 100 1 1 (bytes 255 0 0 255))
|
|
b)
|