Tweak picture layers

2021-07-21 17:52:38 +02:00
parent 0aa437d035
commit 9f37ecb204
13 changed files with 134 additions and 80 deletions
@@ -83,7 +83,7 @@ boxABC a b c =
    faceNA = rhombus c b

 polyToPics :: Polyhedra -> [Picture]
-polyToPics = map (Poly3D 0) . _pyFaces
+polyToPics = map (Poly3D) . _pyFaces

 polysToPic :: [Polyhedra] -> Picture
 polysToPic = pictures . concatMap polyToPics