reanimate-0.2.0.0: examples/image.hs

#!/usr/bin/env stack
-- stack runghc --package reanimate
module Main (main) where

import           Reanimate
import qualified Graphics.SvgTree            as Svg
import           Control.Lens                ((&), (.~))
import           Graphics.SvgTree

main :: IO ()
main = reanimate $ animate $ const $
    ImageTree $ defaultSvg
          & Svg.imageCornerUpperLeft .~ (Svg.Num (-w/2), Svg.Num (-h/2))
          & Svg.imageWidth .~ Svg.Num w
          & Svg.imageHeight .~ Svg.Num h
          & Svg.imageHref .~ ("file://"++src)


  where
    w = screenWidth
    h = screenHeight
    src = "/home/lemmih/Coding/Haskell/reanimate/examples/haskell.svg"