Fix wall bug, refactor placements

2021-09-30 15:35:35 +01:00
parent eb393708c4
commit c88f88004d
17 changed files with 54 additions and 80 deletions
@@ -238,6 +238,7 @@ wallsAndWindows w
  where
    f wl = (_wlLine wl, _wlColor wl)
    (wins,wls) = partition _wlIsSeeThrough . IM.elems $ wallsDoubleScreen w
+    --(wins,wls) = partition _wlIsSeeThrough . IM.elems $ wallsOnScreen w

 wallsToList :: [((Point2,Point2),Point4)] -> [Float]
 wallsToList = concatMap (\((V2 a b,V2 c d),V4 e f g h) -> [a,b,c,d,e,f,g,h])