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

mandel: use tri@ in scale-rgb

db4
Eduardo Cavazos 2008-07-04 10:52:50 -05:00
parent fc9e87db1c
commit 1fa98e2121
1 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,7 +1,8 @@
IN: benchmark.mandel
USING: arrays io kernel math math.order namespaces sequences USING: arrays io kernel math math.order namespaces sequences
byte-arrays byte-vectors math.functions math.parser io.files byte-arrays byte-vectors math.functions math.parser io.files
colors.hsv io.encodings.binary ; colors.hsv io.encodings.binary ;
IN: benchmark.mandel
: max-color 360 ; inline : max-color 360 ; inline
: zoom-fact 0.8 ; inline : zoom-fact 0.8 ; inline
@ -12,8 +13,7 @@ colors.hsv io.encodings.binary ;
: scale 255 * >fixnum ; inline : scale 255 * >fixnum ; inline
: scale-rgb ( r g b -- n ) : scale-rgb ( r g b -- n ) [ scale ] tri@ 3array ;
rot scale rot scale rot scale 3array ;
: sat 0.85 ; inline : sat 0.85 ; inline
: val 0.85 ; inline : val 0.85 ; inline