/* 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/>. */ #include "voices.h" #include "audio.h" #include "stdlib.h" // these are imported from audio.c extern uint16_t envelope_index; extern float note_timbre; extern float polyphony_rate; extern bool glissando; voice_type voice = default_voice; void set_voice(voice_type v) { voice = v; } void voice_iterate() { voice = (voice + 1) % number_of_voices; } void voice_deiterate() { voice = (voice - 1 + number_of_voices) % number_of_voices; } float voice_envelope(float frequency) { // envelope_index ranges from 0 to 0xFFFF, which is preserved at 880.0 Hz __attribute__ ((unused)) uint16_t compensated_index = (uint16_t)((float)envelope_index * (880.0 / frequency)); switch (voice) { case default_voice: glissando = false; note_timbre = TIMBRE_50; polyphony_rate = 0; break; #ifdef AUDIO_VOICES case something: glissando = false; 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: note_timbre = .125 + .125; break; default: note_timbre = .125; break; } break; 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; switch (envelope_index) { case 0 ... 15: note_timbre = 0.5; break; case 16 ... 20: note_timbre = 0.5 * (21 - envelope_index) / 5; break; default: note_timbre = 0; 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; } } break; case butts_fader: glissando = true; polyphony_rate = 0; switch (compensated_index) { case 0 ... 9: frequency = frequency / 4; note_timbre = TIMBRE_12; break; case 10 ... 19: frequency = frequency / 2; note_timbre = TIMBRE_12; break; case 20 ... 200: note_timbre = .125 - pow(((float)compensated_index - 20) / (200 - 20), 2)*.125; break; default: note_timbre = 0; break; } 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; // case 10 ... 19: // case 25 ... 29: // case 33 ... 35: // frequency = frequency * 2; // note_timbre = TIMBRE_12; // break; // default: // note_timbre = TIMBRE_12; // break; // } // break; case duty_osc: // This slows the loop down a substantial amount, so higher notes may freeze 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; break; } break; case duty_octave_down: glissando = true; polyphony_rate = 0; note_timbre = (envelope_index % 2) * .125 + .375 * 2; if ((envelope_index % 4) == 0) note_timbre = 0.5; if ((envelope_index % 8) == 0) note_timbre = 0; break; case delayed_vibrato: glissando = true; 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)]; 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; // 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; #endif default: break; } return frequency; }