28 lines
531 B
Racket
28 lines
531 B
Racket
#lang s-exp "../lang/base.rkt"
|
|
|
|
(provide big-bang
|
|
on-tick
|
|
to-draw
|
|
stop-when)
|
|
|
|
|
|
;; Fixme: replace with 2htdp/world stuff
|
|
|
|
|
|
(define (big-bang initial-world . args)
|
|
(error 'big-bang "not done yet"))
|
|
|
|
|
|
(define on-tick
|
|
(case-lambda [(handler)
|
|
(error 'on-tick "not done yet")]
|
|
[(handler interval)
|
|
(error 'on-tick "not done yet")]))
|
|
|
|
(define (to-draw handler)
|
|
(error 'on-tick "not done yet"))
|
|
|
|
|
|
(define (stop-when handler)
|
|
(error 'on-tick "not done yet"))
|