mircop upadet
Leo Coogan
4 years ago
parent
c8037c1ccc
commit
ed6550bf6f
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@ -0,0 +1,27 @@
|
|||||||
|
////////#superCollider///////////
|
||||||
|
///// audio @ http://archive.org/details/ChiptuneBreakz
|
||||||
|
///
|
||||||
|
(
|
||||||
|
Tdef(\cheaptune,{
|
||||||
|
var sig2,sig1,sig3,a,rel;
|
||||||
|
sig1=[8,12,16,20];
|
||||||
|
sig2=2/sig1.scramble;
|
||||||
|
sig3=2*sig1.scramble;
|
||||||
|
rel=Pxrand([0,0,0,0,0,0,0,1],inf).asStream;
|
||||||
|
inf.do{
|
||||||
|
a=[0.125,0.25,0.5,0.5,0.25,0.125,1].choose;
|
||||||
|
x=[60,67,75,79,94].scramble;
|
||||||
|
play{EnvGen.ar(Env.perc(0.01,a+rel.next),doneAction:2)*
|
||||||
|
AY.ar(x.midicps*a*sig1.choose,x*sig2.choose.midicps,a*sig3.choose.midicps,0.25,3,15,10,7)};
|
||||||
|
play{EnvGen.ar(Env.perc(0.01,a/2),Duty.kr(Dseq([0.5,0.25],inf),0,Dxrand([0,1],inf)),doneAction:2)*
|
||||||
|
BrownNoise.ar(0.6)!2};
|
||||||
|
play{EnvGen.ar(Env.perc(0.01,a/4),Duty.kr(Dseq([0.25,0.5],inf),0,Dseq([0,1],inf)),doneAction:2)*
|
||||||
|
LFNoise0.kr(16)*WhiteNoise.ar(0.2)!2};
|
||||||
|
a.wait
|
||||||
|
}
|
||||||
|
});
|
||||||
|
Tdef(\cheaptune).play;
|
||||||
|
)
|
||||||
|
s.record;
|
||||||
|
s.stopRecording;
|
||||||
|
//
|
||||||
@ -0,0 +1,249 @@
|
|||||||
|
s.boot;
|
||||||
|
|
||||||
|
(
|
||||||
|
t = Task{
|
||||||
|
var hz = 4;
|
||||||
|
var i = 0;
|
||||||
|
var n = 0.25;
|
||||||
|
var chipsize = 10;
|
||||||
|
|
||||||
|
// allocate a disk i/o buffer
|
||||||
|
p = Buffer.alloc(s, 65536, 2);
|
||||||
|
|
||||||
|
// create an output file for this buffer, leave it open
|
||||||
|
p.write("Output.wav", "wav", "int16", 0, 0, true);
|
||||||
|
// start recording
|
||||||
|
d = Synth.tail(nil, "help-Diskout", ["bufnum", p.bufnum]);
|
||||||
|
|
||||||
|
//buffer for granular synthesis sample
|
||||||
|
b = Buffer.read(s,"/usr/share/SuperCollider/sounds/a11wlk01-44_1.aiff");
|
||||||
|
|
||||||
|
1.do{
|
||||||
|
|
||||||
|
x = Synth(\SinPulser);
|
||||||
|
1.wait;
|
||||||
|
x.free;
|
||||||
|
};
|
||||||
|
|
||||||
|
2.do{
|
||||||
|
hz = 4;
|
||||||
|
a = Scale.choose;
|
||||||
|
chipsize.do {
|
||||||
|
x = Synth(\chiptune, [\fund,a.cents[i % a.size] + 1, \hz, hz]);
|
||||||
|
i = i + 1;
|
||||||
|
n.wait;
|
||||||
|
x.free;
|
||||||
|
};
|
||||||
|
|
||||||
|
Synth(\eightbitSnare);
|
||||||
|
y.free;
|
||||||
|
i = 0;
|
||||||
|
hz = hz * 2;
|
||||||
|
//new speed
|
||||||
|
n = 0.15;
|
||||||
|
a = Scale.choose;
|
||||||
|
chipsize.do {
|
||||||
|
x = Synth(\chiptune, [\fund,a.cents[i % a.size] + 1, \hz, hz]);
|
||||||
|
i = i + 1;
|
||||||
|
n.wait;
|
||||||
|
x.free;
|
||||||
|
};
|
||||||
|
|
||||||
|
Synth(\eightbitSnare);
|
||||||
|
i=0;
|
||||||
|
hz = hz * 1.5;
|
||||||
|
//new speed
|
||||||
|
n = 0.2;
|
||||||
|
a = Scale.choose;
|
||||||
|
chipsize.do {
|
||||||
|
x = Synth(\chiptune, [\fund,a.cents[i % a.size] + 1, \hz, hz]);
|
||||||
|
i = i + 1;
|
||||||
|
n.wait;
|
||||||
|
x.free;
|
||||||
|
};
|
||||||
|
};
|
||||||
|
|
||||||
|
5.do{
|
||||||
|
x = Synth.new(\ambientBackground);
|
||||||
|
4.wait;
|
||||||
|
x.free;
|
||||||
|
};
|
||||||
|
|
||||||
|
2.do{
|
||||||
|
a = Scale.choose;
|
||||||
|
x = Synth.new(\ambientBackground);
|
||||||
|
2.wait;
|
||||||
|
y = Synth(\SinPulser);
|
||||||
|
4.wait;
|
||||||
|
Synth(\eightbitSnare);
|
||||||
|
i = 0;
|
||||||
|
hz = hz * 1.5;
|
||||||
|
n = 0.4;
|
||||||
|
chipsize.do {
|
||||||
|
Synth(\chiptune, [\fund,a.cents[i % a.size] + 1, \hz, hz]);
|
||||||
|
i = i + 1;
|
||||||
|
n.wait;
|
||||||
|
};
|
||||||
|
x.free;
|
||||||
|
y.free;
|
||||||
|
};
|
||||||
|
|
||||||
|
1.do{
|
||||||
|
hz = 1;
|
||||||
|
30.do{
|
||||||
|
x = Synth.new(\granularSynth, [\sndbuf, b, \hz, hz, \dur, 1]);
|
||||||
|
hz.wait;
|
||||||
|
hz = hz * 0.95;
|
||||||
|
x.free;
|
||||||
|
};
|
||||||
|
};
|
||||||
|
|
||||||
|
1.do{
|
||||||
|
x = Synth.new(\SawPulser);
|
||||||
|
5.wait;
|
||||||
|
x.free;
|
||||||
|
};
|
||||||
|
1.do{
|
||||||
|
x = Synth.new(\moogPulser);
|
||||||
|
y = Synth.new(\SawPulser);
|
||||||
|
10.wait;
|
||||||
|
x.free;
|
||||||
|
y.free;
|
||||||
|
};
|
||||||
|
2.do{
|
||||||
|
x = Synth.new(\moogPulser);
|
||||||
|
hz = 4;
|
||||||
|
n=0.33;
|
||||||
|
Synth(\eightbitSnare);
|
||||||
|
a = Scale.choose;
|
||||||
|
chipsize.do {
|
||||||
|
Synth(\chiptune, [\fund,a.cents[i % a.size] + 1, \hz, hz]);
|
||||||
|
i = i + 1;
|
||||||
|
n.wait;
|
||||||
|
};
|
||||||
|
|
||||||
|
Synth(\eightbitSnare);
|
||||||
|
i = 0;
|
||||||
|
hz = hz * 2;
|
||||||
|
//new speed
|
||||||
|
n = 0.15;
|
||||||
|
a = Scale.choose;
|
||||||
|
chipsize.do {
|
||||||
|
Synth(\chiptune, [\fund,a.cents[i % a.size] + 1, \hz, hz]);
|
||||||
|
i = i + 1;
|
||||||
|
n.wait;
|
||||||
|
};
|
||||||
|
|
||||||
|
Synth(\eightbitSnare);
|
||||||
|
i=0;
|
||||||
|
hz = hz * 1.5;
|
||||||
|
//new speed
|
||||||
|
n = 0.2;
|
||||||
|
a = Scale.choose;
|
||||||
|
chipsize.do {
|
||||||
|
Synth(\chiptune, [\fund,a.cents[i % a.size] + 1, \hz, hz]);
|
||||||
|
i = i + 1;
|
||||||
|
n.wait;
|
||||||
|
};
|
||||||
|
x.free;
|
||||||
|
};
|
||||||
|
|
||||||
|
// stop recording
|
||||||
|
d.free;
|
||||||
|
p.close;
|
||||||
|
p.free;
|
||||||
|
};
|
||||||
|
t.start;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
SynthDef(\eightbitSnare, {
|
||||||
|
var sig, freq, amp, env;
|
||||||
|
|
||||||
|
env = EnvGen.ar(Env.perc(0.005, 0.5, 6, -8), doneAction: 2);
|
||||||
|
sig = WhiteNoise.ar(1) * env;
|
||||||
|
sig = FreeVerb.ar(sig, 0.4, 0.1, 0.9);
|
||||||
|
|
||||||
|
|
||||||
|
Out.ar(0,sig * 0.7);
|
||||||
|
Out.ar(1,sig * 0.7);
|
||||||
|
}).writeDefFile.load(s);
|
||||||
|
|
||||||
|
SynthDef(\chiptune, {
|
||||||
|
arg fund = 120, hz = 5;
|
||||||
|
var env, sig, amp, freq;
|
||||||
|
|
||||||
|
amp = LFPulse.ar(hz, 0, 0.5);
|
||||||
|
env = EnvGen.ar(Env.perc);
|
||||||
|
sig = Pulse.ar(fund, 0.5, amp);
|
||||||
|
sig = env * FreeVerb.ar(sig, 0.7, 0.8, 0.25);
|
||||||
|
Out.ar(0, sig * 0.8);
|
||||||
|
Out.ar(1, sig * 0.8);
|
||||||
|
}).writeDefFile.load(s);
|
||||||
|
|
||||||
|
SynthDef(\ambientBackground, {
|
||||||
|
var env, freq, sig;
|
||||||
|
|
||||||
|
freq = LFNoise2.ar(1, 100, LFDNoise0.ar(1, 100, 220));
|
||||||
|
sig = LFSaw.ar(freq, 2, 0.1);
|
||||||
|
sig = FreeVerb.ar(sig, 0.5, 0.5, 0.3);
|
||||||
|
|
||||||
|
freq = LFDNoise0.ar(PinkNoise.kr(10), 100, 220);
|
||||||
|
sig = sig + SinOsc.ar(freq, 0.5 , 0.5);
|
||||||
|
|
||||||
|
freq = LFDNoise0.ar(PinkNoise.kr(10), 100, 220);
|
||||||
|
sig = sig + Pulse.ar(freq, 0.5, 0.3);
|
||||||
|
sig = FreeVerb.ar(sig, 0.9, 0.9, 0.3, 0.8);
|
||||||
|
|
||||||
|
Out.ar(0, sig);
|
||||||
|
Out.ar(1, sig);
|
||||||
|
}).writeDefFile.load(s);
|
||||||
|
|
||||||
|
SynthDef(\SawPulser, {
|
||||||
|
var pitchRand, env, freq, sig;
|
||||||
|
|
||||||
|
|
||||||
|
freq = LFDNoise1.kr(5, 350, 450);
|
||||||
|
sig = Saw.ar(freq) * (HenonN.ar(5)*0.5);
|
||||||
|
|
||||||
|
Out.ar(0, sig);
|
||||||
|
Out.ar(1, sig);
|
||||||
|
}).writeDefFile.load(s);
|
||||||
|
|
||||||
|
SynthDef(\moogPulser, {
|
||||||
|
var sig;
|
||||||
|
|
||||||
|
sig = MoogFF.ar(
|
||||||
|
Pulse.ar([40,121], [0.3,0.7]),
|
||||||
|
SinOsc.kr(LFNoise0.kr(0.42).range(0.001, 2.2)).range(30, 4200),
|
||||||
|
0.83 * 4);
|
||||||
|
|
||||||
|
Out.ar(0,sig);
|
||||||
|
}).writeDefFile.load(s);
|
||||||
|
|
||||||
|
SynthDef(\SinPulser, {
|
||||||
|
var pitchRand, env, freq, sig;
|
||||||
|
|
||||||
|
pitchRand = LFDNoise0.ar(1, 0, 5);
|
||||||
|
freq = LFDNoise0.ar(pitchRand, 300, 450);
|
||||||
|
freq = freq + LFDNoise3.ar(1, 350, 450);
|
||||||
|
sig = SinOsc.ar(freq * 0.5);
|
||||||
|
sig = FreeVerb.ar(sig, 0.525, 0.915, 0.5);
|
||||||
|
|
||||||
|
Out.ar(0, sig * 0.8);
|
||||||
|
Out.ar(1, sig * 0.8);
|
||||||
|
}).writeDefFile.load(s);
|
||||||
|
|
||||||
|
SynthDef(\granularSynth, {
|
||||||
|
arg sndbuf, hz = 100, dur=0.1;
|
||||||
|
|
||||||
|
var winenv, sig;
|
||||||
|
// a custom envelope
|
||||||
|
winenv = Env([0, 1, 0], [0.5, 0.5], [8, -8]);
|
||||||
|
z = Buffer.sendCollection(s, winenv.discretize, 1);
|
||||||
|
|
||||||
|
sig = GrainBuf.ar(2, Impulse.kr(hz), dur, sndbuf, LFNoise1.kr.range(0.5, 2), LFNoise2.kr(0.1).range(0, 1), 2, 0, -1);
|
||||||
|
// use mouse x to control panning
|
||||||
|
Out.ar(0,sig);
|
||||||
|
}).writeDefFile.load(s);
|
||||||
|
)
|
||||||
@ -0,0 +1,48 @@
|
|||||||
|
s.boot;
|
||||||
|
|
||||||
|
(
|
||||||
|
s.scope;
|
||||||
|
s.meter;
|
||||||
|
s.plotTree;
|
||||||
|
)
|
||||||
|
|
||||||
|
(
|
||||||
|
SynthDef(\fmbell, { arg out=0, amp=0.01, gate=0.5, pan=0, freq=300;
|
||||||
|
var sig, sig1, sig2, sig3, sig4, sig5, sig6, sig7, sig8;
|
||||||
|
freq = freq * EnvGen.kr(Env([1,1.002,0.998,1],[0.1,0.8]), 1);
|
||||||
|
sig1 = SinOsc.ar(freq * 2.6706 + 0.13) * 2 + 1;
|
||||||
|
sig2 = SinOsc.ar(freq * 0.9998 * sig1);
|
||||||
|
sig3 = SinOsc.ar(freq * 2.6629 * sig1 + 2.04);
|
||||||
|
sig4 = LFCub.ar(freq * 0.9991 * sig1 + 2.14);
|
||||||
|
sig5 = SinOsc.ar(freq * 2.6656 * sig1 - 2);
|
||||||
|
sig6 = SinOsc.ar(freq * 1 * sig1 + 1.84);
|
||||||
|
//sig = sig2 + sig3 + sig4 + sig5 + sig6;
|
||||||
|
sig = [sig1, sig2, sig3, sig4, sig5, sig6] * DC.ar([0.5,0.3,0, 0.5,0.2,0.2]);
|
||||||
|
//sig.debug("sig");
|
||||||
|
//sig = sig /34;
|
||||||
|
sig = sig * EnvGen.ar(\adsr.kr( Env.adsr(0.01,0,1,2.1,1,-1) ),gate,doneAction:2);
|
||||||
|
sig = Pan2.ar(sig, pan + [ 0, -0.5, -0.5, 0.5, 0.5, 0], amp).sum;
|
||||||
|
Out.ar(out, sig);
|
||||||
|
}).add;
|
||||||
|
)
|
||||||
|
|
||||||
|
(
|
||||||
|
~reps = Pseries(1,1,inf).asStream;
|
||||||
|
|
||||||
|
p = Pbind (
|
||||||
|
\instrument, \fmbell,
|
||||||
|
\midinote, Pseq([
|
||||||
|
Pxrand([41, 53, 30, 58], ~reps),
|
||||||
|
Pxrand([80, 60, 70, 79]),
|
||||||
|
Pxrand([50, 40, 0, 80]),
|
||||||
|
],inf),
|
||||||
|
\sustain, 0.05,
|
||||||
|
\dur, 0.15,
|
||||||
|
//\amp, 1,
|
||||||
|
);
|
||||||
|
|
||||||
|
q = p.play;
|
||||||
|
)
|
||||||
|
q.stop;
|
||||||
|
|
||||||
|
s.record
|
||||||
@ -0,0 +1,34 @@
|
|||||||
|
s.boot;
|
||||||
|
|
||||||
|
(
|
||||||
|
s.meter;
|
||||||
|
s.plotTree;
|
||||||
|
s.scope;
|
||||||
|
)
|
||||||
|
|
||||||
|
b = Buffer.read(s, "/home/lcoogan/Tidal/scd/samples/8train/plosh.wav");
|
||||||
|
b.play;
|
||||||
|
b.free;
|
||||||
|
|
||||||
|
(
|
||||||
|
{
|
||||||
|
var sig;
|
||||||
|
sig = GrainBuf.ar(
|
||||||
|
1,
|
||||||
|
Impulse.ar({ExpRand(60,60.5)}!12),
|
||||||
|
0.02,
|
||||||
|
b,
|
||||||
|
0.5,
|
||||||
|
(
|
||||||
|
Phasor.ar(0, 1 * BufRateScale.ir(b), 0, BufSamples.ir(b)-1)
|
||||||
|
+ LFNoise1.ar(100).bipolar(0.0 * SampleRate.ir)
|
||||||
|
) / BufSamples.ir(b),
|
||||||
|
0.23,
|
||||||
|
0,
|
||||||
|
0,
|
||||||
|
-1,
|
||||||
|
512,
|
||||||
|
);
|
||||||
|
sig = sig * 0.5;
|
||||||
|
}.play
|
||||||
|
)
|
||||||
@ -0,0 +1,14 @@
|
|||||||
|
s.boot
|
||||||
|
(
|
||||||
|
Ndef(\az, {|freq=444, pan=0|
|
||||||
|
var sig = LFTri.ar(freq);
|
||||||
|
sig = Pan2.ar(sig, pan);
|
||||||
|
|
||||||
|
}).play.fadeTime = 2;
|
||||||
|
)
|
||||||
|
|
||||||
|
Ndef(\az).set(\freq, rrand(80,500))
|
||||||
|
|
||||||
|
Ndef(\az).fadeTime = 2
|
||||||
|
|
||||||
|
s.scope
|
||||||
@ -0,0 +1,64 @@
|
|||||||
|
// bit of an afternoon playing random noises turned out to sound relatively IDM-ish
|
||||||
|
|
||||||
|
// I stole the kick & snare from the dubstep thing off the list a while ago... thanks
|
||||||
|
|
||||||
|
(
|
||||||
|
fork{
|
||||||
|
loop{ | i |
|
||||||
|
var time, trigtime;
|
||||||
|
time = [1/8,1/4,1].wchoose([2,1,0.2].normalizeSum);
|
||||||
|
trigtime = [1,2,4,8,16].choose;
|
||||||
|
play{
|
||||||
|
var sound, freq, ampenv, filterenv, mod, snare, snaretrig, kick, kickenv, lin;
|
||||||
|
|
||||||
|
mod = LFNoise2.kr({0.01.rand}.dup(2), [0.01.rand,0.001.rand,0.5.rand].choose, 1.0);
|
||||||
|
|
||||||
|
freq = [
|
||||||
|
Scale.minorPentatonic.degrees,
|
||||||
|
Scale.minorPentatonic.degrees.choose
|
||||||
|
].choose + (12 * (2..6).choose);
|
||||||
|
freq = freq.midicps;
|
||||||
|
|
||||||
|
filterenv = EnvGen.kr(Env.linen(time/3.0.rand.max(0.01),
|
||||||
|
time/3.0.rand.max(0.01),
|
||||||
|
time/3.0.rand.max(0.01)).range(freq*1.5,freq*10.0.rand.max(1.5))
|
||||||
|
);
|
||||||
|
|
||||||
|
ampenv = EnvGen.kr(Env.perc(0.01,time/2.0.rand.max(1/8),1.0.rand),doneAction:2);
|
||||||
|
|
||||||
|
sound = Select.ar(5.rand, [
|
||||||
|
Pulse.ar(freq*mod,0.5).tanh,
|
||||||
|
LFTri.ar(freq*mod,0).tanh,
|
||||||
|
Pulse.ar(freq*mod,0.5).tanh,
|
||||||
|
LFSaw.ar(freq*mod,0.5).tanh,
|
||||||
|
SinOscFB.ar(freq*mod,100.0.rand).tanh
|
||||||
|
]);
|
||||||
|
|
||||||
|
sound = RLPF.ar(sound, filterenv, LFNoise2.kr(0.01.rand, 0.3, 0.5) );
|
||||||
|
sound = sound * ampenv;
|
||||||
|
|
||||||
|
sound = sound + (DelayC.ar(sound, 1/4, {[1/4,1/8].choose}.dup(2)) * [1.0.rand,0]);
|
||||||
|
|
||||||
|
5.do{sound = (sound.clip + sound)*0.75};
|
||||||
|
|
||||||
|
sound = LPF.ar(sound, LFNoise2.kr(trigtime, 250, 500) );
|
||||||
|
|
||||||
|
snaretrig = Impulse.kr(trigtime);
|
||||||
|
snare = 3*PinkNoise.ar(1!2) *
|
||||||
|
EnvGen.kr(Env.perc(0.01,0.01,[0,0.3.rand].choose),snaretrig);
|
||||||
|
5.do{snare = AllpassC.ar(snare, 0.5, {0.05.rand}.dup(2), 1.0.rand)+snare};
|
||||||
|
5.do{snare = (snare.distort + snare)*0.85};
|
||||||
|
|
||||||
|
kickenv = EnvGen.kr(Env.perc(0.01,time,[0,1.0.rand].choose));
|
||||||
|
kick = SinOsc.ar(40!2+(kickenv**3*200),0,7*kickenv) * kickenv;
|
||||||
|
5.do{kick = (kick.distort + kick)*0.75};
|
||||||
|
|
||||||
|
sound = Limiter.ar(sound + snare + kick, 1.0, 0.00001);
|
||||||
|
|
||||||
|
Out.ar(0,sound.tanh);
|
||||||
|
};
|
||||||
|
|
||||||
|
time.wait;
|
||||||
|
};
|
||||||
|
}
|
||||||
|
)
|
||||||
@ -0,0 +1,29 @@
|
|||||||
|
// what can it sound like? see: https://www.youtube.com/watch?v=dRmY3tEwZyE
|
||||||
|
// the youtube version has been sent through an additional reverb pedal, but
|
||||||
|
// you don't need the pedal to get something that sounds interesting
|
||||||
|
|
||||||
|
(
|
||||||
|
s.options.memSize_(16384*10);
|
||||||
|
s.reboot;
|
||||||
|
s.waitForBoot({
|
||||||
|
|
||||||
|
Ndef(\bits, {
|
||||||
|
var t = PulseCount.ar(Impulse.ar(8e3));
|
||||||
|
var u = PulseCount.ar(Impulse.ar(7009));
|
||||||
|
var sig = HPF.ar(
|
||||||
|
(
|
||||||
|
((t * 15) & (t >> 5)) |
|
||||||
|
((t * 5) & (t >> [3, 4])) |
|
||||||
|
((t * 2) & (t >> 9)) |
|
||||||
|
((t * 8) & (t >> 11)) |
|
||||||
|
(((t*t) & t) | (t >> 3))
|
||||||
|
- 3 % 256
|
||||||
|
) / 127-1 * 3
|
||||||
|
, 20
|
||||||
|
) * 0.1;
|
||||||
|
var sig2 = LPF.ar(HPF.ar(gcd(t*u, u+t), WhiteNoise.ar()*2000 + 1000), 20);
|
||||||
|
sig2 = sig2*sig;
|
||||||
|
sig = 0.3*Splay.ar(Limiter.ar(Greyhole.ar(sig + sig2, sig, 0.5, sig), 0.5).flatten);
|
||||||
|
}).play;
|
||||||
|
});
|
||||||
|
)
|
||||||
@ -0,0 +1,23 @@
|
|||||||
|
s.boot;
|
||||||
|
|
||||||
|
(
|
||||||
|
SynthDef.new(\sine, {
|
||||||
|
arg freq=440, atk=0.005, rel=0.2, amp=1, pan=0;
|
||||||
|
var sig, env;
|
||||||
|
sig = SinOsc.ar(freq);
|
||||||
|
env = EnvGen.kr(Env.new([0,1,0],[atk,rel],[1,-1]),doneAction:2);
|
||||||
|
sig = Pan2.ar(sig, pan, amp);
|
||||||
|
sig = sig* env;
|
||||||
|
Out.ar(0, sig);
|
||||||
|
}).add;
|
||||||
|
)
|
||||||
|
|
||||||
|
(
|
||||||
|
p = Pbind(
|
||||||
|
\instrument, \sine,
|
||||||
|
\dur, Pseq([0.6, 0.15, 0.15], inf),
|
||||||
|
\freq, Pseq([330, 247, 370, 220], inf),
|
||||||
|
).play
|
||||||
|
)
|
||||||
|
|
||||||
|
s.plotTree;
|
||||||
@ -0,0 +1,36 @@
|
|||||||
|
s.boot;
|
||||||
|
s.reboot;
|
||||||
|
|
||||||
|
(
|
||||||
|
s.meter;
|
||||||
|
s.plotTree;
|
||||||
|
s.scope;
|
||||||
|
)
|
||||||
|
|
||||||
|
{SinOsc.ar(LFNoise0.kr(10).range(500, 1500), mul: 0.1)}.play;
|
||||||
|
|
||||||
|
s.record
|
||||||
|
|
||||||
|
buf /home/lcoogan/.local/share/SuperCollider/Recordings/SC_220709_154352.aiff
|
||||||
|
|
||||||
|
b = Buffer.read(s, "/home/lcoogan/Tidal/scd/samples/8train/plosh.wav");
|
||||||
|
|
||||||
|
|
||||||
|
b = Buffer.read(s, "/home/lcoogan/.local/share/SuperCollider/Recordings/SC_220709_154352.aiff");
|
||||||
|
b.play
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
// THe actual SHST
|
||||||
|
|
||||||
|
(
|
||||||
|
Pdef(
|
||||||
|
\rhythm,
|
||||||
|
Pbind(
|
||||||
|
\degree, Pseq([0,1,3,2,8,3]),
|
||||||
|
\dur, 0.05,
|
||||||
|
\rate, 1,
|
||||||
|
\amp, 0.5,
|
||||||
|
);
|
||||||
|
).play;
|
||||||
|
)
|
||||||
@ -0,0 +1,34 @@
|
|||||||
|
s.boot;
|
||||||
|
(
|
||||||
|
SynthDef("help_mp3_01", { |bufnum = 0|
|
||||||
|
var son, pitch, amp, wibble;
|
||||||
|
son = DiskIn.ar(2, bufnum).mean;
|
||||||
|
pitch = Tartini.kr(son)[0];
|
||||||
|
amp = Amplitude.ar(son);
|
||||||
|
pitch = Median.kr(5, pitch); // smooth
|
||||||
|
pitch = pitch.min(10000).max(10); // limit
|
||||||
|
pitch = pitch.cpsmidi.round.midicps; // coerce
|
||||||
|
wibble = Pulse.ar(pitch, 0.2, amp * 2); // resynthesise
|
||||||
|
wibble = FreeVerb.ar(wibble, 0.3, 0.1, 0.9); // bit of reverb just to taste
|
||||||
|
Out.ar(0, wibble.dup);
|
||||||
|
}).add;
|
||||||
|
)
|
||||||
|
|
||||||
|
// Choose your MP3... some will work well and most will work badly.
|
||||||
|
// Oh and you'll need the MP3 Quark.
|
||||||
|
m = MP3("/home/lcoogan/Lataukset/4.mp3");
|
||||||
|
m.start;
|
||||||
|
b = Buffer.cueSoundFile(s, m.fifo, 0, 2);
|
||||||
|
// Off we go:
|
||||||
|
x = Synth("help_mp3_01", [\bufnum, b.bufnum], addAction:\addToTail);
|
||||||
|
|
||||||
|
// Please remember to tidy up after yourself:
|
||||||
|
x.free;
|
||||||
|
b.close; b.free;
|
||||||
|
m.finish;
|
||||||
|
|
||||||
|
|
||||||
|
More waffle plus a recorded example at
|
||||||
|
http://www.mcld.co.uk/blog/blog.php?235
|
||||||
|
|
||||||
|
s.record
|
||||||
@ -0,0 +1,49 @@
|
|||||||
|
(
|
||||||
|
SynthDef.new(\pulseTest, {
|
||||||
|
arg ampHz=4, fund=40, maxPartial=4, width=0.5;
|
||||||
|
var amp1, amp2, freq1, freq2, sig1, sig2;
|
||||||
|
amp1 = LFPulse.kr(ampHz, 0, 0.12) * 0.75;
|
||||||
|
amp2 = LFPulse.kr(ampHz, 0.5, 0.12) * 0.75;
|
||||||
|
freq1 = LFNoise0.kr(4).exprange(fund, fund*maxPartial).round(fund);
|
||||||
|
freq2 = LFNoise0.kr(4).exprange(fund, fund*maxPartial).round(fund);
|
||||||
|
freq1 = freq1 * LFPulse.kr(8, add:1);
|
||||||
|
freq1 = freq1 * LFPulse.kr(6, add:1);
|
||||||
|
sig1 = Pulse.ar(freq1, width, amp1);
|
||||||
|
sig2 = Pulse.ar(freq2, width, amp2);
|
||||||
|
//sig1 = FreeVerb.ar(sig1, 0.7, 0.8, 0.25);
|
||||||
|
//sig2 = FreeVerb.ar(sig1, 0.7, 0.8, 0.25);
|
||||||
|
Out.ar(0, sig1);
|
||||||
|
Out.ar(1, sig2);
|
||||||
|
}).add;
|
||||||
|
)
|
||||||
|
|
||||||
|
x = Synth.new(\pulseTest);
|
||||||
|
|
||||||
|
x.free;
|
||||||
|
|
||||||
|
x.set(\width, 0.25);
|
||||||
|
x.set(\fund, 20);
|
||||||
|
x.set(\maxPartial, 20);
|
||||||
|
x.set(\ampHz, 0.25);
|
||||||
|
|
||||||
|
s.freeAll
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
(
|
||||||
|
SynthDef.new(\madtraffic, {
|
||||||
|
var sig, env;
|
||||||
|
env = Line.kr(1, 0, 1, doneAction:2);
|
||||||
|
sig = Pulse.ar(ExpRand(30,500)) * env;
|
||||||
|
}.add;
|
||||||
|
))
|
||||||
|
|
||||||
|
(
|
||||||
|
Pbind(
|
||||||
|
\instrument, \pulseTest,
|
||||||
|
\freq, Pseq([137, 373, Prand([237, 473, 713],1)], inf),
|
||||||
|
\legato, Pseq([1.7, 0.3], inf),
|
||||||
|
\dur, 0.25,
|
||||||
|
\out, Pseq([1, 0], inf)
|
||||||
|
).play;
|
||||||
|
)
|
||||||
Reference in New Issue