13 lines
216 B
Plaintext
13 lines
216 B
Plaintext
|
;;; Animation!
|
||
|
|
|
||
|
|
(pack (canvas '.c1) :expand #t :fill "both")
|
||
|
|
|
||
|
|
(.c1 'create 'rectangle 10 10 40 40 :fill "red" :tag "item")
|
||
|
|
|
||
|
|
(let do-update ()
|
||
|
|
(.c1 'move 'item 1 1)
|
||
|
|
(after 50 (lambda ()
|
||
|
|
(catch (do-update)))))
|
||
|
|
|
||
|
|
|