Move toward indexed external placements

2021-11-15 19:36:31 +00:00
parent 59dc24aff6
commit a7f2b5f3ea
9 changed files with 63 additions and 32 deletions
@@ -47,8 +47,11 @@ diagonalLinesRect pa pb w d ang = zip lhsPoints $ map findDiPoint lhsPoints
 thinHighBar :: Float -> Point2 -> Point2 -> Shape
 thinHighBar = highBar 3

+thinHighBarLoop :: Float -> [Point2] -> Shape
+thinHighBarLoop h = foldMap (uncurry $ thinHighBar h) . loopPairs
+
 thinHighBarChain :: Float -> [Point2] -> Shape
-thinHighBarChain h = foldMap (uncurry $ thinHighBar h) . loopPairs
+thinHighBarChain h = foldMap (uncurry $ thinHighBar h) . chainPairs

 thickHighBar :: Float -> Point2 -> Point2 -> Shape
 thickHighBar = highBar 5