Refactor map, add location arrows

2021-03-26 03:13:18 +01:00
parent d79a8a862e
commit b46adf9898
8 changed files with 192 additions and 144 deletions
@@ -65,8 +65,8 @@ main = do
                      let lastFrameTicks = _frameTimer preData
                      renderFoldable (_renderData preData) 
                                     (picToLTree Nothing . setLayer 1 . setDepth (-1) 
-                                       . translate 0 (-0.8) . scale 0.0005 0.0005 
-                                       . text $ show (endTicks - lastFrameTicks))
+                                       . translate (-0.5) (-0.8) . scale 0.0005 0.0005 
+                                       . text $ "ms/frame " ++ show (endTicks - lastFrameTicks))
                      return $ preData & soundData  .~ newSoundData
                                       & frameTimer .~ endTicks
        )