    -- | Display mode is for drawing a static picture.
    module Graphics.Gloss.Interface.Pure.Animate
     	( module Graphics.Gloss.Data.Display
            , module Graphics.Gloss.Data.Picture
    	, module Graphics.Gloss.Data.Color
    	, animate)
    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

    -- | Open a new window and display the given animation.
    --
    --   Once the window is open you can use the same commands as with @display@.
    --
    animate :: Display              -- ^ Display mode.
            -> Color                -- ^ Background color.
            -> (Float -> Picture)   -- ^ Function to produce the next frame of animation.
                                    --      It is passed the time in seconds since the program started.
            -> IO ()

    animate display backColor frameFun
            = animateWithBackendIO
                    defaultBackendState
                    True            -- pannable
                    display backColor
                    (return . frameFun)