s.boot;
Tempo.bpm = 120;

/*

This session is based on my faulty experimental interpretation of
https://www.soundonsound.com/techniques/synthesizing-drums-bass-drum

Part 1, TBC, today was a busy day, had no time :(

*/

(
  SynthDef(\simplestKick,
    { arg out=0, gate=1, freq=110, shift=40;
      var envelope = EnvGen.ar(Env.perc, doneAction: Done.freeSelf);
      var complexHarmonicWaveform = GbmanL.ar(freq); // _some_ complex thing
      var signal = complexHarmonicWaveform+
      FreqShift.ar(complexHarmonicWaveform, freq:shift)
      ; 
      Out.ar(out, envelope * signal ! 2)
    }
  ).add;
)

(
  Pdef(\shiftScan,
    Pbind(
      \instrument,\simplestKick,
      \shift,Pstutter(4,Pseq([2,4,6,8]*10,4)),
      \freq,Pstutter(16,Pseq([220,165,110,55],1))
    )))
//

Pdef(\shiftScan).record("/tmp/2018-09-05.wav",headerFormat:"WAV")
// ffmpeg -i 2018-09-05.wav -filter_complex alimiter 2018-09-05.ogg # bc [signal] is not normalized