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
 
(import (lib gl))
(import (OpenGL version-1-0))
 
; init
(glClearColor 0.3 0.3 0.3 1)
(glOrtho 0 320 0 240 0 1)
 
; draw loop
(gl:set-renderer (lambda (mouse)
   (glClear GL_COLOR_BUFFER_BIT)
   (glBegin GL_POINTS)
   (glColor3f 255 0 0)
   (glVertex2f 100 100)
   (glEnd)))
 