Renaud Casenave-Péré
6b2c2df3bf
A cube and a triangle Make use of the input system to move the camera.
12 lines
748 B
Common Lisp
12 lines
748 B
Common Lisp
(:name "triangle"
|
|
:streams ((:program simple-shader
|
|
:vertex-buffer ((position :float 3
|
|
#(0.25 0.25 0.0
|
|
0.25 -0.25 0.0
|
|
-0.25 -0.25 0.0))
|
|
(color :float 4
|
|
#(0.0 0.0 1.0 1.0
|
|
0.0 1.0 0.0 1.0
|
|
1.0 0.0 0.0 1.0)))
|
|
:index-buffer (:unsigned-short :triangles
|
|
#(0 1 2)))))
|