mirror of
https://github.com/reanimate/reanimate.git
synced 2026-09-12 00:23:08 +00:00
More haddock docs. (#131)
* More haddock docs. * Remove unused imports. * Replace '#' with '&' from Control.Lens
This commit is contained in:
parent
b6975d705d
commit
d1b0a50e51
36 changed files with 310 additions and 142 deletions
|
|
@ -6,7 +6,8 @@ module Main(main) where
|
|||
|
||||
import Codec.Picture
|
||||
import Codec.Picture.Types
|
||||
import Graphics.SvgTree (LineJoin (..))
|
||||
import Control.Lens ((&))
|
||||
import Graphics.SvgTree (LineJoin (..))
|
||||
import Reanimate
|
||||
import Reanimate.Morph.Common
|
||||
import Reanimate.Morph.Linear
|
||||
|
|
@ -31,8 +32,8 @@ main = reanimate $
|
|||
spriteE toS $ overBeginning 0.2 fadeInE
|
||||
spriteE toS $ overEnding 0.2 fadeOutE
|
||||
m <- fork $ newSpriteA $ animate (morph linear from to)
|
||||
# signalA (curveS 4)
|
||||
# mapA (translate (-4) 0)
|
||||
& signalA (curveS 4)
|
||||
& mapA (translate (-4) 0)
|
||||
wait 4
|
||||
destroySprite m
|
||||
destroySprite toS
|
||||
|
|
|
|||
Loading…
Reference in a new issue