Cleanup

2026-03-24 09:38:32 +00:00
parent 832bebb597
commit be2f7160ba
13 changed files with 43 additions and 46 deletions
@@ -26,7 +26,7 @@ translateXY x y = pyFaces %~ map (map $ first tran)
    tran (V3 a b c) = V3 (a+x) (b+y) c

 rotateXY :: Float -> Polyhedra -> Polyhedra
-rotateXY a = over pyFaces $ map $ map $ first $ rotate3 a
+rotateXY = over pyFaces . map . map . first . rotate3z

 constructEdges :: [[Point3]] -> [(Point3,Point3,Point3,Point3)]
 constructEdges (face:faces) = mapMaybe (findReverseEdge otherEdges) (faceEdges face)