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 21:37:09 -04:00
parent 2ac40e7603
commit 00446e4f83
2 changed files with 30 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
tutorial/34-tutorial.lisp
View file

@ -51,6 +51,10 @@ void main() {
(let ((obj (active-attribute program n)))
(format t "~A : Active Attribute - ~A ~A ~A"
n (info-name obj) (info-size obj) (info-type obj))))
(dotimes (n (parse-integer (program-parameter program :ACTIVE_UNIFORMS)))
(let ((obj (active-uniform program n)))
(format t "~A : Active Uniform - ~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)