-USING: math math.order kernel arrays byte-arrays sequences
-colors.hsv accessors colors fry benchmark.mandel.params ;
+USING: math math.order kernel byte-arrays sequences
+colors.hsv accessors colors benchmark.mandel.params ;
IN: benchmark.mandel.colors
: scale ( x -- y ) 255 * >fixnum ; inline
CONSTANT: val 0.85
: <color-map> ( nb-cols -- map )
- [ iota ] keep '[
+ [ <iota> ] keep '[
360 * _ 1 + / sat val
1 <hsva> >rgba scale-rgb
] map ;