From a2b94965d7bad434bcd07714f4ed8e6c36d62caa Mon Sep 17 00:00:00 2001
From: jgk <justin.g.kruger@gmail.com>
Date: Wed, 28 Jul 2021 12:52:21 +0200
Subject: [PATCH] Implement poking using vertex lists

---
 src/Dodge/Render.hs | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/src/Dodge/Render.hs b/src/Dodge/Render.hs
index 2885ccb1f..e1920f7f0 100644
--- a/src/Dodge/Render.hs
+++ b/src/Dodge/Render.hs
@@ -79,7 +79,9 @@ doDrawing pdata w = do
         else renderBlankWalls pdata nWalls
     --_ <- renderFoldable pdata $ (picToAlt (Just 0) (polysToPic $ foregroundPics w) :: [RenderType])
     --_ <- renderFoldable pdata $ (picToAlt (Just 0) pic :: [RenderType])
-    _ <- renderFoldable pdata $ polysToPic $ foregroundPics w
+--FIXME    _ <- renderFoldable pdata $ polysToPic $ foregroundPics w
+    vfore <- pokeBindFoldableLayer pdata $  polysToPic $ foregroundPics w
+    mapM_ (uncurry $ drawShaderLay 0) (vfore IM.! 0)
 
     --_ <- renderFoldable pdata $ map snd $ filter ((==0).fst) pic
     vnums <- pokeBindFoldableLayer pdata $ pic
@@ -175,7 +177,10 @@ doDrawing pdata w = do
     depthMask $= Disabled
     blend $= Enabled
     blendFunc $= (SrcAlpha,OneMinusSrcAlpha)
-    _ <- renderFoldable pdata $ fixedCoordPictures w
+
+    vovers <- pokeBindFoldableLayer pdata $ fixedCoordPictures w
+    mapM_ (uncurry $ drawShaderLay 0) (vovers IM.! 0)
+--FIXME    _ <- renderFoldable pdata $ fixedCoordPictures w
     depthMask $= Enabled
 
     eTicks <- SDL.ticks