steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Update benchmark.mandel for new colors.hsv

release
Eduardo Cavazos 2007-09-29 13:28:09 -05:00
parent 8c0f4def82
commit ce4486d00f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/benchmark/mandel/mandel.factor
View File

@ -19,8 +19,8 @@ math.functions math.parser io.files colors.hsv ;
: <color-map> ( nb-cols -- map ) : <color-map> ( nb-cols -- map )
dup [ dup [
360 * swap 1+ / 360 / sat val 360 * swap 1+ / sat val
hsv>rgb scale-rgb 3array hsv>rgb first3 scale-rgb
] curry* map ; ] curry* map ;
: iter ( c z nb-iter -- x ) : iter ( c z nb-iter -- x )