reanimate-0.3.2.0: examples/bug_play1.hs

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

import Reanimate

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