ffmpeg-light 0.12.2.1 → 0.12.2.2

raw patch · 3 files changed

+14/−3 lines, 3 filesdep ~base

Dependency ranges changed: base

Files

• CHANGELOG.md +3/−0
• demo/VPlay.hs +10/−2
• ffmpeg-light.cabal +1/−1

@@ -1,3 +1,6 @@+# 0.12.2.2+* Fix a video playback framerate issue in the `vplay` demo (@gelisam)+ # 0.12.2 * Better support for ffmpeg-3.4.2 API changes 

@@ -15,6 +15,8 @@ import Data.ByteString.Unsafe (unsafePackCStringFinalizer) import Data.Text (Text) +import Data.IORef+ import Foreign.C.Types import Foreign.Ptr @@ -195,18 +197,21 @@    (renderTexture, getTexture, cleanup) <- textureReader src +  -- First frame begins.+  timeRef <- liftIO . newIORef =<< SDL.time+   liftIO $ whileJust_ (nothingOnQuit getTexture) $     \ (next, time) -> do        {- Rendering. -}        -- Rendering start time.-      rStartTime <- SDL.time+      rStartTime <- liftIO $ readIORef timeRef        renderTexture next        -- Finish time of rendering.-      rFinishTime <- SDL.time+      rFinishTime <- SDL.time :: IO Double        {- Synchronizing. -} @@ -219,6 +224,9 @@       when ( time > 0 && rTotalTime < frameTime) $ do         -- Sleep their difference.         SDL.delay $ frameTime - rTotalTime++      -- Next frame begins.+      liftIO . writeIORef timeRef =<< SDL.time    {- Cleanup. -} 

@@ -1,5 +1,5 @@ name:                ffmpeg-light-version:             0.12.2.1+version:             0.12.2.2 synopsis:            Minimal bindings to the FFmpeg library.  description:         Stream frames from an encoded video, or stream frames to