mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 02:30:42 -08:00
Code Issues Projects Releases Wiki Activity

More work on webgl

Browse source
This commit is contained in:
David Botton 2022-08-11 19:37:07 -04:00
parent 5b162c7cd2
commit 2ac40e7603
2 changed files with 91 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
tutorial/34-tutorial.lisp
View file

@ -47,6 +47,10 @@ void main() {
(pos (attribute-location program "a_position"))
(pos-buffer (create-webgl-buffer gl))
(vao (create-vertex-array gl)))
(dotimes (n (parse-integer (program-parameter program :ACTIVE_ATTRIBUTES)))
(let ((obj (active-attribute program n)))
(format t "~A : Active Attribute - ~A ~A ~A"
n (info-name obj) (info-size obj) (info-type obj))))
(print (drawing-buffer-width gl))
(print (drawing-buffer-height gl))
(bind-buffer pos-buffer :ARRAY_BUFFER)