From 603fd8106689b693403be4f71275255065e97293 Mon Sep 17 00:00:00 2001
From: adelikat <adelikat@tasvideos.org>
Date: Tue, 22 Apr 2014 21:27:08 +0000
Subject: [PATCH] Lua - implement movie.fps() and add MovieTimer.lua script
 that shows the clock time for a given movie (updates while recording)

---
 .../lua/EmuLuaLibrary.Movie.cs                | 14 +++++++++
 .../tools/Lua/Libraries/EmuLuaLibrary.Gui.cs  |  2 +-
 output/Lua/MovieClock.lua                     | 29 +++++++++++++++++++
 3 files changed, 44 insertions(+), 1 deletion(-)
 create mode 100644 output/Lua/MovieClock.lua

diff --git a/BizHawk.Client.Common/lua/EmuLuaLibrary.Movie.cs b/BizHawk.Client.Common/lua/EmuLuaLibrary.Movie.cs
index d898538cdb..a65f6936a8 100644
--- a/BizHawk.Client.Common/lua/EmuLuaLibrary.Movie.cs
+++ b/BizHawk.Client.Common/lua/EmuLuaLibrary.Movie.cs
@@ -137,5 +137,19 @@ namespace BizHawk.Client.Common
 		{
 			Global.MovieSession.Movie.Stop();
 		}
+
+		[LuaMethodAttributes(
+			"getfps",
+			"If a movie is loaded, gets the frames per second used by the movie to determine the movie length time"
+		)]
+		public static double GetFps()
+		{
+			if (Global.MovieSession.Movie.IsActive)
+			{
+				return Global.MovieSession.Movie.Fps;
+			}
+
+			return 0.0;
+		}
 	}
 }
diff --git a/BizHawk.Client.EmuHawk/tools/Lua/Libraries/EmuLuaLibrary.Gui.cs b/BizHawk.Client.EmuHawk/tools/Lua/Libraries/EmuLuaLibrary.Gui.cs
index a40d68b4b1..4c48744e13 100644
--- a/BizHawk.Client.EmuHawk/tools/Lua/Libraries/EmuLuaLibrary.Gui.cs
+++ b/BizHawk.Client.EmuHawk/tools/Lua/Libraries/EmuLuaLibrary.Gui.cs
@@ -139,7 +139,7 @@ namespace BizHawk.Client.EmuHawk
 
 		[LuaMethodAttributes(
 			"cleartext",
-			"TODO"
+			"clears all text created by gui.text()"
 		)]
 		public static void ClearText()
 		{
diff --git a/output/Lua/MovieClock.lua b/output/Lua/MovieClock.lua
new file mode 100644
index 0000000000..f4458ce432
--- /dev/null
+++ b/output/Lua/MovieClock.lua
@@ -0,0 +1,29 @@
+while true do
+	if (movie.isloaded()) then
+		fps = movie.getfps();
+		frames = movie.length();
+		tseconds = (frames / fps)
+		secondsraw = tseconds % 60;
+		shift = 10 ^ 2;
+		seconds = math.floor((secondsraw * shift) + 0.5) / shift;
+		secondsstr = string.format("%.2f", seconds)
+		if (seconds < 10) then
+			secondsstr = "0" .. secondsstr;
+		end
+	
+		minutes = (math.floor(tseconds / 60)) % 60;
+		minutesstr = minutes;
+		if (minutes < 10) then
+			minutesstr = "0" .. minutesstr;
+		end
+
+		hours = (math.floor(tseconds / 60 / 60)) % 24;
+		
+		time = minutesstr .. ":" .. secondsstr;
+		if (hours > 0) then
+			time = "0" .. hours .. ":" .. time;
+		end
+		gui.text(0, 0, time, null, null, 1);
+	end
+	emu.frameadvance();
+end
\ No newline at end of file