(rotation-matrix4) ( diagonal triangle-hi triangle-lo -- matrix )


Vocabulary
math.matrices.simd

Inputs
diagonalan object
triangle-hian object
triangle-loan object


Outputs
matrixan object


Definition
USING: classes.struct kernel math.matrices.simd.private
math.vectors math.vectors.simd ;

IN: math.matrices.simd

:: (rotation-matrix4)
( diagonal triangle-hi triangle-lo -- matrix )
matrix4 (struct) :> triangle-m diagonal scale-matrix4
:> diagonal-m triangle-hi { 3 2 1 3 } vshuffle triangle-hi
{ 3 3 0 3 } vshuffle triangle-lo { 2 3 3 3 } vshuffle vbitor
triangle-lo { 1 0 3 3 } vshuffle
float-4 new triangle-m set-columns drop
diagonal-m triangle-m m4+ ; inline