vidgrid/mosaic.lua

79 lines
2.0 KiB
Lua

function exec(cmd)
local handle = io.popen(cmd)
local result = handle:read("*a")
handle:close()
result = result:sub(1, #result - 1) -- remove trailing newline
return result
end
function linesToTable(s)
local t = {}
for x in string.gmatch(s, "([^%s]+)") do
table.insert(t, x)
end
return t
end
local cd = exec("pwd")
-- print("| "..cd.." |")
local files = exec('stat -f "%N" *.mp4')
-- print("| "..files.." |")
local filetable = linesToTable(files)
for k, file in ipairs(filetable) do
print("k "..k.." v "..file)
filetable[k] = cd.."/"..file
print(filetable[k])
end
-- FIXME:
if #filetable <= 9 then
cols = 3
rows = 3
end
-- FIXME:
screen_width = 1000
aspect_ratio = 1.5
video_width = screen_width // cols -- "floor division" returns an integer
video_height = video_width // aspect_ratio
window_titlebar_height = 39
current_col = 1
current_row = 1
for _, file in ipairs(filetable) do
print("opening "..file)
print(string.format(" col: %s, row: %s", current_col, current_row))
local x1 = (current_col * video_width) - video_width
local y1 = (current_row * video_height) - video_height + (current_row * window_titlebar_height) - window_titlebar_height
local x2 = x1 + video_width
local y2 = y1 + video_height
local bounds = string.format("{%d, %d, %d, %d}", x1, y1, x2, y2)
print(" "..bounds)
print()
-- os.execute(string.format("open -a 'QuickTime Player' %s", file))
os.execute(
string.format(
[[osascript -e '
set f to POSIX file "%s"
tell application "QuickTime Player"
set theMovie to open file f
tell theMovie
set the looping of theMovie to true
play
end tell
end tell'
]], file))
local cmd = string.format("osascript -e 'tell application \"%s\" to set the bounds of the front window to %s'", "QuickTime Player", bounds)
print(cmd)
os.execute(cmd)
current_col = current_col + 1
if current_col > cols then
current_col = 1
current_row = current_row + 1
end
end