Fork Code: Carousel

name

code content

(
SynthDef("AM", { arg freq = 440, modfreq = 5, amp = 0.5, attack = 0.01, decay = 0.3, release = 0.1, pos = 0, gate = 1, phaserfreq = 0, phaserdepth = 0.3;
       var phaser, carrier, modulator, env;
       phaser = SinOsc.ar(freq: phaserfreq, mul: phaserdepth*modfreq, add: modfreq);
       modulator = SinOsc.ar(phaser).range(0, 1);
       carrier = SinOsc.ar(freq: freq, mul: modulator);
       env = Env.adsr(
       attackTime: attack,
       decayTime: decay,
       sustainLevel: 0.8,
       releaseTime: release).kr(doneAction: 2, gate: gate);
       carrier = carrier * env * amp;
       Out.ar(0, Pan2.ar(carrier, pos))
}).add;
)

(
 Pbind(
      \instrument, "AM",
      \dur, 1/4,
      \degree, Pseq([0,3,5,7,5,3], inf),
      \ctranspose,Pseq([Pseq([0],24),Pseq([3],24),Pseq([5],24)],inf),
      \modfreq,  2000, // try higher numbers here
      \pmindex, Pwhite(2, 3),
      \amp, 0.3,
      \attack, 1,
      \release, Pwhite(0.1, 0.3),
      \pos,Pseq([Pseq([1],8),Pseq([1],8),Pseq([1],8),Pseq([1],8)],inf),
).play;
)

code description use markdown for formating

category tags comma separated, i.g. "wild, siren" (do not enter default SC class names, please)

ancestor(s) comma separated identificators, i.g. "1-C,1-1,1-4M,1-x"

Private? the code will be accessible by direct url and not visible in public activity

comment of change