hashirama/reanimate
Watch
1
0
Fork
You've already forked reanimate
 0
mirror of https://github.com/reanimate/reanimate.git synced 2026-09-12 00:23:08 +00:00
Code Issues Projects Releases Wiki Activity

Fix warnings.

Browse source 
Former-commit-id: 80717c0e5a3da249878effb05d3cd374f99ac538
This commit is contained in:
David Himmelstrup 2019-12-03 23:25:02 +08:00
commit 1abb71e14d
2 changed files with 1 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

5
examples/tut_glue_latex.hs
View file

@ -9,9 +9,7 @@ import Control.Lens ((^.))
import Control.Monad
import Data.Monoid
import Graphics.SvgTree
import Linear.V2
import Reanimate
import Reanimate.Animation
import Reanimate.Effect
import Reanimate.Scene
import System.Random
@ -82,11 +80,10 @@ drawAnimation' mbSeed fillDur step svg = sceneAnimation $ do
fork $ do
wait (n*step+(1-fillDur))
newSprite $ do
return $ \_real_t d t ->
return $ \_real_t _d t ->
withStrokeWidth 0 $ fn $ withFillOpacity (min 1 $ t/fillDur) tree
where
shuf lst =
case mbSeed of
Nothing -> lst
Just seed -> shuffle' lst (length lst) (mkStdGen seed)
len = fromIntegral $ length $ svgGlyphs svg