Mercurial > laserkard
annotate laserkard_source_images/convert.pl @ 15:5c7f16af1dd2 laserkard
[svn r16] resize!
| author | rlm |
|---|---|
| date | Fri, 01 Jan 2010 23:31:58 -0500 |
| parents | b677f4b6185c |
| children | 2f537455ebf7 |
| rev | line source |
|---|---|
| rlm@15 | 1 #!/usr/bin/perl |
| rlm@15 | 2 @rr = glob('*.png'); |
| rlm@15 | 3 |
| rlm@15 | 4 $" = "\n"; |
| rlm@15 | 5 |
| rlm@15 | 6 print "@rr\n"; |
| rlm@15 | 7 |
| rlm@15 | 8 #@rr = @rr[0]; |
| rlm@15 | 9 for $t(@rr) |
| rlm@15 | 10 { |
| rlm@15 | 11 |
| rlm@15 | 12 $t =~ m/(.*)\.png/; |
| rlm@15 | 13 $name = $1; |
| rlm@15 | 14 |
| rlm@15 | 15 |
| rlm@15 | 16 print "convert", " $name.png -resize 582x360\! ../images/display/$name.jpg\n"; |
| rlm@15 | 17 `convert $name.png -resize 582x360\! ../images/display/$name.jpg`; |
| rlm@15 | 18 print "convert", " $name.png -resize 210x130\! ../images/templates/$name.jpg\n"; |
| rlm@15 | 19 `convert $name.png -resize 210x130\! ../images/templates/$name.jpg` |
| rlm@15 | 20 |
| rlm@15 | 21 |
| rlm@15 | 22 |
| rlm@15 | 23 |
| rlm@15 | 24 } |