final webgl binding and examples for now

This commit is contained in:
David Botton 2022-08-15 21:25:21 -04:00
parent 8aba36e442
commit abe761dac7
4 changed files with 18 additions and 14 deletions

View file

@ -95,6 +95,8 @@ CLOG "The Framework" (Code Tutorials)
- [31-tutorial.lisp](tutorial/31-tutorial.lisp) - Database and Authority based websites - clog-web-dbi and clog-auth - [31-tutorial.lisp](tutorial/31-tutorial.lisp) - Database and Authority based websites - clog-web-dbi and clog-auth
- [32-tutorial.lisp](tutorial/32-tutorial.lisp) - Database Managed Content websites - clog-web-content - [32-tutorial.lisp](tutorial/32-tutorial.lisp) - Database Managed Content websites - clog-web-content
- [33-tutorial.lisp](tutorial/33-tutorial.lisp) - with-clog-create - Using a declarative syntax for GUIs - [33-tutorial.lisp](tutorial/33-tutorial.lisp) - with-clog-create - Using a declarative syntax for GUIs
- [34-tutorial.lisp](tutorial/34-tutorial.lisp) - 2D WebGL example
- [35-tutorial.lisp](tutorial/35-tutorial.lisp) - 3D WebGL example
CLOG Demos - Learn through Projects CLOG Demos - Learn through Projects

View file

@ -271,6 +271,8 @@ CLOG Tutorials
- [31-tutorial.lisp](tutorial/31-tutorial.lisp) - Database and Authority based websites - clog-web-dbi and clog-auth - [31-tutorial.lisp](tutorial/31-tutorial.lisp) - Database and Authority based websites - clog-web-dbi and clog-auth
- [32-tutorial.lisp](tutorial/32-tutorial.lisp) - Database Managed Content websites - clog-web-content - [32-tutorial.lisp](tutorial/32-tutorial.lisp) - Database Managed Content websites - clog-web-content
- [33-tutorial.lisp](tutorial/33-tutorial.lisp) - with-clog-create - Using a declarative syntax for GUIs - [33-tutorial.lisp](tutorial/33-tutorial.lisp) - with-clog-create - Using a declarative syntax for GUIs
- [34-tutorial.lisp](tutorial/34-tutorial.lisp) - 2D WebGL example
- [35-tutorial.lisp](tutorial/35-tutorial.lisp) - 3D WebGL example
CLOG Demos CLOG Demos

View file

@ -168,20 +168,18 @@
;; Indices ;; Indices
(bind-buffer index-buffer :ELEMENT_ARRAY_BUFFER) (bind-buffer index-buffer :ELEMENT_ARRAY_BUFFER)
(use-program program) (use-program program)
(uniform-matrix gl 4 projection-matrix nil (list (random 1.0) (random 1.0) (random 1.0) (random 1.0) (uniform-matrix gl 4 projection-matrix nil
(random 1.0) (random 1.0) (random 1.0) (random 1.0) (list 2.4142136573791504 0 0 0
(random 1.0) (random 1.0) (random 1.0) (random 1.0) 0 2.4142136573791504 0 0
(random 1.0) (random 1.0) (random 1.0) (random 1.0))) 0 0 -1.0002000331878662 -1
(uniform-matrix gl 4 model-view-matrix nil (list (random 1.0) (random 1.0) (random 1.0) (random 1.0) 0 0 -0.020002000033855438 0))
(random 1.0) (random 1.0) (random 1.0) (random 1.0) (uniform-matrix gl 4 model-view-matrix nil
(random 1.0) (random 1.0) (random 1.0) (random 1.0) (list 0.24186034500598907 0.6221014261245728 -0.7446430921554565 0
(random 1.0) (random 1.0) (random 1.0) (random 1.0))) -0.7772392630577087 0.5836206674575806 0.2351299524307251 0
0.5808637738227844 0.5218972563743591 0.6246763467788696 0
0 0 -6 1))
(draw-elements gl :TRIANGLES 36 :UNSIGNED_SHORT 0))) (draw-elements gl :TRIANGLES 36 :UNSIGNED_SHORT 0)))
(loop (draw-scene))))
(unless (clog:validp body)
(return))
(draw-scene)
(sleep .1)))))
(defun start-tutorial () (defun start-tutorial ()
"Start turtorial." "Start turtorial."

View file

@ -58,4 +58,6 @@ Tutorial Summary
- 30-tutorial.lisp - Instant websites - clog-web-site - 30-tutorial.lisp - Instant websites - clog-web-site
- 31-tutorial.lisp - Database and Authority based websites - clog-web-dbi and clog-auth - 31-tutorial.lisp - Database and Authority based websites - clog-web-dbi and clog-auth
- 32-tutorial.lisp - Database Managed Content websites - clog-web-content - 32-tutorial.lisp - Database Managed Content websites - clog-web-content
- 33-tutorial.lisp - with-clog-create - Using a declarative syntax for GUIs - 33-tutorial.lisp - with-clog-create - Using a declarative syntax for GUIs
- 34-tutorial.lisp - 2D WebGL example
- 35-tutorial.lisp - 3D WebGL example