processing.shapes: fix rectangle.

diff --git a/extra/processing/shapes/shapes.factor b/extra/processing/shapes/shapes.factor
index f18fe2e52347064a8c41167ca2170cb3ebaa6d69..a3bd5e72d6d20d25d89098e1dcc0602ec11a4cc0 100644 (file)
--- a/extra/processing/shapes/shapes.factor
+++ b/extra/processing/shapes/shapes.factor
@@ -1,7 +1,6 @@
-
-USING: alien.c-types alien.data arrays colors grouping kernel
-locals math math.vectors namespaces opengl opengl.gl opengl.glu
-sequences sequences.generalizations shuffle ;
+USING: alien.c-types alien.data arrays colors.constants grouping
+kernel locals math math.vectors namespaces opengl opengl.gl
+opengl.glu sequences sequences.generalizations shuffle ;
 IN: processing.shapes
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@@ -13,8 +12,8 @@ IN: processing.shapes
 SYMBOL: fill-color
 SYMBOL: stroke-color
 
-T{ rgba f 0 0 0 1 } stroke-color set-global
-T{ rgba f 1 1 1 1 } fill-color   set-global
+COLOR: black stroke-color set-global
+COLOR: white fill-color set-global
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
@@ -81,8 +80,8 @@ T{ rgba f 1 1 1 1 } fill-color   set-global
 
     x y 2array
     x dx + y 2array
-    x y dy + 2array
     x dx + y dy + 2array
+    x y dy + 2array
     4array
     polygon ;