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

Randomize first location

Browse source
This commit is contained in:
David Botton 2021-01-07 12:34:42 -05:00
parent 6494cb4388
commit a8b1010984
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
tutorial/07-tutorial.lisp
View file

@ -22,8 +22,8 @@
(let* ((mover (create-child body "<div>(-o-)</div>"))
(bounds-x (parse-integer (width (window body)) :junk-allowed t))
(bounds-y (parse-integer (height (window body)) :junk-allowed t))
(mover-x (/ bounds-x 2))
(mover-y (/ bounds-y 2)))
(mover-x (random bounds-x))
(mover-y (random bounds-y)))
(setf (positioning mover) :fixed)
(set-on-click mover #'on-click)