RosettaCodeData/Task/Draw-a-pixel/Icon/draw-a-pixel.icon

#
# draw-pixel.icn
#
procedure main()
   &window := open("pixel", "g", "size=320,240")
   Fg("#ff0000")
   DrawPoint(100, 100)
   Event()
end