From 00e40e2b970a30005851640a4d77c4174cb5c60a Mon Sep 17 00:00:00 2001
From: David <lemmih@gmail.com>
Date: Wed, 13 Feb 2019 21:41:41 +0100
Subject: [PATCH] Add rendering function for gifs.

---
 src/Reanimate/Render.hs | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)

diff --git a/src/Reanimate/Render.hs b/src/Reanimate/Render.hs
index 286a917..d745130 100644
--- a/src/Reanimate/Render.hs
+++ b/src/Reanimate/Render.hs
@@ -13,6 +13,9 @@ import Reanimate.Examples
 fps :: Int
 fps = 60
 
+fps_gif :: Int
+fps_gif = 25
+
 nameTemplate :: String
 nameTemplate = "render-%05d.svg"
 
@@ -37,6 +40,26 @@ render ani target = do
   return ()
 
 
+renderGif :: Ani () -> FilePath -> IO ()
+renderGif ani target = do
+  putStrLn $ "Starting render of animation: " ++ show (round (getDuration ani)) ++ "s"
+  let frames :: Int
+      frames = round (getDuration ani * fromIntegral fps_gif)
+  ffmpeg <- requireExecutable "ffmpeg"
+  tmp <- getTemporaryDirectory
+  forM_ [0..frames] $ \frame -> do
+    let s = fromIntegral frame / fromIntegral fps_gif
+    let fileName = printf nameTemplate frame
+    renderToFile (tmp </> fileName) (frameAt s ani)
+  rawSystem ffmpeg ["-f", "image2", "-i", tmp </> "render-%05d.svg"
+                   ,"-r", show fps_gif
+                   , target]
+     `finally`
+       forM_ [0..frames] (\frame -> do
+         let fileName = printf nameTemplate frame
+         removeFile (tmp </> fileName))
+  return ()
+
 requireExecutable :: String -> IO FilePath
 requireExecutable exec = do
   mbPath <- findExecutable exec