Mercurial > cortex

view thesis/comp.pl @ 443:d3c5f9b70574

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
workling on thesis render.
author Robert McIntyre <rlm@mit.edu>
date Tue, 25 Mar 2014 00:20:01 -0400
parents eaf8c591372b
children f14fa9e5b67f
line wrap: on
line source
     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";



    18 



    19 system(@imagemagick_command);