Fix winding of corner points for line blocks

src/Geometry.hs

@@ -204,12 +204,6 @@ isLeftOf x y = isLeftOfA (argV x) (argV y)
 diffAngles :: Float -> Float -> Float
 diffAngles x y = nearZeroAngle $ x - y
 
-mixAngles :: Float -> Float -> Float -> Float
-mixAngles frac a1 a2
-    | abs (a1 - a2) <= pi = normalizeAngle $ frac * a1 + (1 - frac) * a2
-    | a1 > a2 = mixAngles frac (a1 - 2 * pi) a2
-    | otherwise = mixAngles frac (a1 + 2 * pi) a2
-
 -- | Return Just a point if it is inside a circle, Nothing otherwise.
 pointInCircle :: Point2 -> Float -> Point2 -> Maybe Point2
 pointInCircle p r c