Allow modifiable speed changes

2021-03-26 14:20:13 +00:00
parent fb1d7571e7
commit fb17502781
4 changed files with 8 additions and 2 deletions
@@ -34,6 +34,8 @@ handlePressedKey _    scancode w
    -- Rotation seems to be duplicated here and in Camera.hs ? why
    |  scancode == rotateCameraPlusKey (_keyConfig w) = Just $ w {_cameraRot = _cameraRot w + 0.01}
    |  scancode == rotateCameraMinusKey (_keyConfig w) = Just $ w {_cameraRot = _cameraRot w - 0.01}
+    |  scancode ==   ScancodeF7      = Just $ w {_varMovementSpeedModifier = _varMovementSpeedModifier w - 1}
+    |  scancode ==   ScancodeF8      = Just $ w {_varMovementSpeedModifier = _varMovementSpeedModifier w + 1}
 handlePressedKey _ _ w = Just w