<rotation-matrix4> ( axis theta -- matrix )
Extra matrix operations
Prev:<rotation-matrix3> ( axis theta -- matrix )
Next:<scale-matrix3> ( factors -- matrix )


Vocabulary
math.matrices.extras

Inputs
axisan object
thetaan object


Outputs
matrixan object


Definition
USING: arrays math math.functions sequences ;

IN: math.matrices.extras

:: <rotation-matrix4> ( axis theta -- matrix )
theta cos :> c theta sin :> s axis first3 :> ( x y z ) x sq
1.0 x sq - c * + x y * 1.0 c - * z s * - x z * 1.0 c - *
y s * + 0 4array x y * 1.0 c - * z s * + y sq 1.0 y sq - c *
+ y z * 1.0 c - * x s * - 0 4array x z * 1.0 c - * y s * -
y z * 1.0 c - * x s * + z sq ~11 more~ ;