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