From 1995de3513ed7d2f0ab5258239dfc9bc994ab829 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Sat, 14 Apr 2018 15:31:50 +0200
Subject: fix numerical error

---
 trivmix/Trivmix.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
       fps = 200
       interval = 0.2
       frames = interval * fps
-      delay = round $ recip fps * 10e6
+      delay = round $ recip fps * 1e6
       linInt x a b = a * (1 - x) + b * x
     newLevel <- readMVar level
     currentLevel <- readMVar level'
-- 
cgit v1.2.3