ardour/ardour
ardour
/
ardour
13
1
Fork 0
Code Pull Requests Releases Activity

Add Dotted option to a-delay, because dotted intervals cannot be expressed via the integer Divisor param

This commit is contained in:
Ben Loftis 2020-07-05 15:24:38 -05:00
parent 6af2f4e127
commit 0c7895298d
2 changed files with 30 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
libs/plugins/a-delay.lv2/a-delay.c
View File

@ -53,6 +53,7 @@ typedef enum {
ADELAY_SYNC,
ADELAY_TIME,
ADELAY_DIVISOR,
ADELAY_DOTTED,
ADELAY_WETDRY,
ADELAY_FEEDBACK,
ADELAY_LPF,
@ -82,6 +83,7 @@ typedef struct {
const LV2_Atom_Sequence* atombpm;
float* inv;
float* dotted;
float* sync;
float* time;
float* divisor;
@ -108,6 +110,7 @@ typedef struct {
float feedbackold;
float divisorold;
float gainold;
float dottedold;
float invertold;
float timeold;
float delaytimeold;
@ -201,6 +204,9 @@ connect_port(LV2_Handle instance,
case ADELAY_DIVISOR:
adelay->divisor = (float*)data;
break;
case ADELAY_DOTTED:
adelay->dotted = (float*)data;
break;
case ADELAY_WETDRY:
adelay->wetdry = (float*)data;
break;
@ -283,6 +289,7 @@ activate(LV2_Handle instance)
adelay->divisorold = 0.f;
adelay->gainold = 0.f;
adelay->invertold = 0.f;
adelay->dottedold = 0.f;
adelay->timeold = 0.f;
adelay->delaytimeold = 0.f;
adelay->syncold = 0.f;
@ -417,6 +424,9 @@ run(LV2_Handle instance, uint32_t n_samples)
if (*(adelay->inv) != adelay->invertold) {
recalc = true;
}
if (*(adelay->dotted) != adelay->dottedold) {
recalc = true;
}
if (*(adelay->sync) != adelay->syncold) {
recalc = true;
}
@ -441,6 +451,9 @@ run(LV2_Handle instance, uint32_t n_samples)
lpfRbj(adelay, adelay->lpfold, srate);
if (*(adelay->sync) > 0.5f && adelay->bpmvalid) {
*(adelay->delaytime) = adelay->beatunit * 1000.f * 60.f / (adelay->bpm * *(adelay->divisor));
if (*(adelay->dotted) > 0.5f) {
*(adelay->delaytime) *= 1.5;
}
} else {
*(adelay->delaytime) = *(adelay->time);
}
@ -484,6 +497,7 @@ run(LV2_Handle instance, uint32_t n_samples)
adelay->feedbackold = *(adelay->feedback);
adelay->divisorold = *(adelay->divisor);
adelay->invertold = *(adelay->inv);
adelay->dottedold = *(adelay->dotted);
adelay->timeold = *(adelay->time);
adelay->syncold = *(adelay->sync);
adelay->wetdryold = wetdry;

22
libs/plugins/a-delay.lv2/a-delay.ttl.in
View File

@ -101,6 +101,16 @@
[
a lv2:InputPort, lv2:ControlPort ;
lv2:index 7 ;
lv2:name "Dotted" ;
lv2:symbol "dot" ;
lv2:default 0 ;
lv2:minimum 0 ;
lv2:maximum 1 ;
lv2:portProperty lv2:integer, lv2:toggled ;
] ,
[
a lv2:InputPort, lv2:ControlPort ;
lv2:index 8 ;
lv2:name "Dry/Wet" ;
lv2:symbol "drywet" ;
lv2:default 50.000000 ;
@ -110,7 +120,7 @@
] ,
[
a lv2:InputPort, lv2:ControlPort ;
lv2:index 8 ;
lv2:index 9 ;
lv2:name "Feedback" ;
lv2:symbol "feedback" ;
lv2:default 20.000000 ;
@ -120,7 +130,7 @@
] ,
[
a lv2:InputPort, lv2:ControlPort ;
lv2:index 9 ;
lv2:index 10 ;
lv2:name "LPF" ;
lv2:symbol "lpf" ;
lv2:default 6000.000000 ;
@ -131,7 +141,7 @@
] ,
[
a lv2:InputPort, lv2:ControlPort ;
lv2:index 10 ;
lv2:index 11 ;
lv2:name "Output Gain" ;
lv2:symbol "gain" ;
lv2:default 0.000000 ;
@ -141,7 +151,7 @@
] ,
[
a lv2:OutputPort, lv2:ControlPort ;
lv2:index 11 ;
lv2:index 12 ;
lv2:name "Delaytime" ;
lv2:symbol "delaytime" ;
lv2:default 0.000000 ;
@ -151,7 +161,7 @@
] ,
[
a lv2:InputPort, lv2:ControlPort ;
lv2:index 12 ;
lv2:index 13 ;
lv2:name "Enable" ;
lv2:symbol "enable" ;
lv2:default 1 ;
@ -170,4 +180,4 @@ A simple delay plugin
doap:maintainer <http://ardour.org/credits.html> ;
lv2:microVersion 0 ;
lv2:minorVersion 2 .
lv2:minorVersion 3 .