Cleanup. Start tweaking flares, glares and flashes

2021-10-29 21:47:03 +01:00
parent 78f91e522b
commit 502be6f64f
18 changed files with 59 additions and 153 deletions
@@ -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 =