From d4c30ddfc80d541271d2cdfab133fb974a321fbb Mon Sep 17 00:00:00 2001 From: "wayo.cavazos" Date: Fri, 3 Feb 2006 06:52:03 +0000 Subject: [PATCH] port to 80 --- contrib/x11/examples/boids.factor | 36 +++++++++++++++++++++---------- 1 file changed, 25 insertions(+), 11 deletions(-) diff --git a/contrib/x11/examples/boids.factor b/contrib/x11/examples/boids.factor index c55fc9f1f6..2c9ec01089 100644 --- a/contrib/x11/examples/boids.factor +++ b/contrib/x11/examples/boids.factor @@ -6,25 +6,38 @@ USING: namespaces math kernel sequences arrays xlib x ; ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! -SYMBOL: separation-radius 100 separation-radius set -SYMBOL: alignment-radius 100 alignment-radius set -SYMBOL: cohesion-radius 100 cohesion-radius set +! SYMBOL: separation-radius 100 separation-radius set +! SYMBOL: alignment-radius 100 alignment-radius set +! SYMBOL: cohesion-radius 100 cohesion-radius set + +SYMBOL: separation-radius 100 separation-radius set-global +SYMBOL: alignment-radius 100 alignment-radius set-global +SYMBOL: cohesion-radius 100 cohesion-radius set-global ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! -SYMBOL: separation-view-angle 90 separation-view-angle set -SYMBOL: alignment-view-angle 90 alignment-view-angle set -SYMBOL: cohesion-view-angle 90 cohesion-view-angle set +! SYMBOL: separation-view-angle 90 separation-view-angle set +! SYMBOL: alignment-view-angle 90 alignment-view-angle set +! SYMBOL: cohesion-view-angle 90 cohesion-view-angle set + +SYMBOL: separation-view-angle 90 separation-view-angle set-global +SYMBOL: alignment-view-angle 90 alignment-view-angle set-global +SYMBOL: cohesion-view-angle 90 cohesion-view-angle set-global ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! -SYMBOL: separation-weight 1.0 separation-weight set -SYMBOL: alignment-weight 0.5 alignment-weight set -SYMBOL: cohesion-weight 1.0 cohesion-weight set +! SYMBOL: separation-weight 1.0 separation-weight set +! SYMBOL: alignment-weight 0.5 alignment-weight set +! SYMBOL: cohesion-weight 1.0 cohesion-weight set + +SYMBOL: separation-weight 1.0 separation-weight set-global +SYMBOL: alignment-weight 0.5 alignment-weight set-global +SYMBOL: cohesion-weight 1.0 cohesion-weight set-global ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! -SYMBOL: world-size { 400 400 } world-size set +! SYMBOL: world-size { 400 400 } world-size set +SYMBOL: world-size { 400 400 } world-size set-global ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! @@ -32,7 +45,8 @@ TUPLE: boid pos vel ; ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! -SYMBOL: time-slice 0.5 time-slice set +! SYMBOL: time-slice 0.5 time-slice set +SYMBOL: time-slice 0.5 time-slice set-global ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! random-boid and random-boids