namespace LivingVillage.Desktop

open System

/// P74 启动开场过渡：纯程序实现的水墨式渐显。
/// 启动最初数帧用若干柔和墨滴（预乘 alpha 椭圆行，绝无整屏纯色/大黑块）从中心向外
/// 晕开，同时整体墨幕强度随帧 ease-out 消退，露出后方的天色/水面/屋脊/标题。
/// 全部为帧计数与画布尺寸的纯函数，确定性可复现；Kernel 不参与。
module InkReveal =

    /// 墨幕完全消散所需帧数（< LaunchScreen.durationFrames，先散墨再见标题）。
    let dissolveFrames = 96L

    /// 单滴墨的最大 alpha：始终 < 255，保证是柔光墨晕而非实心黑块。
    let maxAlpha = 200

    /// 墨滴种子：归一化中心 + 归一化基准半径 + 相位（纯数据，确定性布局）。
    let private seeds : (float32 * float32 * float32 * float32 * int) list =
        [ (0.22f, 0.30f, 0.14f, 0.10f, 0)
          (0.46f, 0.22f, 0.18f, 0.12f, 1)
          (0.74f, 0.34f, 0.12f, 0.10f, 2)
          (0.58f, 0.62f, 0.20f, 0.13f, 3)
          (0.30f, 0.70f, 0.16f, 0.11f, 4)
          (0.83f, 0.67f, 0.11f, 0.08f, 5) ]

    let private clamp01 (v: float32) = if v < 0.0f then 0.0f elif v > 1.0f then 1.0f else v

    /// 整体墨幕强度：起手 1，随帧 ease-out 退到 0（dissolveFrames 后为 0）。
    let inkStrength (frame: int64) : float32 =
        if frame <= 0L then 1.0f
        elif frame >= dissolveFrames then 0.0f
        else
            let t = clamp01 (float32 frame / float32 dissolveFrames)
            1.0f - t |> fun remaining -> remaining * remaining * remaining

    /// 一滴墨：像素中心/半径/alpha。alpha 已含墨幕强度，绘制方按 alpha 预乘 rgb。
    type Dab =
        { X: int
          Y: int
          Rx: int
          Ry: int
          Alpha: int }

    /// 当前帧的墨滴集合：消散过程中半径外扩、alpha 下降，读起来像墨在水中晕开。
    let dabs (frame: int64) (width: int) (height: int) : Dab list =
        let strength = inkStrength frame
        let expand = 1.0f + 0.9f * (1.0f - strength)
        seeds
        |> List.map (fun (cx, cy, brx, bry, phase) ->
            let wobble = 1.0f + 0.06f * float32 (sin (float (phase) * 1.7))
            { X = int (cx * float32 width)
              Y = int (cy * float32 height)
              Rx = max 1 (int (brx * float32 width * expand * wobble))
              Ry = max 1 (int (bry * float32 height * expand * wobble))
              Alpha = int (float32 maxAlpha * strength) })

    /// 墨色（深靛而非纯黑），绘制时与 alpha 预乘。
    let inkRgb : int * int * int = (26, 36, 52)