reanimate/examples/bug_play1.hs
David Himmelstrup 4356efbc7e Feature morph (#62)
* Disable windows CI (because of hmatrix)
* Implement ear-clip triangulation.
* Implement common framework for polygon morphing.
* Draft implementations of compatible triangulation and mesh smoothing.
* Implement least-work morphing.
* Implement as-rigid-as-possible morphing.
* Implement SSSP.
* Draft article about polygon morphing.

Former-commit-id: f6f19f58b9dd58c655bcca0ed2d65f72726f0a06
2020-05-14 15:14:29 +08:00

11 lines
281 B
Haskell
Executable file

#!/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