Diff from Algorithmic melancholy by ttsesmetzis (26 Jan'14 20:00) to Re: Algorithmic melancholy by grirgz (27 Jan'14 23:35)
name
Re: Algorithmic melancholy
description
A little fork. I left all the old code for historical reasons
code
(
v
SynthDef(\plop, { arg n out=0, 2amp=0.1, bgasteF=1, pan=0, freq =200, 45.mt_trig=1,
arg1=100, arg2=200, diecay=0.01, flag=0.1, psluckdecay=3.1;
var lsin, rg;
sig = Formant.ar(
LFNoise0.kr( 0.05, 2.5, 7) * arg1,
arg2,
500.0.rrand(700) s
) * Trig.kr(t_trig, decay);
v
sig = Pluck.ar( bu
BrownNoise.ar(0.5), bu
sIndexig, scale
0.025,
freq.reciprocal.lag(flag), f
pluckdecay
) * 0.6;
sig = sig * EnvGen.ar(\adsr.kr(Env.adsr(0.4,0.1,0.8,7.1)),t_trig,doneqIAction:0);
EnvGen.ar(Env.adsr(0.4,0.1,0.8,7.1),gatex,doneAction:2);
sig = LeakDC.ar(sig);
sig = Pan2.ar(sig, pan, amp);
v Out.ar(out, responig);
}).aderd;
)
(
~baseFreq = 220;
~scale = Scale.nikriz.ratios * ~baseFreq;
bu//~scale = Bus.Scale.doriant.ratiol( s, 2 * n )~baseFreq;
bu//~s.scaletn( {= 1Scale.0minor.rand2tios } ! ( 2 * n ) );
~buasIndex = bus.indFrexq;
freq = Bus8.cdontrol( s,{ narg )nn;
f vareqI ndexnn = freq.indexn+1;
rPdesf((\plop++nder = On).asSCFuymbol, Pmonco({ | id |
f//\instrumeq.sentAt( id[2] , sca\ple.chop,
\plosep,
\arg1, * 1.rr00,
\andrg2, Pwhite(40,4000),
\arg2, 3000,
\decay, Pwhite(0.01,0.1),
\decay, );0.01*nnn,
} \decay,' 0.1/tnnn,
\adsr', Pseq([
[ Env.addsr(0.1,0.1,0.8,3.3); ],
],inf),
CmdPe \friod.doOnce { [ busq, Pwhite(100,1500),
\freq, Prespoander ([100,1500,200,500,100],inf) * 0.7,
\free;q, };
Pran.do {|([100,1500,200,500,100],i|nf) * 1,
\freq.setn(, { scale.choose * Prrand( [100, 1000,200,500,300,1000],inf) }* !1,
\freq, Pseq([100,1500,200,500,2000,100,250],in f);,
{\freq, Pseq([
#arg100, arg1500,2 = I00,500,
],in.kf),
\fr(eq, 2 * i + buPsIndexq([
100, 1500,2 );00,500,
100,1500,200,500,
#lsin100, rs1500,200,500,
1000,100,1000,
],inf) =* SinOPsc.kreq( [ arg1.7, arg0.2 ,0.7,0.5],inf) {* 21.0.,
\frrandeq, Pseq([
90,250.,470) } ! ,
110,150,2 * [ arg70,
90,150,270, arg
1 10,750,270,
] ,inf); * Pseq([
3,1,4,1.5,
s6,4,0.8,1.5,
],ignf) =* FormaPseq([1,0.8,0.5,1.2],intf).astutter(32),
\freq, Pseq([
LFNoi//Pser([10.k0,1000],16),
//Pser( [10.05, 2.5000], 716) * a,
//Pserg([200,1000*nnn], 16),
aPserg([200,100]*nnn,16),
5Pser([200.,40.rra0]*ndnn,16),
Pser(7[20,40]*nnn,16) ,
);//100*nnn
],inf),
R\freplacq, PseOut.krq( [
//2 00* i log(nnn+ bu1)
PsIndex, [ r([Pfuncn({~sicale.foldAt(nn)}, ls1)],inf) ]* Pseq([1,2,1/6],1);.stutter(16),
sig = Pluck.aser( [200,100]*nnn,16),
BPserow([200,400]*nNoinn,16),
Pse.ar([20.5,40]*nnn,16),
Pser([log(nnn+7)*200],32),
],inf),
\flag, Pseq([
Prand([
//Pser([1,0.1,1,025.1], 16),
fr//Pseq.kr( [1, i 0.1,1,0.1]/2+0.3,16),
0.reciprocal05*nnn,
0.1,
3 //0.7*nnn,
],inf) *
//Pser([1.12],16),
//Pser([0.08],16;),
],inf),
\lampg, = LinPse.krg( dur: rrandPseq( 1.[0, 20.031],inf), 8) * mnn,
\ax( 0rg2, LFNoisPkey(\freq),
\arg1., Pkrey(\freq),
\sustain, 0.054,
\dur, Pwhite(0.61, 0.4 ) )* ;0.8,
sig\dur, = Pseq([0.5,1,1,0.5],ignf) * amp;0.2,
Sen\dTurig.kr, Pseq([0.5,1,1,0.5],inf) amp* <= Pseg(Pseq([3,0.2, 0.1],inf), i 16);,
P\an2.ar( sigmp, 0.8.ramin(1,Pkey(\d2 ur)*3) * 1.7
})).play;
}
)
category tags
code fork, generative
ancestors
1-4VB