2022-01-16

#jamuary jam number 8. Some phasing triangle wave chords with extra grit added by a decimator. Played through the ValhallaDelay Pitch-GoldenVerb preset 50% wet.

(
SynthDef(\tri, { |out, freq = 440, gate=1, amp = 0.2|
  var snd, env;
  env = EnvGen.ar(Env.asr(3, 0.9, 3), gate: gate, doneAction: 2);

  snd = env *
  Mix.new([
	LFTri.ar(freq),
	LFTri.ar(freq*(3/2)*1.005),
	PinkNoise.ar(0.4)
  ]);
  snd = Decimator.ar(snd, bits: IRand.new(4,8));
  snd = LPF.ar(snd, IRand.new(3000,5000));
  Out.ar(out, Pan2.ar(snd * amp));
}).add();
)

(
Pdef(\c1, Pbind(
  \instrument, \tri,
  \dur, Pseq([8, 8, 4, 4], inf),
  \scale, Scale.major,
  \degree, Pseq([1, 5, 6, 4], inf),
  \legato, 1.1,
  \out, 0,
  \ctranspose, -12,
));

Pdef(\c2, Pbind(
  \instrument, \tri,
  \dur, 6,
  \scale, Scale.majorPentatonic,
  \degree, Pseq([1, 5, 2], inf),
  \legato, 1.1,
  \out, 0,
  \amp, 0.1,
));

Pdef(\c3, Pbind(
  \instrument, \tri,
  \dur, 2,
  \scale, Scale.majorPentatonic,
  \degree, Pseq([1, \, 3, \, 2], inf),
  \legato, 1.1,
  \out, 0,
  \amp, 0.05,
  \ctranspose, 12,
));
);

Pdef(\c1).play;
Pdef(\c2).play;
Pdef(\c3).play;

The aim was to create a nice shifting bed for some improvised piano, which I might try tomorrow.