!7

import static x30_pkg.x30_util.VF1;

sclass PlayAudioLoop > DynModule {
  bool enabled = true;
  float gain = 0.5f;
  File file;
  
  transient short[] loop;
  transient VF1<double[]> source;
  transient GainSoundSource gainSource;
  
  start {
    loop = decodeAudioFileToStereoSamples(file);
    
    onChange(r {
      set(gainSource, gain := enabled ? (double) gain : 0.0);
    });
    
    // Make sound source & add to audio output module
    dm_addSoundSource(
      gainSource = GainSoundSource(enabled ? gain : 0,
        source = stereoSamplesIterator(loop)));
  }

  visualize {
    ret jHandleFileDrop(voidfunc(final File f) enter { thread { loadFile(f); } },
      centerAndSouth(withLabel("File:", dm_fieldLabel('file)),
        centerAndEast(
          withLabel("Volume (0-200%):", liveSliderZeroToOne(gain/2, voidfunc(float f) { setField(gain := f*2) })),
          dm_fieldCheckBox('enabled))));
  }

  void loadFile(File f) {
    loop = null;
    setField(file := f);
    print("Loading audio file: " + f);
    pcall { loop = decodeAudioFileToStereoSamples(f); }
    gainSource.replaceSource(source = stereoSamplesIterator(loop));
  }
}