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

Make boids thread friendly

wayo.cavazos 2006-05-29 13:49:33 +00:00
parent 12fea48cc0
commit f275ea6574
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5,7 +5,7 @@
! To run the program: ! To run the program:
! USE: boids setup-window run-boids ! USE: boids setup-window run-boids
USING: namespaces math kernel sequences arrays x11 x ; IN: boids USING: threads namespaces math kernel sequences arrays x11 x ; IN: boids
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@ -263,7 +263,7 @@ SYMBOL: boids
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: iterate-boids ( -- ) : iterate-boids ( -- )
boids get [ iterate-boid ] map boids set ; boids get [ iterate-boid ] map boids set ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@ -271,7 +271,7 @@ SYMBOL: boids
boids get [ draw-boid ] each flush-dpy ; boids get [ draw-boid ] each flush-dpy ;
: run-boids ( -- ) : run-boids ( -- )
iterate-boids clear-window draw-boids run-boids ; iterate-boids clear-window draw-boids 1 sleep run-boids ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! Comments from others: ! Comments from others: