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
)
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
+)
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)))