!7

cmodule LearnDogsVsCats > DynSingleFunctionWithPrintLog {
  /*switchable*/ transient File dir = userDir("dev/dogs-vs-cats/train");
  LPair<RGBImage, Rect> scaledImages;
  
  start {
    if (!dm_osBooting())
      thread { doIt(); }
  }

  void doIt {
    // load scaled down test images
    
    L<File> allImageFiles = listImageFiles(dir);
    Map<File, LPair<Rect, S>> markingsMap = new Map;
    for (File f : allImageFiles)
      mapPutIfNemptyValue(markingsMap, f, loadImageFileMarkings(f));
    pnlStruct(markingsMap);
    if (empty(markingsMap)) ret with print("No marked images found in " + dir);
    
    new Map<File, BWIntegralImage> iImages;
    for (File f : keys(markingsMap))
      iImages.put(f, BWIntegralImage(loadImage2(f)));
    print("Have " + n2(iImages, "integral image") + ", total size: " + str_toM(deepObjectSize(iImages)));
    
    new L<BWImage> allEyeImages;
    for (File f : keys(markingsMap))
      for (Pair<Rect, S> mark : markingsMap.get(f))
        if (eqic(mark.b, "eye"))
          allEyeImages.add(bwResizeSmooth(iBWImageToBWImage(clipIBWImage(virtualScaledIntegralImageBW(iImages.get(f)), mark.a)), 64));
    showImage(mergeBWImagesVertically(allEyeImages));

    //showImage(scaleDownUsingIntegralImageBW(random(values(iImages)), 256));
    //showImage(iBWImageToBWImage(virtualScaledIntegralImageBW(random(values(iImages)), 256)));
  }
}