Fix wall zoning

src/Dodge/Placement/PlaceSpot.hs

@@ -96,6 +96,7 @@ placeSpotID ps pt w = case pt of
     PutTerminal tm          -> plNewUpID terminals tmID tm w
     PutFlIt     itm         -> plNewUpID floorItems flItID (createFlIt p rot itm) w
     PutCrit     cr          -> plNewUpID creatures crID (mvCr p rot cr) w
+    PutForeground fs        -> plNewUpID shapes fsID (mvFS p rot fs) w
     PutMachine  pps mc      -> plMachine (map doShift pps) mc p rot w
     PutLS       ls          -> plNewUpID lightSources lsID (mvLS p' rot ls) w
     PutPPlate   pp          -> plNewUpID pressPlates ppID (mvPP p rot pp) w
@@ -172,6 +173,9 @@ mvPP p rot pp = pp {_ppPos = p,_ppRot = rot}
 mvCr :: Point2 -> Float -> Creature -> Creature
 mvCr p rot cr = cr {_crPos = p,_crOldPos = p,_crDir = rot}
 
+mvFS :: Point2 -> Float -> ForegroundShape -> ForegroundShape
+mvFS p a = (fsDir +~ a) . (fsPos %~ ( (p +.+) . rotateV a ))
+
 plMachine :: [Point2] -> Machine -> Point2 -> Float -> World -> (Int,World)
 plMachine wallpoly mc p rot gw = (mcid
     , gw & machines  %~ addMc