!7

static LS _stickyLibs_HaarCascade_FaceDetector = ll(#1400137, #1400138, #1400139, #1009016, #1004908, #1003727);

lib 1400137 // OpenIMAJ
lib 1400138 // OpenIMAJ-image-faces
lib 1400139 // OpenIMAJ-image-objectdetection
lib 1009016 // xpp (xmlpull implementation) for the above
lib 1004908 // sanselan
lib 1003727 // commons-lang

import org.openimaj.image.ImageUtilities;
import org.openimaj.image.processing.face.detection.DetectedFace;
import org.openimaj.image.processing.face.detection.HaarCascadeDetector;

sclass HaarCascade_FaceDetector extends F1<BufferedImage, L<RectAndConfidence>> {
  new HaarCascadeDetector detector;
  
  public L<RectAndConfidence> get(BufferedImage img) {
    if (img == null) null;
    ret map(detector.detectFaces(ImageUtilities.createFImage(img)),
      func(DetectedFace f) -> RectAndConfidence {
        RectAndConfidence(openImajRectangleToRect(f.getBounds()), f.getConfidence())
      });
  }
}

module HCFD > DynSingleFunctionWithPrintLog {
  void doIt {
    pnl(new HaarCascade_FaceDetector().get(loadImage2(#1101409)));
  }
}

Began life as a copy of #1019055