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
#
# draw-pixel.icn
#
procedure main()
   &window := open("pixel", "g", "size=320,240")
   Fg("#ff0000")
   DrawPoint(100, 100)
   Event()
end