Update benchmark.mandel for new colors.hsv

2007-09-29 13:28:09 -05:00 · 2007-09-29 13:28:09 -05:00 · ce4486d00f
parent 8c0f4def82
commit ce4486d00f
1 changed files with 2 additions and 2 deletions
--- a/extra/benchmark/mandel/mandel.factor
+++ b/extra/benchmark/mandel/mandel.factor
@ -19,8 +19,8 @@ math.functions math.parser io.files colors.hsv ;

 : <color-map> ( nb-cols -- map )
    dup [
-        360 * swap 1+ / 360 / sat val
-        hsv>rgb scale-rgb
+        360 * swap 1+ / sat val
+        3array hsv>rgb first3 scale-rgb
    ] curry* map ;

 : iter ( c z nb-iter -- x )