LiveCoding.Gloss

Documentation

module LiveCoding.Gloss.PictureM

module LiveCoding.Gloss.Debugger

module Graphics.Gloss.Interface.IO.Game

module Graphics.Gloss

data GlossSettings

Collect all settings that the gloss backend requires. Taken from rhine-gloss.

Constructors

GlossSettings

Fields

• displaySetting :: Display

  Display mode (e.g. InWindow or FullScreen).

• backgroundColor :: Color

  Background color.

• stepsPerSecond :: Int

  Number of simulation steps per second of real time.

• debugEvents :: Bool

  Print all incoming events to the console.

data GlossVars

The concurrent variables needed to communicate with the gloss thread.

Constructors

GlossVars

Fields

• glossEventsRef :: IORef [Event]

  Stores all Events that arrived since the last tick

• glossPicRef :: IORef Picture

  Stores the next Picture to be painted

• glossDTimeVar :: MVar Float

  Stores the time passed since the last tick

• glossExitRef :: IORef Bool

  Write True here to stop the gloss thread

data GlossHandle

In a Handle, store a separate thread where the gloss main loop is executed, and several concurrent variables to communicate with it.

Constructors

GlossHandle

Fields

• glossThread :: ThreadId
• glossVars :: GlossVars

defaultSettings :: GlossSettings

glossHandle :: GlossSettings -> Handle IO GlossHandle

Will create a handle for communication with the gloss thread, and start gloss.

getPicture :: GlossVars -> IO Picture

handleEvent :: Bool -> Event -> GlossVars -> IO GlossVars

stepGloss :: Float -> GlossVars -> IO GlossVars

glossWrapC :: GlossSettings -> Cell PictureM a b -> Cell (HandlingStateT IO) a (Maybe b)

Given a cell in the gloss monad PictureM, start the gloss backend and connect the cell to it.

This introduces Handles containing the gloss background thread, which need to be taken care of by calling runHandlingState or a similar function.

The resulting cell never blocks, but returns Nothing if there currently is no gloss tick.