BuboBubo/BuboQuark
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

mise à jour pour performance

Browse Source
This commit is contained in:
Raphaël Forment
2024-05-01 11:16:06 +02:00
parent 26f744c575
commit 775e7efed7
7 changed files with 252 additions and 171 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
Classes/BuboBoot.sc
View File

@ -56,6 +56,7 @@ Boot {
d.dirt = SuperDirt(2, s);
d.dirt.fileExtensions = ["wav","aif","aiff","aifc","mp3"];
d.dirt.loadSoundFiles("/Users/bubo/Library/Application\ Support/Sardine/SON/*");
d.dirt.loadSoundFiles("/Users/bubo/.config/livecoding/samples/*");
d.dirt.doNotReadYet = true;
d.dirt.start(57120, [ 0, 2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22]);
(

10
Classes/BuboNodeProxy.sc
View File

@ -37,6 +37,16 @@
^this;
}
/* Syntax for sending MIDI messages */
>> {
arg pattern;
pattern = EventShortener.findShortcuts(pattern);
pattern = pattern ++ [type: 'midi'];
this[0] = Pbind(*pattern);
this.quant = 4; this.fadeTime = 0.01;
^this
}
/* Player-like syntax sugar */
=> {
arg pattern;

6
Classes/Configuration/Startup.scd
View File

@ -1,5 +1,9 @@
// Setting up MIDI for hardware performances
"Initialising MIDI...".postln;
MIDIClient.init;
p = currentEnvironment;
c = currentEnvironment.clock;
"Loading SynthDefs".postln;
// Space for loading custom SynthDefs
"Loading SynthDefs...".postln;
"Synthdefs.scd".loadRelative;

90
Classes/Configuration/Synthdefs.scd
View File

@ -6,24 +6,10 @@ d.params = { arg obj, name; obj[name].allControlNames.do({arg i; i.postln;}); };
d.list = { arg obj; obj.keys.do({arg i; i.postln}); };
);
f.vardel = {
arg in;
HPF.ar(CombC.ar(in, 2, c.beatDur / [1, 2], 2),
SinOsc.ar(c.beatDur * 4).range(500, 2000));
};
/*
* This is the sampler used for 90% of sampling duties.
*/
(
z = SynthDef.new(\player, {
arg buf;
var sig, env = EnvGen.ar(
Env.perc(
\attack.kr(0.01),
\release.kr(1),
doneAction: 2)
);
arg buf, out;
var sig, env = EnvGen.ar(Env.perc(\attack.kr(0.01), \release.kr(1)), doneAction: 2);
var startPos = \begin.kr(0) * BufFrames.kr(buf);
var endPos = \end.kr(1) * BufFrames.kr(buf); // TODO: unused
sig = PlayBuf.ar(
@ -34,7 +20,7 @@ f.vardel = {
loop:\loop.kr(0), doneAction: 2);
sig = sig * \amp.kr(-6.dbamp);
sig = Pan2.ar(sig * env, \pan.kr(0));
OffsetOut.ar(\out.kr(0), sig)
OffsetOut.ar(out, sig)
}).add;
d.player = z;
);
@ -45,12 +31,12 @@ f.vardel = {
*/
(
z = SynthDef.new(\splayer, {
arg buf;
arg buf, out;
var sig, env = EnvGen.ar(
Env.perc(
\attack.kr(0.01),
\release.kr(1),
doneAction: 2)
Env.perc(
\attack.kr(0.01),
\release.kr(1)),
doneAction: 2
);
var startPos = \begin.kr(0) * BufFrames.kr(buf);
var endPos = \end.kr(1) * BufFrames.kr(buf); // TODO: unused
@ -62,13 +48,14 @@ f.vardel = {
loop:\loop.kr(0), doneAction: 2);
sig = sig * \amp.kr(-6.dbamp);
sig = Pan2.ar(sig * env, \pan.kr(0));
OffsetOut.ar(\out.kr(0), sig)
OffsetOut.ar(out, sig)
}).add;
d.splayer = z;
);
(
z = SynthDef(\sinfb, {
arg out;
var sig, env;
env = EnvGen.ar(
Env.linen(
@ -82,20 +69,21 @@ f.vardel = {
1
);
sig = sig * env;
OffsetOut.ar(\out.kr(0), Pan2.ar(sig, \pan.kr(0), \amp.kr(-6.dbamp)));
OffsetOut.ar(out, Pan2.ar(sig, \pan.kr(0), \amp.kr(-6.dbamp)));
}).add;
d.sinfb = z;
);
(
z = SynthDef(\omi, {
arg out;
var envLength = \sustain.kr(1) * (\end.kr(1) - \begin.kr(0)) / \speed.kr(1);
var line = Line.ar(\begin.kr, \end.kr, envLength, doneAction: Done.freeSelf);
var env = Env.asr;
var volume = IEnvGen.ar(env, line) * \amp.kr(-6.dbamp);
var sig;
sig = MiOmi.ar(pit: \freq.kr(400).cpsmidi);
OffsetOut.ar(\out.kr(0), Pan2.ar(sig * volume, \pan.kr(0)));
OffsetOut.ar(out, Pan2.ar(sig * volume, \pan.kr(0)));
}).add;
d.omi = z;
);
@ -107,14 +95,17 @@ f.vardel = {
'Padditive', 'Pwavetable', 'Pchord', 'Pspeech',
'Pswarm', 'Pnoise', 'Pparticle', 'Pstring',
'Pmodal', 'Pbass', 'Psnare', 'Phat'
].do({arg name, index;
].do({
arg name, index;
var synth;
synth = SynthDef(name, {
arg out;
var env = EnvGen.ar(
Env.perc(
\attack.kr(0.01),
\release.kr(1)
), doneAction: Done.freeSelf
),
doneAction: Done.freeSelf
);
var sig;
sig = MiPlaits.ar(
@ -129,7 +120,7 @@ f.vardel = {
);
sig = Pan2.ar(sig[0], \pan.kr(0));
sig = sig * env * \amp.kr(-6.dbamp);
OffsetOut.ar(\out.kr(0), sig);
OffsetOut.ar(out, sig);
}).add;
d.put(name, synth);
});
@ -189,6 +180,7 @@ f.vardel = {
arg name, index;
var synth;
synth = SynthDef(name, {
arg out;
var sig;
var env = EnvGen.ar(Env.perc(\attack.kr(0.01), \release.kr(1)), doneAction: Done.freeSelf);
var freq = \freq.kr;
@ -202,7 +194,7 @@ f.vardel = {
ws: \ws.kr(0),
bits: \bits.kr(0)
);
OffsetOut.ar(\out.kr(0), Pan2.ar(sig * env * \amp.kr(-6.dbamp), \pan.kr(0)));
OffsetOut.ar(out, Pan2.ar(sig * env * \amp.kr(-6.dbamp), \pan.kr(0)));
}).add;
d.put(name, synth);
});
@ -210,6 +202,7 @@ f.vardel = {
(
z = SynthDef(\tides, {
arg out;
var env = Env.perc(\attack.kr(0.01), \release.kr(1)).ar(2);
var sig = MiTides.ar(
freq: \freq.kr(400),
@ -221,7 +214,10 @@ f.vardel = {
ramp_mode: 1,
rate: 1
);
OffsetOut.ar(\out.kr(0), Pan2.ar(sig * env * \amp.kr(-6.dbamp), \pan.kr(0)));
OffsetOut.ar(out,
Pan2.ar(sig * env * \amp.kr(-6.dbamp),
\pan.kr(0)
));
}).add;
d.tides = z;
);
@ -241,7 +237,7 @@ f.vardel = {
);
var env = Env.perc(\attack.kr(0.01), releaseTime: \release.kr(2.0)).kr(doneAction: 2);
var sound = pink * env;
Out.ar(out, Pan2.ar(sound, pos: \pan.kr(0.0)))
OffsetOut.ar(out, Pan2.ar(sound, pos: \pan.kr(0.0)))
}).add;
d.pink = z;
);
@ -249,7 +245,7 @@ f.vardel = {
(
z = SynthDef('kick', {
|out=0, freq, mul=512, vsweep=0.5, hold=0.25, release=0.25, amp=0.5, pan=0|
arg out, freq, mul=512, vsweep=0.5, hold=0.25, release=0.25, amp=0.5, pan=0;
var p0, p1, p, freq0, freq1, freqEnv, sig;
p0 = 0.006699687;
p1 = 0.00001884606;
@ -261,11 +257,35 @@ f.vardel = {
sig = SinOsc.ar(freqEnv);
sig = sig * EnvGen.ar(Env([1,1,0], [hold,release], [0,0]), doneAction: Done.freeSelf) * amp;
sig = Pan2.ar(sig, pan);
Out.ar(out, sig);
OffsetOut.ar(out, sig);
}).add;
d.kick = z;
);
(
z = SynthDef('kraut', {
/*
* time: frequency sweep time
* tune: frequency division
* harmonics: nb of harmonics
* curve: distortion
* modSpeed: frequency bias
*/
arg out;
var sweepFreq = XLine.ar(\freq.kr(400) * 1.99, \freq.kr, \attack.kr(0.05) / \time.kr(2));
var frequencyBias = SinOsc.ar(\modSpeed.kr(1)).range(0.90, 1);
var sin = SinOscFB.ar([
sweepFreq * \tune.kr(1) * frequencyBias,
sweepFreq / \tune.kr * frequencyBias],
feedback: \harmonics.kr(0.25));
var env = Env.perc(\attack.kr, \release.kr(0.5)).ar(doneAction: 2);
var sound = Safe.ar(sin.lincurve(-1, 1, -1, 1, \curve.kr(4)));
OffsetOut.ar(out, DirtPan.ar(sound, ~dirt.numChannels, \pan.kr(0), env))
}).add;
d.kraut = z;
);
z = nil; // We don't need that variable anymore

135
Classes/Controllers/MIDIMix.sc
View File

@ -1,135 +0,0 @@
// ControllerValue {
//
// /*
// * A ControllerValue represents a MIDI Controller value.
// * It has a minimum and maximum value, and a curve. This
// * is used to convert from the MIDI value to a value that
// * is considered usable by the user.
// *
// * The curve is similar to the one used by the Env object.
// */
//
// var <>min = 0;
// var <>max = 1;
// var <>curve = 0;
// var <>currentValue;
// var <>bipolar = false;
//
// *new {
// arg min, max, curve;
// ^super.new.init()
// }
//
// init {
// this.min = min;
// this.max = max;
// this.curve = curve;
// this.currentValue = Bus.control;
// this.bipolar = false;
// }
//
// set {
// arg value;
// // If bipolar is true, then the value must go from -1 to 1
// var conversion = value.lincurve(
// inMin: 0,
// inMax: 127,
// outMin: this.min.neg,
// outMax: this.max,
// curve: this.curve
// );
// this.currentValue.set(conversion);
// ^this.currentValue;
// }
//
// }
//
//
// MIDIControl {
//
// /*
// * This is my personal MIDI controller interface. I am using a
// * MIDIMix. It has 8 faders, 24 knobs, and 16 buttons. I am only
// * using the knobs and faders. Two buttons are used to change "bank"
// * (increments the CC number value).
// */
//
// var <>currentBank = 0;
// var <>values;
//
// *new {
// ^super.new.init()
// }
//
// init {
// this.values = IdentityDictionary.new();
// this.connect(); this.installCallbacks();
// }
//
// getInit {
// arg number;
// if (this.values[number] == nil) {
// this.values[number] = ControllerValue.new(
// min: 0, max: 127, curve: 0
// );
// ^this.values[number]
// } {
// ^this.values[number]
// }
// }
//
// setCurve {
// arg number, curve;
// this.getInit(number).curve = curve;
// }
//
// setBounds {
// arg number, min, max;
// var controller = this.getInit(number);
// controller.min = min;
// controller.max = max;
// }
//
// at {
// arg number;
// var control = this.getInit(number);
// var choices = (
// value: this.getInit(number).currentValue.getSynchronous,
// bus: this.getInit(number).currentValue,
// map: this.getInit(number).currentValue.asMap,
// kr: In.kr(this.getInit(number).currentValue),
// );
// ^choices
// }
//
// connect {
// MIDIClient.init;
// MIDIIn.connectAll(verbose: true);
// }
//
// installCallbacks {
// MIDIIn.addFuncTo(\control, {
// arg src, chan, num, val;
// ("CONTROL:" + (num + (this.currentBank * 24)) + "=>" + val).postln;
// this.getInit(num + (this.currentBank * 24)).set(val);
// });
// MIDIIn.addFuncTo(\noteOn, {
// arg src, chan, num, val;
// "Changing bank".postln;
// if (chan == 8 && num == 22) {
// if (this.currentBank > 0) {
// this.currentBank = this.currentBank - 1;
// };
// this.currentBank.postln;
// };
// if (chan == 8 && num == 24) {
// if (this.currentBank < 3) {
// this.currentBank = this.currentBank + 1;
// };
// this.currentBank.postln;
// };
// });
// }
// }
//

10
Classes/PseudoUgen/Safe.sc Normal file
View File

@ -0,0 +1,10 @@
Safe {
/*
* This pseudo-ugen is meant to be used on chaotic or unpredictible
* signals. It can help taming them, making sure that you don't blow
* your ears or speakers.
*/
*ar { arg signal;
^LeakDC.ar(Limiter.ar(signal))
}
}