;;; 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)))))