Partial fix of layering

2021-02-24 04:15:43 +01:00
parent 2afe40594e
commit 4db5fb44fe
2 changed files with 45 additions and 24 deletions
@@ -412,6 +412,8 @@ renderTree pdata rot zoom (tranx,trany) (winx,winy) tree = do
    textureBinding Texture2D $= Just (_textures pdata !! 1)
    drawArrays Points (fromIntegral 0) (fromIntegral 1)

+    depthFunc $= Just Lequal
+
 -- draw triangles
    currentProgram $= Just (_basicShader pdata)
    bindVertexArrayObject $= Just (_vao $ _triVAO pdata)