Move toward better info display during level generation

2021-11-10 23:40:04 +00:00
parent 9aefc11e17
commit a195157e54
13 changed files with 122 additions and 118 deletions
@@ -51,6 +51,9 @@ diagonalLinesRect pa pb w d ang = zip lhsPoints $ map findDiPoint lhsPoints
 thinHighBar :: Float -> Point2 -> Point2 -> Shape
 thinHighBar = highBar 3

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