imj-base-0.1.0.2: example/Main.hs

{- | This application runs in the terminal, and shows animated text examples.

In particular, it shows examples using these functions:

* 'mkSequentialTextTranslationsCharAnchored' / 'renderAnimatedTextCharAnchored'
* 'mkSequentialTextTranslationsStringAnchored' / 'renderAnimatedTextStringAnchored'
-}

module Main where

import           Control.Monad.Reader(runReaderT)

import           Imj.Graphics.Render.Delta(runThenRestoreConsoleSettings, newDefaultEnv)

import           Imj.Example.SequentialTextTranslationsAnchored

main :: IO ()
main = do
  runThenRestoreConsoleSettings $
    newDefaultEnv
      >>= runReaderT exampleOfsequentialTextTranslationsAnchored