feat(desktop): 河畔植被与中式道具点缀

图集新增柳树（垂枝两段）、灌木、花丛、芦苇、石凳、灯笼七类图块并经复制规则进构建；场景加入两株垂柳、两丛灌木、两处花丛、水中两簇芦苇、河畔石凳与两盏岸边灯笼，芦苇立于水面、灯笼立于岸道，全部入图集无程序几何占位。

1 files changed, 54 insertions, 3 deletions

diff --git a/src/LivingVillage.Desktop/VillageArt.fs b/src/LivingVillage.Desktop/VillageArt.fs
index a66474b..151c73a 100644
--- a/src/LivingVillage.Desktop/VillageArt.fs
+++ b/src/LivingVillage.Desktop/VillageArt.fs
@@ -38,6 +38,12 @@ module VillageArt =
         | Bridge
         | BambooGrove
         | VegetablePatch
+        | WillowTree
+        | ShrubPatch
+        | FlowerBush
+        | ReedCluster
+        | StoneBench
+        | RiverLantern
 
     type RenderProp =
         { Kind: RenderPropKind
@@ -103,6 +109,13 @@ module VillageArt =
         | WallWindowSprite
         | DoorSprite
         | WaterSpriteB
+        | WillowTopSprite
+        | WillowBaseSprite
+        | ShrubSprite
+        | FlowerSprite
+        | ReedSprite
+        | BenchSprite
+        | LanternSprite
 
     type private XnaColor = Microsoft.Xna.Framework.Color
     type private XnaRectangle = Microsoft.Xna.Framework.Rectangle
@@ -175,7 +188,18 @@ module VillageArt =
               [ renderProp House 6 5
                 renderProp Bridge 6 11
                 renderProp BambooGrove 3 2
-                renderProp VegetablePatch 8 7 ]
+                renderProp VegetablePatch 8 7
+                renderProp WillowTree 1 9
+                renderProp WillowTree 13 9
+                renderProp ShrubPatch 1 7
+                renderProp ShrubPatch 10 7
+                renderProp FlowerBush 3 8
+                renderProp FlowerBush 12 8
+                renderProp ReedCluster 3 12
+                renderProp ReedCluster 15 13
+                renderProp StoneBench 9 11
+                renderProp RiverLantern 5 11
+                renderProp RiverLantern 7 14 ]
           Interior =
               { Elements =
                   [ interiorElement Window 2 2
@@ -201,7 +225,13 @@ module VillageArt =
                           yield position (x + dx) (y + dy) ]
             | Bridge -> [ position x y; position x (y + 1); position x (y + 2) ]
             | BambooGrove -> [ position x y; position x (y + 1); position (x + 1) y ]
-            | VegetablePatch -> [ position x y; position (x + 1) y ])
+            | VegetablePatch -> [ position x y; position (x + 1) y ]
+            | WillowTree -> [ position x y; position x (y + 1) ]
+            | ShrubPatch
+            | FlowerBush
+            | ReedCluster
+            | StoneBench
+            | RiverLantern -> [ position x y ])
         |> many
 
     let private positiveModulo divisor value =
@@ -284,7 +314,7 @@ module VillageArt =
     let characterAtlasRelativePath = "Assets/jiangnan-characters.png"
     let interiorAtlasRelativePath = "Assets/jiangnan-interior.png"
 
-    let worldTileCount = 14
+    let worldTileCount = 21
     let worldAtlasWidth = Sim.tilePixels * worldTileCount
     let worldAtlasHeight = Sim.tilePixels
     let characterAtlasWidth = 32 * 4 * 4 * 2
@@ -327,6 +357,13 @@ module VillageArt =
             | WallWindowSprite -> 11
             | DoorSprite -> 12
             | WaterSpriteB -> 13
+            | WillowTopSprite -> 14
+            | WillowBaseSprite -> 15
+            | ShrubSprite -> 16
+            | FlowerSprite -> 17
+            | ReedSprite -> 18
+            | BenchSprite -> 19
+            | LanternSprite -> 20
         XnaRectangle(index * Sim.tilePixels, 0, Sim.tilePixels, Sim.tilePixels)
 
     let private tilePosition x y : TilePosition =
@@ -413,12 +450,26 @@ module VillageArt =
             draw position GardenSprite
             draw (offsetTile position 1 0) GardenSprite
 
+        let drawWillow localPosition =
+            let position = worldTile plan localPosition
+            draw position WillowTopSprite
+            draw (offsetTile position 0 1) WillowBaseSprite
+
+        let drawSingleTile localPosition sprite =
+            draw (worldTile plan localPosition) sprite
+
         for prop in plan.Props do
             match prop.Kind with
             | House -> drawHouse prop.Position
             | Bridge -> drawBridge prop.Position
             | BambooGrove -> drawBamboo prop.Position
             | VegetablePatch -> drawGarden prop.Position
+            | WillowTree -> drawWillow prop.Position
+            | ShrubPatch -> drawSingleTile prop.Position ShrubSprite
+            | FlowerBush -> drawSingleTile prop.Position FlowerSprite
+            | ReedCluster -> drawSingleTile prop.Position ReedSprite
+            | StoneBench -> drawSingleTile prop.Position BenchSprite
+            | RiverLantern -> drawSingleTile prop.Position LanternSprite
 
     let drawCharacter
         (spriteBatch: SpriteBatch)