mandel: use tri@ in scale-rgb

extra/benchmark/mandel/mandel.factor

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