From 5792ec43196a52eaddcfbf5a81a91bbbc8dad95e Mon Sep 17 00:00:00 2001 From: Eduardo Cavazos Date: Sun, 23 Sep 2007 13:20:28 -0500 Subject: [PATCH] boids: Use bi* in 'distance' word --- extra/boids/boids.factor | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/extra/boids/boids.factor b/extra/boids/boids.factor index 397ce6eb5a..e703472e40 100644 --- a/extra/boids/boids.factor +++ b/extra/boids/boids.factor @@ -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 ; ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!