Cleanup. Start tweaking flares, glares and flashes

src/Polyhedra/Data.hs

@@ -21,6 +21,5 @@ newtype Polyhedra = Polyhedron
 newtype VF a = VF
     { _vertices :: M.Map a (Point3, [[a]])
     }
-
 makeLenses ''Polyhedra
 makeLenses ''VF

src/Polyhedra/Geodesic.hs

@@ -71,9 +71,3 @@ facesToVF faces = foldr f M.empty vs
     vs = nub $ concat faces
     f v = M.insert v (g v)
     g v = map (tail . rotateTo (== v)) $ filter (elem v) faces
-
---triPyramid :: VF
---triPyramid = VF
-
---dual :: VF a -> VF [a]
---dual vf =