1 files changed, 14 insertions, 3 deletions

diff --git a/trivmix/Trivmix.hs b/trivmix/Trivmix.hs
index 0758921..91dd440 100644
--- a/trivmix/Trivmix.hs
+++ b/trivmix/Trivmix.hs
@@ -53,6 +53,7 @@ data Options = Options
                , client :: String
                , initialLevel :: Level
                , initialBalance :: Balance
+               , fps, interval :: Rational
                , run :: [FilePath]
                , balanceFiles :: [FilePath]
                , levelFiles :: [FilePath]
@@ -88,6 +89,18 @@ optionParser = Options
                               <> value def
                               <> showDefault
                                )
+               <*> option auto ( long "fps"
+                              <> metavar "NUMBER"
+                              <> help "Update level ‘NUMBER’ times per second"
+                              <> value 200
+                              <> showDefault
+                               )
+               <*> option auto ( long "interval"
+                              <> metavar "NUMBER"
+                              <> help "Smooth level transitions over ‘NUMBER’ seconds"
+                              <> value 0.2
+                              <> showDefault
+                               )
                <*> many ( strOption ( long "run"
                                    <> metavar "FILE"
                                    <> help [str|Execute a file once setup of jacks is done (use this to autoconnect)
@@ -168,8 +181,6 @@ trivmix Options{..} = do
           notifyReady
           forever $ do -- Smooth out discontinuity
             let
-              fps = 200
-              interval = 0.2
               frames = interval * fps
               delay = round $ recip fps * 1e6
               linInt x a b = a * (1 - x) + b * x
@@ -177,7 +188,7 @@ trivmix Options{..} = do
               mulBalance (bToFloat -> b) x = either error id $ asFloat (*) (Lin . either error id $ refine b) x
             newLevel <- mulBalance <$> readMVar balance <*> readMVar level
             currentLevel <- readMVar level'
-            mapM_ (\x -> swapMVar level' (linInt' x currentLevel newLevel) >> threadDelay delay) ([0,recip frames..1] :: [Float])
+            mapM_ (\(fromRational -> x) -> swapMVar level' (linInt' x currentLevel newLevel) >> threadDelay delay) [0,recip frames..1]
 
 mix :: MVar Level -> CFloat -> IO CFloat
 mix level input = do