reanimate-1.0.0.0: examples/bug_play2.hs

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

import Reanimate

-- This should give rect.
main :: IO ()
main = reanimate $ signalA (constantS 0.5) $ scene $ do
  play $ animate $ const $ mkCircle 1
  play $ animate $ const $ mkRect 1 1