reanimate-0.2.0.0: examples/doc_queryNow.hs

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

import Reanimate
import Reanimate.Builtin.Documentation
import Data.Monoid ((<>))
import qualified Data.Text as T

main :: IO ()
main = reanimate $ docEnv $ sceneAnimation $ do
    now <- play drawCircle *> queryNow
    play $ staticFrame 1 $ scale 2 $ withStrokeWidth 0.05 $
      mkText $ "Now=" <> T.pack (show now)