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

boids.ui: factor the drawing code a bit

release
Eduardo Cavazos 2007-09-26 15:40:48 -05:00
parent b28dd55121
commit abb4b02b04
1 changed files with 5 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
extra/boids/ui/ui.factor
View File

@ -18,7 +18,7 @@ USING: kernel namespaces
ui.gadgets.packs ui.gadgets.packs
ui.gadgets.grids ui.gadgets.grids
ui.gestures ui.gestures
hashtables.lib vars rewrite-closures boids ; combinators.lib hashtables.lib vars rewrite-closures boids ;
IN: boids.ui IN: boids.ui
@ -26,16 +26,13 @@ IN: boids.ui
! draw-boid ! draw-boid
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: boid-point-a ( boid -- a ) boid-pos ; : point-a ( boid -- a ) boid-pos ;
: boid-point-b ( boid -- b ) dup boid-pos swap boid-vel normalize* 20 v*n v+ ; : point-b ( boid -- b ) [ boid-pos ] [ boid-vel normalize* 20 v*n ] bi v+ ;
: boid-points ( boid -- point-a point-b ) dup boid-point-a swap boid-point-b ; : boid-points ( boid -- point-a point-b ) [ point-a ] [ point-b ] bi ;
: draw-line ( a b -- ) : draw-boid ( boid -- ) boid-points gl-line ;
GL_LINES glBegin first2 glVertex2d first2 glVertex2d glEnd ;
: draw-boid ( boid -- ) boid-points draw-line ;
: draw-boids ( -- ) boids> [ draw-boid ] each ; : draw-boids ( -- ) boids> [ draw-boid ] each ;