abstract sclass DynVisualBot > DynPrintLogAndEnabled {
  transient Map<S, BWImage> protos = syncCIMap();
  ISegmenter segmenter;
  transient autoDispose new ScreenShooter shooter;
  transient bool useShooter = true;
  transient ReliableSingleThread rstSegment = dm_rst(module(), r segment);
  transient ReliableSingleThread rstAOA = dm_rst(module(), r aoa);
  transient ImageInfo info, latestWithAOA;
  transient ImageSurface isThings;
  transient double requiredImageSimilarity = 95;
  transient L afterSegmenting = ll(rstAOA); // L<Runnable|voidfunc(ImageInfo)>

  sclass Segment extends BWImageAndRect { *() {} *(Rect r) { super(r); } }
  sclass ImageInfo extends ImageWithProtos<Segment> {}
  
  visualize {
    JComponent sup = super.visualize();
    containerAddFirst(buttons, jbutton("Show segments", rThread showSegments));
    ret jvsplit(
      jCenteredSection("Things found on screen", jscroll_center(isThings = jDoubleBufferedImageSurface())),
    sup);
  }
  
  start-thread {
    dm_requireMouseMover();
    dm_watchFieldAndNow enabled(r { set(shooter, enabled := useShooter && enabled) });
    if (empty(protos))
      makeProtos();
    print("Have " + n2(protos, "proto"));
    if (segmenter == null)
      setField(segmenter := makeSegmenter());
    print("Have segmenter: " + segmenter);
    
    shooter.onNewImage.add(rstSegment);
    shooter.start(enter := f<AutoCloseable> enter);
    started();
  }
  
  /* override me */ void started {}
  /* override me */ void makeProtos {}
  /* override me */ ISegmenter makeSegmenter() { null; }
  
  void segment {
    segment(shooter.latestImage);
  }
  
  ImageInfo segment(BufferedImage img) {
    if (!enabled || img == null || segmenter == null) null; // man weiß ja nie...
    this.info = (ImageInfo) imageWithProtos_segment(segmenter, img,
      iwpClass := ImageInfo.class, segmentClass := Segment.class);
    pcallFAll(afterSegmenting, info);
    ret info;
  }
  
  void aoa {
    ImageInfo info = this.info, ret if null;
    imageWithProtos_doAllOnAll(info, protos, minScore := requiredImageSimilarity, +isThings);
    latestWithAOA = info;
  }
  
  void protoTexts(S... texts) {
     putAll(protos, mapValues loadBWImage(imageSnippetIDsForNames(llQuoted(texts))));
  }
  
  void showSegments() {
    ImageInfo info = this.info, ret if null;
    showMergedBWImagesVertically(firstToUpper(nSegments(info.segments)), collect image(info.segments));
  }
}

Began life as a copy of #1025026