2 (asdf:oos
'asdf
:load-op
'#:cl-glfw
)
3 (asdf:oos
'asdf
:load-op
'#:cl-opengl
)
4 (asdf:oos
'asdf
:load-op
'#:cl-glu
)
6 (glfw:do-window
("A Simple cl-opengl Example")
7 ((gl:matrix-mode
:projection
)
9 (unwind-protect (glu:perspective
45 4/3 0.1 50)
10 (gl:matrix-mode
:modelview
)))
11 (gl:clear
:color-buffer-bit
)
14 (gl:rotate
(* 10 (float (glfw:get-time
) 0.0)) 1 1 0)
15 (gl:rotate
(* 90 (float (glfw:get-time
) 0.0)) 0 0 1)
17 (gl:color
1 0 0) (gl:vertex
1 0 0)
18 (gl:color
0 1 0) (gl:vertex -
1 1 0)
19 (gl:color
0 0 1) (gl:vertex -
1 -
1 0)