Cleanup

2025-10-03 20:14:41 +01:00
parent 2d44809900
commit cba3ca784a
13 changed files with 181 additions and 193 deletions
@@ -29,6 +29,7 @@ roomNgon n x = do
    rot = 2 * pi / fromIntegral n
    rots = map ((rot *) . fromIntegral) [0 .. n -1]
    poly = polyOrthDist n x
+    path1 = polyOrthDist n (x-10)
    lnks =
        sortOn ((\(V2 a b) -> (negate b, a)) . fst . snd)
            . zip [0 ..]