mirror of
https://github.com/reanimate/reanimate.git
synced 2026-09-12 00:23:08 +00:00
3e371f7627
* Add slide transitions. Co-authored-by: eveyyp <55053150+eveyyp@users.noreply.github.com> Former-commit-id: afa93f45f8d0f556ad73e349091f0226ce173eed
15 lines
453 B
Haskell
Executable file
15 lines
453 B
Haskell
Executable file
#!/usr/bin/env stack
|
|
-- stack runghc --package reanimate
|
|
module Main(main) where
|
|
|
|
import Reanimate
|
|
import Reanimate.Builtin.Documentation
|
|
import Reanimate.Builtin.Slide
|
|
import Reanimate.Transition
|
|
|
|
main :: IO ()
|
|
main = reanimate $ docEnv $ signalT (curveS 2) slideLeftT left right
|
|
where
|
|
left = drawCircle
|
|
right = staticFrame 1 (withFillOpacity 1 $ mkBackground "black") `parA`
|
|
mapA (flipXAxis . withStrokeColor "white") drawCircle
|