Improve forcefield visuals

src/Dodge/Render.hs

@@ -38,7 +38,7 @@ doDrawing pdata u = do
         trans   = _cameraCenter w
         wins@(V2 winx winy) = V2 (_windowX cfig) (_windowY cfig)
         resFact             = resFactorNum $ cfig ^. graphics_resolution_factor
-        (wallPointsCol,windowPoints) = wallsAndWindows cfig w
+        (wallPointsCol,windowPoints,wallSPics) = wallsToDrawStreams cfig w
         lightPoints             = lightsForGloom w
         viewFroms@(V2 vfx vfy)  = _cameraViewFrom w
         viewFrom3d              = Vector3 vfx vfy 20
@@ -50,7 +50,7 @@ doDrawing pdata u = do
     shapeCounts  <- UMV.replicate 3 0
     wlwiflCounts <- UMV.replicate 3 0
     -- attempt to poke in parallel
-    let (ws,wp) = worldSPic cfig w
+    let (ws,wp) = wallSPics <> worldSPic cfig w
     MP.bindM3 (\ _ _ _ -> return ())
         ( pokeBindFoldableLayer shadV layerCounts wp)
         ( pokeWallsWindowsFloor