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

rain program running

Browse Source
This commit is contained in:
Danny Yoo 2011-07-20 14:22:52 -04:00
parent 94c24f0841
commit 22d0522b8c
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
examples/rain-world-program.rkt
View File

@ -4,8 +4,8 @@
;; Rain falls down the screen. ;; Rain falls down the screen.
(define WIDTH 200) (define WIDTH 640)
(define HEIGHT 500) (define HEIGHT 480)
(define GRAVITY-FACTOR 1) (define GRAVITY-FACTOR 1)
(define BACKGROUND (empty-scene WIDTH HEIGHT)) (define BACKGROUND (empty-scene WIDTH HEIGHT))
@ -23,12 +23,13 @@
;; Generates a random particle. ;; Generates a random particle.
(define (random-drop) (define (random-drop)
(make-drop (make-posn (random WIDTH) 0) (make-drop (make-posn (random WIDTH) 0)
(+ 5 (random 10)) ;; Get it falling (+ 5 (random 10)) ;; Get it falling at some random velocity
(random-choice (list "gray" "darkgray" (random-choice (list "gray" "darkgray"
"white" "blue" "white" "blue"
"lightblue" "lightblue"
"darkblue")) "darkblue"))
(random 10))) (random 10) ;; with some random size
))
;; random-choice: (listof X) -> X ;; random-choice: (listof X) -> X
;; Picks a random element of elts. ;; Picks a random element of elts.
@ -58,7 +59,9 @@
(define (tick w) (define (tick w)
(make-world (make-world
(my-filter not-on-floor? (my-filter not-on-floor?
(map drop-descend (cons (random-drop) (world-sky w)))))) (map drop-descend (cons (random-drop)
(cons (random-drop)
(world-sky w)))))))
;; drop-descend: drop -> drop ;; drop-descend: drop -> drop