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

Use newest reanimate-svg. (#197)

Browse source
This commit is contained in:
David Himmelstrup 2021-02-20 18:46:26 +08:00 • committed by GitHub
commit 0e580e0fdf
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
14 changed files with 39 additions and 33 deletions
Download patch file Download diff file Expand all files Collapse all files

3
examples/tut_glue_povray.hs
View file

@ -13,7 +13,6 @@ import Codec.Picture
import Codec.Picture.Types
import Control.Lens ((&), (^.))
import Control.Monad
import Data.Monoid
import Data.Text (Text)
import qualified Data.Text as T
import Graphics.SvgTree hiding (Text)
@ -146,7 +145,7 @@ drawAnimation' :: Maybe Int -> Double -> Double -> SVG -> Animation
drawAnimation' mbSeed fillDur step svg = scene $ do
forM_ (zip [0..] $ shuf $ svgGlyphs svg) $ \(n, (fn, attr, tree)) -> do
let sWidth =
case toUserUnit defaultDPI <$> getLast (attr ^. strokeWidth) of
case toUserUnit defaultDPI <$> (attr ^. strokeWidth) of
Just (Num d) -> d
_ -> defaultStrokeWidth
fork $ do