I just tried using CL-OPENGL from lispbuilder-sdl. It is pretty straight
forward. However the CL-OPENGL examples assume Glut so the CL-OPENGL examples
cannot be run without modification.
(asdf:operate 'asdf:load-op :cl-opengl)
(defun opengl-test-1 ()
(sdl:with-init ()
(sdl:window 250 250
:flags sdl-cffi::sdl-opengl
:title-caption "Hello Window"
:icon-caption "Hello Window")
(gl:clear-color 0 0 0 0)
;; Initialize viewing values.
(gl:matrix-mode :projection)
(gl:load-identity)
(gl:ortho 0 1 0 1 -1 1)
(sdl:with-events ()
(:quit-event () t)
(:idle ()
(gl:clear :color-buffer-bit)
;; Draw white polygon (rectangle) with corners at
;; (0.25, 0.25, 0.0) and (0.75, 0.75, 0.0).
(gl:color 1 1 1)
(gl:with-primitive :polygon
(gl:vertex 0.25 0.25 0)
(gl:vertex 0.75 0.25 0)
(gl:vertex 0.75 0.75 0)
(gl:vertex 0.25 0.75 0))
;; Start processing buffered OpenGL routines.
(gl:flush)
(sdl-cffi::sdl-gl-swap-buffers)))))
_______________________________________________
application-builder mailing list
[email protected]
http://www.lispniks.com/mailman/listinfo/application-builder
