ref: c95bf4bfce31c128bc251d3c43122b61fc090747
parent: 2cbd46b30a19983458bb4b6af4c951321c224818
author: Sigrid Haflínudóttir <ftrvxmtrx@gmail.com>
date: Tue Jan 14 10:32:38 EST 2020
kick drum: reset osc phase on gate ON
--- a/kick_drum.c
+++ b/kick_drum.c
@@ -31,7 +31,7 @@
typedef struct {
- int iRec0[2];
+ int iRec1[2];
} KickDrumSIG0;
@@ -85,9 +85,9 @@
USED(dsp);
/* C99 loop */
{
- int l0;
- for (l0 = 0; (l0 < 2); l0 = (l0 + 1)) {
- dsp->iRec0[l0] = 0;
+ int l1;
+ for (l1 = 0; (l1 < 2); l1 = (l1 + 1)) {
+ dsp->iRec1[l1] = 0;
}
@@ -101,9 +101,9 @@
{
int i;
for (i = 0; (i < count); i = (i + 1)) {
- dsp->iRec0[0] = (dsp->iRec0[1] + 1);
- output[i] = sinf((9.58738019e-05f * (float)(dsp->iRec0[0] + -1)));
- dsp->iRec0[1] = dsp->iRec0[0];
+ dsp->iRec1[0] = (dsp->iRec1[1] + 1);
+ output[i] = sinf((9.58738019e-05f * (float)(dsp->iRec1[0] + -1)));
+ dsp->iRec1[1] = dsp->iRec1[0];
}
@@ -124,6 +124,9 @@
typedef struct {
FAUSTFLOAT fHslider0;
+ float fRec0[2];
+ FAUSTFLOAT fButton0;
+ float fVec0[2];
int fSamplingFreq;
float fConst0;
float fConst1;
@@ -130,20 +133,18 @@
FAUSTFLOAT fHslider1;
FAUSTFLOAT fHslider2;
FAUSTFLOAT fCheckbox0;
- FAUSTFLOAT fButton0;
- float fVec0[2];
FAUSTFLOAT fHslider3;
FAUSTFLOAT fHslider4;
float fVec1[2];
- float fRec2[2];
+ float fRec3[2];
float fConst2;
- float fRec1[2];
+ float fRec2[2];
FAUSTFLOAT fHslider5;
- float fRec3[2];
+ float fRec4[2];
FAUSTFLOAT fHslider6;
FAUSTFLOAT fHslider7;
+ float fRec6[2];
float fRec5[2];
- float fRec4[2];
} KickDrum;
@@ -175,6 +176,8 @@
m->declare(m->metaInterface, "name", "Kick Drum");
m->declare(m->metaInterface, "oscillators.lib/name", "Faust Oscillator Library");
m->declare(m->metaInterface, "oscillators.lib/version", "0.0");
+ m->declare(m->metaInterface, "signals.lib/name", "Faust Signal Routing Library");
+ m->declare(m->metaInterface, "signals.lib/version", "0.0");
}
int getSampleRateKickDrum(KickDrum* dsp) {
@@ -182,7 +185,7 @@
int getNumInputsKickDrum(KickDrum* dsp) {
USED(dsp);
- return 1;
+ return 0;
}
int getNumOutputsKickDrum(KickDrum* dsp) {
@@ -194,10 +197,6 @@
USED(dsp);
int rate;
switch (channel) {
- case 0: {
- rate = 1;
- break;
- }
default: {
rate = -1;
break;
@@ -237,10 +236,10 @@
void instanceResetUserInterfaceKickDrum(KickDrum* dsp) {
USED(dsp);
dsp->fHslider0 = (FAUSTFLOAT)1.0f;
+ dsp->fButton0 = (FAUSTFLOAT)0.0f;
dsp->fHslider1 = (FAUSTFLOAT)100.0f;
dsp->fHslider2 = (FAUSTFLOAT)200.0f;
dsp->fCheckbox0 = (FAUSTFLOAT)0.0f;
- dsp->fButton0 = (FAUSTFLOAT)0.0f;
dsp->fHslider3 = (FAUSTFLOAT)0.001f;
dsp->fHslider4 = (FAUSTFLOAT)0.001f;
dsp->fHslider5 = (FAUSTFLOAT)0.001f;
@@ -253,9 +252,9 @@
USED(dsp);
/* C99 loop */
{
- int l1;
- for (l1 = 0; (l1 < 2); l1 = (l1 + 1)) {
- dsp->fVec0[l1] = 0.0f;
+ int l0;
+ for (l0 = 0; (l0 < 2); l0 = (l0 + 1)) {
+ dsp->fRec0[l0] = 0.0f;
}
@@ -264,7 +263,7 @@
{
int l2;
for (l2 = 0; (l2 < 2); l2 = (l2 + 1)) {
- dsp->fVec1[l2] = 0.0f;
+ dsp->fVec0[l2] = 0.0f;
}
@@ -273,7 +272,7 @@
{
int l3;
for (l3 = 0; (l3 < 2); l3 = (l3 + 1)) {
- dsp->fRec2[l3] = 0.0f;
+ dsp->fVec1[l3] = 0.0f;
}
@@ -282,7 +281,7 @@
{
int l4;
for (l4 = 0; (l4 < 2); l4 = (l4 + 1)) {
- dsp->fRec1[l4] = 0.0f;
+ dsp->fRec3[l4] = 0.0f;
}
@@ -291,7 +290,7 @@
{
int l5;
for (l5 = 0; (l5 < 2); l5 = (l5 + 1)) {
- dsp->fRec3[l5] = 0.0f;
+ dsp->fRec2[l5] = 0.0f;
}
@@ -300,7 +299,7 @@
{
int l6;
for (l6 = 0; (l6 < 2); l6 = (l6 + 1)) {
- dsp->fRec5[l6] = 0.0f;
+ dsp->fRec4[l6] = 0.0f;
}
@@ -309,11 +308,20 @@
{
int l7;
for (l7 = 0; (l7 < 2); l7 = (l7 + 1)) {
- dsp->fRec4[l7] = 0.0f;
+ dsp->fRec6[l7] = 0.0f;
}
}
+ /* C99 loop */
+ {
+ int l8;
+ for (l8 = 0; (l8 < 2); l8 = (l8 + 1)) {
+ dsp->fRec5[l8] = 0.0f;
+
+ }
+
+ }
}
@@ -386,53 +394,55 @@
void computeKickDrum(KickDrum* dsp, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) {
USED(inputs);
USED(dsp);
- FAUSTFLOAT* input0 = inputs[0];
FAUSTFLOAT* output0 = outputs[0];
- float fSlow0 = (float)dsp->fHslider0;
- float fSlow1 = (float)dsp->fHslider1;
- float fSlow2 = ((float)dsp->fHslider2 * (float)dsp->fCheckbox0);
- float fSlow3 = (float)dsp->fButton0;
- float fSlow4 = (float)dsp->fHslider3;
- float fSlow5 = (fSlow4 + (float)dsp->fHslider4);
- float fSlow6 = (dsp->fConst0 * fSlow5);
- float fSlow7 = (dsp->fConst0 * fSlow4);
- float fSlow8 = (1.0f / (0.0f - (dsp->fConst0 * (fSlow4 - fSlow5))));
- float fSlow9 = (dsp->fConst2 / fSlow4);
- int iSlow10 = (fSlow3 > 0.0f);
- int iSlow11 = (iSlow10 > 0);
- float fSlow12 = (float)dsp->fHslider5;
- float fSlow13 = (dsp->fConst0 * fSlow12);
- int iSlow14 = ((fSlow3 == 0.0f) > 0);
- float fSlow15 = (float)dsp->fHslider6;
- float fSlow16 = (fSlow15 + (float)dsp->fHslider7);
- float fSlow17 = (dsp->fConst0 * fSlow16);
- float fSlow18 = (dsp->fConst0 * fSlow15);
- float fSlow19 = (9.99999997e-07f * fSlow3);
- float fSlow20 = ((fSlow19 + -1.0f) / (0.0f - (dsp->fConst0 * (fSlow15 - fSlow16))));
- float fSlow21 = (dsp->fConst2 / fSlow15);
- float fSlow22 = (dsp->fConst2 / fSlow12);
+ float fSlow0 = (0.00100000005f * (float)dsp->fHslider0);
+ float fSlow1 = (float)dsp->fButton0;
+ int iSlow2 = ((fSlow1 == 0.0f) > 0);
+ int iSlow3 = (1 - iSlow2);
+ float fSlow4 = (float)dsp->fHslider1;
+ float fSlow5 = ((float)dsp->fHslider2 * (float)dsp->fCheckbox0);
+ float fSlow6 = (float)dsp->fHslider3;
+ float fSlow7 = (fSlow6 + (float)dsp->fHslider4);
+ float fSlow8 = (dsp->fConst0 * fSlow7);
+ float fSlow9 = (dsp->fConst0 * fSlow6);
+ float fSlow10 = (1.0f / (0.0f - (dsp->fConst0 * (fSlow6 - fSlow7))));
+ float fSlow11 = (dsp->fConst2 / fSlow6);
+ int iSlow12 = (fSlow1 > 0.0f);
+ int iSlow13 = (iSlow12 > 0);
+ float fSlow14 = (float)dsp->fHslider5;
+ float fSlow15 = (dsp->fConst0 * fSlow14);
+ float fSlow16 = (float)dsp->fHslider6;
+ float fSlow17 = (fSlow16 + (float)dsp->fHslider7);
+ float fSlow18 = (dsp->fConst0 * fSlow17);
+ float fSlow19 = (dsp->fConst0 * fSlow16);
+ float fSlow20 = (9.99999997e-07f * fSlow1);
+ float fSlow21 = ((fSlow20 + -1.0f) / (0.0f - (dsp->fConst0 * (fSlow16 - fSlow17))));
+ float fSlow22 = (dsp->fConst2 / fSlow16);
+ float fSlow23 = (dsp->fConst2 / fSlow14);
/* C99 loop */
{
int i;
for (i = 0; (i < count); i = (i + 1)) {
- dsp->fVec0[0] = fSlow3;
- dsp->fVec1[0] = fSlow5;
- dsp->fRec2[0] = ((((fSlow3 - dsp->fVec0[1]) > 0.0f) > 0)?0.0f:min(fSlow6, ((dsp->fRec2[1] + (dsp->fConst0 * (fSlow5 - dsp->fVec1[1]))) + 1.0f)));
- int iTemp0 = (dsp->fRec2[0] < fSlow7);
- float fTemp1 = ((dsp->fRec1[1] * (float)(1 - ((float)input0[i] > 0.0f))) + (dsp->fConst1 * (fSlow1 + (fSlow2 * (iTemp0?((dsp->fRec2[0] < 0.0f)?0.0f:(iTemp0?(fSlow9 * dsp->fRec2[0]):1.0f)):((dsp->fRec2[0] < fSlow6)?((fSlow8 * (0.0f - (dsp->fRec2[0] - fSlow7))) + 1.0f):0.0f))))));
- dsp->fRec1[0] = (fTemp1 - floorf(fTemp1));
- dsp->fRec3[0] = (iSlow11?0.0f:min(fSlow13, (dsp->fRec3[1] + 1.0f)));
- dsp->fRec5[0] = (iSlow14?0.0f:min(fSlow17, (dsp->fRec5[1] + 1.0f)));
- int iTemp2 = (dsp->fRec5[0] < fSlow18);
- dsp->fRec4[0] = (iSlow10?((float)iSlow10 * (iTemp2?((dsp->fRec5[0] < 0.0f)?0.0f:(iTemp2?(fSlow21 * dsp->fRec5[0]):1.0f)):((dsp->fRec5[0] < fSlow17)?((fSlow20 * (dsp->fRec5[0] - fSlow18)) + 1.0f):fSlow19))):dsp->fRec4[1]);
- output0[i] = (FAUSTFLOAT)(fSlow0 * (ftbl0KickDrumSIG0[(int)(65536.0f * dsp->fRec1[0])] * ((dsp->fRec3[0] < 0.0f)?dsp->fRec4[0]:((dsp->fRec3[0] < fSlow13)?(dsp->fRec4[0] + (fSlow22 * (dsp->fRec3[0] * (0.0f - dsp->fRec4[0])))):0.0f))));
+ dsp->fRec0[0] = (fSlow0 + (0.999000013f * dsp->fRec0[1]));
+ dsp->fVec0[0] = fSlow1;
+ dsp->fVec1[0] = fSlow7;
+ dsp->fRec3[0] = ((((fSlow1 - dsp->fVec0[1]) > 0.0f) > 0)?0.0f:min(fSlow8, ((dsp->fRec3[1] + (dsp->fConst0 * (fSlow7 - dsp->fVec1[1]))) + 1.0f)));
+ int iTemp0 = (dsp->fRec3[0] < fSlow9);
+ float fTemp1 = (((float)iSlow3 * dsp->fRec2[1]) + (dsp->fConst1 * (fSlow4 + (fSlow5 * (iTemp0?((dsp->fRec3[0] < 0.0f)?0.0f:(iTemp0?(fSlow11 * dsp->fRec3[0]):1.0f)):((dsp->fRec3[0] < fSlow8)?((fSlow10 * (0.0f - (dsp->fRec3[0] - fSlow9))) + 1.0f):0.0f))))));
+ dsp->fRec2[0] = (fTemp1 - floorf(fTemp1));
+ dsp->fRec4[0] = (iSlow13?0.0f:min(fSlow15, (dsp->fRec4[1] + 1.0f)));
+ dsp->fRec6[0] = (iSlow2?0.0f:min(fSlow18, (dsp->fRec6[1] + 1.0f)));
+ int iTemp2 = (dsp->fRec6[0] < fSlow19);
+ dsp->fRec5[0] = (iSlow12?((float)iSlow12 * (iTemp2?((dsp->fRec6[0] < 0.0f)?0.0f:(iTemp2?(fSlow22 * dsp->fRec6[0]):1.0f)):((dsp->fRec6[0] < fSlow18)?((fSlow21 * (dsp->fRec6[0] - fSlow19)) + 1.0f):fSlow20))):dsp->fRec5[1]);
+ output0[i] = (FAUSTFLOAT)((dsp->fRec0[0] * ftbl0KickDrumSIG0[(int)(65536.0f * dsp->fRec2[0])]) * ((dsp->fRec4[0] < 0.0f)?dsp->fRec5[0]:((dsp->fRec4[0] < fSlow15)?(dsp->fRec5[0] + (fSlow23 * (dsp->fRec4[0] * (0.0f - dsp->fRec5[0])))):0.0f)));
+ dsp->fRec0[1] = dsp->fRec0[0];
dsp->fVec0[1] = dsp->fVec0[0];
dsp->fVec1[1] = dsp->fVec1[0];
- dsp->fRec2[1] = dsp->fRec2[0];
- dsp->fRec1[1] = dsp->fRec1[0];
dsp->fRec3[1] = dsp->fRec3[0];
- dsp->fRec5[1] = dsp->fRec5[0];
+ dsp->fRec2[1] = dsp->fRec2[0];
dsp->fRec4[1] = dsp->fRec4[0];
+ dsp->fRec6[1] = dsp->fRec6[0];
+ dsp->fRec5[1] = dsp->fRec5[0];
}
--- a/kick_drum.dsp
+++ b/kick_drum.dsp
@@ -14,4 +14,4 @@
gain = hslider("v:Control/[0]Gain[style:knob]", 1, 0, 1, 0.01);
gate = button("v:Control/[1]Gate");
-process = os.hs_oscsin(aFreq + bFreq*en.ar(bA, bR, gate)) * gain * en.adsr(aA, aD, 0.000001, aR, gate);
+process = os.hs_oscsin(aFreq + bFreq*en.ar(bA, bR, gate), gate == 0) * si.smoo(gain) * en.adsr(aA, aD, 0.000001, aR, gate);