How to loop a sound

Question

I have created a sound which I would like to play continuously until stopped, by looping back to the beginning. The sound is represented as list of samples, which can be played by

EmitSound[Sound[SampledSoundList[list, rate]]]

or

ListPlay[list, SampleRate -> rate]

Any suggestions?

Answer 1

Here is a way of doing a sound loop with a scheduled task. The task is started and stopped with a Toggler that looks like a play/pause button.

sound = Play[(2 t) Sin[2 Pi 2000 t], {t, 0, 1}];
DynamicModule[{state = "pause"},
  Grid[{{
    Toggler[Dynamic @ state,
      {"pause" -> Style["\[RightPointer]", 24], 
       "play" -> Style["\[FilledSmallSquare]", 16]}],
    Dynamic @
      If[state == "play",
        If[ScheduledTasks[] == {}, RunScheduledTask[EmitSound[sound]]]; "playing",
        If[ScheduledTasks[] != {}, RemoveScheduledTask[ScheduledTasks[]]]; "paused"]}}]]

It starts off paused, looking like

Clicking on the right facing triangle starts the sound loop and the Toggler changes to black square, so while the sound is playing, the display looks like

Clicking on square stops the sound loop.

Answer 2

The short code

run = True; Button["stop", run = False]
While[True, Print[run]; Pause[1]; If[! run, Break[]]]

prints the value of run as long as it is True. Clicking the Button labeled stop sets run to False and terminates the loop. Replacing Print[run]; Pause[1] by code to play the tones should behave the same.

run = True; Button["stop", run = False]
While[True, ListPlay[list, SampleRate -> rate]; If[! run, Break[]]]