clean-up: #52
Tested, cleaned up and uploaded some material from a SuperCollider workshop I held a year ago.
Sound material recorded directly with the built-in laptop mic.
The code is available on the sc page
clean-up: #51
Today a very simple piece of code that takes whatever you're typing in a document and posts it back 2 seconds later. See it as a demonstration. The list is treated as a FIFO buffer.
Note: only works in SuperCollider versions with Document support (not 3.6, but 3.4, 3.5, 3.7...)
(
var delay= 2; //post 2 seconds later
var l= List.new;
//--record in list l
Document.current.keyDownAction= {|doc, key|
l.addFirst(
(key: key, time: Main.elapsedTime)
);
};
//--playback of list l
Routine({
inf.do{
var now= Main.elapsedTime;
if(l.size>0 and:{now-delay>l.last.time}, {
l.pop.postln;
});
0.01.wait;
};
}).play;
)
clean-up: #50
Found more old SuperCollider code laying around... This little lambdoma experiment was based on this Cymatic Music video.
//--8x8 lambdoma matrix
a= [
1/1, 2/1, 3/1, 4/1, 5/1, 6/1, 7/1, 8/1,
1/2, 2/2, 3/2, 4/2, 5/2, 6/2, 7/2, 8/2,
1/3, 2/3, 3/3, 4/3, 5/3, 6/3, 7/3, 8/3,
1/4, 2/4, 3/4, 4/4, 5/4, 6/4, 7/4, 8/4,
1/5, 2/5, 3/5, 4/5, 5/5, 6/5, 7/5, 8/5,
1/6, 2/6, 3/6, 4/6, 5/6, 6/6, 7/6, 8/6,
1/7, 2/7, 3/7, 4/7, 5/7, 6/7, 7/7, 8/7,
1/8, 2/8, 3/8, 4/8, 5/8, 6/8, 7/8, 8/8
];
//--simplified
a= {|x| {|y| y+1/(x+1)}.dup(8)}.dup(8).flat;
s.boot
Pbind(\dur, 0.25, \freq, 60.midicps*Pseq(a.at((0,1..7)))).play
Pbind(\dur, 0.25, \freq, 60.midicps*Pseq(a.at((0,8..63)))).play
Pbind(\dur, 0.25, \freq, 60.midicps*Pseq(a.at((8,9..15)))).play
Pbind(\dur, 0.25, \freq, 60.midicps*Pseq(a.at((32,33..39)))).play
Pbind(\dur, 0.25, \freq, 60.midicps*Pseq(a.at((48,49..55)))).play
Pbind(\dur, 0.25, \freq, 60.midicps*Pseq(a.at((56,57..63)))).play
Pbind(\dur, 0.125, \freq, 60.midicps*Pseq(a)).play
//--16x16 lambdoma matrix
b= {|x| {|y| y+1/(x+1)}.dup(16)}.dup(16).flat;
Pbind(\dur, 0.125, \freq, 60.midicps*Pseq(b)).play
clean-up: #49
Here are some simple programs I wrote for my Audiovisual Programming course at UdK Berlin.
There are three SuperCollider files. They're all very basic and made to be hacked, modified and improved.
| Attachments: | |
|---|---|
| animation_template_test1.scd | |
| animation_template_test2.scd | |
| animation_with_sound_templates.scd |
clean-up: #48
Here's an old port I did of a Pure Data patch called chipwave by Phill Phelps.
Also see the updated Pd version Dan Wilcox made: rc-patches
//after http://www.zenpho.co.uk/chipwave.shtml
s.boot
(
SynthDef(\ioscs, {|out= 0, amp= 0.5, freq= 400, width= 0.25, gate= 1, atk= 0.002, dec= 0, sus= 1, rel= 0.2, ws= #[0, 2, 2, 3, 2, 2, 2, 2, 2], ps= #[0, 12, -12, 0, 7, 0, 7, 0, 7]|
var e= EnvGen.ar(Env.adsr(atk, dec, sus, rel), gate, amp, doneAction:2);
var w= Duty.ar(0.025, 0, Dseq(ws));
var p= Duty.ar(0.025, 0, Dseq(ps));
var f= freq*p.midiratio;
var ti= LFTri.ar(f, 0, 0.5, 0.5);
var sq= LFPulse.ar(f, 0, width*0.5, 2, -1);
var ns= LFNoise0.ar(f*10);
var z= Select.ar(w, [DC.ar(0), ti, sq, ns]);
Out.ar(out, LeakDC.ar(z*e));
}).add;
)
//arp
a= Synth(\ioscs, [\freq, 60.midicps, \amp, 0.5, \width, 0.5]).setn(\ws, #[0, 2, 2, 3, 2, 2, 2, 2, 2], \ps, #[0, 12, -12, 0, 7, 0, 7, 0, 7])
a.release
a= Pbind(\instrument, \ioscs, \midinote, Pseq([60, 60, 70, 60, 65, 63], inf), \amp, 0.5, \dur, 0.25, \width, Pseg(Pseq([0, 1], inf), 5)).play
a.stop
//kick
a= Synth(\ioscs, [\freq, 60.midicps, \amp, 1, \atk, 0.002, \dec, 0, \sus, 1, \rel, 0.3, \width, 0.5]).setn(\ws, #[0, 3, 2, 2, 2, 2, 2, 2, 2], \ps, #[0, 18, -12, 0, 0, -6, -12, -24, -48])
a.release
a= Pbind(\instrument, \ioscs, \midinote, Pseq([40, 48], inf), \amp, 0.5, \rel, 0.3, \legato, 0.3, \dur, 0.5, \width, 0.5, \ws, #[[0, 3, 2, 2, 2, 2, 2, 2, 2]], \ps, #[[0, 18, -12, 0, 0, -6, -12, -24, -48]]).play
a.stop
//snare
a= Synth(\ioscs, [\freq, 60.midicps, \amp, 1, \atk, 0.002, \dec, 0, \sus, 1, \rel, 0.3, \width, 0.5]).setn(\ws, #[0, 3, 2, 3, 3, 3, 3, 3, 3], \ps, #[0, 18, 0, 3, 12, 18, 24, 36, 36])
a.release
a= Pbind(\instrument, \ioscs, \midinote, 70, \amp, Pseq([0, 0.5, 0, 0.25], inf), \rel, 0.3, \dur, 0.5, \width, 0.5, \ws, #[[0, 3, 2, 3, 3, 3, 3, 3, 3]], \ps, #[[0, 18, 0, 3, 12, 18, 24, 36, 36]]).play
a.stop
//bass
a= Synth(\ioscs, [\freq, 60.midicps, \amp, 1, \atk, 0.002, \dec, 0, \sus, 1, \rel, 0.3, \width, 0.5]).setn(\ws, #[0, 1, 1, 1, 1, 1, 1, 1, 1], \ps, #[0, 24, 0, 12, 0, -1, 1, -1, 0])
a.release
a= Pbind(\instrument, \ioscs, \midinote, Pseq([40, 48, 48, 60], inf), \amp, 0.5, \rel, 0.3, \dur, 0.25, \width, 0.5, \ws, #[[0, 1, 1, 1, 1, 1, 1, 1, 1]], \ps, #[[0, 24, 0, 12, 0, -1, 1, -1, 0]]).play
a.stop
(
Ppar([
Pbind(\instrument, \ioscs, \amp, 0.5, \midinote, Pseq([64, 66, 52], inf), \dur, 0.25),
Pbind(\instrument, \ioscs, \amp, 0.5, \midinote, Pseq([60, 70], inf), \dur, 0.5),
Pbind(\instrument, \ioscs, \amp, 0.5, \midinote, 100, \dur, 1/3)
]).play;
)
clean-up: #47
Today I found some old code in my SuperCollider folder that I thought I'd clean up and publish.
Experiments in audio feedback.
s.boot
(
SynthDef(\feedback1, {|freq= 400, amp= 0.1|
var env= EnvGen.kr(Env.perc(1, 4), doneAction:2);
var lin= LocalIn.ar(1);
var src= SinOsc.ar(freq, lin*2pi, amp*env);
LocalOut.ar(src);
Out.ar(0, Pan2.ar(src));
}).add;
)
Synth(\feedback1)
Synth(\feedback1, [\freq, 300])
Synth(\feedback1, [\freq, 300, \amp, 0.255])
(
SynthDef(\feedback2, {|freq= 400, amp= 0.1, fb= 2, del= 0.1|
var env= EnvGen.kr(Env.perc(1, 4), doneAction:2);
var lin= DelayN.ar(LocalIn.ar(1), 1, del);
var src= SinOsc.ar(freq, lin*2pi*fb, amp)*env;
LocalOut.ar(src);
Out.ar(0, Pan2.ar(src));
}).add;
)
Synth(\feedback2)
Synth(\feedback2, [\del, 0.5])
Synth(\feedback2, [\del, 0.01])
Synth(\feedback2, [\del, 0.01, \fb, 3])
Synth(\feedback2, [\freq, 300, \del, 0.1, \fb, 2.5])
(
SynthDef(\feedback3, {|freq= 400, amp= 0.1, fb= 2, del= 0.1, lfo= 1, rate= 2|
var env= EnvGen.kr(Env.perc(1, 4), doneAction:2);
var lin= DelayN.ar(LocalIn.ar(1), 1, del);
var src= SinOsc.ar(freq+SinOsc.ar(rate, 0, lfo), lin*2pi*fb, amp)*env;
LocalOut.ar(src);
Out.ar(0, Pan2.ar(src));
}).add;
)
Synth(\feedback3)
Synth(\feedback3, [\del, 0.5])
Synth(\feedback3, [\del, 0.01])
Synth(\feedback3, [\del, 0.01, \fb, 3])
Synth(\feedback3, [\del, 0.01, \fb, 2, \lfo, 15])
Synth(\feedback3, [\del, 0.01, \fb, 3, \lfo, 100, \freq, 100])
Synth(\feedback3, [\del, 0.02, \fb, 3, \lfo, 100, \freq, 100])
Synth(\feedback3, [\del, 0.5, \fb, 201, \lfo, 200, \freq, 200, \rate, 202])
Synth(\feedback3, [\del, 0.5, \fb, 1, \lfo, 200, \freq, 300, \rate, 0.01])
(
SynthDef(\feedback4, {|freq= 400, amp= 0.1, fb= 2, del= 0.1, lfo= 1, rate= 2, cutoff= 500|
var env= EnvGen.kr(Env.perc(1, 4), doneAction:2);
var lin= DelayN.ar(HPF.ar(LocalIn.ar(1), cutoff), 1, del);
var src= SinOsc.ar(freq+SinOsc.ar(rate, 0, lfo), lin*2pi*fb, amp)*env;
LocalOut.ar(src);
Out.ar(0, Pan2.ar(src));
}).add;
)
Synth(\feedback4)
Synth(\feedback4, [\del, 0.5])
Synth(\feedback4, [\del, 0.01, \cutoff, 100])
Synth(\feedback4, [\del, 0.01, \fb, 3, \cutoff, 100])
Synth(\feedback4, [\del, 0.01, \fb, 2, \lfo, 15, \cutoff, 100])
Synth(\feedback4, [\del, 0.01, \fb, 3, \lfo, 100, \freq, 100, \cutoff, 100])
Synth(\feedback4, [\del, 0.02, \fb, 3, \lfo, 100, \freq, 100, \cutoff, 100])
Synth(\feedback4, [\del, 0.5, \fb, 201, \lfo, 200, \freq, 200, \rate, 202, \cutoff, 100])
Synth(\feedback4, [\del, 0.5, \fb, 1, \lfo, 200, \freq, 300, \rate, 0.01, \cutoff, 100])
clean-up: #46
Here's another SuperCollider port of msafluid by Memo Akten. It is very similar to the MSAFluidSolver2D I ported from Java, but this one is from the C++ version (openFrameworks ofxMSAFluid) and has more features and a GUI interface.
Unfortunately, it runs slower than the Java port.
Classes, help files and an example are attached as a zip archive below.
Updates:
| Attachments: | |
|---|---|
| MSAFluidSolver.zip |
clean-up: #45
Today I recorded and uploaded my latest six SuperCollider sctweets to my SoundCloud account. They were all recorded using SC 3.7a0 and Audacity for trimming, normalising, adding a quick fade out and exporting.
Recording short sound files of these one-liners help non-sc-users get an idea about what is going on and it's also good for archiving. They make it possible to, in the future when SC 3.7a0 is long gone, go back and listen to what the code did produce.
a=SinOsc;play{RecordBuf.ar(c=InFeedback.ar,b=Buffer.alloc(s,9e4));HPF.ar(a.ar(99,c*6)/9+TGrains.ar(2,a ar:3,b,c+3,2,12),9)}// #SuperCollider
a=SinOsc;play{tanh((c=InFeedback.ar(0,2))+HPF.ar(a.ar(b=1/[5,4],a.ar(a.ar(b*1.1,a.ar(b*2))+a.ar(b*1.4,c,5,4).ceil*99)),9))}// #SuperCollider
a=SinOscFB;play{((c=InFeedback.ar(0,2).lag(b=1/67))+DelayL.ar(HPF.ar(a.ar([99,98]*50.666*a.ar(c+b*b,c),c%2),50),b,b)).tanh}// #SuperCollider
a=LFSaw;play{Splay.ar(BPF.ar(a.ar(f=Duty.ar(a.ar(a.ar(c=3/d=(2..6)))*a.ar(d)/c,0,Dseq(ceil(a ar:d)+d*99,inf))+a.ar(c)),f))}// #SuperCollider
a=SinOsc;play{d=BufRd.ar(2,b=LocalBuf(c=2e5,2).clear,a.ar([2,3]*9)*c,0);BufWr.ar(a.ar(3/[2,3])/3,b,a.ar([99,145]).abs*c);d}// #SuperCollider
a=LFSaw;play{b=(1..8)*99;Splay.ar(CombN.ar(Blip.ar(b/2+a.kr(-8/b,1,99),b/4+a.kr(1/b,1,99))*SinOsc.ar(8/b,a.ar(99/b)))).sin}// #SuperCollider