Add objects based on walls, called machines

src/Geometry.hs

@@ -449,10 +449,10 @@ arcStepwisePositive ssize a cen v = (cen +.+) . (`rotateV` v) <$> rots
 
 -- | Given a list of points, returns pairs of points linking the points into a
 -- loop.
-makeLoopPairs :: [Point2] -> [(Point2,Point2)]
-makeLoopPairs [] = error "tried to make loop with empty list of points"
-makeLoopPairs [_] = error "tried to make loop with singleton list of points"
-makeLoopPairs (x:xs) = zip (x:xs) (xs ++ [x])
+loopPairs :: [Point2] -> [(Point2,Point2)]
+loopPairs [] = error "tried to make loop with empty list of points"
+loopPairs [_] = error "tried to make loop with singleton list of points"
+loopPairs (x:xs) = zip (x:xs) (xs ++ [x])
 -- | Test whether a point is in a cone.
 -- Note the pair is ordered.
 -- Doesn't work for obtuse angles.