skew-matrix4 ( theta -- matrix )


Vocabulary
math.matrices

Definition
USING: locals math.functions ;

IN: math.matrices

:: skew-matrix4 ( theta -- matrix )
theta tan :> zf {
{ 1.0 0.0 0.0 0.0 }
{ 0.0 1.0 0.0 0.0 }
{ 0.0 zf 1.0 0.0 }
{ 0.0 0.0 0.0 1.0 }
} ;