Use rounded shapes instead of TopPrism

src/Shape/Data.hs

@@ -22,10 +22,15 @@ data ShapeType
 -- for RoundedFaces, the first vertex in _sfVs should be the center of the top
 -- plane, the second should be the center of the bottom plane.
 
+data ShadowFidelity = FullShadowFidelity
+    | NoShadowFidelity
+    deriving (Eq, Ord, Show, Read) --Generic, Flat)
+
 data Surface = Surface
     { _sfType :: ShapeType
     , _sfVs :: [Point3]
     , _sfColor :: Point4
+    , _sfShadowFidelity :: ShadowFidelity
     }
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
@@ -40,5 +45,6 @@ nShapeVerxComp = sum shapeVerxSizes
 shapeVerxSizes :: [Int]
 shapeVerxSizes = [4,4,4]
 
+deriveJSON defaultOptions ''ShadowFidelity
 deriveJSON defaultOptions ''ShapeType
 deriveJSON defaultOptions ''Surface