mirror of
https://github.com/reanimate/reanimate.git
synced 2026-09-12 00:23:08 +00:00
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:
parent
248ef257eb
commit
3e371f7627
16 changed files with 1369 additions and 1768 deletions
15
examples/doc_slideLeftT.hs
Executable file
15
examples/doc_slideLeftT.hs
Executable 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
|
||||
Loading…
Reference in a new issue