resizeTextRendererScreen ::
     ImprovizConfig -> Int -> Int -> TextRenderer -> IO TextRenderer
resizeTextRendererScreen config width height trender =
  let front = config ^. C.screen . CS.front
      back = config ^. C.screen . CS.back
      projectionMatrix =
        textCoordMatrix
          0
          (fromIntegral width)
          0
          (fromIntegral height)
          front
          back
   in do deleteSavebuffer $ outbuffer trender
         nbuffer <-
           createTextDisplaybuffer (fromIntegral width) (fromIntegral height)
         return trender {pMatrix = projectionMatrix, outbuffer = nbuffer}
resizeTextRendererScreen ::
     ImprovizConfig -> Int -> Int -> TextRenderer -> IO TextRenderer
resizeTextRendererScreen config width height trender =
  let front = config ^. C.screen . CS.front
      back = config ^. C.screen . CS.back
      projectionMatrix =
        textCoordMatrix
          0
          (fromIntegral width)
          0
          (fromIntegral height)
          front
          back
   in do deleteSavebuffer $ outbuffer trender
         nbuffer <-
           createTextDisplaybuffer (fromIntegral width) (fromIntegral height)
         return trender {pMatrix = projectionMatrix, outbuffer = nbuffer}
resizeTextRendererScreen config width height trender =
  let front = config ^. C.screen . CS.front
      back = config ^. C.screen . CS.back
      projectionMatrix =
        textCoordMatrix
          0
          (fromIntegral width)
          0
          (fromIntegral height)
          front
          back
   in do deleteSavebuffer $ outbuffer trender
         nbuffer <-
           createTextDisplaybuffer (fromIntegral width) (fromIntegral height)
         return trender {pMatrix = projectionMatrix, outbuffer = nbuffer}