renderText :: Int -> Int -> TextRenderer -> String -> IO ()
renderText xpos ypos renderer strings =
  let (Savebuffer fbo _ _ _ _) = outbuffer renderer
      height = textAreaHeight renderer
   in do GL.bindFramebuffer Framebuffer $= fbo
         renderCharacters xpos (height - ypos) renderer strings
         printErrors
renderText :: Int -> Int -> TextRenderer -> String -> IO ()
renderText xpos ypos renderer strings =
  let (Savebuffer fbo _ _ _ _) = outbuffer renderer
      height = textAreaHeight renderer
   in do GL.bindFramebuffer Framebuffer $= fbo
         renderCharacters xpos (height - ypos) renderer strings
         printErrors
renderText xpos ypos renderer strings =
  let (Savebuffer fbo _ _ _ _) = outbuffer renderer
      height = textAreaHeight renderer
   in do GL.bindFramebuffer Framebuffer $= fbo
         renderCharacters xpos (height - ypos) renderer strings
         printErrors