Fredrik Olofsson

629 posts

Fredrik Olofsson

Fredrik Olofsson

@redFrik

Well-tuned algorithms

Katılım Nisan 2010
0 Takip Edilen806 Takipçiler
Fredrik Olofsson
Fredrik Olofsson@redFrik·
play{ar(LocalOut,z=ar(a=SinOsc,midicps(Scale.yu(\mean5)[b=(0..4)]+(ar(a,1/5*l=ar(LocalIn,5),b/5*2pi).round*12+60)),ar(DelayN,l,1,1/5)*2pi)/5);Splay ar:ar(HPF,z,9)}// #SuperCollider
English
0
0
7
417
Fredrik Olofsson
Fredrik Olofsson@redFrik·
play{ar(LocalOut,ar(DelayN,sin(ar(Hilbert,ar(LPF,ar(HPF,z=ar(LocalIn,14,(0!14)[0]=1/4)@@(1..14),140),11400),1.4).flop@1),d=0.14*1.4,d/(1..4)));Splay ar:z/4}// #SuperCollider
English
0
0
5
375
Fredrik Olofsson
Fredrik Olofsson@redFrik·
play{kr(PeakFollower,ar(BPF,ar(SoundIn),midicps((..136)),e=0.01),1-e)};w=plot(o=Image(p=137),"",p*3@p,1>0,nil,1<0);fork({loop{o.fill(Color());s.getControlBusValues(0,p).do{|a,x|asInteger(p+a.ampdb).do{|y|o.setPixel(0-p+y<<8,x,p-1-y)}};w.refresh;e.wait}},AppClock)// #SuperCollider
English
0
1
7
522
Fredrik Olofsson
Fredrik Olofsson@redFrik·
fork{do(inf,{|i|f=midicps(i div:60%2* -2+Scale.yu(\mean5)[i-(i div:11)]+70-(i div:12+1%2*12))+[0,2/3];play{ar(a=SinOsc,f+ar(a,f,0,f*1.5**ar(a,i%2*i div:[3,4]%7%6/4*3/(1+d=i div:12%3>>1),[i,i*2])),0,kr(XLine,0.1,1e-4,4+d,kr(AmpComp,f),0,2))};wait(d+[1,1/30]@@i)})}// #SuperCollider
English
0
2
12
985
Fredrik Olofsson
Fredrik Olofsson@redFrik·
play{l=ar(a=SinOsc,9**ar(a,1/99)/b=(1..9));t=1-ar(Amplitude,p=ar(LocalIn,9)).lag(1/99);o=ar(a,99+l,l-t**ar(a,t**9*999/b)*9,t);{|i|o=o+ar(CombC,p=p.rotate,0.9,ar(a,1/b/9).range(*b**i/[99+9,99]),i+1)}!3;ar(LocalOut,o=tanh(ar(HPF,o*l.max*v=0.9**9,9)));ar(Splay,o*v)}// #SuperCollider
Català
0
0
11
0
Fredrik Olofsson
Fredrik Olofsson@redFrik·
r{loop{x.release(24);play(x={ar(Splay,ar(a=AllpassC,ar(a,ar(RLPF,ar(VarSaw,midicps({[0,2,5,7,9].choose+[36,48].choose}!4+l=kr(c=LFTri,d=1/12,b=(1..8)/4)/8),0,l+0.4),8**kr(c,d*b)*999),1,ar(c,[6,4,6]/4,[0,1])+1/2),1,1/2,4,d))},s,0,9);wait(9.rand/8+33.rand+8)}}.play// #SuperCollider
English
0
0
15
0
Fredrik Olofsson
Fredrik Olofsson@redFrik·
play{ar(Splay,7**ar(a=SinOsc,g=1/(b=(1..9))/99)/9*ar(a,999*b.scramble/ar(f=RLPF,ar(c=Latch,round(ar(d=WhiteNoise),0.5)+2,ar(e=BrownNoise)+1.4>ar(a,b/999)),9**ar(a,g*9)*999,ar(a,b/77)/2+0.6))*ar(f,ar(c,ar(d),ar(e)+1.3>ar(a,b/99)),9**ar(a,g)*999,ar(a,b/88)/2+0.6))}// #SuperCollider
English
2
0
16
0
Fredrik Olofsson
Fredrik Olofsson@redFrik·
play{mean({|i|ar(a=SinOscFB,(i+1*c=ar(a,1/64).round*10+50)+ar(a,2.02,1,2),ar(a,i+1/24,1)+1/2,ar(a,i+1/16,1))%ar(a,i+1*50.05**ar(a,6,1),1,ar(a,i+1/36,1))}!12).tanh+ar(Splay,ar(a,ar(a,(1..5),1,3).round+5*c,1,ar(a,12,1).max*3).tanh/9)+ar(a,c,0.7,ar(a,3,1).min(0)/3)}// #SuperCollider
CY
0
1
11
0
Fredrik Olofsson
Fredrik Olofsson@redFrik·
float i=0,j=0;void setup(){size(999,900,P3D);smooth(8);background(255);stroke(0, 9);noFill();}void draw(){j=i%3;translate(333*j+167,i++/3%1200);rotate(cos(i/150));box(i/3/(3+j));}// #Processing
Fredrik Olofsson tweet media
English
0
2
11
0
Fredrik Olofsson
Fredrik Olofsson@redFrik·
play{x=ar(Splay,ar(SinOscFB,ar(a=StandardL,(b=Scale.yu(\mean5).semitones)/8+8,b/5+1)+f=midicps(ar(DegreeToKey,LocalBuf newFrom:b,2**ar(a,ar(a,b+1/32,b+1),b/7+1)*12)+36-(ar(a,1/32)>0)),ar(a,1/3,b/8+1)+1/3,ar(a,b+2/32,b/9+1).max*kr(AmpComp,f)/16));x+ar(GVerb,x,99)}// #SuperCollider
English
1
3
12
0
Fredrik Olofsson
Fredrik Olofsson@redFrik·
play{(c=(f=ar(a=SinOsc,_,[0,5])).(25+f.(50.01)*ar(BLowPass,f.(0.1)/8+0.5*f.(252)*g=f.(5),round(g/2+1)/9**round(f.(1)*f.(5e-3)+1.02)*30*(g*3+40),0.05)*50)*f.(50.5*f.(50)/5+0.5)*f.(0.505)/5)+ar(d=PitchShift,c,0.5,0.5,0,0.5)+ar(d,c,0.5,round(5**f.(5e-3)),0.05,0.05)}// #SuperCollider
Eesti
0
2
15
0
Fredrik Olofsson
Fredrik Olofsson@redFrik·
play{ar(a=LorenzL,ar(a,7,13,10,2.1,0.1)+3*(4**ar(a,1)+0.5)*d=[8000,8008])*ar(a,1)/5};defer({play{b=[4,2,1,8,6];ar(Splay,9/b*max(0.5-ar(a,b/3+1))/2*ar(a,d/4*b,2**ar(a,2**ar(a,1))/12+10,ar(a,b/3).round(0.5).lag2*12+35,ar(a,1/11).round(1/3).lag2/12+0.153,0.1))}},13)// #SuperCollider
English
1
2
14
0
Fredrik Olofsson
Fredrik Olofsson@redFrik·
play{d=ar(a=QuadC,5);ar(a,500)*d/99+ar(Splay,ar(a,999*b=[5,2.5,6])*ar(a,b/15).max/999*ar(a,b))+ar(AllpassN,ar(a,[12,16]*99)*ar(a,0.1,xi:[-0.5,-1]).max*ar(a,15).max/15+ar(Pan2,ar(a,99*b,1,ar(a,1/b/[15,5])>0*0.375-1.25).tanh,0.5*c=ar(a,b/15)*d,c).mean,e=1/15,e,15)}// #SuperCollider
English
0
1
10
0
Fredrik Olofsson
Fredrik Olofsson@redFrik·
play{ar(Splay,3**ar(a=FBSineC,1/b=(1..8).rotate(6))/5*ar(a,999*b,2**ar(a,b/9)*4-1,ar(a,b/8)/2+1+(99**ar(a,1/4)/99),d=ar(a,b/12)>0/80+1.051,ar(a,1/b)/40+0.1)+(ar(a,ar(a,27+b)>0+2+b*d*1400,2,c=ar(a,1/b)+1,c/2,2,2)/12)+ar(HPF,ar(a,32)<0,3,ar(a,b*70/d)*ar(a,1/2)))/2}// #SuperCollider
English
0
0
7
0
Fredrik Olofsson
Fredrik Olofsson@redFrik·
play{y={|...x|ar(BBandPass,*x)};ar(Splay,y.(n=ar(GrayNoise,ar(a=SinOsc,1/(b=(1..13).rotate(3))/99).max),f=62.5*b,ar(a,0.5)+ar(a,b/999)/99+0.1,ar(a,b/666)+2)+y.(n,c=f*[6,3,7,5,1,8,4,2],9**ar(a,b/333)/99,666/c)+y.(n,c/2,9**ar(a,b/222)/99,888/c)*ar(a,1e-3,b/9).max)}// #SuperCollider
CY
0
1
14
0
Fredrik Olofsson
Fredrik Olofsson@redFrik·
Quarks.install("UGenPatterns"); Pbind(\dur,1/8,\degree,Pindex((0..9),Pdefn(\,0)%9)).play Pdefn(\,PLFSaw(16)*9) Pdefn(\,PLFSaw(16)*1+1) Pdefn(\,PLFSaw(16)*2+2) Pdefn(\,PLFSaw(20)*2+2) Pdefn(\,PLFSaw(3.3)*2+2) Pdefn(\,PLFSaw(3.3)*4+2) Pdefn(\,PSinOsc(0.302)*40) //etc #SuperCollider
CY
0
2
11
0