Work on connecting pathfinding grid

2022-07-09 12:36:17 +01:00
parent 9c352e4a83
commit fb66a45495
11 changed files with 16 additions and 32 deletions
@@ -52,7 +52,6 @@ module Dodge.Item.Weapon.TriggerType
    , duplicateLoaded
    , duplicateOffsets
    , duplicateOffsetsV2
-    , duplicateOffsetsV2Dir
    , duplicateOffsetsFocus
    , hammerCheckI
    , hammerCheckL
@@ -610,12 +609,3 @@ duplicateOffsets xs eff item cr w = foldr f w poss
    poss :: [V2 Float]
    poss = map (rotateV (_crDir cr) . V2 0 ) xs
    f pos = eff item (cr & crPos +.+.~ pos)
-
-duplicateOffsetsV2Dir :: [(Point2,Float)] -> ChainEffect
-duplicateOffsetsV2Dir xs eff item cr w = foldr f w 
-    -- $ xs
-     $ map (over _1 (rotateV (_crDir cr))) xs
-  where
-    f (pos,dir) = eff item $ cr 
-        & crPos +.+.~ pos
-        & crDir +~ dir