suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

run-simulation -> animate

Browse Source 
svn: r15996
This commit is contained in:
Matthias Felleisen 2009-09-14 00:59:51 +00:00
parent 73e9e77830
commit ff3e48c32f
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/2htdp/universe.ss
View File

@ -74,9 +74,12 @@
LOCALHOST ;; IP LOCALHOST ;; IP
) )
#;
(provide-higher-order-primitive (provide-higher-order-primitive
run-simulation (create-scene) ; (Number Number Number (Nat -> Scene) -> true) run-simulation (create-scene) ; (Nat -> Scene) -> Nat
)
(provide-higher-order-primitive
animate (create-scene) ; (Nat -> Scene) -> Nat
) )
(define MOUSE-EVTS (define MOUSE-EVTS
@ -171,6 +174,8 @@
(check-proc 'run-simulation f 1 "first" "one argument") (check-proc 'run-simulation f 1 "first" "one argument")
(big-bang 1 (on-tick add1) (on-draw f))) (big-bang 1 (on-tick add1) (on-draw f)))
(define animate run-simulation)
(define (run-movie r m*) (define (run-movie r m*)
(check-arg 'run-movie (positive? r) "positive number" "first" r) (check-arg 'run-movie (positive? r) "positive number" "first" r)
(check-arg 'run-movie (list? m*) "list (of images)" "second" m*) (check-arg 'run-movie (list? m*) "list (of images)" "second" m*)