diff options
| author | stuebinm | 2021-12-13 23:08:27 +0100 |
|---|---|---|
| committer | stuebinm | 2021-12-13 23:08:27 +0100 |
| commit | b8e3d6eea571435eb95d15696457a254194b6280 (patch) | |
| tree | 936250603a499f1ec60a110c28a92e1028ff36c4 /lib/Tiled.hs | |
| parent | de1b45be15f8bd1a2cba3491b6d0a17aeb3c8f3d (diff) | |
changes to tiled map format
(found by running through rc3 2021 map submissions and looking at what failed)
Diffstat (limited to '')
| -rw-r--r-- | lib/Tiled.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/Tiled.hs b/lib/Tiled.hs index 05839a7..f1d7ec6 100644 --- a/lib/Tiled.hs +++ b/lib/Tiled.hs @@ -217,8 +217,8 @@ data Layer = Layer { layerWidth :: Maybe Double , layerDraworder :: Maybe String -- ^ “topdown” (default) or “index”. objectgroup only. , layerId :: Int - , layerOffsetx :: Maybe Int - , layerOffsety :: Maybe Int + , layerOffsetx :: Maybe Float + , layerOffsety :: Maybe Float , layerParallaxx :: Maybe Float , layerParallaxy :: Maybe Float , layerTintColor :: Maybe Color @@ -227,6 +227,7 @@ data Layer = Layer { layerWidth :: Maybe Double , layerLayers :: Maybe [Layer] , layerStartX :: Maybe Int , layerStartY :: Maybe Int + , layerColor :: Maybe Color } deriving (Eq, Generic, Show) instance FromJSON Layer where @@ -331,6 +332,7 @@ data Tileset = Tileset { tilesetFirstgid :: GlobalId , tilesetVersion :: Maybe Value , tilesetWangsets :: Maybe Value , tilesetType :: Maybe Text + , tilesetFileName :: Maybe Text } deriving (Eq, Generic, Show) newtype TransitiveTilesetMap = TransitiveTilesetMap (Map LocalId Value) |