From 0a3ef697eb37936449dc3768b4e9bac1f903cd76 Mon Sep 17 00:00:00 2001 From: Jules Laplace Date: Sun, 17 Jun 2018 19:07:30 +0200 Subject: dir2mov --- dir-to-movie.pl | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) (limited to 'dir-to-movie.pl') diff --git a/dir-to-movie.pl b/dir-to-movie.pl index 8f0afa3..c61a429 100755 --- a/dir-to-movie.pl +++ b/dir-to-movie.pl @@ -3,16 +3,24 @@ my $i = 0; my $ls = `ls -1v *.png`; my @lines = split('\n', $ls); +my $pwd = `pwd`; +chomp $pwd; +$pwd .= '/'; system('mkdir', 'tmp'); for my $line (@lines) { chomp $line; - system('ln', '-s', $line, sprintf('./tmp/frame_%05d.png', $i)); + system('ln', '-s', $pwd . $line, sprintf('./tmp/frame_%05d.png', $i)); $i += 1; } -system("ffmpeg", "-i", "./tmp/frame_%05d.png", "-y", "-c:v", "libx264", "-vf", "fps=25", "-pix_fmt", "yuv420p", "-s", "456x256", $tag . ".mp4"); +system("ffmpeg", + "-i", "./tmp/frame_%05d.png", + "-y", "-c:v", "libx264", "-vf", "fps=25", "-pix_fmt", "yuv420p", + "-s", "1024x512", + $tag . ".mp4" +); END { system('rm', '-rf', 'tmp'); -- cgit v1.2.3-70-g09d2