-
-
Notifications
You must be signed in to change notification settings - Fork 42
/
vertex-array.lisp
46 lines (41 loc) · 1.86 KB
/
vertex-array.lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
#|
This file is a part of trial
(c) 2017 Shirakumo http://tymoon.eu (shinmera@tymoon.eu)
Author: Nicolas Hafner <shinmera@tymoon.eu>
|#
(in-package #:org.shirakumo.fraf.trial)
(defclass vertex-array (gl-resource)
((size :initarg :size :initform NIL :accessor size)
(buffers :initarg :buffers :accessor buffers))
(:default-initargs
:buffers (error "BUFFERS required.")))
(defmethod destructor ((array vertex-array))
(let ((vao (gl-name array)))
(lambda () (gl:delete-vertex-arrays (list vao)))))
(defmethod dependencies ((array vertex-array))
(mapcar #'unlist (buffers array)))
(defmethod allocate ((array vertex-array))
(let ((vao (gl:gen-vertex-array)))
(with-cleanup-on-failure (gl:delete-vertex-arrays (list vao))
(gl:bind-vertex-array vao)
(unwind-protect
(loop for buffer in (buffers array)
for i from 0
do (destructuring-bind (buffer &key (index i)
(size 3)
(stride 0)
(offset 0)
(normalized NIL))
(enlist buffer)
(check-allocated buffer)
(gl:bind-buffer (buffer-type buffer) (gl-name buffer))
(ecase (buffer-type buffer)
(:element-array-buffer
(unless (size array)
(setf (size array) (size buffer)))
(decf i))
(:array-buffer
(gl:vertex-attrib-pointer index size (element-type buffer) normalized stride offset)
(gl:enable-vertex-attrib-array index)))))
(gl:bind-vertex-array 0)
(setf (data-pointer array) vao)))))