Add a base to blocks

2025-11-23 14:14:37 +00:00
parent 2cffe81b75
commit 581d832569
7 changed files with 90 additions and 122 deletions
@@ -70,12 +70,7 @@ prismPoly size shads upps downps = [Surface (RoundedFaces n) (cp : cp : f upps d
    f (a : as) (b : bs) = a : b : f as bs
    f _ _ = []

-prismBox ::
-    Size ->
-    Importance ->
-    [Point3] ->
-    [Point3] ->
-    Shape
+prismBox :: Size -> Importance -> [Point3] -> [Point3] -> Shape
 {-# INLINE prismBox #-}
 prismBox size shads upps downps = [Surface (FlatFaces n) (f upps downps) white shads size]
  where