mirror of
https://github.com/reanimate/reanimate.git
synced 2026-09-12 00:23:08 +00:00
15 lines
436 B
Haskell
Executable file
15 lines
436 B
Haskell
Executable file
#!/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)
|