Play with floor textures

2023-03-18 22:31:24 +00:00
parent 49f96ab18e
commit 70c15fea5d
12 changed files with 68 additions and 33 deletions
@@ -11,7 +11,7 @@ import Foreign

 pokeTile :: Ptr Float -> Int -> Tile -> IO Int
 pokeTile ptr i t@Tile { _tilePoly = ps } = do
-    foldM (pokeTileVerx ttan (_tileZ t) ptr) i $ triangulate $ zip ps (tileTexCoords t)
+    foldM (pokeTileVerx ttan (_tileArrayZ t) ptr) i $ triangulate $ zip ps (tileTexCoords t)
  where
    ttan = _tileTangentPos t - _tileZero t