sformPoint :: Double -> Double -> Point -> Point
transformPoint a b pt = pt { x = x', y = y', z = z' }
  where
      (x', y', z') = rotatePt a b (x pt, y pt, z pt)

ro
transformPoint :: Double -> Double -> Point -> Point
transformPoint a b pt = pt { x = x', y = y', z = z' }
  where
      (x', y', z') = rotatePt a b (x pt, y pt, z pt)
transformPoint a b pt = pt { x = x', y = y', z = z' }
  where
      (x', y', z') = rotatePt a b (x pt, y pt, z pt)