From 8fad58bd62155da653251ab7457cd54ebba0b279 Mon Sep 17 00:00:00 2001
From: "Somhairle H. Marisol" <muqiu-han@outlook.com>
Date: Tue, 22 Sep 2026 00:50:30 +0800
Subject: test(desktop): P17 取证钩子（LV_AUTOPLAY_START_HOUR 纯函数起时）+
 证据与 docs 记录
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 src/LivingVillage.Desktop/M6Presentation.fs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src/LivingVillage.Desktop/M6Presentation.fs')

diff --git a/src/LivingVillage.Desktop/M6Presentation.fs b/src/LivingVillage.Desktop/M6Presentation.fs
index 11399c0..a64d494 100644
--- a/src/LivingVillage.Desktop/M6Presentation.fs
+++ b/src/LivingVillage.Desktop/M6Presentation.fs
@@ -100,6 +100,10 @@ module M6Presentation =
     /// 倍速标签（语义别名，HUD 用）。
     let speedLabel (control: SimulationControl) : string = clockLabel control
 
+    /// Deterministic start tick for a wall-clock hour (evidence harness): 20.75 -> 20:45.
+    let startTickForHour (hour: float) : int64 =
+        int64 (hour * float (Sim.ticksPerDay / 24L))
+
     let private hourOf (tick: int64) : int =
         int ((tick / (Sim.ticksPerDay / 24L)) % 24L)
 
-- 
cgit v1.2.3