diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2018-04-14 15:31:50 +0200 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2018-04-14 15:31:50 +0200 |
| commit | 1995de3513ed7d2f0ab5258239dfc9bc994ab829 (patch) | |
| tree | 49be90f52814fbe0d71c2fb812e975692e1b53ad | |
| parent | 6b2a21404d2a4fa2c17c4cf36defe0623016b025 (diff) | |
| download | trivmix-1995de3513ed7d2f0ab5258239dfc9bc994ab829.tar trivmix-1995de3513ed7d2f0ab5258239dfc9bc994ab829.tar.gz trivmix-1995de3513ed7d2f0ab5258239dfc9bc994ab829.tar.bz2 trivmix-1995de3513ed7d2f0ab5258239dfc9bc994ab829.tar.xz trivmix-1995de3513ed7d2f0ab5258239dfc9bc994ab829.zip | |
fix numerical error
| -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 493c964..084da7f 100644 --- a/trivmix/Trivmix.hs +++ b/trivmix/Trivmix.hs | |||
| @@ -128,7 +128,7 @@ trivmix Options{..} = do | |||
| 128 | fps = 200 | 128 | fps = 200 |
| 129 | interval = 0.2 | 129 | interval = 0.2 |
| 130 | frames = interval * fps | 130 | frames = interval * fps |
| 131 | delay = round $ recip fps * 10e6 | 131 | delay = round $ recip fps * 1e6 |
| 132 | linInt x a b = a * (1 - x) + b * x | 132 | linInt x a b = a * (1 - x) + b * x |
| 133 | newLevel <- readMVar level | 133 | newLevel <- readMVar level |
| 134 | currentLevel <- readMVar level' | 134 | currentLevel <- readMVar level' |