maze.scm

   1 (use gl)
   2 (use gl.glut)
   3
   4 (define (disp)
   5   (gl-clear GL_COLOR_BUFFER_BIT)
   6   (gl-color '#f32(1.0 1.0 1.0))
   7   (gl-begin* GL_LINE
   8     (gl-vertex 0.25 0.25 0.0)
   9     (gl-vertex 0.75 0.25 0.0)
  10     (gl-vertex 0.75 0.75 0.0)
  11     (gl-vertex 0.25 0.75 0.0)
  12     )
  13   (gl-flush)
  14   )
  15
  16 (define (init)
  17   (gl-clear-color 0.0 0.0 0.0 0.0)
  18   (gl-matrix-mode GL_PROJECTION)
  19   (gl-load-identity)
  20   (gl-ortho 0.0 10.0 0.0 10.0 -1.0 1.0)
  21   )
  22
  23 (define (keyboard key x y)
  24   (cond
  25    ((= key 27) (exit 0))
  26    ))
  27
  28 (define (main args)
  29   (glut-init args)
  30   (glut-init-display-mode (logior GLUT_SINGLE GLUT_RGB))
  31   (glut-init-window-size 800 600)
  32   (glut-init-window-position 0 0)
  33   (glut-create-window "hello")
  34   (init)
  35   (glut-display-func disp)
  36   (glut-keyboard-func keyboard)
  37   (glut-main-loop)
  38   0)