steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

boids: Use 'math.ranges'

db4
Eduardo Cavazos 2008-11-29 20:25:27 -06:00
parent 06821bcb07
commit 6395204720
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/boids/boids.factor
View File

@ -6,6 +6,7 @@ USING: kernel namespaces
math.order math.order
math.vectors math.vectors
math.trig math.trig
math.ranges
combinators arrays sequences random vars combinators arrays sequences random vars
combinators.lib combinators.lib
combinators.short-circuit combinators.short-circuit
@ -61,11 +62,9 @@ VAR: separation-radius
! random-boid and random-boids ! random-boid and random-boids
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: random-range ( a b -- n ) 1+ over - random + ;
: random-pos ( -- pos ) world-size> [ random ] map ; : random-pos ( -- pos ) world-size> [ random ] map ;
: random-vel ( -- vel ) 2 [ drop -10 10 random-range ] map ; : random-vel ( -- vel ) 2 [ drop -10 10 [a,b] random ] map ;
: random-boid ( -- boid ) random-pos random-vel <boid> ; : random-boid ( -- boid ) random-pos random-vel <boid> ;