Draw floors using vertex pulling

2025-11-13 22:22:19 +00:00
parent 836c0ba772
commit cffa75c014
8 changed files with 34 additions and 34 deletions
@@ -23,7 +23,7 @@ pokeTileVerx tangent tilez ptr i (V2 x y, V2 s t) = do
    return $ i + 1

 pokeChasm :: Ptr Float -> Int -> [Point2] -> IO Int
-pokeChasm ptr i ps = foldM (pokeChasmVerx ptr) i $ polyToTris ps
+pokeChasm ptr i = foldM (pokeChasmVerx ptr) i . polyToTris

 pokeChasmVerx :: Ptr Float -> Int -> Point2 -> IO Int
 pokeChasmVerx ptr i p = do