17 lines
347 B
Racket
17 lines
347 B
Racket
#lang planet dyoo/whalesong
|
|
(require (planet dyoo/whalesong/js/world))
|
|
|
|
(define-values (on-event send-event)
|
|
(make-js-world-event))
|
|
|
|
((js-function (js-eval "function(x) { window.sendTheTick = x; }"))
|
|
send-event)
|
|
|
|
|
|
(define (handle-event w v)
|
|
(add1 w))
|
|
|
|
(big-bang 0
|
|
(on-event handle-event)
|
|
(stop-when (lambda (w) (> w 5))))
|