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
@@ -28,8 +28,8 @@ makeTileFromPoly :: [Point2] -> Float -> Tile
 makeTileFromPoly poly z = Tile
    { _tilePoly = poly
    , _tileZero = c
-    , _tileTangentPos = c + (32 * normalizeV (d -.- c))
-    , _tileZ = z
+    , _tileTangentPos = c + (64 * normalizeV (d -.- c))
+    , _tileArrayZ = z
    }
  where
    (c:d:_) = poly