diff options
author | sternenseemann <git@lukasepple.de> | 2019-05-26 01:02:58 +0200 |
---|---|---|
committer | sternenseemann <git@lukasepple.de> | 2019-05-26 01:02:58 +0200 |
commit | 3bd4ce3d7e5289d2b2acbdc0ef9ce72fa27f05af (patch) | |
tree | 0000ffcccbc60a0c52e885b3699f0facca497460 | |
parent | 664d9993228554a69145d899e12200819b9ab160 (diff) |
make scaling feel more natural
-rw-r--r-- | src/Main.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Main.hs b/src/Main.hs index c418171..9d30370 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -83,7 +83,7 @@ eventHandler (EventKey key Down _ _) state = action state updateLocalMod l f = over (control.ctrlInputs.at LocalMod ._Just.l) f accStep = 1 rotStep = pi / 10 - scaleStep = 0.05 + scaleStep = 1.1 timeStep = 0.2 mod2pi = flip mod' (2 * pi) action = @@ -94,8 +94,8 @@ eventHandler (EventKey key Down _ _) state = action state SpecialKey KeyRight -> updateLocalMod modRot (mod2pi . (subtract rotStep)) SpecialKey KeySpace -> updateLocalMod modFire (const $ state^.control.ctrlTick + 10) Char 'c' -> over (graphics.glossCenterView) not - Char '+' -> over (graphics.glossViewPortScale) (+ scaleStep) - Char '-' -> over (graphics.glossViewPortScale) (subtract scaleStep) + Char '+' -> over (graphics.glossViewPortScale) (* scaleStep) + Char '-' -> over (graphics.glossViewPortScale) (/ scaleStep) Char '.' -> over (control.ctrlTimeScale) (+ timeStep) Char ',' -> over (control.ctrlTimeScale) (boundSub 0 timeStep) _ -> id |