Initial pass at shadows from level geometry

src/Polyhedra/Data.hs

@@ -0,0 +1,15 @@
+{-# LANGUAGE TemplateHaskell #-}
+--{-# LANGUAGE Strict #-}
+module Polyhedra.Data
+    where
+import Geometry.Data
+
+import Control.Lens
+-- | Polyhedra are represented as a list of faces.
+-- Each face is a list of points (and colours) that are assumed to lie on a plane, and be
+-- ordered to form an anticlockwise convex polygon within that plane.
+data Polyhedra = Polyhedron
+    { _pyFaces :: [[(Point3,Point4)]]
+    }
+
+makeLenses ''Polyhedra