mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2026-01-03 07:42:32 -08:00
Code Issues Projects Releases Wiki Activity

first web gl tutorial

Browse source
This commit is contained in:
David Botton 2022-08-09 21:08:05 -04:00
parent 47b869f80a
commit 91b229133d
5 changed files with 370 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

7
source/clog-canvas.lisp
View file

@ -57,10 +57,9 @@
(defmethod create-context2d ((obj clog-canvas))
(let ((web-id (clog-connection:generate-id)))
(clog-connection:execute (connection-id obj)
(format nil "clog['~A']=clog['~A'].getContext('2d')"
web-id
(html-id obj)))
(js-execute obj (format nil "clog['~A']=clog['~A'].getContext('2d')"
web-id
(html-id obj)))
(make-instance 'clog-context2d
:connection-id (connection-id obj)
:html-id web-id)))