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

got a toy boid example running

Browse Source
This commit is contained in:
Danny Yoo 2011-09-12 17:24:17 -04:00
parent c0b9dcc4f7
commit 6eb21a4ded
1 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
web-world/examples/boid/boid.rkt
View File

@ -314,15 +314,15 @@
(make-boid (fresh-id) (make-boid (fresh-id)
(make-vec (random 10) (make-vec (random 10)
(random 10)) (random 10))
(make-vec (+ 20 (random 600)) (make-vec (random width)
(+ 20 (random 300))) (random height))
(make-color (random 255) (make-color (random 255)
(random 255) (random 255)
(random 255)))) (random 255))))
(define (new-population) (define (new-population)
(build-list 20 (lambda (i) (make-random-boid)))) (build-list 10 (lambda (i) (make-random-boid))))
;; visualize: -> void ;; visualize: -> void
@ -337,9 +337,19 @@
(class "boid")) (class "boid"))
nbsp)) nbsp))
population))))) population)))))
(define view-with-colored-boids
(foldl (lambda (b view)
(update-view-css (view-focus view (boid-id b))
"background"
(format "rgb(~a,~a,~a)"
(color-red (boid-color b))
(color-green (boid-color b))
(color-blue (boid-color b)))))
view-with-boids
population))
(big-bang population (big-bang population
(initial-view view-with-boids) (initial-view view-with-colored-boids)
(on-tick tick 1/20) (on-tick tick 1/20)
(to-draw draw))) (to-draw draw)))