comparison thesis/comp.pl @ 442:eaf8c591372b

get perl scripts for compositing images.
author Robert McIntyre <rlm@mit.edu>
date Mon, 24 Mar 2014 22:43:06 -0400
parents
children d3c5f9b70574
comparison
equal deleted inserted replaced
441:c20de2267d39 442:eaf8c591372b
1 #!/bin/perl
2
3 use List::Flatten;
4
5 $target = shift(@ARGV);
6
7 $frames = shift(@ARGV);
8
9 @numbers = split(/,/, $frames);
10 @images = map {sprintf("$target/%07d.png", $_)} @numbers;
11
12
13 $output = $target.".png";
14
15 @imagemagick_command = flat("montage", @images, "-geometry", "+2+2", $output);
16
17 print "@imagemagick_command\n";