Fork Code: simple smooth arp

name

code content

(
s.boot;
)

(
SynthDef(\smooth, { |freq = 440, sustain = 1, amp = 0.5|
    var sig;
    sig = SinOsc.ar(freq, 0, amp) * EnvGen.kr(Env.linen(0.05, sustain, 0.1), doneAction: 2);
    Out.ar(0, sig ! 2)
}).add;
);

(

(
p = Pbind(
        // the name of the SynthDef to use for each note
    \instrument, \smooth,
        // MIDI note numbers -- converted automatically to Hz
    \midinote, Pseq([36 + 0,  36 + 7, 36 + 12], inf),
        // rhythmic values
    \dur, Pseq([0.5, 0.5, 0.5], inf)
).play;
);


(
p = Pbind(
        // the name of the SynthDef to use for each note
    \instrument, \smooth,
        // MIDI note numbers -- converted automatically to Hz
    \midinote, Pseq([60+0,  60+5,  60+7,  60+8,  60+7, 60+5], inf),
        // rhythmic values
    \dur, Pseq([0.5, 0.5, 0.5, 0.5, 0.5, 0.5], 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