Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (gl:enable-client-state :vertex-array)
- (gl:with-gl-array (arr 'vertex :count 3)
- (setf (getverts arr) '(#(10 10 0) #(5 5 5) #(0 0 0)))
- (gl:bind-gl-vertex-array arr)
- (gl:with-gl-array (arr :unsigned-int :count 1)
- (setf (gl:glaref arr 0) 0)
- (gl:draw-elements :points arr)))
Add Comment
Please, Sign In to add comment