Add toggle for visual sounds

2021-09-22 11:37:07 +01:00
parent a4fbe6126c
commit fa7d8e1b50
7 changed files with 14 additions and 34 deletions
@@ -1,16 +0,0 @@
-module Dodge.Creature.ShadowBox
-  where
-import Dodge.Data
-import Polyhedra
-import Geometry
-
-import qualified Data.IntMap as IM
-youBox' :: World -> [[Point3]]
-youBox' w = crToBox' $ _creatures w IM.! 0
-crToBox' :: Creature -> [[Point3]]
-crToBox' cr = map (map f . polyToTris) $ boxXYZ 12 12 15
-  where
-    f = (+ V3 (x-6) (y-6) 0)
-    V2 x y = _crPos cr
-youSil :: World -> [Point3]
-youSil = constructEdgesList . youBox'