This is based off MCLD’s Dubstep Patch, with a modification to make it output a Pulse wave and then using some BBCut from a previous post.
(
var bus, sf, buf, clock, synthgroup, bbgroup, loop, group, cut1, cut2, cut3, stream, pb,
cut4, out;
SynthDef(dub, {|out = 0, amp|
var trig, note, son, sweep;
trig = CoinGate.kr(0.5, Impulse.kr(/*2*/ 1.5.reciprocal));
note = Demand.kr(trig, 0, Dseq((22,24..44).midicps.scramble, inf));
sweep = LFSaw.ar(Demand.kr(trig, 0, Drand([1, 2, 2, 3, 4, 5, 6, 8, 16], inf))).exprange(40, 5000);
son = Pulse.ar(note * [0.99, 1, 1.01]).sum;
son = LPF.ar(son, sweep);
son = Normalizer.ar(son);
son = son + BPF.ar(son, 2000, 2);
//////// special flavours:
// hi manster
son = Select.ar(TRand.kr(trig: trig) < 0.05, [son, HPF.ar(son, 1000) * 4]);
// sweep manster
son = Select.ar(TRand.kr(trig: trig) < 0.05, [son, HPF.ar(son, sweep) * 4]);
// decimate
son = Select.ar(TRand.kr(trig: trig) < 0.05, [son, son.round(0.1)]);
son = (son * 5).tanh;
//son = son + GVerb.ar(son, 10, 0.1, 0.7, mul: 0.3);
//son.dup;
Out.ar(out, son.dup * amp);
}).add;
// groups
synthgroup= Group.head(Node.basicNew(s,1)); // one at the head
bbgroup= Group.after(synthgroup); // this one comes after, so it can do stuff with audio
// from the synthgroup
bus= Bus.audio(s,1); // a bus to route audio around
// a buffer holding a breakbeat. The first argument is the filename, the second is the number of
// beats in the file.
sf = BBCutBuffer("sounds/drums/breaks/hiphop/22127__nikolat__oldskoolish_90bpm.wav", 16);
// a buffer used by BBCut to hold anaylsis
buf = BBCutBuffer.alloc(s,44100,1);
// The default clock. 90 is the BPM / 60 for the number of seconds in a minute
TempoClock.default.tempo_(180/60);
// BBCut uses it's own clock class. We're using the default clock as a base
clock= ExternalClock(TempoClock.default);
clock.play;
// Where stuff actually happens
Routine.run({
s.sync; // wait for buffers to load
loop = (instrument:dub, out:0, amp: 0.3,
group:synthgroup.nodeID).play(clock.tempoclock);
/* That's an Event, which you can create by using parens like this. We're using
an event because of the timing built in to that class. Passing the clock
argument to play means that the loop will always start on a beat and thus be
synced with other BBCut stuff. */
// let it play for 5 seconds
5.wait;
group = CutGroup(CutBuf3(sf, 0.5));
group.add(CutBit1.new(4));
cut2 = BBCut2(group, BBCutProc11(8, 4, 16, 2, 0.2)).play(clock);
// start a process to cut things coming in on the bus
cut1 = BBCut2(CutGroup(CutStream1(bus.index, buf), bbgroup),
BBCutProc11(8, 4, 16, 2, 0.2)).play(clock);
2.wait;
loop.set(out, bus.index);
"bbcut".postln;
30.wait;
cut4 = BBCut2(CutGroup(CutStream1(bus.index, buf), bbgroup),
SQPusher2.new).play(clock);
});
)
I think it would be cool to run the drums through a 4 or 8 bit MantissaMask, but first I have to figure out how to write FX.
One thought on “Chiptune, Dub, BBCut”