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

clean up after testing

darcs
wayo.cavazos 2006-02-06 19:43:32 +00:00
parent cc1c072cb6
commit a90ad2b2f1
2 changed files with 0 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
contrib/x11/examples/automata.factor
View File

@ -11,12 +11,10 @@ math-contrib threads strings arrays prettyprint xlib x ;
SYMBOL: rule SYMBOL: rule
! 8 <hashtable> rule set
8 <hashtable> rule set-global 8 <hashtable> rule set-global
SYMBOL: char-0 SYMBOL: char-0
! 48 char-0 set
48 char-0 set-global 48 char-0 set-global
: rule-keys ( -- { ... } ) : rule-keys ( -- { ... } )

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

@ -6,37 +6,24 @@ 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-global SYMBOL: separation-radius 100 separation-radius set-global
SYMBOL: alignment-radius 100 alignment-radius set-global SYMBOL: alignment-radius 100 alignment-radius set-global
SYMBOL: cohesion-radius 100 cohesion-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-global SYMBOL: separation-view-angle 90 separation-view-angle set-global
SYMBOL: alignment-view-angle 90 alignment-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: 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-global SYMBOL: separation-weight 1.0 separation-weight set-global
SYMBOL: alignment-weight 0.5 alignment-weight set-global SYMBOL: alignment-weight 0.5 alignment-weight set-global
SYMBOL: cohesion-weight 1.0 cohesion-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-global SYMBOL: world-size { 400 400 } world-size set-global
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@ -45,7 +32,6 @@ TUPLE: boid pos vel ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! SYMBOL: time-slice 0.5 time-slice set
SYMBOL: time-slice 0.5 time-slice set-global SYMBOL: time-slice 0.5 time-slice set-global
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!