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
display :: Display
-> Color
-> Picture
-> 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 ()))