Task

Create a window and draw a pixel in it, subject to the following:

  the window is 320 x 240
  the color of the pixel must be red (255,0,0)
  the position of the pixel is x = 100, y = 100
#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)