reanimate-0.2.0.0: examples/parameters.hs

#!/usr/bin/env stack
-- stack runghc --package reanimate
module Main (main) where

import           Reanimate
import qualified Data.Text as T

main :: IO ()
main = reanimate $ animate $ const $
    mkText $ T.pack $ "Test parameters: " ++ show (pFPS, pWidth, pHeight)