reanimate-0.2.0.0: examples/bug_play1.hs

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

import Reanimate
import Reanimate.Scene

-- This should give circle.
main :: IO ()
main = reanimate $ signalA (constantS 0) $ sceneAnimation $ do
  play $ animate $ const $ mkCircle 1
  play $ animate $ const $ mkRect 1 1