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