-- |Read back a camera pose saved in a format compatible with
-- 'writePose'.
readPose :: String -> Maybe Camera
readPose = aux . lines
  where aux [r,t] = Just $ Camera (read r) (read t) 0 (V3 0 1 0)
        aux _ = Nothing

-- |Axes identified in the camera's local coordinate frame expressed
-- as vectors in the global coordinate frame.
readPose :: String -> Maybe Camera
readPose = aux . lines
  where aux [r,t] = Just $ Camera (read r) (read t) 0 (V3 0 1 0)
        aux _ = Nothing

-- |Axes identified in the camera's local coordinate frame expressed
-- as vectors in the global coordinate frame.
readPose = aux . lines
  where aux [r,t] = Just $ Camera (read r) (read t) 0 (V3 0 1 0)
        aux _ = Nothing

-- |Axes identified in the camera's local coordinate frame expressed
-- as vectors in the global coordinate frame.