Start work on crafting/combinations

src/Dodge/WorldEvent/Shockwave.hs

@@ -70,7 +70,7 @@ mvShockwave is w pt
     damCr cr 
         | _crID cr `elem` is || dist (_crPos cr) p >= rad + _crRad cr  = cr
         | otherwise = cr & crState . crDamage %~
-            (PushDam dam (25 * push *.* safeNormalizeV (_crPos cr -.- p)) : )
+            (PushDam dam (25 * push *.* squashNormalizeV (_crPos cr -.- p)) : )
 {- Create a shockwave going from an outside circle into a center point.  -}
 inverseShockwaveAt 
     :: Point2   -- Center position
@@ -109,7 +109,7 @@ moveInverseShockwave w pt
     damCr cr 
         | dist (_crPos cr) p >= rad + _crRad cr = cr
         | otherwise = cr & crState . crDamage %~
-            (PushDam 1 (25 *.* safeNormalizeV (p -.- _crPos cr)) :)
+            (PushDam 1 (25 *.* squashNormalizeV (p -.- _crPos cr)) :)
 
 drawInverseShockwave :: Particle -> Picture
 drawInverseShockwave  pt 

src/Dodge/WorldEvent/SpawnParticle.hs

@@ -109,7 +109,7 @@ moveFlame rotd w pt
         , _btPos' = pOut p
         , _btVel' = reflV wl
         }
-    pOut p = p +.+ safeNormalizeV (sp -.- p)
+    pOut p = p +.+ squashNormalizeV (sp -.- p)
     reflV wall = (0.3 *.* reflectIn (uncurry (-.-) . swap $ _wlLine wall) vel )
         +.+ (0.2 *.* vel)