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

fixing some of the current issues with pat

Browse Source
This commit is contained in:
Raphaël Forment
2024-05-14 15:21:50 +02:00
parent 6f61558ffb
commit 74642bd1f4
6 changed files with 151 additions and 73 deletions
Download Patch File Download Diff File Expand all files Collapse all files

109
Classes/Bank.sc
View File

@ -2,7 +2,7 @@ Bank : Singleton {
classvar <>root, <>extensions, <>lazyLoading=true;
var <paths, buffers, <channels, <foundRoot, <foundRootModTime, markersCache, atCache;
var metadata;
*initClass {
root = "/Users/bubo/.config/livecoding/samples".standardizePath;
extensions = ["wav", "aiff", "aif", "flac", "ogg"];
@ -13,45 +13,56 @@ Bank : Singleton {
arg item; item.folderName.postln;
})
}
*contains {
arg sample;
var folderNames = PathName(Bank.root).entries.collect({
arg item;
if (item.folderName == sample) {
^true
}
});
^false;
}
*new {
|path, channels|
^super.new(path, channels);
}
size {
^paths.size
}
printOn {
|stream|
super.printOn(stream);
stream << "[%]".format(paths.size)
}
init {
var currentRoot, currentExtensions, foundPaths=[], attempts = List();
var fixedName;
buffers = [];
ServerQuit.add(this);
ServerBoot.add(this);
fixedName = name.asString
.replace("[", "\\[")
.replace("]", "\\]")
.replace("(", "\\(")
.replace(")", "\\)");
if (foundRootModTime.notNil) {
if (foundRoot.notNil and: { File.exists(foundRoot) } and: { File.mtime(foundRoot) == foundRootModTime }) {
^this; // no changes, so early return!
}
};
currentExtensions = this.class.extensions;
currentRoot = thisProcess.nowExecutingPath;
// Try an absolute path resolve first
foundPaths = Require.resolvePaths(fixedName, [], currentExtensions, attempts);
if (foundPaths.isEmpty.not) {
@ -61,23 +72,23 @@ Bank : Singleton {
currentRoot = PathName(currentRoot).parentPath;
foundPaths = Require.resolvePaths(fixedName, currentRoot, currentExtensions, attempts);
};
if (foundPaths.isEmpty and: { currentRoot.notNil }) {
currentRoot = currentRoot +/+ fixedName.asString;
foundPaths = Require.resolvePaths("*", currentRoot, currentExtensions, attempts);
};
if (foundPaths.isEmpty) {
currentRoot = this.class.root;
foundPaths = Require.resolvePaths(fixedName, currentRoot, currentExtensions, attempts);
};
if (foundPaths.isEmpty) {
currentRoot = currentRoot +/+ fixedName;
foundPaths = Require.resolvePaths("*", currentRoot, currentExtensions, attempts);
};
};
if (foundPaths.isEmpty) {
foundRoot = nil;
foundRootModTime = nil;
@ -90,7 +101,7 @@ Bank : Singleton {
foundRoot = currentRoot;
foundRootModTime = File.mtime(foundRoot) ?? {0};
};
foundPaths = foundPaths.sort({
|a, b|
var pair;
@ -108,12 +119,12 @@ Bank : Singleton {
pair[0] < pair[1]
} ?? { false }
});
atCache = ();
paths = foundPaths;
this.metadata;
}
prGetMetadata {
^paths.collect {
|path|
@ -131,7 +142,7 @@ Bank : Singleton {
};
}
}
metadata {
|key|
metadata = metadata ?? this.prGetMetadata(_);
@ -141,7 +152,7 @@ Bank : Singleton {
^metadata[this.indexForKey(key)]
}
}
lazyLoading_{
|lazy|
if (lazyLoading != lazy) {
@ -149,20 +160,20 @@ Bank : Singleton {
this.prUpdateBuffers();
}
}
buffers {
^paths.size.collect {
|i|
this.bufferAt(i)
}
}
gui {
var view, sampleViews, button, name;
var playNode;
this.lazyLoading = false;
view = View().layout_(GridLayout.rows());
paths.do {
|path, i|
@ -196,7 +207,7 @@ Bank : Singleton {
);
sampleViews = sampleViews.add(sampleView);
};
view.keyUpAction = {
|view, char, modifiers, unicode, keycode, key|
switch(
@ -215,10 +226,10 @@ Bank : Singleton {
}
)
};
ScrollView(bounds:500@600).canvas_(view).front;
}
set {
|inChannels|
if (channels != inChannels) {
@ -227,13 +238,13 @@ Bank : Singleton {
this.prUpdateBuffers();
};
}
clear {
paths = [];
atCache = ();
this.prUpdateBuffers();
}
bufferAt {
|index|
var sf;
@ -249,20 +260,20 @@ Bank : Singleton {
buffers[index] = Buffer.readChannel(Server.default, paths[index], channels:Array.series(channels));
};
};
buffers[index];
}
}
}
indexForKey {
|key|
var index;
if (key.isArray && key.isString.not) {
^key.collect(this.at(_))
};
if (key.isInteger) {
index = key
} {
@ -277,15 +288,15 @@ Bank : Singleton {
atCache[key.asSymbol] = index;
}
};
^index
}
at {
|key|
^this.bufferAt(this.indexForKey(key));
}
markers {
^markersCache ?? {
markersCache = paths.collect({
@ -294,7 +305,7 @@ Bank : Singleton {
})
}
}
wrapAt {
|index|
if (index.isInteger) {
@ -302,10 +313,10 @@ Bank : Singleton {
};
^this.at(index);
}
do { |...args| buffers.size.collect(this.bufferAt(_)).do(*args) }
collect { |...args| ^buffers.size.collect(this.bufferAt(_)).collect(*args) }
prUpdateBuffers {
if (Server.default.serverBooting or: {
Server.default.hasBooted && Server.default.serverRunning.not
@ -315,18 +326,18 @@ Bank : Singleton {
};
^this;
};
if (Server.default.serverRunning.not) {
buffers = [];
} {
if (paths.size > buffers.size) { buffers = buffers.extend(paths.size) };
paths.do {
|path, i|
var buffer;
buffer = buffers[i];
if (path.notNil) {
if (lazyLoading.not) {
this.bufferAt(i)
@ -338,7 +349,7 @@ Bank : Singleton {
}
}
};
buffers[paths.size..].do {
|b|
b.free;
@ -346,7 +357,7 @@ Bank : Singleton {
buffers.extend(paths.size);
}
}
doOnServerBoot {
if (paths.size > 0) {
buffers = [];
@ -354,27 +365,27 @@ Bank : Singleton {
"***Loaded samples for %***".format(this.asString).postln;
}
}
doOnServerQuit {
buffers = [];
}
pat {
|keyPat|
^Pindex(Pseq([this], inf), keyPat)
}
// Single buffer support
asBuffer { ^this.singleSampleWrap(nil) }
asControlInput { |...args| ^this.prSingleSampleWrap(\asControlInput, *args) }
play { |...args| ^this.prSingleSampleWrap(\play, *args) }
prSingleSampleWrap {
|method ...args|
var buffer;
if (buffers.size == 1) {
buffer = this.bufferAt(0);
if (method.isNil) {
^buffer
} {

23
Classes/BuboBoot.sc
View File

@ -95,6 +95,10 @@ Boot {
Event.addEventType(\buboLoopEvent, {
arg server;
[~sp, ~nb].postln;
~sp = BuboUtils.cleanSampleName(~sp);
~nb = BuboUtils.cleanSampleIndex(~nb);
[~sp, ~nb].postln;
if (~sp.notNil && ~nb.notNil, {
~sp = ~sp ?? 'default';
~nb = ~nb ?? 0;
@ -111,18 +115,21 @@ Boot {
Event.addEventType(\buboEvent, {
arg server;
~sp = BuboUtils.cleanSampleName(~sp);
~nb = BuboUtils.cleanSampleIndex(~nb);
if (~sp.notNil && ~nb.notNil, {
~sp = ~sp ?? 'default';
~nb = ~nb ?? 0;
~buf = Bank(~sp)[~nb % Bank(~sp).paths.size];
if (Bank(~sp).metadata[~nb % Bank(~sp).size][\numChannels] == 1) {
~instrument = \player;
} {
~instrument = \splayer;
};
if (~sp != "", {
~buf = Bank(~sp)[~nb % Bank(~sp).paths.size];
if (Bank(~sp).metadata[~nb % Bank(~sp).size][\numChannels] == 1) {
~instrument = \player;
} {
~instrument = \splayer;
};
})
});
~type = \note;
currentEnvironment.play;
});
}
}

15
Classes/BuboUtils.sc
View File

@ -12,6 +12,20 @@ BuboUtils {
)
}
*cleanSampleName {
arg str;
if (str == nil, { ^nil });
^str.asList.collect({
|char|
if (char.isAlpha, char, "")
}).join
}
*cleanSampleIndex {
arg number;
if (number.isKindOf(Number), { ^number }, { ^0 });
}
*banner {
var banner = "┳┓ ┓ ┳┓ ┓ ┳┓\n"
"┣┫┓┏┣┓┏┓┣┫┓┏┣┓┏┓ ┣┫┏┓┏┓╋\n"
@ -39,4 +53,3 @@ BuboUtils {
});
}
}

4
Classes/Configuration/Synthdefs.scd
View File

@ -19,7 +19,7 @@ d.list = { arg obj; obj.keys.do({arg i; i.postln}); };
trigger: 1, startPos:startPos,
loop:\loop.kr(0), doneAction: 2);
sig = sig * \amp.kr(-6).dbamp;
sig = Pan2.ar(sig * env, \pan.kr(0));
sig = Pan2.ar(sig * env, \pan.kr(0.0));
OffsetOut.ar(out, sig)
}).add;
d.player = z;
@ -47,7 +47,7 @@ d.list = { arg obj; obj.keys.do({arg i; i.postln}); };
trigger: 1, startPos:startPos,
loop:\loop.kr(0), doneAction: 2);
sig = sig * \amp.kr(-6).dbamp;
sig = Pan2.ar(sig * env, \pan.kr(0));
sig = Pan2.ar(sig * env, \pan.kr(0.0));
OffsetOut.ar(out, sig)
}).add;
d.splayer = z;

6
Classes/EventShortener.sc
View File

@ -54,9 +54,9 @@ EventShortener {
if (type !== 'midi', {
if (pattern.includes('i') || pattern.includes('instrument') == false, {
new_pattern = new_pattern ++ [
sp: Pfunc { |e| e.str ? "kick" },
nb: Pfunc { |e| e.num ? 0 },
instrument: Pfunc { |e| e.str.isNil && e.num.isNil ? "default" },
sp: Pfunc { |e| e.str ? 'default' },
nb: Pfunc(\num),
instrument: 'default',
fast: 1,
];
});

67
dev_sessions/with_midi.scd
View File

@ -6,16 +6,16 @@
// BUG: Evalue moi
m = MIDIOut.newByName("MIDI", "Bus 1");
// NOTE: Pattern rythmique de base
(
~test => [ sp: "kick", nb: 0];
~test => [ sp: "kick", nb: 0 ];
~test.play;
)
// NOTE: Pattern avec Pmini
~test.source.patternpairs
(
~test => [ pat: "kick:4 snare:3" ];
~test.play;
~fun => [ pat: "kick:4 snare:3" ];
~fun.play;
)
// NOTE: Pattern sans numéro maintenant !
@ -40,8 +40,6 @@ Sweep.help
sound
});
~rhythm.play;
)
~basse => [
pat: "0(5,8)/2",
i: "kraut",
@ -156,15 +154,32 @@ m = MIDIOut.newByName("MIDI", "Bus 1");
(
~ground => [pat: "[kick:2(5,16)/16, fgood:11/2]", release: 4, quant: 4];
~ground => [
pat: "[kick:2(5,16)/16, cgood:11/2 lgood:13]*2",
release: [4, 2, 1].pseq(inf),
quant: 4,
// test: Pfunc { |e| e.postln; },
// finish: { currentEnvironment.keysValuesDo {
// |key, val|
// "%: %".format(key, val).postln}
// },
];
~ground.play;
)
(
~snare => [pat: "[~ snare]/16", release: 4, quant: 4];
~snare.fx1(0.7, {arg in; MiVerb.ar(in, time: 0.7)});
~snare.play;
)
(
~hat => [pat: "[sound:2|hat:5] hat:2 hat:3!2", release: 1/32,
amp: [0.0,-12.0].pwhite(inf), quant: 4
];
~hat.play;
~snare.play;
~ground.play;
)
~vorb => [
instrument: 'kraut',
octave: 4,
@ -190,3 +205,35 @@ m = MIDIOut.newByName("MIDI", "Bus 1");
});
~apply.play;
)
Bank("default")[0].play
// NOTE: absolute crash (attention !)
(
~other => [
sp: "synthi", nb: 2,
release: 1/4, rate: 0.75,
pan: [0.0, 1.0].pwhite,
];
~other.mold(2);
~other.play;
)
// Faire le point sur la situation : qu'est-ce qui marche et ne marche pas ?
// NOTE: Pattern le plus basique
~a => [sp: "kick", nb: 4];
~a.play;
~a.clear;
// NOTE: Pattern avec Pmini
~a => [pat: "[kick hat snare hat]/2"];
~a.play;
~a.clear;
// NOTE: pattern de base, sample mal formée
// WARNING: le crash se produit ici !
~a => [sp: "kick:2", nb: 4];
~a.play;