Image::CCV - Image Recognition with Perl

Max Maischein

Frankfurt.pm

Computer Vision

    Machine Vision, the research subject of teaching robots / computers to see (Wikipedia)

  • OpenCV (Intel)

  • CCV

CCV

  • Cool / Crazy / C / Cached Computer Vision library

  • Two algorithms

  • SIFT - Scale Invariant Feature Transform

  • BBF - Best Bin First - classifier for face detection

SIFT

  • Object recognition

  • No training needed

 1:  my @coords
 2:    = sift(
 3:        "sofa.png",
 4:        "wohnzimmer.png",
 5:    );
 6:  print "@$_\n"
 7:      for @coords;

SIFT

Marketing

Common structures between arbitrary images

BBF - face detection

 1:  my @coords = detect_faces(
 2:      "damian.png"
 3:  );

BBF - Face detection

 1:  my @coords = detect_faces(
 2:      "damian.png"
 3:  );

  • Face detection (not recognition)

  • Trained filter cascade

  • Training results are included

Automation

Automatic thumbnail generation

Works On My Machine

  • Works On My Machine-certified

  • My first XS module

  • Memory leaks

Works On My Machine

  • Works On My Machine-certified

  • My first XS module

  • Memory leaks

  • 32-bit / 64-bit problems:

 1:  warning: cast to pointer from integer
 2:      of different size

Thank you

Questions after the Lightning Talk Session

http://search.cpan.org/dist/Image-CCV

Max Maischein - corion@cpan.org

Terminator Image by Steve Lacey from Bristol, UK

Plans

  • TLD "Predator Algorithm", Track Learn Detect for video object tracking

  • Proper API beyond simple wrapper