tePt :: Double -> Double -> (Double, Double, Double) -> (Double, Double, Double)
rotatePt a b = rotateX a . rotateY b

ro
rotatePt :: Double -> Double -> (Double, Double, Double) -> (Double, Double, Double)
rotatePt a b = rotateX a . rotateY b
rotatePt a b = rotateX a . rotateY b