1 files changed, 45 insertions, 3 deletions
diff --git a/src/LivingVillage.Desktop/Program.fs b/src/LivingVillage.Desktop/Program.fs
index 0e2adcf..53cc274 100644
--- a/src/LivingVillage.Desktop/Program.fs
+++ b/src/LivingVillage.Desktop/Program.fs
@@ -1,9 +1,51 @@
 namespace LivingVillage.Desktop
 
+open System
+open System.IO
+open System.Security.Cryptography
+
 module Program =
 
+    /// P68 证据钩子：LV_P68_MAPSHOT=1 时离线渲染 512×384 / seed 4242 整图为 PNG 后退出，
+    /// 不启动图形设备（真正 headless）。打印尺寸/瓦片统计/要素统计/确定性供 analyze 核验。
+    let private runMapShot () : int =
+        let map = MapGen.generateWithSize 512 384 (uint64 4242)
+        let scale = MapSnapshot.defaultScale
+        let recordDirectory =
+            match Environment.GetEnvironmentVariable("LV_RECORD_DIR") with
+            | null | "" -> "/tmp/lv-p68-map"
+            | value -> value
+        Directory.CreateDirectory recordDirectory |> ignore
+        let png = MapSnapshot.renderPng map scale
+        let again = MapSnapshot.renderPng (MapGen.generateWithSize 512 384 (uint64 4242)) scale
+        let deterministic = png = again
+        let sha = SHA256.HashData png |> Convert.ToHexString
+        File.WriteAllBytes(Path.Combine(recordDirectory, "p68-map.png"), png)
+        let tiles code = map.Tiles |> Array.filter (fun c -> c = code) |> Array.length
+        let roadTiles =
+            map.MainRoadCenter
+            |> Array.filter (fun y -> y >= 0 && y < map.Height)
+            |> Array.length
+        printfn
+            "p68-map width=%d height=%d scale=%d png=%dx%d bytes=%d"
+            map.Width map.Height scale (map.Width * scale) (map.Height * scale) png.Length
+        printfn
+            "p68-tiles grass=%d water=%d stone=%d peat=%d paddy=%d vegetable=%d"
+            (tiles (int MapGen.GroundTile.Grass)) (tiles (int MapGen.GroundTile.Water))
+            (tiles (int MapGen.GroundTile.Stone)) (tiles (int MapGen.GroundTile.Peat))
+            (tiles (int MapGen.GroundTile.PaddyField)) (tiles (int MapGen.GroundTile.VegetablePlot))
+        printfn
+            "p68-features rivers=%d bridges=%d paths=%d buildings=%d farmhouses=%d groves=%d road_columns=%d"
+            map.Rivers.Length map.Bridges.Length map.Paths.Length map.Buildings.Length
+            map.Farmhouses.Length map.Groves.Length roadTiles
+        printfn "p68-render deterministic=%b sha256=%s" deterministic sha
+        0
+
     [<EntryPoint>]
     let main _ =
-        use game = new LivingVillageGame()
-        game.Run()
-        0
+        if Environment.GetEnvironmentVariable("LV_P68_MAPSHOT") = "1" then
+            runMapShot ()
+        else
+            use game = new LivingVillageGame()
+            game.Run()
+            0