     B{  10  20  30  40  50  60  70  80  90 100 110 120 130 140 150 160 }
     B{  11  22  33  44  55  66  77  88  99 110 121 132 143 154 165 176 }
     B{  15  25  35  45  55  65  75  85  95 105 115 125 135 145 155 165 }
-    [ vmerge-transpose vmerge-transpose ]
-    data-map( uchar-16 uchar-16 uchar-16 uchar-16 -- uchar-16[4] )
+    fold-rgba-planes
 ] 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 ;

        1.0 0.1 0.2 0.3
        0.3 0.2 0.9 0.5
        0.1 1.0 1.5 2.0
    } float-pixels>byte-pixels
] unit-test

[
