annotate laserkard_source_images/convert.pl @ 13:b677f4b6185c laserkard

[svn r14]
author rlm
date Fri, 01 Jan 2010 23:21:30 -0500
parents 8c0bb42eef89
children 5c7f16af1dd2
rev   line source
rlm@12 1 @rr = glob('*.jpg');
rlm@12 2
rlm@12 3 $" = "\n";
rlm@12 4
rlm@12 5 print "@rr\n";
rlm@12 6
rlm@12 7 #@rr = @rr[0];
rlm@12 8 for $t(@rr)
rlm@12 9 {
rlm@12 10
rlm@13 11 $t =~ m/(.*)\.png/;
rlm@12 12 $name = $1;
rlm@12 13
rlm@12 14
rlm@12 15 print "convert", " $name.jpg -resize 630x360 ../display/$name.jpg\n";
rlm@13 16 `convert $name.png -resize 630x360 ../images/display/$name.jpg`;
rlm@12 17 print "convert", " $name.jpg -resize 280x160 ../thumbnails/$name.jpg\n";
rlm@13 18 `convert $name.png -resize 280x160 ../images/thumbnails/$name.jpg`
rlm@12 19
rlm@12 20
rlm@12 21
rlm@12 22
rlm@13 23 }