Work on wall materials etc

src/Dodge/Default/Door.hs

@@ -1,36 +1,15 @@
-module Dodge.Default.Door (
-    module Dodge.Default.Door,
-    module Dodge.Default.Wall,
-) where
+module Dodge.Default.Door ( defaultDoor) where
 
-import Control.Lens
 import Dodge.Data.Door
-import Dodge.Data.Wall
-import Dodge.Default.Wall
-
---switchWallCol :: Color -> Wall
---switchWallCol col = defaultSwitchWall
-
-defaultAutoWall :: Wall
-defaultAutoWall =
-    defaultDoorWall
---        & wlColor .~ dim yellow
-        & wlOpacity .~ Opaque 9
-        & wlPathFlag . at WallNotAutoOpen .~ Nothing
 
 defaultDoor :: Door
 defaultDoor =
     Door
         { _drID = 0
---        , _drWallIDs = mempty
---        , _drStatus = DoorClosed
         , _drTrigger = WdBlConst False
         , _drUpdate = DoorDoNothing
---        , _drPos = (0, 0)
---        , _drOpenPos = (0, 0)
---        , _drClosePos = (0, 0)
-        , _drZeroPos = (0,0)
-        , _drOnePos = (0,0)
+        , _drZeroPos = (0, 0)
+        , _drOnePos = (0, 0)
         , _drLerp = 0
         , _drFootPrint = mempty
         , _drHP = 10000