boids: Use bi* in 'distance' word

release
Eduardo Cavazos 2007-09-23 13:20:28 -05:00
parent 77d8a844f3
commit 5792ec4319
1 changed files with 3 additions and 1 deletions

View File

@ -68,7 +68,9 @@ VAR: separation-radius
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: distance ( boid boid -- n ) boid-pos swap boid-pos v- norm ;
! : distance ( boid boid -- n ) boid-pos swap boid-pos v- norm ;
: distance ( boid boid -- n ) [ boid-pos ] [ boid-pos ] bi* v- norm ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!