Guest User

Untitled

a guest
May 22nd, 2018
87
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.35 KB | None | 0 0
  1. (gl:enable-client-state :vertex-array)
  2. (gl:with-gl-array (arr 'vertex :count 3)
  3. (setf (getverts arr) '(#(10 10 0) #(5 5 5) #(0 0 0)))
  4. (gl:bind-gl-vertex-array arr)
  5. (gl:with-gl-array (arr :unsigned-int :count 1)
  6. (setf (gl:glaref arr 0) 0)
  7. (gl:draw-elements :points arr)))
Add Comment
Please, Sign In to add comment