Commit before placement refactor

2021-09-28 14:55:22 +01:00
parent 751000636e
commit b8af2ce9d8
16 changed files with 134 additions and 331 deletions
@@ -2,7 +2,6 @@ module Dodge.Default.Wall
    where
 import Dodge.Data
 import Picture
-import qualified DoubleStack as DS
 import Geometry.Data
 {- Indestructible wall.  -}
 defaultWall :: Wall
@@ -24,30 +23,3 @@ defaultCrystalWall = Wall
    , _wlIsSeeThrough = True
    , _wlPathable = False
    }
-{- Door that opens on approach.
-Pathable.  -}
-defaultAutoDoor :: Wall
-defaultAutoDoor = Door 
-    { _wlLine = (V2 0 0,V2 50 0)
-    , _wlID = 0
-    , _doorMech = id
-    , _wlColor = light $ dim $ dim $ dim yellow
-    , _wlSeen = False
-    , _wlIsSeeThrough = False
-    , _doorPathable = True
-    , _drPositions = DS.singleton (V2 0 0,V2 50 0)
-    }
-{-
-Non-pathable door.
- -}
-defaultDoor :: Wall
-defaultDoor = Door 
-    { _wlLine = (V2 0 0,V2 50 0)
-    , _wlID = 0
-    , _doorMech = id
-    , _wlColor = light $ dim $ dim $ dim yellow
-    , _wlSeen = False
-    , _wlIsSeeThrough = False
-    , _doorPathable = False
-    , _drPositions = DS.singleton (V2 0 0,V2 50 0)
-    }