Add normal maps to the floor

2023-03-17 16:51:02 +00:00
parent 6425ef3f0a
commit 850fdf1783
16 changed files with 52 additions and 55 deletions
@@ -14,8 +14,7 @@ import Data.Aeson.TH
 import Geometry.Data

 data ShapeType 
-    = TopPrism { _prismSize :: Int }
-    | FlatFaces { _topBoxSize :: Int }
+    = FlatFaces { _topBoxSize :: Int }
    | RoundedFaces { _shapeHalfSize :: Int }
    | Cylinder { _cylinderSize :: Int }
    deriving (Eq, Ord, Show, Read)