Fix inherited tile positioning

2026-04-01 18:01:11 +01:00
parent c504d3c511
commit e50fdb8807
6 changed files with 62 additions and 42 deletions
@@ -17,11 +17,12 @@ data Tile = Tile
    { _tilePoly :: [Point2]
    , -- | point in the world where tile texture is 0,0
      _tileZero :: Point2
-    , -- | world position one along in the X direction, note this also set the scale of the
-      -- texture
+    , -- | world position one along in the X direction
+      -- note this also sets the scale of the texture
      -- this has to be a position because it is shifted
      _tileTangentPos :: Point2
    , _tileArrayZ :: Float
+    , _tileZeroShift :: Maybe Point2A
    }
    deriving (Eq, Ord, Show)