quantum/audio/voices.c

   1 #include "voices.h"
   2
   3 // these are imported from audio.c
   4 extern uint16_t envelope_index;
   5 extern float note_timbre;
   6 extern float polyphony_rate;
   7
   8 voice_type voice = duty_osc;
   9
  10 void set_voice(voice_type v) {
  11     voice = v;
  12 }
  13
  14 void voice_iterate() {
  15     voice = (voice + 1) % number_of_voices;
  16 }
  17
  18 void voice_deiterate() {
  19     voice = (voice - 1) % number_of_voices;
  20 }
  21
  22 float voice_envelope(float frequency) {
  23     // envelope_index ranges from 0 to 0xFFFF, which is preserved at 880.0 Hz
  24     uint16_t compensated_index = (uint16_t)((float)envelope_index * (880.0 / frequency));
  25
  26     switch (voice) {
  27         case default_voice:
  28             note_timbre = TIMBRE_50;
  29             polyphony_rate = 0;
  30         break;
  31         case butts_fader:
  32             polyphony_rate = 0;
  33             switch (compensated_index) {
  34                 case 0 ... 9:
  35                     frequency = frequency / 4;
  36                     note_timbre = TIMBRE_12;
  37                 break;
  38                 case 10 ... 19:
  39                     frequency = frequency / 2;
  40                     note_timbre = TIMBRE_12;
  41                 break;
  42                 case 20 ... 200:
  43                     note_timbre = .125 - pow(((float)compensated_index - 20) / (200 - 20), 2)*.125;
  44                 break;
  45                 default:
  46                     note_timbre = 0;
  47                 break;
  48             }
  49         break;
  50         case octave_crunch:
  51             polyphony_rate = 0;
  52             switch (compensated_index) {
  53                 case 0 ... 9:
  54                 case 20 ... 24:
  55                 case 30 ... 32:
  56                     frequency = frequency / 2;
  57                     note_timbre = TIMBRE_12;
  58                 break;
  59                 case 10 ... 19:
  60                 case 25 ... 29:
  61                 case 33 ... 35:
  62                     frequency = frequency * 2;
  63                     note_timbre = TIMBRE_12;
  64                 break;
  65                 default:
  66                     note_timbre = TIMBRE_12;
  67                 break;
  68             }
  69         break;
  70         case duty_osc:
  71             // This slows the loop down a substantial amount, so higher notes may freeze
  72             polyphony_rate = 0;
  73             switch (compensated_index) {
  74                 default:
  75                     #define OCS_SPEED 10
  76                     #define OCS_AMP   .25
  77                     // sine wave is slow
  78                     // note_timbre = (sin((float)compensated_index/10000*OCS_SPEED) * OCS_AMP / 2) + .5;
  79                     // triangle wave is a bit faster
  80                     note_timbre = (float)abs((compensated_index*OCS_SPEED % 3000) - 1500) * ( OCS_AMP / 1500 ) + (1 - OCS_AMP) / 2;
  81                 break;
  82             }
  83         break;
  84         case duty_octave_down:
  85             polyphony_rate = 0;
  86             note_timbre = (envelope_index % 2) * .125 + .375 * 2;
  87             if ((envelope_index % 4) == 0)
  88                 note_timbre = 0.5;
  89             if ((envelope_index % 8) == 0)
  90                 note_timbre = 0;
  91         break;
  92         case duty_fifth_down:
  93             note_timbre = 0.5;
  94             if ((envelope_index % 5) == 0)
  95                 note_timbre = 0.75;
  96         break;
  97         case duty_fourth_down:
  98             if ((envelope_index % 12) == 0)
  99                 note_timbre = 0.25;
 100             else
 101                 note_timbre = 0.5;
 102         break;
 103     }
 104
 105     return frequency;
 106 }