         1.0 0.1 0.2 0.3
         0.3 0.2 0.9 0.5
         0.1 1.0 1.5 2.0
-    } [
-        [ 255.0 v*n float-4 int-4 vconvert ] 4 napply 
-        [ int-4 short-8 vconvert ] 2bi@
-        short-8 uchar-16 vconvert
-    ] data-map( float-4[4] -- uchar-16 )
+    } float-pixels>byte-pixels
 ] unit-test
 
 [

! (c)Joe Groff bsd license
USING: alien.data.map generalizations kernel math.vectors
math.vectors.conversion math.vectors.simd
specialized-arrays tools.test ;
FROM: alien.c-types => uchar short int float ;
SIMDS: float int short uchar ;

: vmerge-transpose ( a b c d -- ac bd ac bd )
    [ (vmerge) ] bi-curry@ bi* ; inline

: fold-rgba-planes ( r g b a -- rgba )
    [ vmerge-transpose vmerge-transpose ]
    data-map( uchar-16 uchar-16 uchar-16 uchar-16 -- uchar-16[4] ) ;

[
    B{
         1  10  11  15
