Mercurial > laserkard
diff laserkard_source_images/convert.pl @ 15:5c7f16af1dd2 laserkard
[svn r16] resize!
author | rlm |
---|---|
date | Fri, 01 Jan 2010 23:31:58 -0500 |
parents | b677f4b6185c |
children | 2f537455ebf7 |
line wrap: on
line diff
1.1 --- a/laserkard_source_images/convert.pl Fri Jan 01 23:21:43 2010 -0500 1.2 +++ b/laserkard_source_images/convert.pl Fri Jan 01 23:31:58 2010 -0500 1.3 @@ -1,23 +1,24 @@ 1.4 -@rr = glob('*.jpg'); 1.5 - 1.6 -$" = "\n"; 1.7 - 1.8 -print "@rr\n"; 1.9 - 1.10 -#@rr = @rr[0]; 1.11 -for $t(@rr) 1.12 -{ 1.13 - 1.14 -$t =~ m/(.*)\.png/; 1.15 -$name = $1; 1.16 - 1.17 - 1.18 -print "convert", " $name.jpg -resize 630x360 ../display/$name.jpg\n"; 1.19 -`convert $name.png -resize 630x360 ../images/display/$name.jpg`; 1.20 -print "convert", " $name.jpg -resize 280x160 ../thumbnails/$name.jpg\n"; 1.21 -`convert $name.png -resize 280x160 ../images/thumbnails/$name.jpg` 1.22 - 1.23 - 1.24 - 1.25 - 1.26 -} 1.27 +#!/usr/bin/perl 1.28 +@rr = glob('*.png'); 1.29 + 1.30 +$" = "\n"; 1.31 + 1.32 +print "@rr\n"; 1.33 + 1.34 +#@rr = @rr[0]; 1.35 +for $t(@rr) 1.36 +{ 1.37 + 1.38 +$t =~ m/(.*)\.png/; 1.39 +$name = $1; 1.40 + 1.41 + 1.42 +print "convert", " $name.png -resize 582x360\! ../images/display/$name.jpg\n"; 1.43 +`convert $name.png -resize 582x360\! ../images/display/$name.jpg`; 1.44 +print "convert", " $name.png -resize 210x130\! ../images/templates/$name.jpg\n"; 1.45 +`convert $name.png -resize 210x130\! ../images/templates/$name.jpg` 1.46 + 1.47 + 1.48 + 1.49 + 1.50 +}