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

boids: minor update

db4
Eduardo Cavazos 2008-06-10 09:04:35 -05:00
parent 911b7cb447
commit e49de2fba0
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/boids/boids.factor
View File

@ -114,7 +114,7 @@ over boid-vel -rot relative-position angle-between ;
{ [ cohesion-radius> in-range? ] { [ cohesion-radius> in-range? ]
[ cohesion-view-angle> in-view? ] [ cohesion-view-angle> in-view? ]
[ eq? not ] } [ eq? not ] }
<--&& ; 2&& ;
: cohesion-neighborhood ( self -- boids ) : cohesion-neighborhood ( self -- boids )
boids> [ within-cohesion-neighborhood? ] with filter ; boids> [ within-cohesion-neighborhood? ] with filter ;
@ -134,7 +134,7 @@ over boid-vel -rot relative-position angle-between ;
{ [ separation-radius> in-range? ] { [ separation-radius> in-range? ]
[ separation-view-angle> in-view? ] [ separation-view-angle> in-view? ]
[ eq? not ] } [ eq? not ] }
<--&& ; 2&& ;
: separation-neighborhood ( self -- boids ) : separation-neighborhood ( self -- boids )
boids> [ within-separation-neighborhood? ] with filter ; boids> [ within-separation-neighborhood? ] with filter ;
@ -154,7 +154,7 @@ over boid-vel -rot relative-position angle-between ;
{ [ alignment-radius> in-range? ] { [ alignment-radius> in-range? ]
[ alignment-view-angle> in-view? ] [ alignment-view-angle> in-view? ]
[ eq? not ] } [ eq? not ] }
<--&& ; 2&& ;
: alignment-neighborhood ( self -- boids ) : alignment-neighborhood ( self -- boids )
boids> [ within-alignment-neighborhood? ] with filter ; boids> [ within-alignment-neighborhood? ] with filter ;