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

Fix orientation of embedded images.

Browse source 
Former-commit-id: 3960c99008abdb2f1798747844b2177feb2221c7
This commit is contained in:
David Himmelstrup 2019-09-29 14:42:48 +08:00
commit 2a65cfb012
2 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
examples/raster.hs
View file

@ -9,7 +9,7 @@ main :: IO ()
main = reanimate $ mkAnimation 5 $ \t ->
mkGroup
[ mkBackground "black"
, rotate (t*360) $ center $ scaleToWidth 6 $ embedImage img
, rotate (t*360) $ scaleToWidth 6 $ embedImage img
]
where
img = generateImage pixelRenderer 255 255

4
src/Reanimate/Raster.hs
View file

@ -16,6 +16,7 @@ import Graphics.SvgTree (Number (..), Tree (..),
import qualified Graphics.SvgTree as Svg
import Reanimate.Misc
import Reanimate.Animation
import Reanimate.Svg.Constructors
import System.FilePath
import System.IO
import System.IO.Temp
@ -30,8 +31,9 @@ embedImage img = embedPng width height (encodePng img)
height = fromIntegral $ imageHeight img
embedPng :: Double -> Double -> LBS.ByteString -> Tree
embedPng w h png =
embedPng w h png = flipYAxis $
ImageTree $ defaultSvg
& Svg.imageCornerUpperLeft .~ (Svg.Num (-w/2), Svg.Num (-h/2))
& Svg.imageWidth .~ Svg.Num w
& Svg.imageHeight .~ Svg.Num h
& Svg.imageHref .~ ("data:image/png;base64," ++ imgData)