renderCharacterBGQuad ::
     TextRenderer -> Character -> Int -> Int -> Font -> IO (Int, Int)
renderCharacterBGQuad renderer (Character _ _ _ adv _ _ _) = renderCharacterSpace renderer adv
renderCharacterBGQuad ::
     TextRenderer -> Character -> Int -> Int -> Font -> IO (Int, Int)
renderCharacterBGQuad renderer (Character _ _ _ adv _ _ _) = renderCharacterSpace renderer adv
renderCharacterBGQuad renderer (Character _ _ _ adv _ _ _) = renderCharacterSpace renderer adv