!7

cmodule LearnActiveTab > DynSingleFunctionWithPrintLog {
  LPair<RGBImage, Rect> scaledImages;
  
  void doIt {
    LPair<File, Rect> data = gatherMarkedThingInImages(listImageFiles(
      aiImageAlbumDir()
    ), "Active tab");
    pnlStruct(data);
    
    int gridSize = 4;
    scaledImages = scaleDownTestImagesWithRect(gridSize, data);
    
    RandomAndVary_Record<CloseToColorPredicate> rav = new(CloseToColorPredicate, 
      color := new RandomAndVary_RGBInt,
      maxDistance := new RandomAndVary_Double);
      
    CloseToColorPredicate e = pairA(racerOptimize(rav, f<CloseToColorPredicate, Double> score, minRuntimeUnless100 := 10.0));
    print(e);
    
    showImage(renderColorPredicateOnTestImages(e, pairsA(scaledImages));
  }
  
  double score(CloseToColorPredicate e) {
    ret scoreColorPredicateByRect(e, scaledImages);
  }
}