Refactor ai

2021-05-12 14:24:31 +02:00
parent 86faf9fd01
commit ead87af3c1
25 changed files with 718 additions and 453 deletions
@@ -268,6 +268,7 @@ nRaysRad n x = take n $ iterate (rotateV (2*pi/fromIntegral n)) (x,0)

 -- | Test whether an angle is to the left of another angle, according to the
 -- smallest change in rotation between them.
+-- This appears to sometimes fail if the angles are not normalized.
 isLeftOfA :: Float -> Float -> Bool
 isLeftOfA angle1 angle2 = 
    (angle1 - angle2 < pi && angle1 > angle2)