namespace LivingVillage.Desktop

open Microsoft.Xna.Framework
open LivingVillage.Kernel
open LivingVillage.Kernel.Sim

type M6DayNight =
    | Day
    | Night

type M6RenderProfile =
    { Mode: M6DayNight
      Background: Color
      WorldTint: Color }

module M6Presentation =

    let dayNightLabel mode : string =
        match mode with
        | Day -> "白天"
        | Night -> "夜晚"

    let profileAtTick (tick: int64) : M6RenderProfile =
        if Sim.isNightTick tick then
            { Mode = Night
              Background = Color(18, 25, 55)
              WorldTint = Color(118, 136, 184) }
        else
            { Mode = Day
              Background = Color(100, 160, 210)
              WorldTint = Color(255, 248, 224) }

    let clockLabel (control: SimulationControl) : string =
        if control.Paused then
            "暂停"
        else
            match control.Speed with
            | OneX -> "1倍速"
            | TwoX -> "2倍速"
            | FiveX -> "5倍速"