Replace buggy circle seg intersection with a simpler test

2024-12-26 21:53:18 +00:00
parent 91ba6ee148
commit 0ef28c132e
29 changed files with 528 additions and 332 deletions
@@ -26,8 +26,10 @@ import qualified IntMapHelp as IM
 import qualified Data.Map.Strict as M

 testStringInit :: Universe -> [String]
-testStringInit u = [show $ u ^. uvDebugFloat1
-    , show $ u ^. uvWorld . input . heldWorldPos . at SDL.ButtonRight]
+testStringInit u = 
+    [show (u ^?! uvWorld . cWorld . lWorld . creatures . ix 0 . crPos)]
+    <>
+    (map show $ u ^.. uvWorld . cWorld . lWorld . projectiles . each . prjPos)
 --testStringInit u = foldMap prettyShort $ u ^. uvWorld . cWorld . lWorld . projectiles
 --    (map (show . _ebPos) $ u ^. uvWorld . cWorld . lWorld . energyBalls)
 --    <>