module Graphics.Gloss.Interface.IO.Animate
( module Graphics.Gloss.Data.Display
, module Graphics.Gloss.Data.Picture
, module Graphics.Gloss.Data.Color
, animateIO)
where
import Graphics.Gloss.Data.Display
import Graphics.Gloss.Data.Picture
import Graphics.Gloss.Data.Color
import Graphics.Gloss.Internals.Interface.Animate
import Graphics.Gloss.Internals.Interface.Backend
animateIO :: Display
-> Color
-> (Float -> IO Picture)
-> IO ()
animateIO display backColor frameFunIO
= animateWithBackendIO
defaultBackendState display backColor
frameFunIO