view laserkard_source_images/all/convert.pl @ 2:e2e7c63a0a08 laserkard

[svn r3] Cleaned up graphics.
author rlm
date Thu, 31 Dec 2009 22:49:06 -0500
parents 388bd7feec61
children
line wrap: on
line source
1 @rr = glob('*.jpg');
3 $" = "\n";
5 print "@rr\n";
7 #@rr = @rr[0];
8 for $t(@rr)
9 {
11 $t =~ m/(.*)\.jpg/;
12 $name = $1;
15 print "convert", " $name.jpg -resize 630x360 ../display/$name.jpg\n";
16 `convert $name.jpg -resize 630x360 ../display/$name.jpg`;
17 print "convert", " $name.jpg -resize 280x160 ../thumbnails/$name.jpg\n";
18 `convert $name.jpg -resize 280x160 ../thumbnails/$name.jpg`
23 }