Delete empty unit tests files, remove 1- and 1+, reorder IN: lines in a lot of places...

[factor.git] / basis / ui / pens / gradient / gradient.factor

diff --git a/basis/ui/pens/gradient/gradient.factor b/basis/ui/pens/gradient/gradient.factor
index 485015b898fb35cfd5467bdace3ebead38f693f5..042e2d34466ca7310f36e65a50246991ebbcbb78 100644 (file)
--- a/basis/ui/pens/gradient/gradient.factor
+++ b/basis/ui/pens/gradient/gradient.factor
@@ -14,7 +14,7 @@ TUPLE: gradient < caching-pen colors last-vertices last-colors ;
 
 :: gradient-vertices ( direction dim colors -- seq )
     direction dim v* dim over v- swap
-    colors length dup 1- v/n [ v*n ] with map
+    colors length dup 1 - v/n [ v*n ] with map
     swap [ over v+ 2array ] curry map
     concat concat >float-array ;
 
@@ -43,4 +43,4 @@ M: gradient draw-interior
         [ colors>> draw-gradient ]
     } cleave ;
 
-M: gradient pen-background 2drop transparent ;
\ No newline at end of file
+M: gradient pen-background 2drop transparent ;