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

port to 80

darcs
wayo.cavazos 2006-02-03 06:52:03 +00:00
parent 65a5744091
commit d4c30ddfc8
1 changed files with 25 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
contrib/x11/examples/boids.factor
View File

@ -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