Initial implementation of bezier bullet

src/Dodge/Base.hs

@@ -35,6 +35,11 @@ midPadL :: Int -> a -> [a] -> [a] -> [a]
 midPadL i x xs ys = take j (xs ++ repeat x) ++ ys
     where j = i - length ys
 
+takeUntil :: (a -> Bool) -> [a] -> [a]
+takeUntil f ps = case span f ps of
+    (xs,[])    -> xs
+    (xs,(y:_)) -> xs ++ [y]
+
 you :: World -> Creature
 you w = _creatures w IM.! _yourID w