Mercurial > laserkard
annotate laserkard_source_images/convert.pl @ 14:c618130ca023 laserkard
[svn r15]
| author | rlm |
|---|---|
| date | Fri, 01 Jan 2010 23:21:43 -0500 |
| parents | b677f4b6185c |
| 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 } |