Mercurial > cortex

     1 #!/usr/bin/env 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";

    18 

    19 system(@imagemagick_command);
author	Robert McIntyre <rlm@mit.edu>
date	Sun, 27 Apr 2014 21:52:39 -0400
parents	f14fa9e5b67f
children