Move configuration from world to universe

2021-11-28 22:30:47 +00:00
parent 45ba120796
commit 8c5777a1af
29 changed files with 343 additions and 300 deletions
@@ -8,12 +8,13 @@ import Geometry
 import Data.List
 import qualified Data.IntMap.Strict as IM
 wallsAndWindows
-    :: World
+    :: Configuration
+    -> World
    -> ( [((Point2,Point2),Point4)]  ,[((Point2,Point2),Point4)] )
-wallsAndWindows w
+wallsAndWindows cfig w
    = (map f wls, map f wins)
  where
    f wl = (_wlLine wl, _wlColor wl)
-    (wins,wls) = partition theTest . IM.elems . IM.filter _wlDraw $ wallsDoubleScreen w
+    (wins,wls) = partition theTest . IM.elems . IM.filter _wlDraw $ wallsDoubleScreen cfig w
    theTest wl = _wlOpacity wl /= Opaque