1
0
Fork 0

expanded Lorenz patterns

main
Luka Prinčič 2020-03-12 15:44:47 +01:00
parent 1e7deb1e21
commit 4132ead2bf
1 changed files with 28 additions and 9 deletions

View File

@ -1,7 +1,7 @@
( // basic synth SynthDef ( // basic synth SynthDef
SynthDef(\blipo, { | out, freq = 440, amp = 0.1, nharms = 10, pan = 0, gate = 1, sustain | SynthDef(\blipo, { | out, freq = 440, amp = 0.1, nharms = 10, pan = 0, gate = 1, sustain, attack=0.1 |
var audio = Blip.ar(freq * (SinOsc.kr(3).range(1,1.01)), nharms, amp); var audio = Blip.ar(freq * (SinOsc.kr(3).range(1,1.01)), nharms, amp);
var env = Linen.kr(gate, releaseTime: sustain, doneAction: Done.freeSelf); var env = Linen.kr(gate, attackTime: attack, releaseTime: sustain, doneAction: Done.freeSelf);
OffsetOut.ar(out, Pan2.ar(audio, pan, env) ); OffsetOut.ar(out, Pan2.ar(audio, pan, env) );
}).add; }).add;
@ -18,18 +18,37 @@ SynthDef("reverbo", { arg outBus = 0, inBus, wet = 0.1;
( (
// start reverb effect on the private bus // start reverb effect on the private bus
~fxRev = Synth("reverbo", [\inBus, ~revbus, \wet, 0.6]); ~fxRev = Synth("reverbo", [\inBus, ~revbus, \wet, 0.9]);
Pbind( ~dotsP = Pbind(
\dur, Pflatten(1, Plorenz() * 1),
\attack, 0.01,
\octave, 3,
\nharms, Prand((2..7),500) );
~linesP = Pbind(
\dur, Pflatten(1, Plorenz() * 5),
\attack, 3,
\octave, Prand([2,3,4],inf),
\nharms, Prand((1..4),80),
\amp, 0.075 );
~highP = Pbind(
\dur, Pflatten(1, Plorenz() * 5),
\attack, 3,
\octave, 5,
\nharms, Prand((1..3),50),
\amp, 0.008 );
Pbindf(
Ptpar([ 0, ~dotsP, 60, ~linesP, 160, ~highP]),
\instrument, \blipo, \instrument, \blipo,
\dur, Pflatten(1, Plorenz() * 0.8),
\degree, (Pflatten(1, Plorenz()) * 18).asInteger, \degree, (Pflatten(1, Plorenz()) * 18).asInteger,
\mtranspose, Prand([Pn(0,24),Pn(2,24),Pn(4,24)], inf), \mtranspose, Prand([Pn(0,24),Pn(2,24),Pn(4,24)], inf),
\detune, Prand([0,1,2,0.5,1.5], inf), \detune, Prand([0,1,0.5,1.5], inf),
\nharms, Prand((2..10),300), \scale, Scale.minor(\just),
\octave, 3,
\legato, Prand((4..7),inf) * 0.2, \legato, Prand((4..7),inf) * 0.2,
\pan, Prand((-10..10),inf) * 0.1, \pan, Prand((-10..10),inf) * 0.1,
\out, ~revbus \out, ~revbus
).play; ).play;
) )