Cleanup

src/Dodge/Placement/Instance/Block.hs

@@ -15,7 +15,7 @@ lowBlock mat col h ps = PutBlock bl wl $ reverse ps
         & blDraw .~ const (noPic $ colorSH col (upperPrismPoly h $ reverse ps))
         & blDeath .~ const id
     wl = defaultWall 
-        & wlDraw .~ False 
+        & wlUnshadowed .~ False 
         & wlColor .~ col 
         & wlRotateTo .~ False  
         & wlOpacity .~ SeeAbove

src/Dodge/Placement/Instance/Tank.hs

@@ -29,7 +29,7 @@ tankShape baseshape facade col col'
         & blDraw .~ const (noPic $ colorSH col (upperPrismPoly 31 $ reverse baseshape) <> facade col col')
         & blDeath .~ const id
     wl = defaultWall 
-        & wlDraw .~ False 
+        & wlUnshadowed .~ False 
         & wlColor .~ col 
         & wlRotateTo .~ False  
         & wlOpacity .~ SeeAbove
@@ -38,7 +38,7 @@ tankShape baseshape facade col col'
 --    = ps0jPushPS
 --    (PutShape $ colorSH col (upperPrismPoly 31 baseshape) <> facade col col')
 --    $ sps0 $ PutWall baseshape defaultWall 
---        {_wlDraw = False, _wlColor = col, _wlRotateTo = False, _wlOpacity = SeeAbove}
+--        {_wlUnshadowed = False, _wlColor = col, _wlRotateTo = False, _wlOpacity = SeeAbove}
 
 roundTank :: Color -> Color -> Placement
 roundTank = tankShape (polyCirc 4 20) 

src/Dodge/Placement/Instance/Wall.hs

@@ -18,7 +18,7 @@ heightWallPS spot h ps = spNoID spot $ lowBlock Stone (_wlColor defaultWall) h p
 invisibleWall :: [Point2] -> Placement
 invisibleWall ps = sps0 $ PutWall ps $ defaultWall
     { _wlOpacity = SeeAbove
-    , _wlDraw = False
+    , _wlUnshadowed = False
     , _wlHeight = 0
     , _wlTouchThrough = True
     }
@@ -85,7 +85,7 @@ baseBlockPane = defaultWall
     , _wlColor = greyN 0.5
     , _wlSeen = False
     , _wlOpacity = Opaque
-    , _wlDraw = True
+    , _wlUnshadowed = True
     , _wlFireThrough = True
     }
 -- TODO find home for this