/* Voice editor command */
int cmd_ve(char *input)
{
// Help text
if (input == NULL)
{
fprintf(stderr,
"ve [voice]\n"
"\t\tLaunches the voice editor, taking a voice name as an optional argument.\n"
"\t\tIf [voice] has been specified, the corresponding voice is selected for editing.\n"
"\t\tIf [voice] does not correspond to an existing voice, a new one is created by that name.\n"
"\t\tIf no voice is specified, a new voice is created by the name \"New Voice\"\n");
return FAIL;
}
strtok(input, " ");
char *name = strtok(NULL, " ");
// Banner
putchar('\n');
printf("------------------\n");
printf("-- Voice editor --\n");
printf("------------------\n\n");
VoiceDef voice = {};
if (name == NULL || read_voice(name, &voice) == FAIL)
init_voice(&voice, name);
// Input loop
bool running = true;
char ve_input[512];
while (running)
{
printf("%s> ", voice.name);
fgets(ve_input, 512, stdin);
strchomp(ve_input);
if (strncmp(ve_input, "quit", strlen("quit")) == 0)
running = false;
else
for (int i = 0; i < num_voice_cmds; i++)
{
const char *name = VoiceCommands[i].name;
if (strncmp(ve_input, name, strlen(name)) == 0)
VoiceCommands[i].callback(ve_input, &voice);
}
}
return SUCCESS;
}
void msm5232_device::init(int clock, int rate)
{
int j;
m_chip_clock = clock;
m_rate = rate ? rate : 44100; /* avoid division by 0 */
init_tables();
for (j=0; j<8; j++)
{
memset(&m_voi[j],0,sizeof(VOICE));
init_voice(j);
}
}
bool Event_channel_hit_process(
Channel* ch,
Device_states* dstates,
const Master_params* master_params,
const Event_params* params)
{
rassert(ch != NULL);
rassert(ch->audio_rate > 0);
rassert(ch->tempo > 0);
rassert(dstates != NULL);
rassert(master_params != NULL);
rassert(params != NULL);
rassert(params->arg != NULL);
rassert(params->arg->type == VALUE_TYPE_INT);
// Move the old Voices to the background
Event_channel_note_off_process(ch, dstates, master_params, NULL);
// Find our audio unit
Audio_unit* au = Module_get_au_from_input(ch->parent.module, ch->au_input);
if (au == NULL)
return true;
init_force_controls(ch, master_params);
// Don't attempt to hit effects
if (Audio_unit_get_type(au) != AU_TYPE_INSTRUMENT)
return true;
const int hit_index = (int)params->arg->value.int_type;
if (!Audio_unit_get_hit_existence(au, hit_index))
return true;
const Param_proc_filter* hpf = Audio_unit_get_hit_proc_filter(au, hit_index);
// Generate our next note random seed here so that random generation
// is consistent even if we run out of voices
const uint64_t note_rand_seed = Random_get_uint64(&ch->rand);
// Find reserved voices
Voice_group* vgroup = VOICE_GROUP_AUTO;
if (!Voice_group_reservations_get_clear_entry(
ch->voice_group_res, ch->num, &ch->fg_group_id) ||
(Voice_pool_get_group(ch->pool, ch->fg_group_id, vgroup) == NULL))
{
reset_channel_voices(ch);
return true;
}
int voice_index = 0;
for (int i = 0; i < KQT_PROCESSORS_MAX; ++i)
{
const Processor* proc = Audio_unit_get_proc(au, i);
if (proc == NULL ||
!Device_is_existent((const Device*)proc) ||
!Processor_get_voice_signals(proc))
continue;
// Skip processors that are filtered out for this hit index
if ((hpf != NULL) && !Param_proc_filter_is_proc_allowed(hpf, i))
continue;
const Proc_state* proc_state = (Proc_state*)Device_states_get_state(
dstates, Device_get_id((const Device*)proc));
Voice_state_get_size_func* get_vstate_size =
proc_state->parent.device->dimpl->get_vstate_size;
if ((get_vstate_size != NULL) && (get_vstate_size() == 0))
continue;
char context_str[16] = "";
snprintf(context_str, 16, "np%hd", (short)i);
Random* random = Random_init(RANDOM_AUTO, context_str);
Random_set_seed(random, note_rand_seed);
const uint64_t voice_rand_seed = Random_get_uint64(random);
Voice* voice = Voice_group_get_voice(vgroup, voice_index);
const bool voice_allocated = init_voice(
ch, voice, au, ch->fg_group_id, proc_state, i, voice_rand_seed);
if (!voice_allocated)
{
// Some of our voices were reallocated
reset_channel_voices(ch);
return true;
}
++voice_index;
Voice_state* vs = voice->state;
vs->hit_index = hit_index;
if (vs->proc_type == Proc_type_force)
{
Force_controls* fc = Force_vstate_get_force_controls_mut(vs);
Force_controls_copy(fc, &ch->force_controls);
}
}
Channel_reset_test_output(ch);
init_streams(ch, au);
return true;
}
bool Event_channel_note_on_process(
Channel* ch,
Device_states* dstates,
const Master_params* master_params,
const Event_params* params)
{
rassert(ch != NULL);
rassert(ch->audio_rate > 0);
rassert(ch->tempo > 0);
rassert(dstates != NULL);
rassert(master_params != NULL);
rassert(params != NULL);
rassert(params->arg != NULL);
rassert(params->arg->type == VALUE_TYPE_FLOAT);
// Move the old Voices to the background
Event_channel_note_off_process(ch, dstates, master_params, NULL);
// Find our audio unit
Audio_unit* au = Module_get_au_from_input(ch->parent.module, ch->au_input);
if (au == NULL)
return true;
double pitch_param = params->arg->value.float_type;
// Retune pitch parameter if a retuner is active
{
const int tuning_index = master_params->cur_tuning_state;
if (0 <= tuning_index && tuning_index < KQT_TUNING_TABLES_MAX)
{
Tuning_state* state = master_params->tuning_states[tuning_index];
const Tuning_table* table =
Module_get_tuning_table(master_params->parent.module, tuning_index);
if (state != NULL && table != NULL)
pitch_param = Tuning_state_get_retuned_pitch(state, table, pitch_param);
}
}
if (ch->carry_pitch)
{
if (isnan(ch->pitch_controls.pitch))
ch->pitch_controls.pitch = pitch_param;
if (isnan(ch->pitch_controls.orig_carried_pitch))
ch->pitch_controls.orig_carried_pitch = pitch_param;
const double pitch_diff = pitch_param - ch->pitch_controls.orig_carried_pitch;
ch->pitch_controls.pitch_add = pitch_diff;
}
else
{
Pitch_controls_reset(&ch->pitch_controls);
ch->pitch_controls.orig_carried_pitch = pitch_param;
Slider_set_tempo(&ch->pitch_controls.slider, master_params->tempo);
Slider_set_length(&ch->pitch_controls.slider, &ch->pitch_slide_length);
LFO_set_tempo(&ch->pitch_controls.vibrato, master_params->tempo);
LFO_set_speed_slide(&ch->pitch_controls.vibrato, &ch->vibrato_speed_slide);
LFO_set_depth_slide(&ch->pitch_controls.vibrato, &ch->vibrato_depth_slide);
ch->pitch_controls.pitch = pitch_param;
if (isnan(ch->pitch_controls.orig_carried_pitch))
ch->pitch_controls.orig_carried_pitch = pitch_param;
}
init_force_controls(ch, master_params);
// Don't attempt to play effects
if (Audio_unit_get_type(au) != AU_TYPE_INSTRUMENT)
return true;
// Generate our next note random seed here so that random generation
// is consistent even if we run out of voices
const uint64_t note_rand_seed = Random_get_uint64(&ch->rand);
// Find reserved voices
Voice_group* vgroup = VOICE_GROUP_AUTO;
if (!Voice_group_reservations_get_clear_entry(
ch->voice_group_res, ch->num, &ch->fg_group_id) ||
(Voice_pool_get_group(ch->pool, ch->fg_group_id, vgroup) == NULL))
{
reset_channel_voices(ch);
return true;
}
int voice_index = 0;
for (int i = 0; i < KQT_PROCESSORS_MAX; ++i)
{
const Processor* proc = Audio_unit_get_proc(au, i);
if (proc == NULL ||
!Device_is_existent((const Device*)proc) ||
!Processor_get_voice_signals(proc))
continue;
const Proc_state* proc_state = (Proc_state*)Device_states_get_state(
dstates, Device_get_id((const Device*)proc));
Voice_state_get_size_func* get_vstate_size =
proc_state->parent.device->dimpl->get_vstate_size;
if ((get_vstate_size != NULL) && (get_vstate_size() == 0))
continue;
char context_str[16] = "";
snprintf(context_str, 16, "np%hd", (short)i);
Random* random = Random_init(RANDOM_AUTO, context_str);
Random_set_seed(random, note_rand_seed);
const uint64_t voice_rand_seed = Random_get_uint64(random);
Voice* voice = Voice_group_get_voice(vgroup, voice_index);
const bool voice_allocated = init_voice(
ch, voice, au, ch->fg_group_id, proc_state, i, voice_rand_seed);
if (!voice_allocated)
{
// Some of our voices were reallocated
reset_channel_voices(ch);
return true;
}
++voice_index;
Voice_state* vs = voice->state;
if (vs->proc_type == Proc_type_pitch)
Pitch_vstate_set_controls(vs, &ch->pitch_controls);
if (vs->proc_type == Proc_type_force)
{
Force_controls* fc = Force_vstate_get_force_controls_mut(vs);
Force_controls_copy(fc, &ch->force_controls);
}
}
Channel_reset_test_output(ch);
init_streams(ch, au);
return true;
}