diff options
author | sternenseemann <git@lukasepple.de> | 2019-06-06 15:18:34 +0200 |
---|---|---|
committer | sternenseemann <git@lukasepple.de> | 2019-06-06 15:18:34 +0200 |
commit | 87763a472658fdeda88f4695d405da94a1f37def (patch) | |
tree | 0b578bbd829d279e2111dd958dbbba8f54f5ae68 | |
parent | 9d81c6aa86a3ede94795f0aa33eb5990b3440390 (diff) |
increase timeStep to 1
-rw-r--r-- | src/Main.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Main.hs b/src/Main.hs index 4e95e32..8fc4fcc 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -50,7 +50,7 @@ renderUi :: (PrintfArg a, Num a) => State a GlossState -> Picture renderUi state = (uncurry translate) (homBimap ((+ 50) . (* (-1)) . (/ 2) . fromIntegral) . view (graphics . glossViewPort) $ state) . scale 0.2 0.2 . Color green . Text $ uiText - where uiText = printf "Acceleration: %.0f TimeScale: %.1f Tick: %d" acc timeScale tick + where uiText = printf "Acceleration: %.0f TimeScale: %.0f Tick: %d" acc timeScale tick acc = fromMaybe 0 $ state^?control.ctrlInputs.at LocalMod ._Just.modAcc timeScale = state^.control.ctrlTimeScale tick = state^.control^.ctrlTick @@ -86,7 +86,7 @@ eventHandler (EventKey key Down _ _) state = action state accStep = 1 rotStep = pi / 10 scaleStep = 1.1 - timeStep = 0.2 + timeStep = 1.0 mod2pi = flip mod' (2 * pi) action = case key of |