Wumpus.MicroPrint

MicroPrints

Re-export all MicroPrint.Render

type DrawWordF = (Int, Double) -> (Double, Double) -> RGBi -> DGraphicF

DrawWordF : (num_chars, char_unit_width) * (full_width, full_height) -> rgb -> DGraphicF

The libraries currently provides two styles - greekF and borderedF.

data MicroPrintConfig

Style properties for micro-print drawing.

Constructors

MicroPrintConfig

Fields

char_height :: Double

char_width :: Double

line_spacing :: Double

drawWordF :: DrawWordF

Instances

ReaderM RenderMonad MicroPrintConfig

greekF :: DrawWordF

Draw the word as a single coloured rectangle.

borderedF :: Double -> DrawWordF

Draw the word as a coloured rectangle, with a border grid.

drawMicroPrint :: MicroPrintConfig -> ([Tile], Height) -> Maybe DPicture

Top level rendering functions

renderMicroPrint :: MicroPrintConfig -> MicroPrint a -> Maybe DPicture

Build a picture from a MicroPrint.

This function returns Nothing if the picture is empty.

renderMicroPrintU :: MicroPrintConfig -> MicroPrint a -> DPicture

Build a picture from a MicroPrint - unsafe version.

This function throws a runtime error if the picture is empty.

Re-export some from MicroPrint.DrawMonad

data MicroPrint a

Build a microprint within a monad...

Drawings are made in a teletype fashion emitting a character, space or line-break at each step.

Instances

Monad MicroPrint

Functor MicroPrint

data Tile

Constructors

LineBreak

Space Int

Word RGBi Int

type Height = Int

linebreak :: MicroPrint ()

Emit a linebreak in the output.

setRGB :: RGBi -> MicroPrint ()

Change the current drawing colour.

Note - it is permissible to change colour mid-word, but this is the same as having a no-space break.

char :: MicroPrint ()

Draw a character - note in the microprint, characters will be concatenated together to make a word.

space :: MicroPrint ()

Draw a space.