]> gitweb.factorcode.org Git - factor.git/blobdiff - extra/benchmark/mandel/colors/colors.factor
Delete empty unit tests files, remove 1- and 1+, reorder IN: lines in a lot of places...
[factor.git] / extra / benchmark / mandel / colors / colors.factor
index 9e0f2472e27c4c8563cb51d95c0287ab20bf070b..0300538ce101d0f9d3b07df6039a1fc47ccc3345 100644 (file)
@@ -12,7 +12,7 @@ CONSTANT: val 0.85
 
 : <color-map> ( nb-cols -- map )
     dup [
-        360 * swap 1+ / sat val
+        360 * swap 1 + / sat val
         1 <hsva> >rgba scale-rgb
     ] with map ;