textCoordMatrix :: Floating f => f -> f -> f -> f -> f -> f -> M44 f
textCoordMatrix left right top bottom near far =
  let o = orthographicMat left right top bottom near far
      t = translateMat (-1) 1 0
   in t !*! o
textCoordMatrix :: Floating f => f -> f -> f -> f -> f -> f -> M44 f
textCoordMatrix left right top bottom near far =
  let o = orthographicMat left right top bottom near far
      t = translateMat (-1) 1 0
   in t !*! o
textCoordMatrix left right top bottom near far =
  let o = orthographicMat left right top bottom near far
      t = translateMat (-1) 1 0
   in t !*! o