!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);

    }

  };

}