Improve scope zooming

2022-06-05 00:19:44 +01:00
parent 512bc4c1ab
commit 8e73203db3
9 changed files with 41 additions and 77 deletions
@@ -42,6 +42,7 @@ initialWorld = defaultWorld

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