Continue shape rendering improvements

2021-09-21 02:04:41 +01:00
parent 464b0b16db
commit 2804d58a5a
12 changed files with 20 additions and 73 deletions
@@ -27,7 +27,6 @@ import Data.Preload
 import Picture.Data
 import ShapePicture
 import Geometry.Data
-import Polyhedra.Data
 import Sound.Data
 import qualified DoubleStack as DS
 import Dodge.GameRoom
@@ -76,7 +75,8 @@ data World = World
    , _playingSounds        :: M.Map SoundOrigin Sound
    , _decorations          :: IM.IntMap Picture
    , _foregroundShape      :: Shape
-    , _foregroundDecorations :: [Polyhedra]
+    --, _foregroundDecorations :: [Polyhedra]
+    , _foregroundDecorations :: Shape
    , _foregroundEdgeVerx   :: [Point3]
    , _corpses              :: Zone [Corpse]
    , _clickMousePos        :: !Point2