mirror of
https://github.com/reanimate/reanimate.git
synced 2026-09-10 23:52:22 +00:00
4356efbc7e
* 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
14 lines
410 B
Haskell
Executable file
14 lines
410 B
Haskell
Executable file
#!/usr/bin/env stack
|
|
-- stack runghc --package reanimate
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
module Main(main) where
|
|
|
|
import Reanimate
|
|
import Reanimate.Builtin.Documentation
|
|
import qualified Data.Text as T
|
|
|
|
main :: IO ()
|
|
main = reanimate $ docEnv $ sceneAnimation $ do
|
|
now <- play drawCircle *> queryNow
|
|
play $ staticFrame 1 $ scale 2 $ withStrokeWidth 0.05 $
|
|
mkText $ "Now=" <> T.pack (show now)
|