Add tank furniture, stop autorotate when aiming

2021-10-05 22:57:54 +01:00
parent cab8c25610
commit d46de1ca80
17 changed files with 186 additions and 48 deletions
@@ -259,7 +259,7 @@ wallsAndWindows w
    = (map f wls, map f $ filter (fromMaybe True . (^? blVisible)) wins)
  where
    f wl = (_wlLine wl, _wlColor wl)
-    (wins,wls) = partition _wlIsSeeThrough . IM.elems $ wallsDoubleScreen w
+    (wins,wls) = partition _wlIsSeeThrough . IM.elems . IM.filter _wlDraw $ wallsDoubleScreen w
    --(wins,wls) = partition _wlIsSeeThrough . IM.elems $ wallsOnScreen w

 wallsToList :: [((Point2,Point2),Point4)] -> [Float]