Use frameRate over frames to configure SlideLeft

README.md

@@ -806,7 +806,7 @@ Supported transitions `type`s:
 
     Arguments:
 
-     -  `frames`: number of frames to use.  Defaults to 24.
+     -  `frameRate`: number of frames per second.  Defaults to 24.
      -  `duration`: duration of the animation in seconds.  Defaults to 1.
 
 Trivia

lib/Patat/Transition/SlideLeft.hs

@@ -20,8 +20,8 @@ import           Patat.Transition.Internal
 
 --------------------------------------------------------------------------------
 data Config = Config
-    { cDuration :: Maybe (A.FlexibleNum Double)
-    , cFrames   :: Maybe (A.FlexibleNum Int)
+    { cDuration  :: Maybe (A.FlexibleNum Double)
+    , cFrameRate :: Maybe (A.FlexibleNum Int)
     }
 
 
@@ -31,10 +31,11 @@ slideLeft config (Size rows cols) initial final _rgen =
     fmap (\f -> (f, Duration delay)) $
     frame 0 :| map frame [1 .. frames - 1]
   where
-    duration = fromMaybe 1  $ A.unFlexibleNum <$> cDuration config
-    frames   = fromMaybe 24 $ A.unFlexibleNum <$> cFrames   config
+    duration  = fromMaybe 1  $ A.unFlexibleNum <$> cDuration  config
+    frameRate = fromMaybe 24 $ A.unFlexibleNum <$> cFrameRate config
 
-    delay = duration / fromIntegral (frames + 1)
+    frames = round $ duration * fromIntegral frameRate :: Int
+    delay  = duration / fromIntegral (frames + 1)
 
     frame :: Int -> Matrix
     frame idx = V.create $ do