elias/strudel-docker
1
0
Fork 0
mirror of https://github.com/eliasstepanik/strudel-docker.git synced 2026-01-11 13:48:34 +00:00
Code Issues Packages Projects Releases Wiki Activity

- make dictionary a control

Browse Source 
- standalone voicing function
- simplify voicing control names
This commit is contained in:
Felix Roos 2023-07-11 22:49:34 +02:00
parent d5c0309885
commit 0b3a8a5f65
3 changed files with 24 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
packages/core/controls.mjs
View File

@ -509,7 +509,7 @@ const generic_params = [
* @superDirtOnly
*/
['octave'],
['offset'], // TODO: what is this? not found in tidal doc
// ['ophatdecay'],
// TODO: example
/**
@ -574,11 +574,12 @@ const generic_params = [
// ['velocity'],
['voice'], // TODO: synth param
// voicings
['chord'], // https://github.com/tidalcycles/strudel/issues/506
['voiceBelow', 'voicebelow'], // https://github.com/tidalcycles/strudel/issues/506
['voiceMax', 'voicemax'], // https://github.com/tidalcycles/strudel/issues/506
['voiceOffset', 'voiceoffset'], // https://github.com/tidalcycles/strudel/issues/506
// voicings // https://github.com/tidalcycles/strudel/issues/506
['chord'], // chord to voice, like C Eb Fm7 G7. the symbols can be defined via addVoicings
['dictionary', 'dict'], // which dictionary to use for the voicings
['anchor'], // the top note to align the voicing to, defaults to c5
['offset'], // how the voicing is offset from the anchored position
['mode'], // below = anchor note will be removed from the voicing, useful for melody harmonization
/**
* Sets the level of reverb.

9
packages/tonal/tonleiter.mjs
View File

@ -54,6 +54,15 @@ export const x2chroma = (x) => {
}
};
export const x2midi = (x) => {
if (typeof x === 'number') {
return x;
}
if (typeof x === 'string') {
return note2midi(x);
}
};
// duplicate: util.mjs (does not support sharp flag)
export const midi2note = (midi, sharp = false) => {
const oct = Math.floor(midi / 12) - 1;

16
packages/tonal/voicings.mjs
View File

@ -5,7 +5,7 @@ This program is free software: you can redistribute it and/or modify it under th
*/
import { stack, register } from '@strudel.cycles/core';
import { voiceBelow, note2midi } from './tonleiter.mjs';
import { voiceBelow, note2midi, x2midi } from './tonleiter.mjs';
import _voicings from 'chord-voicings';
const { dictionaryVoicing, minTopNoteDiff } = _voicings.default || _voicings; // parcel module resolution fuckup
@ -136,18 +136,18 @@ export const rootNotes = register('rootNotes', function (octave, pat) {
});
});
export const voicing = register('voicing', function (dictionary, pat) {
export const voicing = register('voicing', function (pat) {
return pat
.fmap((value) => {
let { voiceMax: max, voiceBelow: below, voiceOffset: offset, chord, n, ...rest } = value;
let top = max || below;
top = top?.note || top || 'c5';
// TODO: default dictionary?
let { anchor, mode, offset, chord, n, dictionary, ...rest } = value;
anchor = anchor?.note || anchor || 'c5';
if (typeof dictionary === 'string') {
dictionary = voicingRegistry[dictionary]?.dictionary;
}
let notes = voiceBelow(top, chord, dictionary, offset, n);
if (below) {
notes = notes.filter((n) => note2midi(n) !== note2midi(top));
let notes = voiceBelow(anchor, chord, dictionary, offset, n);
if (mode === 'below') {
notes = notes.filter((n) => x2midi(n) !== note2midi(anchor));
}
return stack(...notes)
.note()