Mercurial > cortex

annotate thesis/to-frames.pl @ 494:092b60381af0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
processing bib queue. num left: 5
author Robert McIntyre <rlm@mit.edu>
date Sat, 29 Mar 2014 22:46:05 -0400
parents c20de2267d39
children
rev   line source
rlm@441 1 #!/bin/perl
rlm@441 2
rlm@441 3 $movie_file = shift(@ARGV);
rlm@441 4
rlm@441 5 # get file name without extension
rlm@441 6 $movie_file =~ m/^([^.]+)\.[^.]+$/;
rlm@441 7 $movie_name = $1;
rlm@441 8
rlm@441 9 @mkdir_command = ("mkdir", "-vp", $movie_name);
rlm@441 10 @ffmpeg_command = ("ffmpeg", "-i", $movie_file, $movie_name."/%07d.png");
rlm@441 11
rlm@441 12 print "@mkdir_command\n";
rlm@441 13 system(@mkdir_command);
rlm@441 14 print "@ffmpeg_command\n";
rlm@441 15 system(@ffmpeg_command);