stk/Contrib/STk-wtour/lessons/canvas-animate.stk

13 lines
216 B
Plaintext
Raw Normal View History

1996-09-27 06:29:02 -04:00
;;; 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)))))