!7

replace MarkedImage with BWImageAndRange.
static L<MarkedImage> markedImages;

p-exp {
  L<File> files = audioRecordingsWithSingleClip();
  pnl(files);
  markedImages = map_printProgress(f audioFileToBWImageAndRange, files);
  
  showOriginalClips();
  findBestBand();
}

svoid findBestBand {
  final int h = first(markedImages).image.getHeight();
  final new Best<IntRange> best;
  final new AIStrategy_RandomWithVariation<IntRange> strategy;
  strategy.random = func -> IntRange { randomIntRange(1, 0, h) };
  strategy.vary = func(IntRange r) -> IntRange { varyIntRange(r, 5, 1, 0, h) };
  strategy.submit = func(final IntRange r) -> double {
    new Scorer scorer;
    for (MarkedImage img : markedImages)
      audio_scoreEntryPoints(scorer, img, audio_entryPointsUsingBand_v1(img.image, r));
    if (best.put(r, scorer!)) {
      print(scorer + " / Band: " + r + " of " + h);
      quickShowZoomedImage(mergeBWImagesVertically(map(markedImages,
        func(MarkedImage img) -> BWImage {
          new Var<BWImage> processedImage;
          L<Int> entryPoints = audio_entryPointsUsingBand_v1(img.image, r, +processedImage);
          ret markIntRangesOnTopOfBWImage(
            markIntRangesOnTopOfBWImage(squishBWImage(processedImage!, 20),
              intsToSize2Ranges(entryPoints), 5),
            ll(intRange(img.start, img.end)), 5);
        })));
    }
    ret scorer!;
  };
  thread { while licensed { strategy.go(); } }
}

svoid showOriginalClips {
  showImage(mergeBWImagesVertically(map renderBWImageAndRange(markedImages)));
}