Define shape datatype

src/Shape/Data.hs

@@ -0,0 +1,17 @@
+{-# LANGUAGE StrictData #-}
+{-# LANGUAGE TemplateHaskell #-}
+module Shape.Data
+    where
+import Geometry.Data
+import Control.Lens
+data Shape = Shape
+    { _shVertices :: [ShapeV]
+    , _shEdges    :: [Point3]
+    }
+-- edges are given by four consecutive points
+data ShapeV = ShapeV
+    { _svPos :: Point3
+    , _svCol :: Point4
+    }
+makeLenses ''ShapeV
+makeLenses ''Shape