From cf16e71ee10baed28a4dc895c59530725b760cd9 Mon Sep 17 00:00:00 2001
From: Tobias Jakobs <tobias.jakobs@gmail.com>
Date: Mon, 22 Dec 2014 20:43:04 +0100
Subject: [PATCH] darktable (timelaps) video export script

---
 contrib/video.lua | 96 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 96 insertions(+)
 create mode 100644 contrib/video.lua

diff --git a/contrib/video.lua b/contrib/video.lua
new file mode 100644
index 0000000..830823f
--- /dev/null
+++ b/contrib/video.lua
@@ -0,0 +1,96 @@
+--[[
+    This file is part of darktable,
+    Copyright 2014 by Tobias Jakobs.
+
+    This program is free software: you can redistribute it and/or modify
+    it under the terms of the GNU General Public License as published by
+    the Free Software Foundation; either version 3 of the License, or
+    (at your option) any later version.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+    GNU General Public License for more details.
+
+    You should have received a copy of the GNU General Public License
+    along with this program.  If not, see <http://www.gnu.org/licenses/>.
+]]
+--[[
+darktable video export script
+
+ADDITIANAL SOFTWARE NEEDED FOR THIS SCRIPT
+* mencoder (MEncoder is from the MPlayer Team)
+* xdg-open
+* xdg-user-dir
+
+WARNING
+This script is only testet with Linux
+
+USAGE
+* require this script from your main lua file
+]]
+
+dt = require "darktable"
+dt.configuration.check_version(...,{2,0,1})
+
+local function show_status(storage, image, format, filename, number, total, high_quality, extra_data)
+    dt.print("Export Image "..tostring(number).."/"..tostring(total))
+end
+
+local function create_video(storage, image_table, extra_data)
+
+    exportDirectory = dt.preferences.read("video","ExportDirectory","string")
+    exportFilename = "output.avi"
+    framsePerSecond = dt.preferences.read("video","FramesPerSecond","integer")
+    
+    dt.print_error("Will try to create video now")
+    -- Set the codec    
+    local codec = ""
+    local codecPreferences = ""
+    
+    codecPreferences = dt.preferences.read("video","Codec","string")
+    if (codecPreferences == "H.264 encoding") then
+	codec = 'x264'
+    end    
+    if (codecPreferences == "XviD encoding") then
+	codec = 'xvid'
+    end
+    if not codecPreferences then
+	codec = 'x264'
+    end
+    
+    -- Create the command
+    local command = "mencoder -idx -nosound -noskip -ovc "..codec.." -lavcopts vcodec=mjpeg -o  "..exportDirectory.."/"..exportFilename.." -mf fps="..framsePerSecond .." mf://"
+
+    for _,v in pairs(image_table) do
+        command = command..v..","
+    end
+
+    dt.print_error("this is the command: "..command)
+    -- USE coroutine.yield. It does not block the UI
+    coroutine.yield("run_command", command)
+
+    dt.print("Video created in "..exportDirectory)
+    
+    if ( dt.preferences.read("video","OpenVideo","bool") == true ) then
+        -- USE coroutine.yield. It does not block the UI
+        local playVideoCommand = "xdg-open "..exportDirectory.."/"..exportFilename
+        coroutine.yield("run_command", playVideoCommand) 
+    end
+end
+
+-- Preferences
+dt.preferences.register("video", "FramesPerSecond", "float", "Video exort: Frames per second", "Frames per Second in the Video export", 15, 1, 99, 0.1 )
+dt.preferences.register("video", "OpenVideo", "bool", "Video exort: Open video after export", "Opens the Video after the export with the standard video player", false )
+
+local handle = io.popen("xdg-user-dir VIDEOS")
+local result = handle:read()
+handle:close()
+dt.preferences.register("video", "ExportDirectory", "directory", "Video exort: Video export directory","A directory that will be used to export a Video",result)
+
+-- Get the MEncoder codec list with: mencoder -ovc help
+dt.preferences.register("video", "Codec", "enum", "Video exort: Codec","Video codec","H.264 encoding","H.264 encoding","XviD encoding") 
+
+-- Register
+dt.register_storage("video", "Video Export", show_status, create_video)
+