trans :: Point -> Matrix
trans (x, y, z) = ((1, 0, 0, x),
                   (0, 1, 0, y),
                   (0, 0, 1, z),
                   (0, 0, 0, 1))
trans :: Point -> Matrix
trans (x, y, z) = ((1, 0, 0, x),
                   (0, 1, 0, y),
                   (0, 0, 1, z),
                   (0, 0, 0, 1))
trans (x, y, z) = ((1, 0, 0, x),
                   (0, 1, 0, y),
                   (0, 0, 1, z),
                   (0, 0, 0, 1))