Replace buggy circle seg intersection with a simpler test

src/Dodge/Data/Item/Use/Consumption/Ammo.hs

@@ -37,6 +37,7 @@ data ProjectileUpdate
         ,_pjuDetonatorID :: Maybe (NewInt ItmInt)
         ,_pjuScreenID :: Maybe (NewInt ItmInt)
         }
+    | ApplyGravityPU
     deriving (Show, Eq, Ord, Read) --Generic, Flat)
 
 data AmmoType