<rotation-matrix3> ( axis theta -- matrix )
Extra matrix operations
Prev:<ortho-matrix4> ( factors -- matrix )
Next:<rotation-matrix4> ( axis theta -- 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-matrix3> ( 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 * + 3array x y * 1.0 c - * z s * + y sq 1.0 y sq - c * +
y z * 1.0 c - * x s * - 3array x z * 1.0 c - * y s * - y z *
1.0 c - * x s * + z sq 1.0 z ~7 more~ ;