rlm@471: #!/usr/bin/env perl
rlm@442: 
rlm@442: use List::Flatten;
rlm@442: 
rlm@442: $target = shift(@ARGV);
rlm@442: 
rlm@442: $frames = shift(@ARGV);
rlm@442: 
rlm@442: @numbers = split(/,/, $frames);
rlm@442: @images = map {sprintf("$target/%07d.png", $_)} @numbers;
rlm@442: 
rlm@442: 
rlm@442: $output = $target.".png";
rlm@442: 
rlm@442: @imagemagick_command = flat("montage", @images, "-geometry", "+2+2", $output);
rlm@442: 
rlm@442: print "@imagemagick_command\n";
rlm@443: 
rlm@443: system(@imagemagick_command);