Work on lightmaps, add file

2023-03-23 23:42:09 +00:00
parent 1abfaa3cd0
commit 9a66a09f96
9 changed files with 157 additions and 183 deletions
@@ -14,11 +14,10 @@ import Geometry
 import ShapePicture

 -- not necessary: should just poke all walls to their wanted places
-wallsToDraw :: World -> ([((Point2, Point2), Point4)], [((Point2, Point2), Point4)], SPic, [Wall])
+wallsToDraw :: World -> ( [((Point2, Point2), Point4)], SPic, [Wall])
 wallsToDraw w = L.fold
-            ( (,,,)
-                <$> L.prefilter wlOpaqueDraw (L.premap f L.list)
-                <*> L.prefilter wlSeeThroughDraw (L.premap f L.list)
+            ( (,,)
+                <$>L.prefilter wlSeeThroughDraw (L.premap f L.list)
                <*> L.premap getWallSPic L.mconcat
                <*> L.prefilter wlOpaqueDraw L.list
            )