Mercurial > laserkard

annotate laserkard_source_images/convert.pl @ 106:5b0753c6f34d laserkard tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
updated to newest compojure and a simpler syntax
author Robert McIntyre <rlm@mit.edu>
date Mon, 27 Sep 2010 20:22:58 -0400
parents 2f537455ebf7
children
rev   line source
rlm@15 1 #!/usr/bin/perl
rlm@15 2 @rr = glob('*.png');
rlm@15 3
rlm@15 4 $" = "\n";
rlm@15 5
rlm@15 6 print "@rr\n";
rlm@15 7
rlm@15 8 #@rr = @rr[0];
rlm@15 9 for $t(@rr)
rlm@15 10 {
rlm@15 11
rlm@15 12 $t =~ m/(.*)\.png/;
rlm@15 13 $name = $1;
rlm@15 14
rlm@15 15
rlm@18 16 $cmd1 = "convert $name.png -resize 518x ../images/display/$name.jpg";
rlm@18 17 $cmd2 = "convert $name.png -resize 250x ../images/templates/$name.jpg";
rlm@15 18
rlm@18 19 print "$cmd1\n";
rlm@18 20 `$cmd1`;
rlm@18 21 print "$cmd2\n";
rlm@18 22 `$cmd2`;
rlm@15 23
rlm@15 24
rlm@15 25
rlm@15 26 }