shotMatrix Ortho { width, near, far, shouldCenter } screenRatio = if shouldCenter
  then ortho (-(width / 2)) (width / 2) (-(height / 2)) (height / 2) near far
  else ortho 0 width 0 height near far
  where height = width / realToFrac screenRatio
shotMatrix Ortho { width, near, far, shouldCenter } screenRatio = if shouldCenter
  then ortho (-(width / 2)) (width / 2) (-(height / 2)) (height / 2) near far
  else ortho 0 width 0 height near far
  where height = width / realToFrac screenRatio
shotMatrix Ortho { width, near, far, shouldCenter } screenRatio = if shouldCenter
  then ortho (-(width / 2)) (width / 2) (-(height / 2)) (height / 2) near far
  else ortho 0 width 0 height near far
  where height = width / realToFrac screenRatio