teY :: Double -> (Double, Double, Double) -> (Double, Double, Double)
rotateY a (x, y, z) = (x, co * y - si * z, co * z + si * y)
   where co = cos a
         si = sin a

zS
rotateY :: Double -> (Double, Double, Double) -> (Double, Double, Double)
rotateY a (x, y, z) = (x, co * y - si * z, co * z + si * y)
   where co = cos a
         si = sin a
rotateY a (x, y, z) = (x, co * y - si * z, co * z + si * y)
   where co = cos a
         si = sin a