From c6181aa88089a01ca0925e1c2ff13a95710b17a4 Mon Sep 17 00:00:00 2001 From: William Robinson Date: Fri, 11 Jan 2008 13:08:03 +0000 Subject: [PATCH] Added cl-opengl example proof-of-concept. --- examples/test-cl-opengl.lisp | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) create mode 100644 examples/test-cl-opengl.lisp diff --git a/examples/test-cl-opengl.lisp b/examples/test-cl-opengl.lisp new file mode 100644 index 0000000..6dcc900 --- /dev/null +++ b/examples/test-cl-opengl.lisp @@ -0,0 +1,20 @@ +(require '#:asdf) +(asdf:oos 'asdf:load-op '#:cl-glfw) +(asdf:oos 'asdf:load-op '#:cl-opengl) +(asdf:oos 'asdf:load-op '#:cl-glu) + +(glfw:do-window ("A Simple cl-opengl Example") + ((gl:matrix-mode :projection) + (gl:load-identity) + (unwind-protect (glu:perspective 45 4/3 0.1 50) + (gl:matrix-mode :modelview))) + (gl:clear :color-buffer-bit) + (gl:load-identity) + (gl:translate 0 0 -5) + (gl:rotate (* 10 (float (glfw:get-time) 0.0)) 1 1 0) + (gl:rotate (* 90 (float (glfw:get-time) 0.0)) 0 0 1) + (gl:begin :triangles) + (gl:color 1 0 0) (gl:vertex 1 0 0) + (gl:color 0 1 0) (gl:vertex -1 1 0) + (gl:color 0 0 1) (gl:vertex -1 -1 0) + (gl:end)) -- 2.11.4.GIT