examples/simple.lisp

   1 (require '#:asdf)
   2 (asdf:oos 'asdf:load-op '#:cl-glfw)
   3 (asdf:oos 'asdf:load-op '#:cl-glfw-opengl)
   4 (asdf:oos 'asdf:load-op '#:cl-glfw-glu)
   5
   6 (glfw:do-window ("A Simple Example")
   7     ((gl:with-setup-projection
   8        (glu:perspective 45 4/3 0.1 50)))
   9   (gl:clear gl:+color-buffer-bit+)
  10   (gl:load-identity)
  11   (gl:translate-f 0 0 -5)
  12   (gl:rotate-f (* 10 (glfw:get-time)) 1 1 0)
  13   (gl:rotate-f (* 90 (glfw:get-time)) 0 0 1)
  14   (gl:with-begin gl:+triangles+
  15     (gl:color-3f 1 0 0) (gl:vertex-3f  1  0 0)
  16     (gl:color-3f 0 1 0) (gl:vertex-3f -1  1 0)
  17     (gl:color-3f 0 0 1) (gl:vertex-3f -1 -1 0)))