mirror of
https://github.com/reanimate/reanimate.git
synced 2026-09-16 18:42:21 +00:00
Deploying to gh-pages from @ 41d6a1d9f1 🚀
This commit is contained in:
Lemmih
parent
a36ae34f44
commit
c6271acbe5
4 changed files with 71 additions and 59 deletions
|
|
@ -17,62 +17,74 @@ span.spaces { background: white }
|
|||
<span class="decl"><span class="nottickedoff">never executed</span> <span class="tickonlytrue">always true</span> <span class="tickonlyfalse">always false</span></span>
|
||||
</pre>
|
||||
<pre>
|
||||
<span class="lineno"> 1 </span>module Reanimate.Builtin.Images
|
||||
<span class="lineno"> 2 </span> ( svgLogo
|
||||
<span class="lineno"> 3 </span> , haskellLogo
|
||||
<span class="lineno"> 4 </span> , githubIcon
|
||||
<span class="lineno"> 5 </span> , githubWhiteIcon
|
||||
<span class="lineno"> 6 </span> , smallEarth
|
||||
<span class="lineno"> 7 </span> ) where
|
||||
<span class="lineno"> 1 </span>{-|
|
||||
<span class="lineno"> 2 </span>Module : Reanimate.Builtin.Images
|
||||
<span class="lineno"> 3 </span>Copyright : Written by David Himmelstrup
|
||||
<span class="lineno"> 4 </span>License : Unlicense
|
||||
<span class="lineno"> 5 </span>Maintainer : lemmih@gmail.com
|
||||
<span class="lineno"> 6 </span>Stability : experimental
|
||||
<span class="lineno"> 7 </span>Portability : POSIX
|
||||
<span class="lineno"> 8 </span>
|
||||
<span class="lineno"> 9 </span>import Codec.Picture
|
||||
<span class="lineno"> 10 </span>import qualified Data.ByteString as B
|
||||
<span class="lineno"> 11 </span>import Graphics.SvgTree (parseSvgFile)
|
||||
<span class="lineno"> 12 </span>import Paths_reanimate
|
||||
<span class="lineno"> 13 </span>import Reanimate.Animation
|
||||
<span class="lineno"> 14 </span>import Reanimate.Svg
|
||||
<span class="lineno"> 15 </span>import System.IO.Unsafe
|
||||
<span class="lineno"> 16 </span>
|
||||
<span class="lineno"> 17 </span>embedImage :: FilePath -> IO SVG
|
||||
<span class="lineno"> 18 </span><span class="decl"><span class="istickedoff">embedImage key = do</span>
|
||||
<span class="lineno"> 19 </span><span class="spaces"> </span><span class="istickedoff">svg_file <- getDataFileName key</span>
|
||||
<span class="lineno"> 20 </span><span class="spaces"> </span><span class="istickedoff">svg_data <- B.readFile svg_file</span>
|
||||
<span class="lineno"> 21 </span><span class="spaces"> </span><span class="istickedoff">case parseSvgFile <span class="nottickedoff">svg_file</span> svg_data of</span>
|
||||
<span class="lineno"> 22 </span><span class="spaces"> </span><span class="istickedoff">Nothing -> <span class="nottickedoff">error "Malformed svg"</span></span>
|
||||
<span class="lineno"> 23 </span><span class="spaces"> </span><span class="istickedoff">Just svg -> return $ embedDocument svg</span></span>
|
||||
<span class="lineno"> 24 </span>
|
||||
<span class="lineno"> 25 </span>loadJPG :: FilePath -> Image PixelRGBA8
|
||||
<span class="lineno"> 26 </span><span class="decl"><span class="nottickedoff">loadJPG key = unsafePerformIO $ do</span>
|
||||
<span class="lineno"> 27 </span><span class="spaces"> </span><span class="nottickedoff">jpg_file <- getDataFileName key</span>
|
||||
<span class="lineno"> 28 </span><span class="spaces"> </span><span class="nottickedoff">dat <- B.readFile jpg_file</span>
|
||||
<span class="lineno"> 29 </span><span class="spaces"> </span><span class="nottickedoff">case decodeJpeg dat of</span>
|
||||
<span class="lineno"> 30 </span><span class="spaces"> </span><span class="nottickedoff">Left err -> error err</span>
|
||||
<span class="lineno"> 31 </span><span class="spaces"> </span><span class="nottickedoff">Right img -> return $ convertRGBA8 img</span></span>
|
||||
<span class="lineno"> 32 </span>
|
||||
<span class="lineno"> 33 </span>{- HLINT ignore svgLogo -}
|
||||
<span class="lineno"> 34 </span>-- | <<docs/gifs/doc_svgLogo.gif>>
|
||||
<span class="lineno"> 35 </span>svgLogo :: SVG
|
||||
<span class="lineno"> 36 </span><span class="decl"><span class="istickedoff">svgLogo = unsafePerformIO $ embedImage "data/svg-logo.svg"</span></span>
|
||||
<span class="lineno"> 37 </span>
|
||||
<span class="lineno"> 38 </span>{- HLINT ignore haskellLogo -}
|
||||
<span class="lineno"> 39 </span>-- | <<docs/gifs/doc_haskellLogo.gif>>
|
||||
<span class="lineno"> 40 </span>haskellLogo :: SVG
|
||||
<span class="lineno"> 41 </span><span class="decl"><span class="istickedoff">haskellLogo = unsafePerformIO $ embedImage "data/haskell.svg"</span></span>
|
||||
<span class="lineno"> 42 </span>
|
||||
<span class="lineno"> 43 </span>{- HLINT ignore githubIcon -}
|
||||
<span class="lineno"> 44 </span>-- | <<docs/gifs/doc_githubIcon.gif>>
|
||||
<span class="lineno"> 45 </span>githubIcon :: SVG
|
||||
<span class="lineno"> 46 </span><span class="decl"><span class="istickedoff">githubIcon = unsafePerformIO $ embedImage "data/github-icon.svg"</span></span>
|
||||
<span class="lineno"> 47 </span>
|
||||
<span class="lineno"> 48 </span>{-# NOINLINE githubWhiteIcon #-}
|
||||
<span class="lineno"> 49 </span>githubWhiteIcon :: SVG
|
||||
<span class="lineno"> 50 </span><span class="decl"><span class="nottickedoff">githubWhiteIcon = unsafePerformIO $ embedImage "data/github-icon-white.svg"</span></span>
|
||||
<span class="lineno"> 51 </span>
|
||||
<span class="lineno"> 52 </span>-- | 300x150 equirectangular earth
|
||||
<span class="lineno"> 53 </span>--
|
||||
<span class="lineno"> 54 </span>-- <<docs/gifs/doc_smallEarth.gif>>
|
||||
<span class="lineno"> 55 </span>smallEarth :: Image PixelRGBA8
|
||||
<span class="lineno"> 56 </span><span class="decl"><span class="nottickedoff">smallEarth = loadJPG "data/small_earth.jpg"</span></span>
|
||||
<span class="lineno"> 9 </span>Collection of built-in images.
|
||||
<span class="lineno"> 10 </span>
|
||||
<span class="lineno"> 11 </span>-}
|
||||
<span class="lineno"> 12 </span>module Reanimate.Builtin.Images
|
||||
<span class="lineno"> 13 </span> ( svgLogo
|
||||
<span class="lineno"> 14 </span> , haskellLogo
|
||||
<span class="lineno"> 15 </span> , githubIcon
|
||||
<span class="lineno"> 16 </span> , githubWhiteIcon
|
||||
<span class="lineno"> 17 </span> , smallEarth
|
||||
<span class="lineno"> 18 </span> ) where
|
||||
<span class="lineno"> 19 </span>
|
||||
<span class="lineno"> 20 </span>import Codec.Picture
|
||||
<span class="lineno"> 21 </span>import qualified Data.ByteString as B
|
||||
<span class="lineno"> 22 </span>import Graphics.SvgTree (parseSvgFile)
|
||||
<span class="lineno"> 23 </span>import Paths_reanimate
|
||||
<span class="lineno"> 24 </span>import Reanimate.Animation
|
||||
<span class="lineno"> 25 </span>import Reanimate.Svg
|
||||
<span class="lineno"> 26 </span>import System.IO.Unsafe
|
||||
<span class="lineno"> 27 </span>
|
||||
<span class="lineno"> 28 </span>embedImage :: FilePath -> IO SVG
|
||||
<span class="lineno"> 29 </span><span class="decl"><span class="istickedoff">embedImage key = do</span>
|
||||
<span class="lineno"> 30 </span><span class="spaces"> </span><span class="istickedoff">svg_file <- getDataFileName key</span>
|
||||
<span class="lineno"> 31 </span><span class="spaces"> </span><span class="istickedoff">svg_data <- B.readFile svg_file</span>
|
||||
<span class="lineno"> 32 </span><span class="spaces"> </span><span class="istickedoff">case parseSvgFile <span class="nottickedoff">svg_file</span> svg_data of</span>
|
||||
<span class="lineno"> 33 </span><span class="spaces"> </span><span class="istickedoff">Nothing -> <span class="nottickedoff">error "Malformed svg"</span></span>
|
||||
<span class="lineno"> 34 </span><span class="spaces"> </span><span class="istickedoff">Just svg -> return $ embedDocument svg</span></span>
|
||||
<span class="lineno"> 35 </span>
|
||||
<span class="lineno"> 36 </span>loadJPG :: FilePath -> Image PixelRGBA8
|
||||
<span class="lineno"> 37 </span><span class="decl"><span class="nottickedoff">loadJPG key = unsafePerformIO $ do</span>
|
||||
<span class="lineno"> 38 </span><span class="spaces"> </span><span class="nottickedoff">jpg_file <- getDataFileName key</span>
|
||||
<span class="lineno"> 39 </span><span class="spaces"> </span><span class="nottickedoff">dat <- B.readFile jpg_file</span>
|
||||
<span class="lineno"> 40 </span><span class="spaces"> </span><span class="nottickedoff">case decodeJpeg dat of</span>
|
||||
<span class="lineno"> 41 </span><span class="spaces"> </span><span class="nottickedoff">Left err -> error err</span>
|
||||
<span class="lineno"> 42 </span><span class="spaces"> </span><span class="nottickedoff">Right img -> return $ convertRGBA8 img</span></span>
|
||||
<span class="lineno"> 43 </span>
|
||||
<span class="lineno"> 44 </span>{- HLINT ignore svgLogo -}
|
||||
<span class="lineno"> 45 </span>-- | <<docs/gifs/doc_svgLogo.gif>>
|
||||
<span class="lineno"> 46 </span>svgLogo :: SVG
|
||||
<span class="lineno"> 47 </span><span class="decl"><span class="istickedoff">svgLogo = unsafePerformIO $ embedImage "data/svg-logo.svg"</span></span>
|
||||
<span class="lineno"> 48 </span>
|
||||
<span class="lineno"> 49 </span>{- HLINT ignore haskellLogo -}
|
||||
<span class="lineno"> 50 </span>-- | <<docs/gifs/doc_haskellLogo.gif>>
|
||||
<span class="lineno"> 51 </span>haskellLogo :: SVG
|
||||
<span class="lineno"> 52 </span><span class="decl"><span class="istickedoff">haskellLogo = unsafePerformIO $ embedImage "data/haskell.svg"</span></span>
|
||||
<span class="lineno"> 53 </span>
|
||||
<span class="lineno"> 54 </span>{- HLINT ignore githubIcon -}
|
||||
<span class="lineno"> 55 </span>-- | <<docs/gifs/doc_githubIcon.gif>>
|
||||
<span class="lineno"> 56 </span>githubIcon :: SVG
|
||||
<span class="lineno"> 57 </span><span class="decl"><span class="istickedoff">githubIcon = unsafePerformIO $ embedImage "data/github-icon.svg"</span></span>
|
||||
<span class="lineno"> 58 </span>
|
||||
<span class="lineno"> 59 </span>{-# NOINLINE githubWhiteIcon #-}
|
||||
<span class="lineno"> 60 </span>-- | <<docs/gifs/doc_githubWhiteIcon.gif>>
|
||||
<span class="lineno"> 61 </span>githubWhiteIcon :: SVG
|
||||
<span class="lineno"> 62 </span><span class="decl"><span class="nottickedoff">githubWhiteIcon = unsafePerformIO $ embedImage "data/github-icon-white.svg"</span></span>
|
||||
<span class="lineno"> 63 </span>
|
||||
<span class="lineno"> 64 </span>-- | 300x150 equirectangular earth
|
||||
<span class="lineno"> 65 </span>--
|
||||
<span class="lineno"> 66 </span>-- <<docs/gifs/doc_smallEarth.gif>>
|
||||
<span class="lineno"> 67 </span>smallEarth :: Image PixelRGBA8
|
||||
<span class="lineno"> 68 </span><span class="decl"><span class="nottickedoff">smallEarth = loadJPG "data/small_earth.jpg"</span></span>
|
||||
|
||||
</pre>
|
||||
</body>
|
||||
|
|
|
|||
Loading…
Reference in a new issue