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

Fix warnings.

Browse source 
Former-commit-id: b922c1e63b3d7d36a322f3d1ddce662c8565851f
This commit is contained in:
David Himmelstrup 2019-12-05 19:02:42 +08:00
commit 503b7f67d4
2 changed files with 25 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

26
examples/tut_glue_povray.hs
View file

@ -1,25 +1,25 @@
#!/usr/bin/env stack
-- stack runghc --package reanimate
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE QuasiQuotes #-}
{-# LANGUAGE QuasiQuotes #-}
module Main (main) where
import Codec.Picture
import Codec.Picture.Types
import Control.Lens ((^.))
import Control.Monad
import Data.Monoid
import Data.String.Here
import Data.Text (Text)
import Graphics.SvgTree hiding (Text)
import Reanimate
import Reanimate.Scene
import Reanimate.Animation
import Reanimate.Effect
import Reanimate.Povray
import Reanimate.Raster
import Reanimate.Effect
import Data.String.Here
import Graphics.SvgTree hiding (Text)
import Data.Text (Text)
import Codec.Picture
import Reanimate.Scene
import System.Random
import System.Random.Shuffle
import Control.Lens ((^.))
import Data.Monoid
import Control.Monad
import Codec.Picture.Types
main :: IO ()
@ -27,7 +27,7 @@ main = reanimate $ parA bg $ sceneAnimation $ do
zPos <- newVar 0
xRot <- newVar 0
zRot <- newVar 0
s <- newSprite $ do
_ <- newSprite $ do
transZ <- freezeVar zPos
getX <- freezeVar xRot
getZ <- freezeVar zRot
@ -156,5 +156,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)

26
examples/tut_glue_povray_ortho.hs
View file

@ -1,26 +1,25 @@
#!/usr/bin/env stack
-- stack runghc --package reanimate
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE QuasiQuotes #-}
{-# LANGUAGE QuasiQuotes #-}
module Main (main) where
import Codec.Picture
import Codec.Picture.Types
import Control.Lens ((^.))
import Control.Monad
import Data.Monoid
import Data.String.Here
import Data.Text (Text)
import Graphics.SvgTree hiding (Text)
import Reanimate
import Reanimate.Scene
import Reanimate.Animation
import Reanimate.Effect
import Reanimate.Povray
import Reanimate.Raster
import Data.String.Here
import Data.Text (Text)
import Codec.Picture
import Reanimate.Effect
import Reanimate.Scene
import System.Random
import System.Random.Shuffle
import Graphics.SvgTree hiding (Text)
import Control.Lens ((^.))
import Control.Monad
import Codec.Picture.Types
import Data.Monoid
main :: IO ()
@ -28,7 +27,7 @@ main = reanimate $ parA bg $ sceneAnimation $ do
xRot <- newVar (-30)
yRot <- newVar 180
zRot <- newVar 0
s <- newSprite $ do
_ <- newSprite $ do
getX <- freezeVar xRot
getY <- freezeVar yRot
getZ <- freezeVar zRot
@ -153,7 +152,6 @@ latexExample = sceneAnimation $ do
withStrokeColor "black" svg
svg = lowerTransformations $ simplify $ scale 2 $ center $
latexAlign "\\sum_{k=1}^\\infty {1 \\over k^2} = {\\pi^2 \\over 6}"
bg = animate $ const $ mkBackgroundPixel (PixelRGBA8 252 252 252 0xFF)
shuffleList lst = shuffle' lst (length lst) (mkStdGen 0xdeadbeef)
highlightE :: Effect
@ -197,5 +195,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)