Work on transparency of windows/clouds

src/Dodge/Render/Walls.hs

@@ -1,5 +1,6 @@
 module Dodge.Render.Walls (wallsToDraw) where
 
+import Color.Data
 import qualified Control.Foldl as L
 import Control.Lens
 import Dodge.Base.Wall
@@ -11,6 +12,7 @@ import Dodge.Wall.Draw
 --import Dodge.Zoning.World
 import Geometry
 import ShapePicture
+import Linear
 
 -- not necessary: should just poke all walls to their wanted places
 wallsToDraw :: World -> ([((Point2, Point2), Point4)], SPic, [Wall])
@@ -25,7 +27,11 @@ wallsToDraw w =
   where
     --            (wlsFromIXs w $ zonesExtract (w ^. wlZoning) $ zoneOfSight wlZoneSize cam)
 
-    f wl = (_wlLine wl, materialColor $ _wlMaterial wl)
+    f wl = (_wlLine wl, setWindowColor $ materialColor $ _wlMaterial wl)
+
+setWindowColor :: Color -> Color
+setWindowColor c = c & _w .~ 0.25
+--setWindowColor (V4 r g b _) = V4 (r*0.5) (g*0.5) (b*0.5) 0.8
 
 --    cam = w ^. cWorld . camPos