!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();
  new AIStrategy_RandomWithVariation<IntRange> strategy;
  strategy.random = func -> IntRange { randomIntRange(0, h) };
  strategy.vary = func(IntRange r) -> IntRange { varyIntRange(r, 5, 0, h) };
  strategy.submit = func(IntRange r) -> double {
    new Scorer scorer;
    for (MarkedImage img : markedImages)
      audio_scoreEntryPoints(scorer, img, audio_entryPointsUsingBand_v1(img.image, r));
    ret scorer!;
  };
  
  // Select a band, y-average, auto-contrast
  repeat with sleep 1 {
    final new Scorer scorer;

    quickShowZoomedImage(mergeBWImagesVertically(map(markedImages,
      func(MarkedImage img) -> BWImage {
        new Var<BWImage> processedImage;
        L<Int> entryPoints = audio_entryPointsUsingBand_v1(img.image, intRange(y1, y2), +processedImage);
        audio_scoreEntryPoints(scorer, img, entryPoints);
        ret markIntRangesOnTopOfBWImage(
          markIntRangesOnTopOfBWImage(squishBWImage(processedImage!, 20),
            intsToSize2Ranges(entryPoints), 5),
          ll(intRange(img.start, img.end)), 5);
      })));
      
    print(scorer + " / Band: " + y1 + " to " + y2 + " of " + h);
  }
}

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