Mercurial > laserkard

comparison laserkard_source_images/convert.pl @ 15:5c7f16af1dd2 laserkard

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[svn r16] resize!
author rlm
date Fri, 01 Jan 2010 23:31:58 -0500
parents b677f4b6185c
children 2f537455ebf7
comparison
equal deleted inserted replaced
14:c618130ca023 15:5c7f16af1dd2
1 @rr = glob('*.jpg'); 1 #!/usr/bin/perl
2 @rr = glob('*.png');
2 3
3 $" = "\n"; 4 $" = "\n";
4 5
5 print "@rr\n"; 6 print "@rr\n";
6 7
10 11
11 $t =~ m/(.*)\.png/; 12 $t =~ m/(.*)\.png/;
12 $name = $1; 13 $name = $1;
13 14
14 15
15 print "convert", " $name.jpg -resize 630x360 ../display/$name.jpg\n"; 16 print "convert", " $name.png -resize 582x360\! ../images/display/$name.jpg\n";
16 `convert $name.png -resize 630x360 ../images/display/$name.jpg`; 17 `convert $name.png -resize 582x360\! ../images/display/$name.jpg`;
17 print "convert", " $name.jpg -resize 280x160 ../thumbnails/$name.jpg\n"; 18 print "convert", " $name.png -resize 210x130\! ../images/templates/$name.jpg\n";
18 `convert $name.png -resize 280x160 ../images/thumbnails/$name.jpg` 19 `convert $name.png -resize 210x130\! ../images/templates/$name.jpg`
19 20
20 21
21 22
22 23
23 } 24 }