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

Expanded implementation of 2d canvas

Browse source
This commit is contained in:
David Botton 2022-08-21 15:56:47 -04:00
parent f305d8ca35
commit 74be9b9911
6 changed files with 623 additions and 311 deletions
Download patch file Download diff file Expand all files Collapse all files

8
tutorial/10-tutorial.lisp
View file

@ -10,12 +10,12 @@
(let* ((canvas (create-canvas body :width 600 :height 400))
(cx (create-context2d canvas)))
(set-border canvas :thin :solid :black)
(fill-style cx :green)
(setf (fill-style cx) :green)
(fill-rect cx 10 10 150 100)
(fill-style cx :blue)
(font-style cx "bold 24px serif")
(setf (fill-style cx) :blue
(font-style cx) "bold 24px serif")
(fill-text cx "Hello World" 10 150)
(fill-style cx :red)
(setf (fill-style cx) :red)
(begin-path cx)
(ellipse cx 200 200 50 7 0.78 0 6.29)
(path-stroke cx)