translation-matrix4 ( offset -- matrix )


Vocabulary
math.matrices

Definition
USING: locals sequences ;

IN: math.matrices

:: translation-matrix4 ( offset -- matrix )
offset first3 :> ( x y z ) {
{ 1.0 0.0 0.0 x }
{ 0.0 1.0 0.0 y }
{ 0.0 0.0 1.0 z }
{ 0.0 0.0 0.0 1.0 }
} ;