Glitch Pulse

supercollider
// 1. Define SynthDefs
SynthDef(\granular, { |freq = 440, grainDur = 0.1, pos = 0, amp = 0.3|
    var env = EnvGen.ar(Env.perc(0.01, grainDur, 0.1), doneAction: 2);
    var sig = GrainBuf.ar(2, Buffer.read("~/path/to/your/audiofile.wav"), BufRateScale.kr(Buffer.read("~/path/to/your/audiofile.wav")), freq, grainDur, pos, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0