movable_objects2
nek0 1 year ago
parent d7373e0c28
commit 26e6825d0e
  1. 5
      src/Physics/Classes/Collidible.hs
  2. 6
      src/Scenes/Test/Update.hs

@ -184,10 +184,7 @@ class (Show c, Mass c) => Collidible c where
"Unhandled combination of collision check results: "
<> (fromString $ show x)
in
-- res
if tx < 0 || ty < 0
then A.log A.Debug ("PING!") res
else res
res
-- case res of
-- Collision _ _ ->
-- A.log A.Debug "colliding!" res

@ -31,8 +31,6 @@ update
update level dt = liftIO $ do
logIO Debug ("FPS: " <> fromString (show $ 1 / dt))
-- Let all Actors update themselves and check for collisions
-- (Typeclasses rock!)
atomically $ do
lmap <- readTMVar (testMap level)
cast <-
@ -94,10 +92,8 @@ update level dt = liftIO $ do
in
(aindex, res)
in
tangibles `V.update` (A.log A.Debug
("Partner: " <> (fromString $ show collisionPartners))
tangibles `V.update`
(V.map updater collisionPartners)
)
(newCast, newPowerups, mnewCat@(Just _)) = V.foldl
(\acc@(castAcc, puAcc, mcat) input ->
case input of

Loading…
Cancel
Save