This commit is contained in:
2023-03-23 14:14:54 +00:00
parent 02ee4b01c9
commit ecd7a0fae0
6 changed files with 4 additions and 72 deletions
-11
View File
@@ -1,6 +1,5 @@
module Render (
createLightMap,
renderFoldable,
renderLayer,
pingPongBetween,
bindTO,
@@ -351,16 +350,6 @@ pingPongBetween (fb1, to1) (fb2, to2) fs = do
glBindTexture GL_TEXTURE_2D (_unTO to2)
drawShader fs 4
renderFoldable ::
MV.MVector (PrimState IO) (Shader,VBO) ->
Picture ->
IO ()
renderFoldable shadV struct = do
counts <- UMV.replicate 6 0
pokeBindFoldable shadV counts struct
MV.imapM_ (drawShaderLay 0 counts) shadV
------------------------------end renderFoldable
renderLayer ::
Layer ->
MV.MVector (PrimState IO) (Shader,VBO) ->