boids.ui: use color objects

diff --git a/extra/boids/ui/ui.factor b/extra/boids/ui/ui.factor
index 38dd9b4f78903a87a645c951cbdf77e005162e72..cd73c67a7104177bbc026e9e3454528d3c143d6e 100755 (executable)
--- a/extra/boids/ui/ui.factor
+++ b/extra/boids/ui/ui.factor
@@ -41,7 +41,7 @@ IN: boids.ui
 
 : draw-boids ( -- ) boids> [ draw-boid ] each ;
 
-: boid-color ( -- color ) { 1.0 0 0 0.3 } ;
+: boid-color ( -- color ) T{ rgba f 1.0 0 0 0.3 } ;
 
 : display ( -- )
   boid-color >fill-color