shotMatrix :: Projection -> Scalar -> Mat44
shotMatrix Perspective { fov, nearPlane, farPlane } screenRatio =
  perspective fov (realToFrac screenRatio) nearPlane farPlane
shotMatrix :: Projection -> Scalar -> Mat44
shotMatrix Perspective { fov, nearPlane, farPlane } screenRatio =
  perspective fov (realToFrac screenRatio) nearPlane farPlane
shotMatrix Perspective { fov, nearPlane, farPlane } screenRatio =
  perspective fov (realToFrac screenRatio) nearPlane farPlane