reanimate-0.2.0.0: examples/doc_unVar.hs

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

import Reanimate
import Reanimate.Builtin.Documentation

main :: IO ()
main = reanimate $ docEnv $ sceneAnimation $ do
  v <- newVar 0
  _ <- newSprite $ mkCircle <$> unVar v
  tweenVar v 1 $ \val -> fromToS val 3
  tweenVar v 1 $ \val -> fromToS val 0