Mercurial > laserkard
diff laserkard_source_images/all/convert.pl @ 1:388bd7feec61 laserkard
[svn r2] added source images
author | rlm |
---|---|
date | Wed, 30 Dec 2009 02:10:57 -0500 |
parents | |
children |
line wrap: on
line diff
1.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000 1.2 +++ b/laserkard_source_images/all/convert.pl Wed Dec 30 02:10:57 2009 -0500 1.3 @@ -0,0 +1,23 @@ 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/(.*)\.jpg/; 1.15 +$name = $1; 1.16 + 1.17 + 1.18 +print "convert", " $name.jpg -resize 630x360 ../display/$name.jpg\n"; 1.19 +`convert $name.jpg -resize 630x360 ../display/$name.jpg`; 1.20 +print "convert", " $name.jpg -resize 280x160 ../thumbnails/$name.jpg\n"; 1.21 +`convert $name.jpg -resize 280x160 ../thumbnails/$name.jpg` 1.22 + 1.23 + 1.24 + 1.25 + 1.26 +} 1.27 \ No newline at end of file