<color-map> ( nb-cols -- map )


Vocabulary
benchmark.mandel.colors

Inputs
nb-colsan object


Outputs
mapan object


Definition
USING: colors colors.hsv kernel math sequences ;

IN: benchmark.mandel.colors

: <color-map> ( nb-cols -- map )
[ <iota> ] keep [ [ 360 * ] ] dip
[ 1 + / sat val 1 <hsva> >rgba scale-rgb ] curry compose map
;