calcCameraMatrix :: Size Int -> Mat44
calcCameraMatrix size@(Size w _h) =
  let proj = Ortho (realToFrac w) 1 100 True
      camera = Camera proj (V3 0 0 10) zero (V3 0 1 0)
  in viewProjectionMatrix camera (aspectRatio size)
calcCameraMatrix :: Size Int -> Mat44
calcCameraMatrix size@(Size w _h) =
  let proj = Ortho (realToFrac w) 1 100 True
      camera = Camera proj (V3 0 0 10) zero (V3 0 1 0)
  in viewProjectionMatrix camera (aspectRatio size)
calcCameraMatrix size@(Size w _h) =
  let proj = Ortho (realToFrac w) 1 100 True
      camera = Camera proj (V3 0 0 10) zero (V3 0 1 0)
  in viewProjectionMatrix camera (aspectRatio size)