qmk-dactyl-manuform-a/quantum/audio/voices.c

297 lines
9.5 KiB
C
Raw Normal View History

/* Copyright 2016 Jack Humbert
*
* 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.
*
* You should have received a copy of the GNU General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*/
2016-04-21 06:37:45 +02:00
#include "voices.h"
#include "audio.h"
2016-04-22 07:01:38 +02:00
#include "stdlib.h"
2016-04-21 06:37:45 +02:00
// these are imported from audio.c
2016-04-21 06:37:45 +02:00
extern uint16_t envelope_index;
extern float note_timbre;
extern float polyphony_rate;
2016-12-19 17:18:18 +01:00
extern bool glissando;
2016-04-21 06:37:45 +02:00
2016-04-25 06:59:47 +02:00
voice_type voice = default_voice;
2016-04-21 06:37:45 +02:00
void set_voice(voice_type v) {
2016-04-21 06:40:00 +02:00
voice = v;
2016-04-21 06:37:45 +02:00
}
void voice_iterate() {
voice = (voice + 1) % number_of_voices;
}
void voice_deiterate() {
2016-12-12 21:39:07 +01:00
voice = (voice - 1 + number_of_voices) % number_of_voices;
}
2016-04-21 06:37:45 +02:00
float voice_envelope(float frequency) {
2016-04-21 06:40:00 +02:00
// envelope_index ranges from 0 to 0xFFFF, which is preserved at 880.0 Hz
2017-02-16 17:37:46 +01:00
__attribute__ ((unused))
2016-04-21 06:37:45 +02:00
uint16_t compensated_index = (uint16_t)((float)envelope_index * (880.0 / frequency));
switch (voice) {
2016-04-21 06:40:00 +02:00
case default_voice:
2016-12-19 17:18:18 +01:00
glissando = true;
note_timbre = TIMBRE_50;
polyphony_rate = 0;
2016-04-22 07:01:38 +02:00
break;
#ifdef AUDIO_VOICES
2016-12-12 21:39:07 +01:00
case something:
2016-12-19 17:18:18 +01:00
glissando = false;
2016-12-12 21:39:07 +01:00
polyphony_rate = 0;
switch (compensated_index) {
case 0 ... 9:
note_timbre = TIMBRE_12;
break;
case 10 ... 19:
note_timbre = TIMBRE_25;
break;
case 20 ... 200:
2016-12-19 17:18:18 +01:00
note_timbre = .125 + .125;
2016-12-12 21:39:07 +01:00
break;
default:
2016-12-19 17:18:18 +01:00
note_timbre = .125;
2016-12-12 21:39:07 +01:00
break;
}
break;
2016-12-19 17:18:18 +01:00
case drums:
glissando = false;
polyphony_rate = 0;
// switch (compensated_index) {
// case 0 ... 10:
// note_timbre = 0.5;
// break;
// case 11 ... 20:
// note_timbre = 0.5 * (21 - compensated_index) / 10;
// break;
// default:
// note_timbre = 0;
// break;
// }
// frequency = (rand() % (int)(frequency * 1.2 - frequency)) + (frequency * 0.8);
if (frequency < 80.0) {
} else if (frequency < 160.0) {
// Bass drum: 60 - 100 Hz
frequency = (rand() % (int)(40)) + 60;
switch (envelope_index) {
case 0 ... 10:
note_timbre = 0.5;
break;
case 11 ... 20:
note_timbre = 0.5 * (21 - envelope_index) / 10;
break;
default:
note_timbre = 0;
break;
}
} else if (frequency < 320.0) {
// Snare drum: 1 - 2 KHz
frequency = (rand() % (int)(1000)) + 1000;
switch (envelope_index) {
case 0 ... 5:
note_timbre = 0.5;
break;
case 6 ... 20:
note_timbre = 0.5 * (21 - envelope_index) / 15;
break;
default:
note_timbre = 0;
break;
}
} else if (frequency < 640.0) {
// Closed Hi-hat: 3 - 5 KHz
frequency = (rand() % (int)(2000)) + 3000;
2016-12-19 17:18:18 +01:00
switch (envelope_index) {
case 0 ... 15:
2016-12-19 17:18:18 +01:00
note_timbre = 0.5;
break;
case 16 ... 20:
note_timbre = 0.5 * (21 - envelope_index) / 5;
break;
2016-12-19 17:18:18 +01:00
default:
note_timbre = 0;
2016-12-19 17:18:18 +01:00
break;
}
} else if (frequency < 1280.0) {
// Open Hi-hat: 3 - 5 KHz
frequency = (rand() % (int)(2000)) + 3000;
switch (envelope_index) {
case 0 ... 35:
note_timbre = 0.5;
break;
case 36 ... 50:
note_timbre = 0.5 * (51 - envelope_index) / 15;
break;
default:
note_timbre = 0;
break;
}
}
2016-12-19 17:18:18 +01:00
break;
2016-04-21 06:40:00 +02:00
case butts_fader:
2016-12-19 17:18:18 +01:00
glissando = true;
polyphony_rate = 0;
2016-04-21 06:40:00 +02:00
switch (compensated_index) {
case 0 ... 9:
frequency = frequency / 4;
note_timbre = TIMBRE_12;
2016-04-22 07:01:38 +02:00
break;
2016-04-21 06:40:00 +02:00
case 10 ... 19:
frequency = frequency / 2;
note_timbre = TIMBRE_12;
2016-04-22 07:01:38 +02:00
break;
2016-04-21 06:40:00 +02:00
case 20 ... 200:
note_timbre = .125 - pow(((float)compensated_index - 20) / (200 - 20), 2)*.125;
2016-04-22 07:01:38 +02:00
break;
2016-04-21 06:40:00 +02:00
default:
note_timbre = 0;
2016-04-22 07:01:38 +02:00
break;
2016-04-21 06:40:00 +02:00
}
2016-04-22 07:01:38 +02:00
break;
// case octave_crunch:
// polyphony_rate = 0;
// switch (compensated_index) {
// case 0 ... 9:
// case 20 ... 24:
// case 30 ... 32:
// frequency = frequency / 2;
// note_timbre = TIMBRE_12;
// break;
2016-04-22 07:01:38 +02:00
// case 10 ... 19:
// case 25 ... 29:
// case 33 ... 35:
// frequency = frequency * 2;
// note_timbre = TIMBRE_12;
// break;
2016-04-22 07:01:38 +02:00
// default:
// note_timbre = TIMBRE_12;
// break;
// }
// break;
2016-04-22 07:01:38 +02:00
case duty_osc:
// This slows the loop down a substantial amount, so higher notes may freeze
2016-12-19 17:18:18 +01:00
glissando = true;
polyphony_rate = 0;
switch (compensated_index) {
default:
#define OCS_SPEED 10
#define OCS_AMP .25
// sine wave is slow
// note_timbre = (sin((float)compensated_index/10000*OCS_SPEED) * OCS_AMP / 2) + .5;
// triangle wave is a bit faster
note_timbre = (float)abs((compensated_index*OCS_SPEED % 3000) - 1500) * ( OCS_AMP / 1500 ) + (1 - OCS_AMP) / 2;
2016-04-22 07:01:38 +02:00
break;
}
2016-04-22 07:01:38 +02:00
break;
case duty_octave_down:
2016-12-19 17:18:18 +01:00
glissando = true;
polyphony_rate = 0;
note_timbre = (envelope_index % 2) * .125 + .375 * 2;
2016-04-22 07:02:50 +02:00
if ((envelope_index % 4) == 0)
note_timbre = 0.5;
if ((envelope_index % 8) == 0)
note_timbre = 0;
break;
2016-04-26 07:16:47 +02:00
case delayed_vibrato:
2016-12-19 17:18:18 +01:00
glissando = true;
2016-04-26 07:16:47 +02:00
polyphony_rate = 0;
note_timbre = TIMBRE_50;
#define VOICE_VIBRATO_DELAY 150
#define VOICE_VIBRATO_SPEED 50
switch (compensated_index) {
case 0 ... VOICE_VIBRATO_DELAY:
break;
default:
frequency = frequency * vibrato_lut[(int)fmod((((float)compensated_index - (VOICE_VIBRATO_DELAY + 1))/1000*VOICE_VIBRATO_SPEED), VIBRATO_LUT_LENGTH)];
2016-04-26 07:16:47 +02:00
break;
}
break;
// case delayed_vibrato_octave:
// polyphony_rate = 0;
// if ((envelope_index % 2) == 1) {
// note_timbre = 0.55;
// } else {
// note_timbre = 0.45;
// }
// #define VOICE_VIBRATO_DELAY 150
// #define VOICE_VIBRATO_SPEED 50
// switch (compensated_index) {
// case 0 ... VOICE_VIBRATO_DELAY:
// break;
// default:
// frequency = frequency * VIBRATO_LUT[(int)fmod((((float)compensated_index - (VOICE_VIBRATO_DELAY + 1))/1000*VOICE_VIBRATO_SPEED), VIBRATO_LUT_LENGTH)];
// break;
// }
// break;
2016-04-25 06:59:47 +02:00
// case duty_fifth_down:
// note_timbre = 0.5;
// if ((envelope_index % 3) == 0)
// note_timbre = 0.75;
// break;
// case duty_fourth_down:
// note_timbre = 0.0;
// if ((envelope_index % 12) == 0)
// note_timbre = 0.75;
// if (((envelope_index % 12) % 4) != 1)
// note_timbre = 0.75;
// break;
// case duty_third_down:
// note_timbre = 0.5;
// if ((envelope_index % 5) == 0)
// note_timbre = 0.75;
// break;
// case duty_fifth_third_down:
// note_timbre = 0.5;
// if ((envelope_index % 5) == 0)
// note_timbre = 0.75;
// if ((envelope_index % 3) == 0)
// note_timbre = 0.25;
// break;
2016-04-22 07:01:38 +02:00
#endif
2016-04-22 07:01:38 +02:00
default:
break;
2016-04-21 06:40:00 +02:00
}
2016-04-21 06:37:45 +02:00
2016-04-21 06:40:00 +02:00
return frequency;
}