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

set svn:eol-style

Browse Source 
svn: r6068
This commit is contained in:
Eli Barzilay 2007-04-28 13:57:18 +00:00
parent 19a2a1cc00
commit a6ad897a70
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/htdp/Test/world.ss
View File

@ -1,6 +1,6 @@
;; testing world ;; testing world
;; World = Nat ;; World = Nat
(define world0 10) (define world0 10)
@ -21,10 +21,10 @@
[(symbol=? ke 'right) 90] [(symbol=? ke 'right) 90]
[else w])) [else w]))
;; run world run ;; run world run
(big-bang 100 100 .1 world0) (big-bang 100 100 .1 world0)
(on-redraw world->image) (on-redraw world->image)
(on-tick-event world->next) (on-tick-event world->next)
(on-key-event world->steer) (on-key-event world->steer)