Implement collisions for bez bullets, creates infinite loop sometimes

src/Dodge/Base.hs

@@ -36,7 +36,7 @@ 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
+takeUntil f ps = case span (not . f) ps of
     (xs,[])    -> xs
     (xs,(y:_)) -> xs ++ [y]
 

src/Picture.hs

@@ -9,6 +9,7 @@ module Picture
     , arcSolid
     , thickArc
     , thickCircle
+    , thickLine
     , circleSolid
     , circleSolidCol
     , circle