Mercurial > laserkard
annotate laserkard_source_images/all/convert.pl @ 6:ab564637d8ca laserkard
[svn r7] increased quality for experimentation
| author | rlm |
|---|---|
| date | Fri, 01 Jan 2010 18:15:20 -0500 |
| parents | 388bd7feec61 |
| children |
| rev | line source |
|---|---|
| rlm@1 | 1 @rr = glob('*.jpg'); |
| rlm@1 | 2 |
| rlm@1 | 3 $" = "\n"; |
| rlm@1 | 4 |
| rlm@1 | 5 print "@rr\n"; |
| rlm@1 | 6 |
| rlm@1 | 7 #@rr = @rr[0]; |
| rlm@1 | 8 for $t(@rr) |
| rlm@1 | 9 { |
| rlm@1 | 10 |
| rlm@1 | 11 $t =~ m/(.*)\.jpg/; |
| rlm@1 | 12 $name = $1; |
| rlm@1 | 13 |
| rlm@1 | 14 |
| rlm@1 | 15 print "convert", " $name.jpg -resize 630x360 ../display/$name.jpg\n"; |
| rlm@1 | 16 `convert $name.jpg -resize 630x360 ../display/$name.jpg`; |
| rlm@1 | 17 print "convert", " $name.jpg -resize 280x160 ../thumbnails/$name.jpg\n"; |
| rlm@1 | 18 `convert $name.jpg -resize 280x160 ../thumbnails/$name.jpg` |
| rlm@1 | 19 |
| rlm@1 | 20 |
| rlm@1 | 21 |
| rlm@1 | 22 |
| rlm@1 | 23 } |