Mercurial > cortex

annotate thesis/comp.pl @ 496:fa50fa72bbaa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
add to queue. num left: 7
author Robert McIntyre <rlm@mit.edu>
date Sat, 29 Mar 2014 23:02:27 -0400
parents f14fa9e5b67f
children
rev   line source
rlm@471 1 #!/usr/bin/env perl
rlm@442 2
rlm@442 3 use List::Flatten;
rlm@442 4
rlm@442 5 $target = shift(@ARGV);
rlm@442 6
rlm@442 7 $frames = shift(@ARGV);
rlm@442 8
rlm@442 9 @numbers = split(/,/, $frames);
rlm@442 10 @images = map {sprintf("$target/%07d.png", $_)} @numbers;
rlm@442 11
rlm@442 12
rlm@442 13 $output = $target.".png";
rlm@442 14
rlm@442 15 @imagemagick_command = flat("montage", @images, "-geometry", "+2+2", $output);
rlm@442 16
rlm@442 17 print "@imagemagick_command\n";
rlm@443 18
rlm@443 19 system(@imagemagick_command);