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

Clean up examples.

Browse source 
Former-commit-id: 03934429a7a98d8c2891452e802e348a0456886a
This commit is contained in:
David Himmelstrup 2019-12-09 21:00:25 +08:00
commit f10bc16726
12 changed files with 72 additions and 79 deletions
Download patch file Download diff file Expand all files Collapse all files

7
examples/tut_glue_latex.hs
View file

@ -3,15 +3,14 @@
{-# LANGUAGE OverloadedStrings #-}
module Main (main) where
import Reanimate
import Codec.Picture
import Codec.Picture.Types
import Control.Lens ((^.))
import Control.Monad
import Data.Monoid
import Graphics.SvgTree
import Reanimate
import Reanimate.Effect
import Reanimate.Scene
import System.Random
import System.Random.Shuffle
@ -89,5 +88,5 @@ drawAnimation' mbSeed fillDur step svg = sceneAnimation $ do
where
shuf lst =
case mbSeed of
Nothing -> lst
Nothing -> lst
Just seed -> shuffle' lst (length lst) (mkStdGen seed)