-- | Display mode is for drawing a static picture.
module Graphics.Gloss.Interface.Pure.Display
        ( module Graphics.Gloss.Data.Display
        , module Graphics.Gloss.Data.Picture
        , module Graphics.Gloss.Data.Color
        , display)
where
import Graphics.Gloss.Data.Display
import Graphics.Gloss.Data.Picture
import Graphics.Gloss.Data.Color
import Graphics.Gloss.Internals.Interface.Display
import Graphics.Gloss.Internals.Interface.Backend


-- | Open a new window and display the given picture.
display :: Display          -- ^ Display mode.
        -> Color            -- ^ Background color.
        -> Picture          -- ^ The picture to draw.
        -> IO ()

display :: Display -> Color -> Picture -> IO ()
display Display
dis Color
backColor Picture
picture
        = GLUTState
-> Display -> Color -> IO Picture -> (Controller -> IO ()) -> IO ()
forall a.
Backend a =>
a
-> Display -> Color -> IO Picture -> (Controller -> IO ()) -> IO ()
displayWithBackend
                GLUTState
defaultBackendState
                Display
dis
                Color
backColor
                (Picture -> IO Picture
forall (m :: * -> *) a. Monad m => a -> m a
return Picture
picture)
                (IO () -> Controller -> IO ()
forall a b. a -> b -> a
const (() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()))