Start implementing mapper item

2025-01-02 16:26:26 +00:00
parent 8bfaa12ea7
commit e9f5a39ed7
10 changed files with 68 additions and 47 deletions
@@ -309,7 +309,7 @@ intersectCircSeg c r a b
  where
    d = closestPointOnLine a b c
    x = dist d c
-    y = r ** 2 - x ** 2
+    y = r ^ (2::Int) - x ^ (2::Int)
    z = sqrt y
    v = z *.* normalizeV (b -.- a)