rasterific-svg-0.1: exec-src/benching.hs

import Criterion
import Criterion.Main
import Control.Applicative( (<$>) )
import Graphics.Text.TrueType( emptyFontCache )
import Graphics.Svg
import Graphics.Rasterific.Svg

main :: IO ()
main = do
  f <- loadSvgFile "test/tiger.svg"
  {-cache <- loadCreateFontCache-}
  case f of
     Nothing -> putStrLn "Error while loading SVG"
     Just doc -> do
       let loader = fst <$> renderSvgDocument emptyFontCache Nothing 96 doc
       defaultMainWith defaultConfig
            [ bench "Tiger render" $ whnfIO loader ]