justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

start debug mode

Browse Source
This commit is contained in:
Ross
2021-03-30 22:43:40 +01:00
parent e264857831
commit 5e885b879b
2 changed files with 24 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files
app/Main.hs
+11 -6
View File
@@ -69,12 +69,17 @@ main = do
endTicks <- SDL.ticks endTicks <- SDL.ticks
let lastFrameTicks = _frameTimer preData let lastFrameTicks = _frameTimer preData
renderFoldable if (_debugMode w) then
(_renderData preData) renderFoldable
(picToLTree Nothing . setLayer 1 . setDepth (-1) (_renderData preData)
. translate (-0.5) (-0.8) . scale 0.0005 0.0005 (picToLTree Nothing . setLayer 1 . setDepth (-1)
. text $ "ms/frame " ++ show (endTicks - lastFrameTicks) . translate (-0.5) (-0.8) . scale 0.0005 0.0005
) . text $ "ms/frame " ++ show (endTicks - lastFrameTicks)
)
else
-- ? Why (or rather how to avoid)
return endTicks
return $ preData & soundData .~ newSoundData return $ preData & soundData .~ newSoundData
& frameTimer .~ endTicks & frameTimer .~ endTicks
) )
src/Dodge/Event/Keyboard.hs
+13 -4
View File
@@ -44,12 +44,21 @@ handlePressedKey _ scancode w
| scancode == rotateCameraPlusKey (_keyConfig w) = Just $ w {_cameraRot = _cameraRot w + 0.01} | scancode == rotateCameraPlusKey (_keyConfig w) = Just $ w {_cameraRot = _cameraRot w + 0.01}
| scancode == rotateCameraMinusKey (_keyConfig w) = Just $ w {_cameraRot = _cameraRot w - 0.01} | scancode == rotateCameraMinusKey (_keyConfig w) = Just $ w {_cameraRot = _cameraRot w - 0.01}
| scancode == ScancodeF11 = Just $ w {_debugMode = not $ _debugMode w} | scancode == ScancodeF11 = Just $ w {_debugMode = not $ _debugMode w}
| _debugMode w && scancode == ScancodeF7 = Just $ w {_varMovementSpeedModifier = _varMovementSpeedModifier w - 1} | _debugMode w = debugKey scancode w
| _debugMode w && scancode == ScancodeF8 = Just $ w {_varMovementSpeedModifier = _varMovementSpeedModifier w + 1} -- | _debugMode w && scancode == ScancodeF7 = Just $ w {_varMovementSpeedModifier = _varMovementSpeedModifier w - 1}
| _debugMode w && scancode == ScancodeF5 = Just $ dropLight w -- | _debugMode w && scancode == ScancodeF8 = Just $ w {_varMovementSpeedModifier = _varMovementSpeedModifier w + 1}
| _debugMode w && scancode == ScancodeF6 = Just $ dropLight' w -- | _debugMode w && scancode == ScancodeF5 = Just $ dropLight w
-- | _debugMode w && scancode == ScancodeF6 = Just $ dropLight' w
handlePressedKey _ _ w = Just w handlePressedKey _ _ w = Just w
debugKey :: Scancode -> World -> Maybe World
debugKey scancode w
| scancode == ScancodeF7 = Just $ w {_varMovementSpeedModifier = _varMovementSpeedModifier w - 1}
| scancode == ScancodeF8 = Just $ w {_varMovementSpeedModifier = _varMovementSpeedModifier w + 1}
| scancode == ScancodeF5 = Just $ dropLight w
| scancode == ScancodeF6 = Just $ dropLight' w
debugKey _ w = Just w
spaceAction :: World -> World spaceAction :: World -> World
spaceAction w = case listToMaybe $ _closeActiveObjects w of spaceAction w = case listToMaybe $ _closeActiveObjects w of
Just (Left flit) -> pickUpItem' flit w Just (Left flit) -> pickUpItem' flit w