ardour/livetrax
13
0
Fork 0
Code

First draft of a-expander

Browse Source
This commit is contained in:
Johannes Mueller 2017-08-02 22:26:08 +02:00
parent 131c545a3c
commit 3620122ad0
6 changed files with 1309 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

168
libs/plugins/a-exp.lv2/a-exp#stereo.ttl.in Normal file
View File

@ -0,0 +1,168 @@
@prefix doap: <http://usefulinc.com/ns/doap#> .
@prefix foaf: <http://xmlns.com/foaf/0.1/> .
@prefix lv2: <http://lv2plug.in/ns/lv2core#> .
@prefix rdfs: <http://www.w3.org/2000/01/rdf-schema#> .
@prefix rsz: <http://lv2plug.in/ns/ext/resize-port#> .
@prefix unit: <http://lv2plug.in/ns/extensions/units#> .
<http://ardour.org/credits.html>
a foaf:Person ;
foaf:name "Ardour Team" ;
foaf:homepage <http://ardour.org/> .
<urn:ardour:a-exp#stereo>
a lv2:Plugin, doap:Project, lv2:ExpanderPlugin ;
lv2:optionalFeature <http://lv2plug.in/ns/lv2core#hardRTCapable> ;
lv2:optionalFeature <http://harrisonconsoles.com/lv2/inlinedisplay#queue_draw> ;
lv2:optionalFeature <http://harrisonconsoles.com/lv2/inlinedisplay#in_gui> ;
lv2:port [
a lv2:InputPort, lv2:ControlPort ;
lv2:index 0 ;
lv2:name "Attack" ;
lv2:symbol "att" ;
lv2:default 10.000000 ;
lv2:minimum 0.100000 ;
lv2:maximum 100.000000 ;
unit:unit unit:ms ;
] ,
[
a lv2:InputPort, lv2:ControlPort ;
lv2:index 1 ;
lv2:name "Release" ;
lv2:symbol "rel" ;
lv2:default 80.000000 ;
lv2:minimum 1.000000 ;
lv2:maximum 2000.000000 ;
unit:unit unit:ms ;
] ,
[
a lv2:InputPort, lv2:ControlPort ;
lv2:index 2 ;
lv2:name "Knee" ;
lv2:symbol "kn" ;
lv2:default 0.000000 ;
lv2:minimum 0.000000 ;
lv2:maximum 8.000000 ;
unit:unit unit:db ;
] ,
[
a lv2:InputPort, lv2:ControlPort ;
lv2:index 3 ;
lv2:name "Ratio" ;
lv2:symbol "rat" ;
lv2:default 4.000000 ;
lv2:minimum 1.000000 ;
lv2:maximum 20.000000 ;
unit:unit [
rdfs:label " " ;
unit:symbol " " ;
unit:render "%f " ;
] ;
lv2:portProperty <http://lv2plug.in/ns/ext/port-props#logarithmic> ;
] ,
[
a lv2:InputPort, lv2:ControlPort ;
lv2:index 4 ;
lv2:name "Threshold" ;
lv2:symbol "thr" ;
lv2:default 0.000000 ;
lv2:minimum -60.000000 ;
lv2:maximum 0.000000 ;
unit:unit unit:db ;
] ,
[
a lv2:InputPort, lv2:ControlPort ;
lv2:index 5 ;
lv2:name "Makeup" ;
lv2:symbol "mak" ;
lv2:default 0.000000 ;
lv2:minimum 0.000000 ;
lv2:maximum 30.000000 ;
unit:unit unit:db ;
] ,
[
a lv2:OutputPort, lv2:ControlPort ;
lv2:index 6 ;
lv2:name "Gain Reduction" ;
lv2:symbol "gr" ;
lv2:default 0.000000 ;
lv2:minimum 0.000000 ;
lv2:maximum 45.000000 ;
unit:unit unit:db ;
] ,
[
a lv2:OutputPort, lv2:ControlPort ;
lv2:index 7 ;
lv2:name "Output Level" ;
lv2:symbol "outlevel" ;
lv2:default -45.000000 ;
lv2:minimum -45.000000 ;
lv2:maximum 0.000000 ;
unit:unit unit:db ;
] ,
[
a lv2:InputPort, lv2:ControlPort ;
lv2:index 8 ;
lv2:name "Sidechain" ;
lv2:symbol "sidech" ;
lv2:default 0.000000 ;
lv2:minimum 0.000000 ;
lv2:maximum 1.000000 ;
lv2:portProperty lv2:integer, lv2:toggled ;
] ,
[
a lv2:InputPort, lv2:ControlPort ;
lv2:index 9 ;
lv2:name "Enable" ;
lv2:symbol "enable" ;
lv2:default 1 ;
lv2:minimum 0 ;
lv2:maximum 1 ;
lv2:portProperty lv2:integer, lv2:toggled ;
lv2:designation lv2:enabled;
];
lv2:port [
a lv2:InputPort, lv2:AudioPort ;
lv2:index 10 ;
lv2:symbol "lv2_audio_in_1" ;
lv2:name "Audio Input 1" ;
] ,
[
a lv2:InputPort, lv2:AudioPort ;
lv2:index 11 ;
lv2:symbol "lv2_audio_in_2" ;
lv2:name "Audio Input 2" ;
] ,
[
a lv2:InputPort, lv2:AudioPort ;
lv2:index 12 ;
lv2:symbol "lv2_sidechain_in" ;
lv2:name "Sidechain Input" ;
lv2:portProperty lv2:isSideChain ;
],
[
a lv2:OutputPort, lv2:AudioPort ;
lv2:index 13 ;
lv2:symbol "lv2_audio_out_1" ;
lv2:name "Audio Output 1" ;
],
[
a lv2:OutputPort, lv2:AudioPort ;
lv2:index 14 ;
lv2:symbol "lv2_audio_out_2" ;
lv2:name "Audio Output 2" ;
] ;
rdfs:comment """
A powerful stereo expander
""" ;
doap:name "a-Expander stereo" ;
doap:license <http://usefulinc.com/doap/licenses/gpl> ;
doap:maintainer <http://ardour.org/credits.html> ;
lv2:microVersion 1 ;
lv2:minorVersion 1 .

920
libs/plugins/a-exp.lv2/a-exp.c Normal file
View File

@ -0,0 +1,920 @@
/* a-exp
* Copyright (C) 2017 Johannes Mueller <github@johannes-mueller.org>
* based on a-comp (C) 2016 Damien Zammit <damien@zamaudio.com>
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2
* of the License, or (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*/
#include <math.h>
#include <stdlib.h>
#include <string.h>
#include <stdbool.h>
#ifdef LV2_EXTENDED
#include <cairo/cairo.h>
#include "ardour/lv2_extensions.h"
#endif
#include "lv2/lv2plug.in/ns/lv2core/lv2.h"
#define AEXP_URI "urn:ardour:a-exp"
#define AEXP_STEREO_URI "urn:ardour:a-exp#stereo"
#ifndef M_PI
# define M_PI 3.14159265358979323846
#endif
#ifdef COMPILER_MSVC
#include <float.h>
#define isfinite_local(val) (bool)_finite((double)val)
#else
#define isfinite_local isfinite
#endif
typedef enum {
AEXP_ATTACK = 0,
AEXP_RELEASE,
AEXP_KNEE,
AEXP_RATIO,
AEXP_THRESHOLD,
AEXP_MAKEUP,
AEXP_GAINR,
AEXP_OUTLEVEL,
AEXP_SIDECHAIN,
AEXP_ENABLE,
AEXP_A0,
AEXP_A1,
AEXP_A2,
AEXP_A3,
AEXP_A4,
} PortIndex;
typedef struct {
float* attack;
float* release;
float* knee;
float* ratio;
float* thresdb;
float* makeup;
float* gainr;
float* outlevel;
float* sidechain;
float* enable;
float* input0;
float* input1;
float* sc;
float* output0;
float* output1;
float srate;
float old_yl;
float old_y1;
float old_yg;
float makeup_gain;
float tau;
#ifdef LV2_EXTENDED
LV2_Inline_Display_Image_Surface surf;
bool need_expose;
cairo_surface_t* display;
LV2_Inline_Display* queue_draw;
uint32_t w, h;
/* ports pointers are only valid during run so we'll
* have to cache them for the display, besides
* we do want to check for changes
*/
float v_knee;
float v_ratio;
float v_thresdb;
float v_gainr;
float v_makeup;
float v_lvl;
float v_lv1;
float v_lvl_in;
float v_lvl_out;
#endif
} AExp;
static LV2_Handle
instantiate(const LV2_Descriptor* descriptor,
double rate,
const char* bundle_path,
const LV2_Feature* const* features)
{
AExp* aexp = (AExp*)calloc(1, sizeof(AExp));
for (int i=0; features[i]; ++i) {
#ifdef LV2_EXTENDED
if (!strcmp(features[i]->URI, LV2_INLINEDISPLAY__queue_draw)) {
aexp->queue_draw = (LV2_Inline_Display*) features[i]->data;
}
#endif
}
aexp->srate = rate;
aexp->old_yl=aexp->old_y1=aexp->old_yg=0.f;
aexp->tau = (1.0 - exp (-2.f * M_PI * 25.f / aexp->srate));
#ifdef LV2_EXTENDED
aexp->need_expose = true;
aexp->v_lvl_out = -70.f;
#endif
return (LV2_Handle)aexp;
}
static void
connect_port(LV2_Handle instance,
uint32_t port,
void* data)
{
AExp* aexp = (AExp*)instance;
switch ((PortIndex)port) {
case AEXP_ATTACK:
aexp->attack = (float*)data;
break;
case AEXP_RELEASE:
aexp->release = (float*)data;
break;
case AEXP_KNEE:
aexp->knee = (float*)data;
break;
case AEXP_RATIO:
aexp->ratio = (float*)data;
break;
case AEXP_THRESHOLD:
aexp->thresdb = (float*)data;
break;
case AEXP_MAKEUP:
aexp->makeup = (float*)data;
break;
case AEXP_GAINR:
aexp->gainr = (float*)data;
break;
case AEXP_OUTLEVEL:
aexp->outlevel = (float*)data;
break;
case AEXP_SIDECHAIN:
aexp->sidechain = (float*)data;
break;
case AEXP_ENABLE:
aexp->enable = (float*)data;
break;
default:
break;
}
}
static void
connect_mono(LV2_Handle instance,
uint32_t port,
void* data)
{
AExp* aexp = (AExp*)instance;
connect_port (instance, port, data);
switch ((PortIndex)port) {
case AEXP_A0:
aexp->input0 = (float*)data;
break;
case AEXP_A1:
aexp->sc = (float*)data;
break;
case AEXP_A2:
aexp->output0 = (float*)data;
break;
default:
break;
}
}
static void
connect_stereo(LV2_Handle instance,
uint32_t port,
void* data)
{
AExp* aexp = (AExp*)instance;
connect_port (instance, port, data);
switch ((PortIndex)port) {
case AEXP_A0:
aexp->input0 = (float*)data;
break;
case AEXP_A1:
aexp->input1 = (float*)data;
break;
case AEXP_A2:
aexp->sc = (float*)data;
break;
case AEXP_A3:
aexp->output0 = (float*)data;
break;
case AEXP_A4:
aexp->output1 = (float*)data;
break;
default:
break;
}
}
// Force already-denormal float value to zero
static inline float
sanitize_denormal(float value) {
if (!isnormal(value)) {
value = 0.f;
}
return value;
}
static inline float
from_dB(float gdb) {
return (exp(gdb/20.f*log(10.f)));
}
static inline float
to_dB(float g) {
return (20.f*log10(g));
}
static void
activate(LV2_Handle instance)
{
AExp* aexp = (AExp*)instance;
*(aexp->gainr) = 0.0f;
*(aexp->outlevel) = -45.0f;
aexp->old_yl=aexp->old_y1=aexp->old_yg=0.f;
}
static void
run_mono(LV2_Handle instance, uint32_t n_samples)
{
AExp* aexp = (AExp*)instance;
const float* const input = aexp->input0;
const float* const sc = aexp->sc;
float* const output = aexp->output0;
float srate = aexp->srate;
float width = (6.f * *(aexp->knee)) + 0.01;
float cdb=0.f;
float attack_coeff = exp(-1000.f/(*(aexp->attack) * srate));
float release_coeff = exp(-1000.f/(*(aexp->release) * srate));
float max = 0.f;
float lgaininp = 0.f;
float Lgain = 1.f;
float Lxg, Lxl, Lyg, Lyl, Ly1;
int usesidechain = (*(aexp->sidechain) <= 0.f) ? 0 : 1;
uint32_t i;
float ingain;
float in0;
float sc0;
float ratio = *aexp->ratio;
float thresdb = *aexp->thresdb;
float makeup = *aexp->makeup;
float makeup_target = from_dB(makeup);
float makeup_gain = aexp->makeup_gain;
const float tau = aexp->tau;
if (*aexp->enable <= 0) {
ratio = 1.f;
thresdb = 0.f;
makeup = 0.f;
makeup_target = 1.f;
}
#ifdef LV2_EXTENDED
if (aexp->v_knee != *aexp->knee) {
aexp->v_knee = *aexp->knee;
aexp->need_expose = true;
}
if (aexp->v_ratio != ratio) {
aexp->v_ratio = ratio;
aexp->need_expose = true;
}
if (aexp->v_thresdb != thresdb) {
aexp->v_thresdb = thresdb;
aexp->need_expose = true;
}
if (aexp->v_makeup != makeup) {
aexp->v_makeup = makeup;
aexp->need_expose = true;
}
#endif
float in_peak = 0;
aexp->v_gainr = 0.0;
for (i = 0; i < n_samples; i++) {
in0 = input[i];
sc0 = sc[i];
ingain = usesidechain ? fabs(sc0) : fabs(in0);
in_peak = fmaxf (in_peak, ingain);
Lyg = 0.f;
Lxg = (ingain==0.f) ? -160.f : to_dB(ingain);
Lxg = sanitize_denormal(Lxg);
if (2.f*(Lxg-thresdb) < -width) {
Lyg = thresdb + (Lxg-thresdb) * ratio;
Lyg = sanitize_denormal(Lyg);
} else if (2.f*(Lxg-thresdb) > width) {
Lyg = Lxg;
} else {
Lyg = Lxg + (1.f-ratio)*(Lxg-thresdb-width/2.f)*(Lxg-thresdb-width/2.f)/(2.f*width);
}
Lxl = Lxg - Lyg;
aexp->old_y1 = sanitize_denormal(aexp->old_y1);
aexp->old_yl = sanitize_denormal(aexp->old_yl);
Ly1 = fminf(Lxl, release_coeff * aexp->old_y1+(1.f-release_coeff)*Lxl);
Lyl = attack_coeff * aexp->old_yl+(1.f-attack_coeff)*Ly1;
Ly1 = sanitize_denormal(Ly1);
Lyl = sanitize_denormal(Lyl);
cdb = -Lyl;
Lgain = from_dB(cdb);
*(aexp->gainr) = Lyl;
if (Lyl > aexp->v_gainr) {
aexp->v_gainr = Lyl;
}
lgaininp = in0 * Lgain;
makeup_gain += tau * (makeup_target - makeup_gain) + 1e-12;
output[i] = lgaininp * makeup_gain;
max = (fabsf(output[i]) > max) ? fabsf(output[i]) : sanitize_denormal(max);
// TODO re-use local variables on stack
// store values back to aexp at the end of the inner-loop
aexp->old_yl = Lyl;
aexp->old_y1 = Ly1;
aexp->old_yg = Lyg;
}
*(aexp->outlevel) = (max < 0.0056f) ? -45.f : to_dB(max);
aexp->makeup_gain = makeup_gain;
#ifdef LV2_EXTENDED
const float old_v_lv1 = aexp->v_lv1;
const float old_v_lvl = aexp->v_lvl;
const float tot_rel_c = exp(-1000.f/(*(aexp->release) * srate) * n_samples);
const float tot_atk_c = exp(-1000.f/(*(aexp->attack) * srate) * n_samples);
aexp->v_lv1 = fmaxf (in_peak, tot_rel_c*old_v_lv1 + (1.f-tot_rel_c)*in_peak);
aexp->v_lvl = tot_atk_c*old_v_lvl + (1.f-tot_atk_c)*aexp->v_lv1;
if (!isfinite_local (aexp->v_lvl)) {
aexp->v_lvl = 0.f;
}
const float v_lvl_in = (aexp->v_lvl < 0.001f) ? -60.f : to_dB(aexp->v_lvl);
const float v_lvl_out = (max < 0.001f) ? -60.f : to_dB(max);
if (fabsf (aexp->v_lvl_out - v_lvl_out) >= 1 || fabsf (aexp->v_lvl_in - v_lvl_in) >= 1) {
// >= 1dB difference
aexp->need_expose = true;
aexp->v_lvl_in = v_lvl_in;
const float relax_coef = exp(-(float)n_samples/srate);
aexp->v_lvl_out = fmaxf (v_lvl_out, relax_coef*aexp->v_lvl_out + (1.f-relax_coef)*v_lvl_out);
}
if (aexp->need_expose && aexp->queue_draw) {
aexp->need_expose = false;
aexp->queue_draw->queue_draw (aexp->queue_draw->handle);
}
#endif
}
static void
run_stereo(LV2_Handle instance, uint32_t n_samples)
{
AExp* aexp = (AExp*)instance;
const float* const input0 = aexp->input0;
const float* const input1 = aexp->input1;
const float* const sc = aexp->sc;
float* const output0 = aexp->output0;
float* const output1 = aexp->output1;
float srate = aexp->srate;
float width = (6.f * *(aexp->knee)) + 0.01;
float cdb=0.f;
float attack_coeff = exp(-1000.f/(*(aexp->attack) * srate));
float release_coeff = exp(-1000.f/(*(aexp->release) * srate));
float max = 0.f;
float lgaininp = 0.f;
float rgaininp = 0.f;
float Lgain = 1.f;
float Lxg, Lxl, Lyg, Lyl, Ly1;
int usesidechain = (*(aexp->sidechain) <= 0.f) ? 0 : 1;
uint32_t i;
float ingain;
float in0;
float in1;
float sc0;
float maxabslr;
float ratio = *aexp->ratio;
float thresdb = *aexp->thresdb;
float makeup = *aexp->makeup;
float makeup_target = from_dB(makeup);
float makeup_gain = aexp->makeup_gain;
const float tau = aexp->tau;
if (*aexp->enable <= 0) {
ratio = 1.f;
thresdb = 0.f;
makeup = 0.f;
makeup_target = 1.f;
}
#ifdef LV2_EXTENDED
if (aexp->v_knee != *aexp->knee) {
aexp->v_knee = *aexp->knee;
aexp->need_expose = true;
}
if (aexp->v_ratio != ratio) {
aexp->v_ratio = ratio;
aexp->need_expose = true;
}
if (aexp->v_thresdb != thresdb) {
aexp->v_thresdb = thresdb;
aexp->need_expose = true;
}
if (aexp->v_makeup != makeup) {
aexp->v_makeup = makeup;
aexp->need_expose = true;
}
#endif
float in_peak = 0;
aexp->v_gainr = 0.0;
for (i = 0; i < n_samples; i++) {
in0 = input0[i];
in1 = input1[i];
sc0 = sc[i];
maxabslr = fmaxf(fabs(in0), fabs(in1));
ingain = usesidechain ? fabs(sc0) : maxabslr;
in_peak = fmaxf (in_peak, ingain);
Lyg = 0.f;
Lxg = (ingain==0.f) ? -160.f : to_dB(ingain);
Lxg = sanitize_denormal(Lxg);
if (2.f*(Lxg-thresdb) < -width) {
Lyg = thresdb + (Lxg-thresdb) * ratio;
Lyg = sanitize_denormal(Lyg);
} else if (2.f*(Lxg-thresdb) > width) {
Lyg = Lxg;
} else {
Lyg = Lxg + (1.f-ratio)*(Lxg-thresdb-width/2.f)*(Lxg-thresdb-width/2.f)/(2.f*width);
}
Lxl = Lxg - Lyg;
aexp->old_y1 = sanitize_denormal(aexp->old_y1);
aexp->old_yl = sanitize_denormal(aexp->old_yl);
Ly1 = fminf(Lxl, release_coeff * aexp->old_y1+(1.f-release_coeff)*Lxl);
Lyl = attack_coeff * aexp->old_yl+(1.f-attack_coeff)*Ly1;
Ly1 = sanitize_denormal(Ly1);
Lyl = sanitize_denormal(Lyl);
cdb = -Lyl;
Lgain = from_dB(cdb);
*(aexp->gainr) = Lyl;
if (Lyl > aexp->v_gainr) {
aexp->v_gainr = Lyl;
}
lgaininp = in0 * Lgain;
rgaininp = in1 * Lgain;
makeup_gain += tau * (makeup_target - makeup_gain) + 1e-12;
output0[i] = lgaininp * makeup_gain;
output1[i] = rgaininp * makeup_gain;
max = (fmaxf(fabs(output0[i]), fabs(output1[i])) > max) ? fmaxf(fabs(output0[i]), fabs(output1[i])) : sanitize_denormal(max);
// TODO re-use local variables on stack
// store values back to aexp at the end of the inner-loop
aexp->old_yl = Lyl;
aexp->old_y1 = Ly1;
aexp->old_yg = Lyg;
}
*(aexp->outlevel) = (max < 0.0056f) ? -45.f : to_dB(max);
aexp->makeup_gain = makeup_gain;
#ifdef LV2_EXTENDED
const float old_v_lv1 = aexp->v_lv1;
const float old_v_lvl = aexp->v_lvl;
const float tot_rel_c = exp(-1000.f/(*(aexp->release) * srate) * n_samples);
const float tot_atk_c = exp(-1000.f/(*(aexp->attack) * srate) * n_samples);
aexp->v_lv1 = fmaxf (in_peak, tot_rel_c*old_v_lv1 + (1.f-tot_rel_c)*in_peak);
aexp->v_lvl = tot_atk_c*old_v_lvl + (1.f-tot_atk_c)*aexp->v_lv1;
if (!isfinite_local (aexp->v_lvl)) {
aexp->v_lvl = 0.f;
}
const float v_lvl_in = (aexp->v_lvl < 0.001f) ? -60.f : to_dB(aexp->v_lvl);
const float v_lvl_out = (max < 0.001f) ? -60.f : to_dB(max);
if (fabsf (aexp->v_lvl_out - v_lvl_out) >= 1 || fabsf (aexp->v_lvl_in - v_lvl_in) >= 1) {
// >= 1dB difference
aexp->need_expose = true;
aexp->v_lvl_in = v_lvl_in;
const float relax_coef = exp(-2.0*n_samples/srate);
aexp->v_lvl_out = fmaxf (v_lvl_out, relax_coef*aexp->v_lvl_out + (1.f-relax_coef)*v_lvl_out);
}
if (aexp->need_expose && aexp->queue_draw) {
aexp->need_expose = false;
aexp->queue_draw->queue_draw (aexp->queue_draw->handle);
}
#endif
}
static void
deactivate(LV2_Handle instance)
{
activate(instance);
}
static void
cleanup(LV2_Handle instance)
{
#ifdef LV2_EXTENDED
AExp* aexp = (AExp*)instance;
if (aexp->display) {
cairo_surface_destroy (aexp->display);
}
#endif
free(instance);
}
#ifndef MIN
#define MIN(A,B) ((A) < (B)) ? (A) : (B)
#endif
#ifdef LV2_EXTENDED
static float
exp_curve (const AExp* self, float xg) {
const float knee = self->v_knee;
const float ratio = self->v_ratio;
const float thresdb = self->v_thresdb;
const float makeup = self->v_makeup;
const float width = 6.f * knee + 0.01f;
float yg = 0.f;
if (2.f * (xg - thresdb) < -width) {
yg = thresdb + (xg - thresdb) * ratio;
} else if (2.f * (xg - thresdb) > width) {
yg = xg;
} else {
yg = xg + (1.f - ratio) * (xg - thresdb - width / 2.f) * (xg - thresdb - width / 2.f) / (2.f * width);
}
yg += makeup;
return yg;
}
static void
render_inline_full (cairo_t* cr, const AExp* self)
{
const float w = self->w;
const float h = self->h;
const float makeup_thres = self->v_thresdb + self->v_makeup;
// clear background
cairo_rectangle (cr, 0, 0, w, h);
cairo_set_source_rgba (cr, .2, .2, .2, 1.0);
cairo_fill (cr);
cairo_set_line_width(cr, 1.0);
// draw grid 10dB steps
const double dash1[] = {1, 2};
const double dash2[] = {1, 3};
cairo_save (cr);
cairo_set_line_cap(cr, CAIRO_LINE_CAP_ROUND);
cairo_set_dash(cr, dash2, 2, 2);
cairo_set_source_rgba (cr, 0.5, 0.5, 0.5, 0.5);
for (uint32_t d = 1; d < 7; ++d) {
const float x = -.5 + floorf (w * (d * 10.f / 70.f));
const float y = -.5 + floorf (h * (d * 10.f / 70.f));
cairo_move_to (cr, x, 0);
cairo_line_to (cr, x, h);
cairo_stroke (cr);
cairo_move_to (cr, 0, y);
cairo_line_to (cr, w, y);
cairo_stroke (cr);
}
cairo_set_source_rgba (cr, 0.5, 0.5, 0.5, 1.0);
cairo_set_dash(cr, dash1, 2, 2);
if (self->v_thresdb < 0) {
const float y = -.5 + floorf (h * ((makeup_thres - 10.f) / -70.f));
cairo_move_to (cr, 0, y);
cairo_line_to (cr, w, y);
cairo_stroke (cr);
}
// diagonal unity
cairo_move_to (cr, 0, h);
cairo_line_to (cr, w, 0);
cairo_stroke (cr);
cairo_restore (cr);
{ // 0, 0
cairo_set_source_rgba (cr, 0.5, 0.5, 0.5, 0.5);
const float x = -.5 + floorf (w * (60.f / 70.f));
const float y = -.5 + floorf (h * (10.f / 70.f));
cairo_move_to (cr, x, 0);
cairo_line_to (cr, x, h);
cairo_stroke (cr);
cairo_move_to (cr, 0, y);
cairo_line_to (cr, w, y);
cairo_stroke (cr);
}
{ // GR
const float x = -.5 + floorf (w * (62.5f / 70.f));
const float y = -.5 + floorf (h * (10.0f / 70.f));
const float wd = floorf (w * (5.f / 70.f));
const float ht = floorf (h * (55.f / 70.f));
cairo_rectangle (cr, x, y, wd, ht);
cairo_fill (cr);
const float h_gr = fminf (ht, floorf (h * self->v_gainr / 70.f));
cairo_set_source_rgba (cr, 0.95, 0.0, 0.0, 1.0);
cairo_rectangle (cr, x, y, wd, h_gr);
cairo_fill (cr);
cairo_set_source_rgba (cr, 0.5, 0.5, 0.5, 0.5);
cairo_rectangle (cr, x, y, wd, ht);
cairo_set_source_rgba (cr, 0.75, 0.75, 0.75, 1.0);
cairo_stroke (cr);
}
// draw curve
cairo_set_source_rgba (cr, .8, .8, .8, 1.0);
cairo_move_to (cr, 0, h);
for (uint32_t x = 0; x < w; ++x) {
// plot -60..+10 dB
const float x_db = 70.f * (-1.f + x / (float)w) + 10.f;
const float y_db = exp_curve (self, x_db) - 10.f;
const float y = h * (y_db / -70.f);
cairo_line_to (cr, x, y);
}
cairo_stroke_preserve (cr);
cairo_line_to (cr, w, h);
cairo_close_path (cr);
cairo_clip (cr);
// draw signal level & reduction/gradient
const float top = exp_curve (self, 0) - 10.f;
cairo_pattern_t* pat = cairo_pattern_create_linear (0.0, 0.0, 0.0, h);
if (top > makeup_thres - 10.f) {
cairo_pattern_add_color_stop_rgba (pat, 0.0, 0.8, 0.1, 0.1, 0.5);
cairo_pattern_add_color_stop_rgba (pat, top / -70.f, 0.8, 0.1, 0.1, 0.5);
}
if (self->v_knee > 0) {
cairo_pattern_add_color_stop_rgba (pat, ((makeup_thres -10.f) / -70.f), 0.7, 0.7, 0.2, 0.5);
cairo_pattern_add_color_stop_rgba (pat, ((makeup_thres - self->v_knee - 10.f) / -70.f), 0.5, 0.5, 0.5, 0.5);
} else {
cairo_pattern_add_color_stop_rgba (pat, ((makeup_thres - 10.f)/ -70.f), 0.7, 0.7, 0.2, 0.5);
cairo_pattern_add_color_stop_rgba (pat, ((makeup_thres - 10.01f) / -70.f), 0.5, 0.5, 0.5, 0.5);
}
cairo_pattern_add_color_stop_rgba (pat, 1.0, 0.5, 0.5, 0.5, 0.5);
// maybe cut off at x-position?
const float x = w * (self->v_lvl_in + 60) / 70.f;
const float y = x + h*self->v_makeup;
cairo_rectangle (cr, 0, h - y, x, y);
if (self->v_ratio > 1.0) {
cairo_set_source (cr, pat);
} else {
cairo_set_source_rgba (cr, 0.5, 0.5, 0.5, 0.5);
}
cairo_fill (cr);
cairo_pattern_destroy (pat); // TODO cache pattern
}
static void
render_inline_only_bars (cairo_t* cr, const AExp* self)
{
const float w = self->w;
const float h = self->h;
cairo_rectangle (cr, 0, 0, w, h);
cairo_set_source_rgba (cr, .2, .2, .2, 1.0);
cairo_fill (cr);
cairo_save (cr);
const float ht = 0.25f * h;
const float x1 = w*0.05;
const float wd = w - 2.0f*x1;
const float y1 = 0.17*h;
const float y2 = h - y1 - ht;
cairo_set_source_rgba (cr, 0.5, 0.5, 0.5, 0.5);
cairo_rectangle (cr, x1, y1, wd, ht);
cairo_fill (cr);
cairo_rectangle (cr, x1, y2, wd, ht);
cairo_fill (cr);
cairo_set_source_rgba (cr, 0.75, 0.0, 0.0, 1.0);
const float w_gr = (self->v_gainr > 60.f) ? wd : wd * self->v_gainr * (1.f/60.f);
cairo_rectangle (cr, x1+wd-w_gr, y2, w_gr, ht);
cairo_fill (cr);
if (self->v_lvl_out > -60.f) {
if (self->v_lvl_out > 10.f) {
cairo_set_source_rgba (cr, 0.75, 0.0, 0.0, 1.0);
} else if (self->v_lvl_out > 0.f) {
cairo_set_source_rgba (cr, 0.66, 0.66, 0.0, 1.0);
} else {
cairo_set_source_rgba (cr, 0.0, 0.66, 0.0, 1.0);
}
const float w_g = (self->v_lvl_out > 10.f) ? wd : wd * (60.f+self->v_lvl_out) / 70.f;
cairo_rectangle (cr, x1, y1, w_g, ht);
cairo_fill (cr);
}
cairo_set_source_rgba (cr, 1.0, 1.0, 1.0, 1.0);
const float tck = 0.33*ht;
cairo_set_line_width (cr, .5);
for (uint32_t d = 1; d < 7; ++d) {
const float x = x1 + (d * wd * (10.f / 70.f));
cairo_move_to (cr, x, y1);
cairo_line_to (cr, x, y1+tck);
cairo_move_to (cr, x, y1+ht);
cairo_line_to (cr, x, y1+ht-tck);
cairo_move_to (cr, x, y2);
cairo_line_to (cr, x, y2+tck);
cairo_move_to (cr, x, y2+ht);
cairo_line_to (cr, x, y2+ht-tck);
}
cairo_stroke (cr);
const float x_0dB = x1 + wd*(60.f/70.f);
cairo_move_to (cr, x_0dB, y1);
cairo_line_to (cr, x_0dB, y1+ht);
cairo_rectangle (cr, x1, y1, wd, ht);
cairo_rectangle (cr, x1, y2, wd, ht);
cairo_stroke (cr);
cairo_set_line_width (cr, 2.0);
// visualize threshold
const float tr = x1 + wd * (60.f+self->v_thresdb) / 70.f;
cairo_set_source_rgba (cr, 0.95, 0.95, 0.0, 1.0);
cairo_move_to (cr, tr, y1);
cairo_line_to (cr, tr, y1+ht);
cairo_stroke (cr);
// visualize ratio
const float reduced_0dB = self->v_thresdb * (1.f - 1.f/self->v_ratio);
const float rt = x1 + wd * (60.f+reduced_0dB) / 70.f;
cairo_set_source_rgba (cr, 0.95, 0.0, 0.0, 1.0);
cairo_move_to (cr, rt, y1);
cairo_line_to (cr, rt, y1+ht);
cairo_stroke (cr);
}
static LV2_Inline_Display_Image_Surface *
render_inline (LV2_Handle instance, uint32_t w, uint32_t max_h)
{
AExp* self = (AExp*)instance;
uint32_t h = MIN (w, max_h);
if (w < 200) {
h = 40;
}
if (!self->display || self->w != w || self->h != h) {
if (self->display) cairo_surface_destroy(self->display);
self->display = cairo_image_surface_create (CAIRO_FORMAT_ARGB32, w, h);
self->w = w;
self->h = h;
}
cairo_t* cr = cairo_create (self->display);
if (w >= 200) {
render_inline_full (cr, self);
} else {
render_inline_only_bars (cr, self);
}
cairo_destroy (cr);
cairo_surface_flush (self->display);
self->surf.width = cairo_image_surface_get_width (self->display);
self->surf.height = cairo_image_surface_get_height (self->display);
self->surf.stride = cairo_image_surface_get_stride (self->display);
self->surf.data = cairo_image_surface_get_data (self->display);
return &self->surf;
}
#endif
static const void*
extension_data(const char* uri)
{
#ifdef LV2_EXTENDED
static const LV2_Inline_Display_Interface display = { render_inline };
if (!strcmp(uri, LV2_INLINEDISPLAY__interface)) {
return &display;
}
#endif
return NULL;
}
static const LV2_Descriptor descriptor_mono = {
AEXP_URI,
instantiate,
connect_mono,
activate,
run_mono,
deactivate,
cleanup,
extension_data
};
static const LV2_Descriptor descriptor_stereo = {
AEXP_STEREO_URI,
instantiate,
connect_stereo,
activate,
run_stereo,
deactivate,
cleanup,
extension_data
};
LV2_SYMBOL_EXPORT
const LV2_Descriptor*
lv2_descriptor(uint32_t index)
{
switch (index) {
case 0:
return &descriptor_mono;
case 1:
return &descriptor_stereo;
default:
return NULL;
}
}

156
libs/plugins/a-exp.lv2/a-exp.ttl.in Normal file
View File

@ -0,0 +1,156 @@
@prefix doap: <http://usefulinc.com/ns/doap#> .
@prefix foaf: <http://xmlns.com/foaf/0.1/> .
@prefix lv2: <http://lv2plug.in/ns/lv2core#> .
@prefix rdfs: <http://www.w3.org/2000/01/rdf-schema#> .
@prefix rsz: <http://lv2plug.in/ns/ext/resize-port#> .
@prefix unit: <http://lv2plug.in/ns/extensions/units#> .
<http://ardour.org/credits.html>
a foaf:Person ;
foaf:name "Ardour Team" ;
foaf:homepage <http://ardour.org/> .
<urn:ardour:a-exp>
a lv2:Plugin, doap:Project, lv2:ExpanderPlugin ;
lv2:optionalFeature <http://lv2plug.in/ns/lv2core#hardRTCapable> ;
lv2:optionalFeature <http://harrisonconsoles.com/lv2/inlinedisplay#queue_draw> ;
lv2:optionalFeature <http://harrisonconsoles.com/lv2/inlinedisplay#in_gui> ;
lv2:port [
a lv2:InputPort, lv2:ControlPort ;
lv2:index 0 ;
lv2:name "Attack" ;
lv2:symbol "att" ;
lv2:default 10.000000 ;
lv2:minimum 0.100000 ;
lv2:maximum 100.000000 ;
unit:unit unit:ms ;
] ,
[
a lv2:InputPort, lv2:ControlPort ;
lv2:index 1 ;
lv2:name "Release" ;
lv2:symbol "rel" ;
lv2:default 80.000000 ;
lv2:minimum 1.000000 ;
lv2:maximum 2000.000000 ;
unit:unit unit:ms ;
] ,
[
a lv2:InputPort, lv2:ControlPort ;
lv2:index 2 ;
lv2:name "Knee" ;
lv2:symbol "kn" ;
lv2:default 0.000000 ;
lv2:minimum 0.000000 ;
lv2:maximum 8.000000 ;
unit:unit unit:db ;
] ,
[
a lv2:InputPort, lv2:ControlPort ;
lv2:index 3 ;
lv2:name "Ratio" ;
lv2:symbol "rat" ;
lv2:default 4.000000 ;
lv2:minimum 1.000000 ;
lv2:maximum 20.000000 ;
unit:unit [
rdfs:label " " ;
unit:symbol " " ;
unit:render "%f " ;
] ;
lv2:portProperty <http://lv2plug.in/ns/ext/port-props#logarithmic> ;
] ,
[
a lv2:InputPort, lv2:ControlPort ;
lv2:index 4 ;
lv2:name "Threshold" ;
lv2:symbol "thr" ;
lv2:default 0.000000 ;
lv2:minimum -60.000000 ;
lv2:maximum 0.000000 ;
unit:unit unit:db ;
] ,
[
a lv2:InputPort, lv2:ControlPort ;
lv2:index 5 ;
lv2:name "Makeup" ;
lv2:symbol "mak" ;
lv2:default 0.000000 ;
lv2:minimum 0.000000 ;
lv2:maximum 30.000000 ;
unit:unit unit:db ;
] ,
[
a lv2:OutputPort, lv2:ControlPort ;
lv2:index 6 ;
lv2:name "Gain Reduction" ;
lv2:symbol "gr" ;
lv2:default 0.000000 ;
lv2:minimum 0.000000 ;
lv2:maximum 45.000000 ;
unit:unit unit:db ;
] ,
[
a lv2:OutputPort, lv2:ControlPort ;
lv2:index 7 ;
lv2:name "Output Level" ;
lv2:symbol "outlevel" ;
lv2:default -45.000000 ;
lv2:minimum -45.000000 ;
lv2:maximum 0.000000 ;
unit:unit unit:db ;
] ,
[
a lv2:InputPort, lv2:ControlPort ;
lv2:index 8 ;
lv2:name "Sidechain" ;
lv2:symbol "sidech" ;
lv2:default 0.000000 ;
lv2:minimum 0.000000 ;
lv2:maximum 1.000000 ;
lv2:portProperty lv2:integer, lv2:toggled ;
] ,
[
a lv2:InputPort, lv2:ControlPort ;
lv2:index 9 ;
lv2:name "Enable" ;
lv2:symbol "enable" ;
lv2:default 1 ;
lv2:minimum 0 ;
lv2:maximum 1 ;
lv2:portProperty lv2:integer, lv2:toggled ;
lv2:designation lv2:enabled;
];
lv2:port [
a lv2:InputPort, lv2:AudioPort ;
lv2:index 10 ;
lv2:symbol "lv2_audio_in_1" ;
lv2:name "Audio Input 1" ;
] ,
[
a lv2:InputPort, lv2:AudioPort ;
lv2:index 11 ;
lv2:symbol "lv2_sidechain_in" ;
lv2:name "Sidechain Input" ;
lv2:portProperty lv2:isSideChain ;
],
[
a lv2:OutputPort, lv2:AudioPort ;
lv2:index 12 ;
lv2:symbol "lv2_audio_out_1" ;
lv2:name "Audio Output 1" ;
] ;
rdfs:comment """
A powerful mono expander
""" ;
doap:name "a-Expander" ;
doap:license <http://usefulinc.com/doap/licenses/gpl> ;
doap:maintainer <http://ardour.org/credits.html> ;
lv2:microVersion 1 ;
lv2:minorVersion 1 .

13
libs/plugins/a-exp.lv2/manifest.ttl.in Normal file
View File

@ -0,0 +1,13 @@
@prefix lv2: <http://lv2plug.in/ns/lv2core#> .
@prefix rdfs: <http://www.w3.org/2000/01/rdf-schema#> .
@prefix pset: <http://lv2plug.in/ns/ext/presets#> .
<urn:ardour:a-exp>
a lv2:Plugin ;
lv2:binary <a-exp@LIB_EXT@> ;
rdfs:seeAlso <a-exp.ttl> .
<urn:ardour:a-exp#stereo>
a lv2:Plugin ;
lv2:binary <a-exp@LIB_EXT@> ;
rdfs:seeAlso <a-exp#stereo.ttl> .

51
libs/plugins/a-exp.lv2/wscript Normal file
View File

@ -0,0 +1,51 @@
#!/usr/bin/env python
import os
import re
import shutil
import waflib.extras.autowaf as autowaf
import waflib.Options as Options, waflib.Utils as Utils
# Mandatory variables
top = '.'
out = 'build'
def options(opt):
autowaf.set_options(opt)
def configure(conf):
conf.load('compiler_c')
autowaf.configure(conf)
if Options.options.lv2:
autowaf.check_pkg(conf, 'lv2', atleast_version='1.0.0',
uselib_store='LV2_1_0_0')
autowaf.check_pkg(conf, 'cairo', uselib_store='CAIRO', atleast_version='1.12.0')
def build(bld):
bundle = 'a-exp.lv2'
module_pat = re.sub('^lib', '', bld.env.cshlib_PATTERN)
module_ext = module_pat[module_pat.rfind('.'):]
if bld.is_defined ('HAVE_LV2'):
# Build RDF files
for i in ['manifest.ttl', 'a-exp.ttl', 'a-exp#stereo.ttl']:
bld(features = 'subst',
source = i + '.in',
target = '../../LV2/%s/%s' % (bundle, i),
install_path = '${LV2DIR}/%s' % bundle,
chmod = Utils.O644,
LIB_EXT = module_ext)
# Build plugin library
obj = bld(features = 'c cshlib',
source = 'a-exp.c',
name = 'a-exp',
cflags = [ '-fPIC', bld.env['compiler_flags_dict']['c99'] ],
includes = [ '../../ardour' ],
target = '../../LV2/%s/a-exp' % bundle,
install_path = '${LV2DIR}/%s' % bundle,
uselib = 'CAIRO',
use = 'LV2_1_0_0'
)
obj.env.cshlib_PATTERN = module_pat
# vi:set ts=4 sw=4 et:

1
wscript
View File

@ -242,6 +242,7 @@ children = [
'libs/waveview',
'libs/plugins/reasonablesynth.lv2',
'libs/plugins/a-comp.lv2',
'libs/plugins/a-exp.lv2',
'libs/plugins/a-delay.lv2',
'libs/plugins/a-eq.lv2',
'libs/plugins/a-reverb.lv2',