GIT.Harvie.CZ / mirrors / Programs.git / blame
| Commit | Line | Data |
|---|---|---|
| 38a87dc6 H |
1 | #!/usr/bin/perl |
| 2 | use strict; | |
| 3 | use warnings; | |
| 4 | ||
| 5 | use Imager; | |
| 6 | use Image::ObjectDetect; | |
| 7 | ||
| 8 | my $file = '2.jpg'; | |
| 9 | #my $file = 'input.jpg'; | |
| 10 | my $image = Imager->new->read(file => $file); | |
| 11 | ||
| 12 | my @cascades = ( | |
| 13 | #'/usr/share/opencv/haarcascades/haarcascade_frontalface_default.xml', | |
| 14 | #'/usr/share/opencv/haarcascades/haarcascade_frontalface_alt.xml', | |
| 15 | '/usr/share/opencv/haarcascades/haarcascade_frontalface_alt2.xml', #less sensitive | |
| 16 | #'/usr/share/opencv/haarcascades/haarcascade_frontalface_alt_tree.xml', | |
| 17 | #'/usr/share/opencv/haarcascades/haarcascade_profileface.xml', | |
| 18 | ||
| 19 | #'/usr/share/opencv/haarcascades/haarcascade_upperbody.xml', | |
| 20 | #'/usr/share/opencv/haarcascades/haarcascade_lowerbody.xml', | |
| 21 | #'/usr/share/opencv/haarcascades/haarcascade_fullbody.xml', | |
| 22 | ||
| 23 | #'/usr/share/opencv/haarcascades/haarcascade_mcs_eyepair_small.xml', | |
| 24 | #'/usr/share/opencv/haarcascades/haarcascade_mcs_eyepair_big.xml', | |
| 25 | ); | |
| 26 | ||
| 27 | my @faces; | |
| 28 | foreach(@cascades) { | |
| 29 | push (@faces, detect_objects($_, $file)); | |
| 30 | } | |
| 31 | ||
| 32 | for my $face (@faces) { | |
| 33 | my $file2 = 'paroubek.jpg'; | |
| 34 | my $image2 = Imager->new->read(file => $file2); | |
| 24d4c0d4 | 35 | $image2 = $image2->scale(xpixels => $face->{width}, ypixels => $face->{height}); |
| 38a87dc6 H |
36 | $image->paste(left => $face->{x}, top => $face->{y}, src => $image2); |
| 37 | } | |
| 38 | ||
| 39 | $image->write(file => 'output.jpg'); | |
| 40 | ||
| 41 | print "Content-type: text/html\n\n"; | |
| 42 | print "<head>\n"; | |
| 43 | print "<TITLE>face detect</TITLE>\n"; | |
| 44 | print "</HEAD>\n"; | |
| 45 | print "<BODY>\n"; | |
| 46 | print "<br>\n"; | |
| 47 | print "<img src='input.jpg'>\n"; | |
| 48 | print "<img src='face.jpg'>\n"; | |
| 49 | print "<img src='output.jpg'>\n"; | |
| 50 | print "</BODY>\n"; | |
| 51 | print "</HTML>\n"; |