Narrated animation about color theory (#84)

* Add slide transitions.

Co-authored-by: eveyyp <55053150+eveyyp@users.noreply.github.com>
Former-commit-id: afa93f45f8d0f556ad73e349091f0226ce173eed
This commit is contained in:
David Himmelstrup 2020-06-02 20:14:47 +08:00 committed by GitHub
commit 3e371f7627
16 changed files with 1369 additions and 1768 deletions

15
examples/doc_slideLeftT.hs Executable file
View file

@ -0,0 +1,15 @@
#!/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