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

Add ctrl-c handler to the renderer. (#56)

Browse source 
Former-commit-id: a2a5146eda2277846d207dea91bd8ea39282ad26
This commit is contained in:
David Himmelstrup 2020-02-19 19:08:43 +08:00 • committed by GitHub
commit 2df8eda745
1 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/Reanimate/Render.hs
View file

@ -121,7 +121,7 @@ generateFrames :: Animation -> Width -> Height -> FPS -> (FilePath -> IO a) -> I
generateFrames ani width_ height_ rate action = withTempDir $ \tmp -> do
done <- newMVar (0::Int)
let frameName nth = tmp </> printf nameTemplate nth
concurrentForM_ frames $ \n -> do
handle h $ concurrentForM_ frames $ \n -> do
writeFile (frameName n) $ renderSvg width height $ nthFrame n
-- runCmd "inkscape"
-- [ "--without-gui"
@ -138,6 +138,11 @@ generateFrames ani width_ height_ rate action = withTempDir $ \tmp -> do
-- action (tmp </> pngTemplate)
action (tmp </> nameTemplate)
where
h UserInterrupt = do
hPutStrLn stderr "\nCtrl-C detected. Trying to generate video with available frames. \
\Hit ctrl-c again to abort."
return ()
h other = throwIO other
width = Just $ Num $ fromIntegral width_
height = Just $ Num $ fromIntegral height_
frames = [0..frameCount-1]