utGlowing :: LayoutFunc -> LayoutFunc -> LayoutFuncGlowing
stringToLayoutGlowing funcBack funcFront fname xy fsize text = do
  (layB, _, _) <- stringToLayout fname funcBack xy fsize text
  (lay, lw, lh) <- stringToLayout fname funcFront xy fsize text
  return (layB, lay, lw, lh)

renderLayo
stringToLayoutGlowing :: LayoutFunc -> LayoutFunc -> LayoutFuncGlowing
stringToLayoutGlowing funcBack funcFront fname xy fsize text = do
  (layB, _, _) <- stringToLayout fname funcBack xy fsize text
  (lay, lw, lh) <- stringToLayout fname funcFront xy fsize text
  return (layB, lay, lw, lh)
stringToLayoutGlowing funcBack funcFront fname xy fsize text = do
  (layB, _, _) <- stringToLayout fname funcBack xy fsize text
  (lay, lw, lh) <- stringToLayout fname funcFront xy fsize text
  return (layB, lay, lw, lh)