Test aggressive object culling

2022-06-17 20:14:47 +01:00
parent f365f18ee8
commit 261bb0bb6b
11 changed files with 38 additions and 16 deletions
@@ -42,6 +42,7 @@ initialWorld = defaultWorld

 testStringInit :: World -> [String]
 testStringInit = const [] -- map (show . _mcTermMID) . IM.elems . _machines
+--testStringInit w = [show $ _cameraZoom w]
 --testStringInit = (:[]) . show . _testFloat
 --testStringInit = map (concatMap $ \(_,ct,_,_) -> show ct) . invertListInvMult . yourInv
 --testStringInit w = fmap (show . _crHammerPosition) . IM.elems $ _creatures w