Cleanup

src/Dodge/Item/Equipment.hs

@@ -130,8 +130,8 @@ flatShield = defaultEquipment
             , _aimRange = 0
             , _aimZoom = ItZoom 20 0.2 1
             , _aimStance = TwoHandFlat
-            , _aimHandlePos = 10
-            , _aimMuzPos = 10
+            , _aimHandlePos = 0
+            , _aimMuzPos = 0
             }
         , _heldScroll = \_ _ -> id
         }
@@ -153,7 +153,7 @@ shieldWall crid = defaultWall
     ,_wlWalkable = True
     ,_wlFireThrough = True
     ,_wlReflect = True
-    ,_wlDraw = False
+    ,_wlUnshadowed = False
     ,_wlRotateTo = False
     ,_wlStructure = CreaturePart crid -- shieldWallDamage
     }

src/Dodge/Item/Weapon/LaserPath.hs

@@ -18,7 +18,7 @@ import Data.Tuple
 reflectLaserAlong :: Float -> Point2 -> Point2 -> World 
     -> (Maybe (Point2,Either Creature Wall),[Point2])
 {-# INLINE reflectLaserAlong #-}
-reflectLaserAlong phasev sp ep w = case thingHitFilt (const True) _wlDraw sp ep w of
+reflectLaserAlong phasev sp ep w = case thingHitFilt (const True) _wlUnshadowed sp ep w of
     Just (p,Right wl) 
         | _wlReflect wl -> second (p:) $ reflectLaserAlong phasev 
             (p +.+ unitVectorAtAngle (reflDirWall sp p wl))