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

Improve pattern detection logic

Browse Source
This commit is contained in:
Raphaël Forment
2024-05-15 12:30:04 +02:00
parent 27cbb48c98
commit f1781c745f
2 changed files with 130 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

102
dev_sessions/chasing_bugs.scd
View File

@ -2,11 +2,20 @@
Boot(samplePath: "/Users/bubo/.config/livecoding/samples");
)
// ================ SAMPLING (~SP et ~NB) ================
// TEST: [X] ça passe
(
~basic => [pat: "kick snare"];
~basic.play;
~hat => [pat: "hat:2 hat:4!3"];
~hat.play;
)
// TEST: [X] ça passe
(
~basic => [pat: "kick:4 snare:8"];
~basic.play;
~hat => [pat: "hat:2 hat:4!3"];
~hat.play;
)
@ -18,10 +27,95 @@ Boot(samplePath: "/Users/bubo/.config/livecoding/samples");
nb: [0, 2, 3].pseq(inf),
];
~basic.play;
)
(
~hat => [sp: "hat", dur: 1/2, nb: [0, 2, 3].pseq(inf)];
~hat => [sp: ["hat", "casio"].pseq(inf), dur: 1/2, nb: [0, 2, 3].pseq(inf)];
~hat.play;
)
// TEST: [X] ça passe
(
~basic => [
sp: ["kick", "synthi"].pseq(inf),
nb: 10, // Change moi
pat: "[0 7 0 7]/2",
test: Pfunc {
|e|
e.postln;
e
}
];
~basic.play;
)
// ================ SYNTHETISEURS TYPE PBIND ================
// TEST: [X] ça passe
(
~instrument => [
instrument: 'Panalog',
octave: 6,
degree: [0, 4].pseq(inf)
];
~instrument.play;
)
// TEST: [X] ça passe
(
~instrument => [
instrument: 'Panalog',
pat: "0 2 3 4 5",
octave: 6,
];
~instrument.play;
)
// TEST: [X] ça passe
(
~instrument => [
instrument: 'Panalog',
deg: "0 2 3 4".p,
octave: 6,
];
~instrument.play;
)
// ================ SYNTHETISEURS TYPE PMONO ================
// NOTE: SynthDef de test
(
SynthDef('acid', {
var freq = \freq.kr(100).varlag(\glide.kr(0.05));
var signal = PulseDPW.ar([freq / 2, freq / 1.99])
+ SawDPW.ar([freq, freq / 1.99]);
var env = Env.perc(
\attack.kr(0.1),
\release.kr(0.125)).ar(0);
var synth = signal * env;
synth = RLPF.ar(signal,
\ffreq.kr(1500).lag(\glide.kr),
\res.kr(0.2).lag(\glide.kr));
synth = Pan2.ar(synth, \pan.kr(0));
OffsetOut.ar(\out.kr(0), synth * \amp.kr(-24.dbamp));
}).add;
)
// TEST: [X] ça passe !
(
~acid -> ['acid', dur: (1/2), amp: 0.5, pat: "[0 2 4 5]/2"];
~acid.play;
)
// TEST: [X] ça passe !
(
~acid -> ['acid', dur: (1/2), amp: 0.5, degree: [0, 4].pseq(inf)];
~acid.play;
)
// TEST: [X] ça passe !
(
~acid -> ['acid', dur: (1/2), amp: 0.5, degree: "0 2 3 4".p];
~acid.play;
)
// ================ SCRATCHPAD ================