24 lines
364 B
Racket
24 lines
364 B
Racket
#lang planet dyoo/whalesong
|
|
|
|
(require (planet dyoo/whalesong/world))
|
|
|
|
|
|
(define handler (on-tick add1 1))
|
|
handler
|
|
|
|
"big bang should follow:"
|
|
|
|
|
|
(define (draw w)
|
|
(circle w 'solid 'blue))
|
|
|
|
|
|
(big-bang 1
|
|
(on-tick add1 1)
|
|
;(on-tick (lambda (w) (* w 2)) 1)
|
|
(stop-when (lambda (w) (> w 10)))
|
|
(to-draw draw)
|
|
)
|
|
|
|
|
|
"all done" |