diff options
Diffstat (limited to 'src/LivingVillage.Desktop/M6Presentation.fs')
| -rw-r--r-- | src/LivingVillage.Desktop/M6Presentation.fs | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/src/LivingVillage.Desktop/M6Presentation.fs b/src/LivingVillage.Desktop/M6Presentation.fs index 410f20a..b6c24fa 100644 --- a/src/LivingVillage.Desktop/M6Presentation.fs +++ b/src/LivingVillage.Desktop/M6Presentation.fs @@ -15,6 +15,11 @@ type M6RenderProfile = module M6Presentation = + let dayNightLabel mode : string = + match mode with + | Day -> "白天" + | Night -> "夜晚" + let profileAtTick (tick: int64) : M6RenderProfile = if Sim.isNightTick tick then { Mode = Night @@ -27,9 +32,9 @@ module M6Presentation = let clockLabel (control: SimulationControl) : string = if control.Paused then - "PAUSED" + "暂停" else match control.Speed with - | OneX -> "1X" - | TwoX -> "2X" - | FiveX -> "5X" + | OneX -> "1倍速" + | TwoX -> "2倍速" + | FiveX -> "5倍速" |