diff --git a/src/Dodge/Render.hs b/src/Dodge/Render.hs
index c665afd5a..06f21f767 100644
--- a/src/Dodge/Render.hs
+++ b/src/Dodge/Render.hs
@@ -170,8 +170,11 @@ doDrawing pdata w = do
             drawShader (_fullscreenShader pdata) 4
         rds -> do
             let bindDrawDist :: (Point2,Point2,Point2,Float) -> IO ()
-                bindDrawDist distParam = do
-                    _ <- F.foldM (pokeShader $ _barrelShader pdata) [Render2221 distParam]
+                bindDrawDist ((a,b),(c,d),(e,f),g) = do
+                --bindDrawDist distParam = do
+                    --_ <- F.foldM (pokeShader $ _barrelShader pdata) [Render2221 distParam]
+                    pokeArray (_vboPointer . _vaoVBO . _shaderVAO $ _barrelShader pdata)
+                        [a,b,c,d,e,f,g]
                     bindShaderBuffers [_barrelShader pdata] [1]
                     drawShader (_barrelShader pdata) 1
                 fboList = take (length rds - 1) (concat (repeat [fst $ _fbo2 pdata,fst $ _fbo3 pdata]))