mirror of
https://github.com/reanimate/reanimate.git
synced 2026-09-12 00:23:08 +00:00
12 lines
304 B
Haskell
Executable file
12 lines
304 B
Haskell
Executable file
#!/usr/bin/env stack
|
|
-- stack runghc --package reanimate
|
|
module Main(main) where
|
|
|
|
import Reanimate
|
|
import Reanimate.Scene
|
|
|
|
-- This should give rect.
|
|
main :: IO ()
|
|
main = reanimate $ signalA (constantS 0.5) $ sceneAnimation $ do
|
|
play $ animate $ const $ mkCircle 1
|
|
play $ animate $ const $ mkRect 1 1
|