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

37
Classes/EventShortener.sc
View File

@ -49,8 +49,28 @@ EventShortener {
*patternBuboEvent {
arg pattern;
var new_pattern = List();
new_pattern = new_pattern ++ [\type, 'buboEvent'];
var sp_position = nil;
var nb_position = nil;
// Check if the sp key already exists in the pattern
if (pattern.includes('sp'), {
pattern.do({ arg e, i;
if (e == 'sp', {
sp_position = i;
})
});
});
// Check if the nb key already exists in the pattern
if (pattern.includes('nb'), {
pattern.do({ arg e, i;
if (e == 'nb', {
nb_position = i;
})
});
});
new_pattern = new_pattern ++ [\type, 'buboEvent'];
pattern.doAdjacentPairs({ | a, b, index |
if (index % 2 == 0, {
if (a === 'pat', {
@ -67,10 +87,17 @@ EventShortener {
});
});
];
new_pattern = new_pattern ++ [
sp: Pfunc { |e| e.str ? "" },
nb: Pfunc { |e| e.num ? 0 }
];
if (sp_position.notNil, {
new_pattern = new_pattern ++ [
sp: pattern[sp_position + 1],
nb: pattern[nb_position + 1],
];
}, {
new_pattern = new_pattern ++ [
sp: Pfunc { |e| e.str ? "" },
nb: Pfunc { |e| e.num ? 0 }
];
});
}, {
new_pattern = new_pattern ++ [a, b];
});