SingleSampleFeedback.scd

~buf = Buffer.alloc(s, 64 * 4);
~buf.clear;

({
  var b, x, y, out, sig;
  b = LocalBuf(1);
  b.set(0);
  y = Dbufrd(b);
  x = (y + 1) % 7;
  out = Duty.ar(SampleDur.ir, 0, Dbufwr(x, b));
  sig = DC.ar(1) - out.sign;
  RecordBuf.ar(sig, ~buf.bufnum, loop: 0, doneAction: Done.freeSelf);
}.play)

~plotter = ~buf.plot;
//~plotter.parent.alwaysOnTop = true;
~plotter.plotMode_(\steps).refresh;

~buf.free;