!7

cmodule VADFromFFT > DynPrintLog {
  new SimpleBaseDrumFinder2 finder;
  double minBPM = 60, maxBPM = 200;
  
  start {
    dm_requireLiveAudioFFT();

    dm_vmBus_onMessage_q newAudioFrequencyImage(voidfunc(virtual BWImage img) {
      float[] b = bwImageColumnBrightnesses_generic(img);
      L<IntRange> ranges = finder.addFrequencyImageBrightnesses(b);
      int[] gaps = intRangeStartGaps(ranges);
      if (empty(gaps)) ret;
      sort(gaps);
      MultiSet<Int> ms = intArrayAsTreeMultiSet(gaps);
      new Best<Int> best;
      for (int gap : keys(ms))
        if (isBetween_double(
          audio_frequencyImage_pixelsToBPM(gap),
          minBPM, maxBPM))
          best.put(gap, ms.get(gap-1)+ms.get(gap)+ms.get(gap+1));
      Int gap = best!;
      if (gap == null) ret with print("no fitting gaps");
      print(ms);
      
      double exactGap = weightedAverage_lit(
        gap-1, ms.get(gap-1),
        gap, ms.get(gap),
        gap+1, ms.get(gap+1));
      double bpm = audio_frequencyImage_pixelsToBPM(exactGap);
      
      printVars_str(+gap, +exactGap, +bpm);
    });
  }
}

Began life as a copy of #1025099