diff options
| -rw-r--r-- | trivmix/Trivmix.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/trivmix/Trivmix.hs b/trivmix/Trivmix.hs index 2cd1252..f7c1b48 100644 --- a/trivmix/Trivmix.hs +++ b/trivmix/Trivmix.hs | |||
| @@ -123,7 +123,7 @@ trivmix Options{..} = do | |||
| 123 | linInt x a b = a * (1 - x) + b * x | 123 | linInt x a b = a * (1 - x) + b * x |
| 124 | newLevel <- readMVar level | 124 | newLevel <- readMVar level |
| 125 | currentLevel <- readMVar level' | 125 | currentLevel <- readMVar level' |
| 126 | mapM_ (\x -> swapMVar level' (asFloat (linInt x) currentLevel newLevel) >> threadDelay delay) ([0..frames] :: [Float]) | 126 | mapM_ (\x -> swapMVar level' (asFloat (linInt x) currentLevel newLevel) >> threadDelay delay) ([0,recip frames..1] :: [Float]) |
| 127 | let withFiles = foldl (.) id $ map (\f -> onStateFile f (show initialLevel ++ "\n")) levelFiles | 127 | let withFiles = foldl (.) id $ map (\f -> onStateFile f (show initialLevel ++ "\n")) levelFiles |
| 128 | withFiles $ withINotify $ \inotify -> do | 128 | withFiles $ withINotify $ \inotify -> do |
| 129 | handleFiles inotify level levelFiles | 129 | handleFiles inotify level levelFiles |