!7

static int bufSize = 40960;

p {
  short[] loop1 = decodeWAVToStereoSamples(loadLibrary(#1400093));
  short[] loop2 = decodeWAVToStereoSamples(newFile(downloadsDir(), "27130__pryght-one__harp.wav"));
  VF1<short[]> vf = mixLoops(loop1, loop2);
  playAudioFromSampleMakingFunction(bufSize, vf);
}

static VF1<short[]> mixLoops(final short[] loop1, final short[] loop2) {
  ret new VF1<short[]>() {
    int i = 0;
    
    void get(short[] pair) {
      int j = max(0, min(l(loop2), 2*iround(i/2*((double) l(loop2))/l(loop1))));
      pair[0] = (short) ((loop1[i] + loop2[j])/2);
      pair[1] = (short) ((loop1[i+1] + loop2[j+1])/2);
      i = (i+2) % l(loop1);
    }
  };
}

Began life as a copy of #1016688