1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/thesis/comp.pl	Mon Mar 24 22:43:06 2014 -0400
     1.3 @@ -0,0 +1,17 @@
     1.4 +#!/bin/perl
     1.5 +
     1.6 +use List::Flatten;
     1.7 +
     1.8 +$target = shift(@ARGV);
     1.9 +
    1.10 +$frames = shift(@ARGV);
    1.11 +
    1.12 +@numbers = split(/,/, $frames);
    1.13 +@images = map {sprintf("$target/%07d.png", $_)} @numbers;
    1.14 +
    1.15 +
    1.16 +$output = $target.".png";
    1.17 +
    1.18 +@imagemagick_command = flat("montage", @images, "-geometry", "+2+2", $output);
    1.19 +
    1.20 +print "@imagemagick_command\n";