view thesis/comp.pl @ 501:78d846dcfb3d

processing bib queue. num left: 2
author Robert McIntyre <rlm@mit.edu>
date Sat, 29 Mar 2014 23:46:54 -0400
parents f14fa9e5b67f
children
line wrap: on
line source
1 #!/usr/bin/env perl
3 use List::Flatten;
5 $target = shift(@ARGV);
7 $frames = shift(@ARGV);
9 @numbers = split(/,/, $frames);
10 @images = map {sprintf("$target/%07d.png", $_)} @numbers;
13 $output = $target.".png";
15 @imagemagick_command = flat("montage", @images, "-geometry", "+2+2", $output);
17 print "@imagemagick_command\n";
19 system(@imagemagick_command);