boids.ui: Add workaround for display glitch

db4
Eduardo Cavazos 2008-07-28 01:41:49 -05:00
parent d2352a15e6
commit 4f10ed4aaf
1 changed files with 1 additions and 2 deletions

View File

@ -36,6 +36,7 @@ IN: boids.ui
dup pos>> gl-translate-2d
vel>> first2 rect> arg rad>deg 0 0 1 glRotated
{ { 0 5 } { 0 -5 } { 20 0 } } triangle
fill-mode
glPopMatrix ;
: draw-boids ( -- ) boids> [ draw-boid ] each ;
@ -43,9 +44,7 @@ IN: boids.ui
: boid-color ( -- color ) { 1.0 0 0 0.3 } ;
: display ( -- )
white gl-clear
boid-color >fill-color
2 glLineWidth
draw-boids ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!