;;; Animation!

(pack (canvas '.c1) :expand #t :fill "both")

(.c1 'create 'rectangle 10 10 40 40 :fill "red" :tag "item")

(define do-update
  (lambda ()
    (.c1 'move 'item 1 1)
    (after 50 '(catch (do-update)))))

(do-update)