mirror of
https://github.com/reanimate/reanimate.git
synced 2026-09-09 15:12:21 +00:00
19 lines
503 B
Haskell
Executable file
19 lines
503 B
Haskell
Executable file
#!/usr/bin/env stack
|
|
-- stack runghc --package reanimate
|
|
module Main (main) where
|
|
|
|
import Reanimate
|
|
import Reanimate.Builtin.Documentation
|
|
|
|
main :: IO ()
|
|
main = reanimate $ docEnv pathifyExample
|
|
|
|
pathifyExample :: Animation
|
|
pathifyExample = animate $ \t -> gridLayout
|
|
[ [ partialSvg t $ pathify $ mkCircle 1
|
|
, partialSvg t $ pathify $ mkRect 2 2
|
|
]
|
|
, [ partialSvg t $ pathify $ mkEllipse 1 0.5
|
|
, partialSvg t $ pathify $ mkLine (-1, -1) (1, 1)
|
|
]
|
|
]
|