m4. ( a: matrix4 b: matrix4 -- c: matrix4 )

Vocabulary

math.matrices.simd

Inputs

a	a matrix4
b	a matrix4

Outputs

c

a matrix4

Definition

USING: math.matrices.simd.private math.vectors sequences typed ;

IN: math.matrices.simd

TYPED:: m4. ( a: matrix4 b: matrix4 -- c: matrix4 )
    [
        a columns :> ( a1 a2 a3 a4 ) b columns
        :> ( b1 b2 b3 b4 ) b1 first a1 n*v
        :> c1a b2 first a1 n*v :> c2a b3 first a1 n*v
        :> c3a b4 first a1 n*v :> c4a b1 second a2 n*v c1a v+
        :> c1b b2 second a2 n*v c2a v+ :> c2b b3 second a2 n*v
        c3a v+ :> c3b b4 second a2 n*v c4a v+
        :> c4b b1 third a3 n*v c1b v+ :> c1c b2 third a3 n*v
        c2b v+ :> c2c b3 third a3 n*v c3b v+
        :> c3c b4 third a3 n*v c4b v+ :> c4c b1 fourth a4 n*v
        c1c v+ b2 fourth a4 n*v c2c v+ b3 fourth a4 n*v
        c3c ~7 more~
    ] make-matrix4 ;