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

final webgl binding and examples for now

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

2
LEARN.md
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
- [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
- [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

2
README.md
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
- [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
- [34-tutorial.lisp](tutorial/34-tutorial.lisp) - 2D WebGL example
- [35-tutorial.lisp](tutorial/35-tutorial.lisp) - 3D WebGL example
CLOG Demos

24
tutorial/35-tutorial.lisp
View file

@ -168,20 +168,18 @@
;; Indices
(bind-buffer index-buffer :ELEMENT_ARRAY_BUFFER)
(use-program program)
(uniform-matrix gl 4 projection-matrix nil (list (random 1.0) (random 1.0) (random 1.0) (random 1.0)
(random 1.0) (random 1.0) (random 1.0) (random 1.0)
(random 1.0) (random 1.0) (random 1.0) (random 1.0)
(random 1.0) (random 1.0) (random 1.0) (random 1.0)))
(uniform-matrix gl 4 model-view-matrix nil (list (random 1.0) (random 1.0) (random 1.0) (random 1.0)
(random 1.0) (random 1.0) (random 1.0) (random 1.0)
(random 1.0) (random 1.0) (random 1.0) (random 1.0)
(random 1.0) (random 1.0) (random 1.0) (random 1.0)))
(uniform-matrix gl 4 projection-matrix nil
(list 2.4142136573791504 0 0 0
0 2.4142136573791504 0 0
0 0 -1.0002000331878662 -1
0 0 -0.020002000033855438 0))
(uniform-matrix gl 4 model-view-matrix nil
(list 0.24186034500598907 0.6221014261245728 -0.7446430921554565 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)))
(loop
(unless (clog:validp body)
(return))
(draw-scene)
(sleep .1)))))
(draw-scene))))
(defun start-tutorial ()
"Start turtorial."

2
tutorial/README.md
View file

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