!7

cmodule LearnActiveTab > DynSingleFunctionWithPrintLog {
  LPair<RGBImage, Rect> scaledImages;
  
  void doIt {
    // load scaled down test images
    
    LPair<File, Rect> data = gatherMarkedThingInImages(listImageFiles(aiImageAlbumDir()), "Active tab");
    pnlStruct(data);
    
    int gridSize = 4;
    scaledImages = scaleDownTestImagesWithRect(gridSize, data);
    
    // make "random & vary" module
    
    RandomAndVary_Record<CloseToColorPredicate> rav = new(CloseToColorPredicate, 
      color := new RandomAndVary_RGBInt,
      maxDistance := new RandomAndVary_Double);
      
    // optimize
      
    CloseToColorPredicate e = pairA(racerOptimize(rav, func(CloseToColorPredicate e) -> double { scoreColorPredicateByRect(e, scaledImages) }, minRuntimeUnless100 := 10.0));
    
    print(e);
    showImage(renderColorPredicateOnTestImages(e, pairsA(scaledImages));
    
    // use centroid to detect rects
    
    for (Pair<RGBImage, Rect> p : scaledImages) {
      DoublePt pt = centroidForColorPredicate(e, p.a);
      if (pt == null) continue with print("No result");
      double dist = ptDistance(pt, centerOfRect(p.b));
      print(pt + " / " + centerOfRect(p.b));
      print("Error: " + percentRatio(dist, hypotenuse(p.a.getWidth(), p.a.getHeight())) + "%");
    }
  }
}

Began life as a copy of #1022921