«smooth arpeggio, updated envelope» by hems.inlet
on 26 Oct'16 17:32 in1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38
( s.boot; ) ( SynthDef(\bass, { |freq = 440, sustain = 1, amp = 0.5| var sig; sig = SinOsc.ar(freq, 0, amp) * EnvGen.kr(Env.perc(0.2), 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; ) )
reception
comments