Cleanup

2023-05-20 15:06:05 +01:00
parent 6c71e1d5bb
commit f2183e9954
25 changed files with 69 additions and 86 deletions
@@ -42,7 +42,7 @@ highDiagonalMesh ::
    Picture
 highDiagonalMesh pa pb w d =
    setDepth 100 $
-        pictures $
+        fold $
            map (thickLine 2 . tflat2) (diagonalLinesRect pb pa w d (3 * pi / 4))
                ++ map (thickLine 2 . tflat2) (diagonalLinesRect pb pc (negate h) d (pi / 4))
  where