GIT.Harvie.CZ
/
mirrors
/
Programs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
allow changes-only mode
[mirrors/Programs.git]
/
perl
/
facedetect.pl
diff --git
a/perl/facedetect.pl
b/perl/facedetect.pl
index 8139f6eb8e784e8ea6ecb9a6a0adbdd00e57cb2b..ca0cc8895e5fc3a78ad7bf625bf0ec1b41b10208 100755
(executable)
--- a/
perl/facedetect.pl
+++ b/
perl/facedetect.pl
@@
-32,8
+32,7
@@
foreach(@cascades) {
for my $face (@faces) {
my $file2 = 'paroubek.jpg';
my $image2 = Imager->new->read(file => $file2);
for my $face (@faces) {
my $file2 = 'paroubek.jpg';
my $image2 = Imager->new->read(file => $file2);
- $image2 = $image2->scale(xpixels => $face->{width}, ypixels => $face->
-{height});
+ $image2 = $image2->scale(xpixels => $face->{width}, ypixels => $face->{height});
$image->paste(left => $face->{x}, top => $face->{y}, src => $image2);
}
$image->paste(left => $face->{x}, top => $face->{y}, src => $image2);
}
This page took
0.478843 seconds
and
4
git commands to generate.