!7

import static x30_pkg.x30_util.VF1;

sclass DemoAudioLoop > DynPrintLog {
  transient VF1<double[]> source;
  transient S out; // ID of Audio Output module
  transient short[] loop;
  
  void start {
    loop = decodeWAVToStereoSamples(loadLibrary(#1400093));
    out = dm_makeOrShowModule("#1016699/AudioOutput");
    if (out == null) ret with print("Audio Output module not found");
    
    // Make sound source
    source = stereoSamplesIterator(loop);
    
    // Add sound source to audio output
    call(dm_getModule(out), 'addSource, source);
    ownTimer(source, voidfunc(VF1<double[] source) {
      call(dm_getModule(out), 'removeSource, source)
    });
  }
}