mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-07 11:10:18 -08:00
Code Issues Projects Releases Wiki Activity

Basic canvas

Browse source
This commit is contained in:
David Botton 2021-01-15 00:49:52 -05:00
parent 0c5a1c081e
commit d98f0f4444
5 changed files with 377 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

18
tutorial/10-tutorial.lisp
View file

@ -10,10 +10,20 @@
(set-border canvas :thin :solid :black)
(clog::execute cx "fillStyle='green'")
(clog::execute cx "fillRect(10, 10, 150, 100)"))
(run body))
(fill-style cx :green)
(fill-rect cx 10 10 150 100)
(fill-style cx :blue)
(font-style cx "bold 24px serif")
(fill-text cx "Hello World" 10 150)
(fill-style cx :red)
(begin-path cx)
(ellipse cx 200 200 50 7 0.78 0 6.29)
(path-stroke cx)
(path-fill cx)
(run body)))
(defun start-tutorial ()
"Start turtorial."