mat4TranslateNode :: Mat4 -> Node -> Mat4
mat4TranslateNode mat (Node x y z) =
    case Mat4 1       0     0       0
              0       1     0       0
              0       0     1       0
              (fI x) (fI y) (fI z)  1 of

        mat' -> mat `mappend` mat'
mat4TranslateNode :: Mat4 -> Node -> Mat4
mat4TranslateNode mat (Node x y z) =
    case Mat4 1       0     0       0
              0       1     0       0
              0       0     1       0
              (fI x) (fI y) (fI z)  1 of

        mat' -> mat `mappend` mat'
mat4TranslateNode mat (Node x y z) =
    case Mat4 1       0     0       0
              0       1     0       0
              0       0     1       0
              (fI x) (fI y) (fI z)  1 of

        mat' -> mat `mappend` mat'