11 lines
198 B
Scheme
11 lines
198 B
Scheme
(define (next t)
|
|
(+ t 1))
|
|
|
|
(define (image t)
|
|
(place-image (circle 3 'solid 'red) 20 t (empty-scene 50 50)))
|
|
|
|
;; --- run program run
|
|
(big-bang 50 50 .1 0)
|
|
(on-redraw image)
|
|
(on-tick-event next)
|