justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Implement poking using vertex lists

Browse Source
This commit is contained in:
justin
2021-07-28 12:52:21 +02:00
parent 3b53570c21
commit a2b94965d7
1 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Render.hs
+7 -2
View File
@@ -79,7 +79,9 @@ doDrawing pdata w = do
else renderBlankWalls pdata nWalls else renderBlankWalls pdata nWalls
--_ <- renderFoldable pdata $ (picToAlt (Just 0) (polysToPic $ foregroundPics w) :: [RenderType]) --_ <- renderFoldable pdata $ (picToAlt (Just 0) (polysToPic $ foregroundPics w) :: [RenderType])
--_ <- renderFoldable pdata $ (picToAlt (Just 0) pic :: [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 --_ <- renderFoldable pdata $ map snd $ filter ((==0).fst) pic
vnums <- pokeBindFoldableLayer pdata $ pic vnums <- pokeBindFoldableLayer pdata $ pic
@@ -175,7 +177,10 @@ doDrawing pdata w = do
depthMask $= Disabled depthMask $= Disabled
blend $= Enabled blend $= Enabled
blendFunc $= (SrcAlpha,OneMinusSrcAlpha) 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 depthMask $= Enabled
eTicks <- SDL.ticks eTicks <- SDL.ticks