Add tank furniture, stop autorotate when aiming

src/Dodge/Room/Placement.hs

@@ -91,7 +91,7 @@ windowLineType :: Point2 -> Point2 -> PSType
 windowLineType = PutLineBlock baseWindowPane 8 8
 
 baseBlockPane :: Wall
-baseBlockPane = Block
+baseBlockPane = defaultBlock
     { _wlLine = (V2 0 0,V2 50 0)
     , _wlID = 0
     , _wlColor = greyN 0.5
@@ -102,9 +102,10 @@ baseBlockPane = Block
     , _blVisible = True
     , _blShadows = []
     , _blDegrades = [20,20]
+    , _wlDraw = True
     }
 baseWindowPane :: Wall
-baseWindowPane = Block
+baseWindowPane = defaultBlock
     { _wlLine = (V2 0 0,V2 50 0)
     , _wlID = 0
     , _wlColor = withAlpha 0.2 cyan
@@ -115,6 +116,7 @@ baseWindowPane = Block
     , _blVisible = True
     , _blShadows = []
     , _blDegrades = [5,5]
+    , _wlDraw = True
     }
 {- Replaces instances of a given 'PutID' with 'PSType's drawn from a list.  -}
 replacePutID