Reorganise rendering in Dodge

2021-04-01 11:28:53 +02:00
parent e62ff391a5
commit 1e9a07d1c8
13 changed files with 217 additions and 113 deletions
@@ -167,6 +167,7 @@ moveFlamelet w pt
                     & btPassThrough' .~ Nothing
                     & btVel'         .~ 0.8 *.* vel
    damcrs = foldr ($) w $ map dodam $ filter closeCrs $ IM.elems $ _creatures w
+--    damcrs = w
    closeCrs cr = dist ep (_crPos cr) < _crRad cr + size
    dodam cr = over (creatures . ix (_crID cr) . crState . crDamage)
                    ((:) $ Flaming 3 sp ep ep)
@@ -17,7 +17,7 @@ thingsHit sp ep w
    where 
          hitCrs   = IM.elems $ IM.filter (\cr -> circOnLine sp ep (_crPos cr) (_crRad cr))
                                            $ _creatures w
-                                           -- $ creaturesAlongLine sp ep w
+--                                            $ creaturesAlongLine sp ep w
          crPs     = map (\cr -> ssaTriPoint ep (_crPos cr) sp (_crRad cr)) hitCrs
          crs   = zip crPs (map E3x1 hitCrs)