mat4-multiply ( a b -- c )

Vocabulary

ui.render

Inputs

a	an object
b	an object

Outputs

c

an object

Definition

USING: math sequences
specialized-arrays.instances.alien.c-types.float ;

IN: ui.render

:: mat4-multiply ( a b -- c )
    16 <float-array> :> c 4 <iota> [| row |
        4 <iota> [| col |
            0.0 4 <iota>
            [| k | k 4 * row + a nth col 4 * k + b nth * + ]
            each col 4 * row + c set-nth
        ] each
    ] each c ;