Mercurial > cortex
annotate thesis/comp.pl @ 467:ade64947d2bf
s for work at MIT.
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Fri, 28 Mar 2014 15:30:23 -0400 |
parents | d3c5f9b70574 |
children | f14fa9e5b67f |
rev | line source |
---|---|
rlm@442 | 1 #!/bin/perl |
rlm@442 | 2 |
rlm@442 | 3 use List::Flatten; |
rlm@442 | 4 |
rlm@442 | 5 $target = shift(@ARGV); |
rlm@442 | 6 |
rlm@442 | 7 $frames = shift(@ARGV); |
rlm@442 | 8 |
rlm@442 | 9 @numbers = split(/,/, $frames); |
rlm@442 | 10 @images = map {sprintf("$target/%07d.png", $_)} @numbers; |
rlm@442 | 11 |
rlm@442 | 12 |
rlm@442 | 13 $output = $target.".png"; |
rlm@442 | 14 |
rlm@442 | 15 @imagemagick_command = flat("montage", @images, "-geometry", "+2+2", $output); |
rlm@442 | 16 |
rlm@442 | 17 print "@imagemagick_command\n"; |
rlm@443 | 18 |
rlm@443 | 19 system(@imagemagick_command); |