mirror of
https://github.com/id-Software/DOOM-3-BFG.git
synced 2024-12-11 13:11:47 +00:00
1019 lines
23 KiB
C++
1019 lines
23 KiB
C++
|
/*
|
||
|
|
||
|
TiMidity -- Experimental MIDI to WAVE converter
|
||
|
Copyright (C) 1995 Tuukka Toivonen <toivonen@clinet.fi>
|
||
|
|
||
|
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, write to the Free Software
|
||
|
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
||
|
|
||
|
playmidi.c -- random stuff in need of rearrangement
|
||
|
|
||
|
*/
|
||
|
|
||
|
#include <stdio.h>
|
||
|
#include <stdlib.h>
|
||
|
#include <string.h>
|
||
|
|
||
|
#include "config.h"
|
||
|
#include "common.h"
|
||
|
#include "instrum.h"
|
||
|
#include "playmidi.h"
|
||
|
#include "readmidi.h"
|
||
|
#include "output.h"
|
||
|
#include "mix.h"
|
||
|
#include "controls.h"
|
||
|
#include "timidity.h"
|
||
|
|
||
|
#include "tables.h"
|
||
|
|
||
|
#include "structs.h"
|
||
|
|
||
|
//void Real_Tim_Free( void *pt );
|
||
|
|
||
|
Channel channel[16];
|
||
|
Voice voice[MAX_VOICES];
|
||
|
|
||
|
int
|
||
|
voices=DEFAULT_VOICES;
|
||
|
|
||
|
int32_t
|
||
|
control_ratio=0,
|
||
|
amplification=DEFAULT_AMPLIFICATION;
|
||
|
|
||
|
float
|
||
|
master_volume;
|
||
|
|
||
|
int32_t drumchannels=DEFAULT_DRUMCHANNELS;
|
||
|
int adjust_panning_immediately=0;
|
||
|
|
||
|
static int midi_playing = 0;
|
||
|
static int32_t lost_notes, cut_notes;
|
||
|
static int32_t *buffer_pointer;
|
||
|
static int32_t buffered_count;
|
||
|
extern int32_t *common_buffer;
|
||
|
|
||
|
static MidiEvent *event_list, *current_event;
|
||
|
static int32_t sample_count, current_sample;
|
||
|
|
||
|
static void adjust_amplification(void)
|
||
|
{
|
||
|
master_volume = (float)(amplification) / (float)100.0;
|
||
|
}
|
||
|
|
||
|
static void reset_voices(void)
|
||
|
{
|
||
|
int i;
|
||
|
for (i=0; i<MAX_VOICES; i++)
|
||
|
voice[i].status=VOICE_FREE;
|
||
|
}
|
||
|
|
||
|
/* Process the Reset All Controllers event */
|
||
|
static void reset_controllers(int c)
|
||
|
{
|
||
|
channel[c].volume=90; /* Some standard says, although the SCC docs say 0. */
|
||
|
channel[c].expression=127; /* SCC-1 does this. */
|
||
|
channel[c].sustain=0;
|
||
|
channel[c].pitchbend=0x2000;
|
||
|
channel[c].pitchfactor=0; /* to be computed */
|
||
|
}
|
||
|
|
||
|
static void redraw_controllers(int c)
|
||
|
{
|
||
|
ctl->volume(c, channel[c].volume);
|
||
|
ctl->expression(c, channel[c].expression);
|
||
|
ctl->sustain(c, channel[c].sustain);
|
||
|
ctl->pitch_bend(c, channel[c].pitchbend);
|
||
|
}
|
||
|
|
||
|
static void reset_midi(void)
|
||
|
{
|
||
|
int i;
|
||
|
for (i=0; i<16; i++)
|
||
|
{
|
||
|
reset_controllers(i);
|
||
|
/* The rest of these are unaffected by the Reset All Controllers event */
|
||
|
channel[i].program=default_program;
|
||
|
channel[i].panning=NO_PANNING;
|
||
|
channel[i].pitchsens=2;
|
||
|
channel[i].bank=0; /* tone bank or drum set */
|
||
|
}
|
||
|
reset_voices();
|
||
|
}
|
||
|
|
||
|
static void select_sample(int v, Instrument *ip)
|
||
|
{
|
||
|
int32_t f, cdiff, diff;
|
||
|
int s,i;
|
||
|
Sample *sp, *closest;
|
||
|
|
||
|
s=ip->samples;
|
||
|
sp=ip->sample;
|
||
|
|
||
|
if (s==1)
|
||
|
{
|
||
|
voice[v].sample=sp;
|
||
|
return;
|
||
|
}
|
||
|
|
||
|
f=voice[v].orig_frequency;
|
||
|
for (i=0; i<s; i++)
|
||
|
{
|
||
|
if (sp->low_freq <= f && sp->high_freq >= f)
|
||
|
{
|
||
|
voice[v].sample=sp;
|
||
|
return;
|
||
|
}
|
||
|
sp++;
|
||
|
}
|
||
|
|
||
|
/*
|
||
|
No suitable sample found! We'll select the sample whose root
|
||
|
frequency is closest to the one we want. (Actually we should
|
||
|
probably convert the low, high, and root frequencies to MIDI note
|
||
|
values and compare those.) */
|
||
|
|
||
|
cdiff=0x7FFFFFFF;
|
||
|
closest=sp=ip->sample;
|
||
|
for(i=0; i<s; i++)
|
||
|
{
|
||
|
diff=sp->root_freq - f;
|
||
|
if (diff<0) diff=-diff;
|
||
|
if (diff<cdiff)
|
||
|
{
|
||
|
cdiff=diff;
|
||
|
closest=sp;
|
||
|
}
|
||
|
sp++;
|
||
|
}
|
||
|
voice[v].sample=closest;
|
||
|
return;
|
||
|
}
|
||
|
|
||
|
static void recompute_freq(int v)
|
||
|
{
|
||
|
int
|
||
|
sign=(voice[v].sample_increment < 0), /* for bidirectional loops */
|
||
|
pb=channel[voice[v].channel].pitchbend;
|
||
|
double a;
|
||
|
|
||
|
if (!voice[v].sample->sample_rate)
|
||
|
return;
|
||
|
|
||
|
if (voice[v].vibrato_control_ratio)
|
||
|
{
|
||
|
/* This instrument has vibrato. Invalidate any precomputed
|
||
|
sample_increments. */
|
||
|
|
||
|
int i=VIBRATO_SAMPLE_INCREMENTS;
|
||
|
while (i--)
|
||
|
voice[v].vibrato_sample_increment[i]=0;
|
||
|
}
|
||
|
|
||
|
if (pb==0x2000 || pb<0 || pb>0x3FFF)
|
||
|
voice[v].frequency=voice[v].orig_frequency;
|
||
|
else
|
||
|
{
|
||
|
pb-=0x2000;
|
||
|
if (!(channel[voice[v].channel].pitchfactor))
|
||
|
{
|
||
|
/* Damn. Somebody bent the pitch. */
|
||
|
int32_t i=pb*channel[voice[v].channel].pitchsens;
|
||
|
if (pb<0)
|
||
|
i=-i;
|
||
|
channel[voice[v].channel].pitchfactor=
|
||
|
(float)(bend_fine[(i>>5) & 0xFF] * bend_coarse[i>>13]);
|
||
|
}
|
||
|
if (pb>0)
|
||
|
voice[v].frequency=
|
||
|
(int32_t)(channel[voice[v].channel].pitchfactor *
|
||
|
(double)(voice[v].orig_frequency));
|
||
|
else
|
||
|
voice[v].frequency=
|
||
|
(int32_t)((double)(voice[v].orig_frequency) /
|
||
|
channel[voice[v].channel].pitchfactor);
|
||
|
}
|
||
|
|
||
|
a = FSCALE(((double)(voice[v].sample->sample_rate) *
|
||
|
(double)(voice[v].frequency)) /
|
||
|
((double)(voice[v].sample->root_freq) *
|
||
|
(double)(play_mode->rate)),
|
||
|
FRACTION_BITS);
|
||
|
|
||
|
if (sign)
|
||
|
a = -a; /* need to preserve the loop direction */
|
||
|
|
||
|
voice[v].sample_increment = (int32_t)(a);
|
||
|
}
|
||
|
|
||
|
static void recompute_amp(int v)
|
||
|
{
|
||
|
int32_t tempamp;
|
||
|
|
||
|
/* TODO: use fscale */
|
||
|
|
||
|
tempamp= (voice[v].velocity *
|
||
|
channel[voice[v].channel].volume *
|
||
|
channel[voice[v].channel].expression); /* 21 bits */
|
||
|
|
||
|
if (!(play_mode->encoding & PE_MONO))
|
||
|
{
|
||
|
if (voice[v].panning > 60 && voice[v].panning < 68)
|
||
|
{
|
||
|
voice[v].panned=PANNED_CENTER;
|
||
|
|
||
|
voice[v].left_amp=
|
||
|
FSCALENEG((double)(tempamp) * voice[v].sample->volume * master_volume,
|
||
|
21);
|
||
|
}
|
||
|
else if (voice[v].panning<5)
|
||
|
{
|
||
|
voice[v].panned = PANNED_LEFT;
|
||
|
|
||
|
voice[v].left_amp=
|
||
|
FSCALENEG((double)(tempamp) * voice[v].sample->volume * master_volume,
|
||
|
20);
|
||
|
}
|
||
|
else if (voice[v].panning>123)
|
||
|
{
|
||
|
voice[v].panned = PANNED_RIGHT;
|
||
|
|
||
|
voice[v].left_amp= /* left_amp will be used */
|
||
|
FSCALENEG((double)(tempamp) * voice[v].sample->volume * master_volume,
|
||
|
20);
|
||
|
}
|
||
|
else
|
||
|
{
|
||
|
voice[v].panned = PANNED_MYSTERY;
|
||
|
|
||
|
voice[v].left_amp=
|
||
|
FSCALENEG((double)(tempamp) * voice[v].sample->volume * master_volume,
|
||
|
27);
|
||
|
voice[v].right_amp=voice[v].left_amp * (voice[v].panning);
|
||
|
voice[v].left_amp *= (float)(127-voice[v].panning);
|
||
|
}
|
||
|
}
|
||
|
else
|
||
|
{
|
||
|
voice[v].panned=PANNED_CENTER;
|
||
|
|
||
|
voice[v].left_amp=
|
||
|
FSCALENEG((double)(tempamp) * voice[v].sample->volume * master_volume,
|
||
|
21);
|
||
|
}
|
||
|
}
|
||
|
|
||
|
static void start_note(MidiEvent *e, int i)
|
||
|
{
|
||
|
Instrument *ip;
|
||
|
int j;
|
||
|
|
||
|
if (ISDRUMCHANNEL(e->channel))
|
||
|
{
|
||
|
if (!(ip=drumset[channel[e->channel].bank]->tone[e->a].instrument))
|
||
|
{
|
||
|
if (!(ip=drumset[0]->tone[e->a].instrument))
|
||
|
return; /* No instrument? Then we can't play. */
|
||
|
}
|
||
|
if (ip->samples != 1)
|
||
|
{
|
||
|
ctl->cmsg(CMSG_WARNING, VERB_VERBOSE,
|
||
|
"Strange: percussion instrument with %d samples!", ip->samples);
|
||
|
}
|
||
|
|
||
|
if (ip->sample->note_to_use) /* Do we have a fixed pitch? */
|
||
|
voice[i].orig_frequency=freq_table[(int)(ip->sample->note_to_use)];
|
||
|
else
|
||
|
voice[i].orig_frequency=freq_table[e->a & 0x7F];
|
||
|
|
||
|
/* drums are supposed to have only one sample */
|
||
|
voice[i].sample=ip->sample;
|
||
|
}
|
||
|
else
|
||
|
{
|
||
|
if (channel[e->channel].program==SPECIAL_PROGRAM)
|
||
|
ip=default_instrument;
|
||
|
else if (!(ip=tonebank[channel[e->channel].bank]->
|
||
|
tone[channel[e->channel].program].instrument))
|
||
|
{
|
||
|
if (!(ip=tonebank[0]->tone[channel[e->channel].program].instrument))
|
||
|
return; /* No instrument? Then we can't play. */
|
||
|
}
|
||
|
|
||
|
if (ip->sample->note_to_use) /* Fixed-pitch instrument? */
|
||
|
voice[i].orig_frequency=freq_table[(int)(ip->sample->note_to_use)];
|
||
|
else
|
||
|
voice[i].orig_frequency=freq_table[e->a & 0x7F];
|
||
|
select_sample(i, ip);
|
||
|
}
|
||
|
|
||
|
voice[i].status=VOICE_ON;
|
||
|
voice[i].channel=e->channel;
|
||
|
voice[i].note=e->a;
|
||
|
voice[i].velocity=e->b;
|
||
|
voice[i].sample_offset=0;
|
||
|
voice[i].sample_increment=0; /* make sure it isn't negative */
|
||
|
|
||
|
voice[i].tremolo_phase=0;
|
||
|
voice[i].tremolo_phase_increment=voice[i].sample->tremolo_phase_increment;
|
||
|
voice[i].tremolo_sweep=voice[i].sample->tremolo_sweep_increment;
|
||
|
voice[i].tremolo_sweep_position=0;
|
||
|
|
||
|
voice[i].vibrato_sweep=voice[i].sample->vibrato_sweep_increment;
|
||
|
voice[i].vibrato_sweep_position=0;
|
||
|
voice[i].vibrato_control_ratio=voice[i].sample->vibrato_control_ratio;
|
||
|
voice[i].vibrato_control_counter=voice[i].vibrato_phase=0;
|
||
|
for (j=0; j<VIBRATO_SAMPLE_INCREMENTS; j++)
|
||
|
voice[i].vibrato_sample_increment[j]=0;
|
||
|
|
||
|
if (channel[e->channel].panning != NO_PANNING)
|
||
|
voice[i].panning=channel[e->channel].panning;
|
||
|
else
|
||
|
voice[i].panning=voice[i].sample->panning;
|
||
|
|
||
|
recompute_freq(i);
|
||
|
recompute_amp(i);
|
||
|
if (voice[i].sample->modes & MODES_ENVELOPE)
|
||
|
{
|
||
|
/* Ramp up from 0 */
|
||
|
voice[i].envelope_stage=0;
|
||
|
voice[i].envelope_volume=0;
|
||
|
voice[i].control_counter=0;
|
||
|
recompute_envelope(i);
|
||
|
apply_envelope_to_amp(i);
|
||
|
}
|
||
|
else
|
||
|
{
|
||
|
voice[i].envelope_increment=0;
|
||
|
apply_envelope_to_amp(i);
|
||
|
}
|
||
|
ctl->note(i);
|
||
|
}
|
||
|
|
||
|
static void kill_note(int i)
|
||
|
{
|
||
|
voice[i].status=VOICE_DIE;
|
||
|
ctl->note(i);
|
||
|
}
|
||
|
|
||
|
/* Only one instance of a note can be playing on a single channel. */
|
||
|
static void note_on(MidiEvent *e)
|
||
|
{
|
||
|
int i=voices, lowest=-1;
|
||
|
int32_t lv=0x7FFFFFFF, v;
|
||
|
|
||
|
while (i--)
|
||
|
{
|
||
|
if (voice[i].status == VOICE_FREE)
|
||
|
lowest=i; /* Can't get a lower volume than silence */
|
||
|
else if (voice[i].channel==e->channel &&
|
||
|
(voice[i].note==e->a || channel[voice[i].channel].mono))
|
||
|
kill_note(i);
|
||
|
}
|
||
|
|
||
|
if (lowest != -1)
|
||
|
{
|
||
|
/* Found a free voice. */
|
||
|
start_note(e,lowest);
|
||
|
return;
|
||
|
}
|
||
|
|
||
|
/* Look for the decaying note with the lowest volume */
|
||
|
i=voices;
|
||
|
while (i--)
|
||
|
{
|
||
|
if ((voice[i].status!=VOICE_ON) &&
|
||
|
(voice[i].status!=VOICE_DIE))
|
||
|
{
|
||
|
v=voice[i].left_mix;
|
||
|
if ((voice[i].panned==PANNED_MYSTERY) && (voice[i].right_mix>v))
|
||
|
v=voice[i].right_mix;
|
||
|
if (v<lv)
|
||
|
{
|
||
|
lv=v;
|
||
|
lowest=i;
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
|
||
|
if (lowest != -1)
|
||
|
{
|
||
|
/* This can still cause a click, but if we had a free voice to
|
||
|
spare for ramping down this note, we wouldn't need to kill it
|
||
|
in the first place... Still, this needs to be fixed. Perhaps
|
||
|
we could use a reserve of voices to play dying notes only. */
|
||
|
|
||
|
cut_notes++;
|
||
|
voice[lowest].status=VOICE_FREE;
|
||
|
ctl->note(lowest);
|
||
|
start_note(e,lowest);
|
||
|
}
|
||
|
else
|
||
|
lost_notes++;
|
||
|
}
|
||
|
|
||
|
static void finish_note(int i)
|
||
|
{
|
||
|
if (voice[i].sample->modes & MODES_ENVELOPE)
|
||
|
{
|
||
|
/* We need to get the envelope out of Sustain stage */
|
||
|
voice[i].envelope_stage=3;
|
||
|
voice[i].status=VOICE_OFF;
|
||
|
recompute_envelope(i);
|
||
|
apply_envelope_to_amp(i);
|
||
|
ctl->note(i);
|
||
|
}
|
||
|
else
|
||
|
{
|
||
|
/* Set status to OFF so resample_voice() will let this voice out
|
||
|
of its loop, if any. In any case, this voice dies when it
|
||
|
hits the end of its data (ofs>=data_length). */
|
||
|
voice[i].status=VOICE_OFF;
|
||
|
}
|
||
|
}
|
||
|
|
||
|
static void note_off(MidiEvent *e)
|
||
|
{
|
||
|
int i=voices;
|
||
|
while (i--)
|
||
|
if (voice[i].status==VOICE_ON &&
|
||
|
voice[i].channel==e->channel &&
|
||
|
voice[i].note==e->a)
|
||
|
{
|
||
|
if (channel[e->channel].sustain)
|
||
|
{
|
||
|
voice[i].status=VOICE_SUSTAINED;
|
||
|
ctl->note(i);
|
||
|
}
|
||
|
else
|
||
|
finish_note(i);
|
||
|
return;
|
||
|
}
|
||
|
}
|
||
|
|
||
|
/* Process the All Notes Off event */
|
||
|
static void all_notes_off(int c)
|
||
|
{
|
||
|
int i=voices;
|
||
|
ctl->cmsg(CMSG_INFO, VERB_DEBUG, "All notes off on channel %d", c);
|
||
|
while (i--)
|
||
|
if (voice[i].status==VOICE_ON &&
|
||
|
voice[i].channel==c)
|
||
|
{
|
||
|
if (channel[c].sustain)
|
||
|
{
|
||
|
voice[i].status=VOICE_SUSTAINED;
|
||
|
ctl->note(i);
|
||
|
}
|
||
|
else
|
||
|
finish_note(i);
|
||
|
}
|
||
|
}
|
||
|
|
||
|
/* Process the All Sounds Off event */
|
||
|
static void all_sounds_off(int c)
|
||
|
{
|
||
|
int i=voices;
|
||
|
while (i--)
|
||
|
if (voice[i].channel==c &&
|
||
|
voice[i].status != VOICE_FREE &&
|
||
|
voice[i].status != VOICE_DIE)
|
||
|
{
|
||
|
kill_note(i);
|
||
|
}
|
||
|
}
|
||
|
|
||
|
static void adjust_pressure(MidiEvent *e)
|
||
|
{
|
||
|
int i=voices;
|
||
|
while (i--)
|
||
|
if (voice[i].status==VOICE_ON &&
|
||
|
voice[i].channel==e->channel &&
|
||
|
voice[i].note==e->a)
|
||
|
{
|
||
|
voice[i].velocity=e->b;
|
||
|
recompute_amp(i);
|
||
|
apply_envelope_to_amp(i);
|
||
|
return;
|
||
|
}
|
||
|
}
|
||
|
|
||
|
static void adjust_panning(int c)
|
||
|
{
|
||
|
int i=voices;
|
||
|
while (i--)
|
||
|
if ((voice[i].channel==c) &&
|
||
|
(voice[i].status==VOICE_ON || voice[i].status==VOICE_SUSTAINED))
|
||
|
{
|
||
|
voice[i].panning=channel[c].panning;
|
||
|
recompute_amp(i);
|
||
|
apply_envelope_to_amp(i);
|
||
|
}
|
||
|
}
|
||
|
|
||
|
static void drop_sustain(int c)
|
||
|
{
|
||
|
int i=voices;
|
||
|
while (i--)
|
||
|
if (voice[i].status==VOICE_SUSTAINED && voice[i].channel==c)
|
||
|
finish_note(i);
|
||
|
}
|
||
|
|
||
|
static void adjust_pitchbend(int c)
|
||
|
{
|
||
|
int i=voices;
|
||
|
while (i--)
|
||
|
if (voice[i].status!=VOICE_FREE && voice[i].channel==c)
|
||
|
{
|
||
|
recompute_freq(i);
|
||
|
}
|
||
|
}
|
||
|
|
||
|
static void adjust_volume(int c)
|
||
|
{
|
||
|
int i=voices;
|
||
|
while (i--)
|
||
|
if (voice[i].channel==c &&
|
||
|
(voice[i].status==VOICE_ON || voice[i].status==VOICE_SUSTAINED))
|
||
|
{
|
||
|
recompute_amp(i);
|
||
|
apply_envelope_to_amp(i);
|
||
|
}
|
||
|
}
|
||
|
|
||
|
static void seek_forward( int32_t until_time)
|
||
|
{
|
||
|
reset_voices();
|
||
|
while (current_event->time < until_time)
|
||
|
{
|
||
|
switch(current_event->type)
|
||
|
{
|
||
|
/* All notes stay off. Just handle the parameter changes. */
|
||
|
|
||
|
case ME_PITCH_SENS:
|
||
|
channel[current_event->channel].pitchsens=
|
||
|
current_event->a;
|
||
|
channel[current_event->channel].pitchfactor=0;
|
||
|
break;
|
||
|
|
||
|
case ME_PITCHWHEEL:
|
||
|
channel[current_event->channel].pitchbend=
|
||
|
current_event->a + current_event->b * 128;
|
||
|
channel[current_event->channel].pitchfactor=0;
|
||
|
break;
|
||
|
|
||
|
case ME_MAINVOLUME:
|
||
|
channel[current_event->channel].volume=current_event->a;
|
||
|
break;
|
||
|
|
||
|
case ME_PAN:
|
||
|
channel[current_event->channel].panning=current_event->a;
|
||
|
break;
|
||
|
|
||
|
case ME_EXPRESSION:
|
||
|
channel[current_event->channel].expression=current_event->a;
|
||
|
break;
|
||
|
|
||
|
case ME_PROGRAM:
|
||
|
if (ISDRUMCHANNEL(current_event->channel))
|
||
|
/* Change drum set */
|
||
|
channel[current_event->channel].bank=current_event->a;
|
||
|
else
|
||
|
channel[current_event->channel].program=current_event->a;
|
||
|
break;
|
||
|
|
||
|
case ME_SUSTAIN:
|
||
|
channel[current_event->channel].sustain=current_event->a;
|
||
|
break;
|
||
|
|
||
|
case ME_RESET_CONTROLLERS:
|
||
|
reset_controllers(current_event->channel);
|
||
|
break;
|
||
|
|
||
|
case ME_TONE_BANK:
|
||
|
channel[current_event->channel].bank=current_event->a;
|
||
|
break;
|
||
|
|
||
|
case ME_EOT:
|
||
|
current_sample=current_event->time;
|
||
|
return;
|
||
|
}
|
||
|
current_event++;
|
||
|
}
|
||
|
/*current_sample=current_event->time;*/
|
||
|
if (current_event != event_list)
|
||
|
current_event--;
|
||
|
current_sample=until_time;
|
||
|
}
|
||
|
|
||
|
static void skip_to( int32_t until_time)
|
||
|
{
|
||
|
if (current_sample > until_time)
|
||
|
current_sample=0;
|
||
|
|
||
|
reset_midi();
|
||
|
buffered_count=0;
|
||
|
buffer_pointer=common_buffer;
|
||
|
current_event=event_list;
|
||
|
|
||
|
if (until_time)
|
||
|
seek_forward(until_time);
|
||
|
ctl->reset();
|
||
|
}
|
||
|
|
||
|
static int apply_controls(void)
|
||
|
{
|
||
|
int rc, i, did_skip=0;
|
||
|
int val;
|
||
|
/* ASCII renditions of CD player pictograms indicate approximate effect */
|
||
|
do
|
||
|
switch(rc=ctl->read(&val))
|
||
|
{
|
||
|
case RC_QUIT: /* [] */
|
||
|
case RC_LOAD_FILE:
|
||
|
case RC_NEXT: /* >>| */
|
||
|
case RC_REALLY_PREVIOUS: /* |<< */
|
||
|
return rc;
|
||
|
|
||
|
case RC_CHANGE_VOLUME:
|
||
|
if (val>0 || amplification > -val)
|
||
|
amplification += val;
|
||
|
else
|
||
|
amplification=0;
|
||
|
if (amplification > MAX_AMPLIFICATION)
|
||
|
amplification=MAX_AMPLIFICATION;
|
||
|
adjust_amplification();
|
||
|
for (i=0; i<voices; i++)
|
||
|
if (voice[i].status != VOICE_FREE)
|
||
|
{
|
||
|
recompute_amp(i);
|
||
|
apply_envelope_to_amp(i);
|
||
|
}
|
||
|
ctl->master_volume(amplification);
|
||
|
break;
|
||
|
|
||
|
case RC_PREVIOUS: /* |<< */
|
||
|
if (current_sample < 2*play_mode->rate)
|
||
|
return RC_REALLY_PREVIOUS;
|
||
|
return RC_RESTART;
|
||
|
|
||
|
case RC_RESTART: /* |<< */
|
||
|
skip_to(0);
|
||
|
did_skip=1;
|
||
|
break;
|
||
|
|
||
|
case RC_JUMP:
|
||
|
if (val >= sample_count)
|
||
|
return RC_NEXT;
|
||
|
skip_to(val);
|
||
|
return rc;
|
||
|
|
||
|
case RC_FORWARD: /* >> */
|
||
|
if (val+current_sample >= sample_count)
|
||
|
return RC_NEXT;
|
||
|
skip_to(val+current_sample);
|
||
|
did_skip=1;
|
||
|
break;
|
||
|
|
||
|
case RC_BACK: /* << */
|
||
|
if (current_sample > val)
|
||
|
skip_to(current_sample-val);
|
||
|
else
|
||
|
skip_to(0); /* We can't seek to end of previous song. */
|
||
|
did_skip=1;
|
||
|
break;
|
||
|
}
|
||
|
while (rc!= RC_NO_RETURN_VALUE);
|
||
|
|
||
|
/* Advertise the skip so that we stop computing the audio buffer */
|
||
|
if (did_skip)
|
||
|
return RC_JUMP;
|
||
|
else
|
||
|
return rc;
|
||
|
}
|
||
|
|
||
|
static void do_compute_data( int32_t count)
|
||
|
{
|
||
|
int i;
|
||
|
memset(buffer_pointer, 0,
|
||
|
(play_mode->encoding & PE_MONO) ? (count * 4) : (count * 8));
|
||
|
for (i=0; i<voices; i++)
|
||
|
{
|
||
|
if(voice[i].status != VOICE_FREE)
|
||
|
mix_voice(buffer_pointer, i, count);
|
||
|
}
|
||
|
current_sample += count;
|
||
|
}
|
||
|
|
||
|
/* count=0 means flush remaining buffered data to output device, then
|
||
|
flush the device itself */
|
||
|
static int compute_data(void *stream, int32_t count, int* bytes_written)
|
||
|
{
|
||
|
int rc, channels;
|
||
|
|
||
|
if ( play_mode->encoding & PE_MONO )
|
||
|
channels = 1;
|
||
|
else
|
||
|
channels = 2;
|
||
|
|
||
|
if (!count)
|
||
|
{
|
||
|
if (buffered_count) {
|
||
|
s32tobuf(stream, common_buffer, channels*buffered_count);
|
||
|
if (bytes_written && (play_mode->encoding & PE_16BIT))
|
||
|
*bytes_written += channels * buffered_count * 2;
|
||
|
else
|
||
|
*bytes_written += channels * buffered_count;
|
||
|
|
||
|
//No need anymore
|
||
|
//play_mode->output_data(stream, channels*buffered_count, bytes_written);
|
||
|
}
|
||
|
buffer_pointer=common_buffer;
|
||
|
buffered_count=0;
|
||
|
return RC_NO_RETURN_VALUE;
|
||
|
}
|
||
|
|
||
|
while ((count+buffered_count) >= AUDIO_BUFFER_SIZE)
|
||
|
{
|
||
|
do_compute_data(AUDIO_BUFFER_SIZE-buffered_count);
|
||
|
count -= AUDIO_BUFFER_SIZE-buffered_count;
|
||
|
s32tobuf(stream, common_buffer, channels*AUDIO_BUFFER_SIZE);
|
||
|
if (bytes_written && (play_mode->encoding & PE_16BIT))
|
||
|
*bytes_written += channels * AUDIO_BUFFER_SIZE * 2;
|
||
|
else
|
||
|
*bytes_written += channels * AUDIO_BUFFER_SIZE;
|
||
|
|
||
|
//play_mode->output_data(stream, channels*AUDIO_BUFFER_SIZE, bytes_written);
|
||
|
buffer_pointer=common_buffer;
|
||
|
buffered_count=0;
|
||
|
|
||
|
ctl->current_time(current_sample);
|
||
|
if ((rc=apply_controls())!=RC_NO_RETURN_VALUE)
|
||
|
return rc;
|
||
|
}
|
||
|
if (count>0)
|
||
|
{
|
||
|
do_compute_data(count);
|
||
|
buffered_count += count;
|
||
|
buffer_pointer += (play_mode->encoding & PE_MONO) ? count : count*2;
|
||
|
}
|
||
|
return RC_NO_RETURN_VALUE;
|
||
|
}
|
||
|
|
||
|
int Timidity_PlaySome(void *stream, int samples, int* bytes_written)
|
||
|
{
|
||
|
int rc = RC_NO_RETURN_VALUE;
|
||
|
int32_t end_sample;
|
||
|
bool endSong = false;
|
||
|
|
||
|
if (bytes_written)
|
||
|
*bytes_written = 0;
|
||
|
|
||
|
if ( ! midi_playing ){
|
||
|
return RC_NO_RETURN_VALUE;
|
||
|
}
|
||
|
end_sample = current_sample+samples;
|
||
|
|
||
|
while ( current_sample < end_sample ){
|
||
|
|
||
|
/* Handle all events that should happen at this time */
|
||
|
while ( !endSong && current_event->time <= current_sample){
|
||
|
switch(current_event->type){
|
||
|
|
||
|
/* Effects affecting a single note */
|
||
|
case ME_NOTEON:
|
||
|
if (!(current_event->b)) /* Velocity 0? */
|
||
|
note_off(current_event);
|
||
|
else
|
||
|
note_on(current_event);
|
||
|
break;
|
||
|
|
||
|
case ME_NOTEOFF:
|
||
|
note_off(current_event);
|
||
|
break;
|
||
|
|
||
|
case ME_KEYPRESSURE:
|
||
|
adjust_pressure(current_event);
|
||
|
break;
|
||
|
|
||
|
/* Effects affecting a single channel */
|
||
|
|
||
|
case ME_PITCH_SENS:
|
||
|
channel[current_event->channel].pitchsens=current_event->a;
|
||
|
channel[current_event->channel].pitchfactor=0;
|
||
|
break;
|
||
|
|
||
|
case ME_PITCHWHEEL:
|
||
|
channel[current_event->channel].pitchbend=
|
||
|
current_event->a + current_event->b * 128;
|
||
|
channel[current_event->channel].pitchfactor=0;
|
||
|
/* Adjust pitch for notes already playing */
|
||
|
adjust_pitchbend(current_event->channel);
|
||
|
ctl->pitch_bend(current_event->channel,
|
||
|
channel[current_event->channel].pitchbend);
|
||
|
break;
|
||
|
|
||
|
case ME_MAINVOLUME:
|
||
|
channel[current_event->channel].volume=current_event->a;
|
||
|
adjust_volume(current_event->channel);
|
||
|
ctl->volume(current_event->channel, current_event->a);
|
||
|
break;
|
||
|
|
||
|
case ME_PAN:
|
||
|
channel[current_event->channel].panning=current_event->a;
|
||
|
if (adjust_panning_immediately)
|
||
|
adjust_panning(current_event->channel);
|
||
|
ctl->panning(current_event->channel, current_event->a);
|
||
|
break;
|
||
|
|
||
|
case ME_EXPRESSION:
|
||
|
channel[current_event->channel].expression=current_event->a;
|
||
|
adjust_volume(current_event->channel);
|
||
|
ctl->expression(current_event->channel, current_event->a);
|
||
|
break;
|
||
|
|
||
|
case ME_PROGRAM:
|
||
|
if (ISDRUMCHANNEL(current_event->channel)){
|
||
|
/* Change drum set */
|
||
|
channel[current_event->channel].bank=current_event->a;
|
||
|
}
|
||
|
else
|
||
|
{
|
||
|
channel[current_event->channel].program=current_event->a;
|
||
|
}
|
||
|
ctl->program(current_event->channel, current_event->a);
|
||
|
break;
|
||
|
|
||
|
case ME_SUSTAIN:
|
||
|
channel[current_event->channel].sustain=current_event->a;
|
||
|
if (!current_event->a)
|
||
|
drop_sustain(current_event->channel);
|
||
|
ctl->sustain(current_event->channel, current_event->a);
|
||
|
break;
|
||
|
|
||
|
case ME_RESET_CONTROLLERS:
|
||
|
reset_controllers(current_event->channel);
|
||
|
redraw_controllers(current_event->channel);
|
||
|
break;
|
||
|
|
||
|
case ME_ALL_NOTES_OFF:
|
||
|
all_notes_off(current_event->channel);
|
||
|
break;
|
||
|
|
||
|
case ME_ALL_SOUNDS_OFF:
|
||
|
all_sounds_off(current_event->channel);
|
||
|
break;
|
||
|
|
||
|
case ME_TONE_BANK:
|
||
|
channel[current_event->channel].bank=current_event->a;
|
||
|
break;
|
||
|
|
||
|
case ME_EOT:
|
||
|
/* Give the last notes a couple of seconds to decay */
|
||
|
//ctl->cmsg(CMSG_INFO, VERB_VERBOSE,
|
||
|
// "Playing time: ~%d seconds, ", current_sample/play_mode->rate+2);
|
||
|
//ctl->cmsg(CMSG_INFO, VERB_VERBOSE,
|
||
|
// "Notes cut: %d, ", cut_notes);
|
||
|
//ctl->cmsg(CMSG_INFO, VERB_VERBOSE,
|
||
|
// "Notes lost totally: %d", lost_notes);
|
||
|
|
||
|
midi_playing = 0;
|
||
|
rc = RC_TUNE_END;
|
||
|
endSong = true;
|
||
|
|
||
|
current_event--;
|
||
|
}
|
||
|
|
||
|
current_event++;
|
||
|
}
|
||
|
if (current_event->time > end_sample)
|
||
|
rc=compute_data(stream, end_sample-current_sample, bytes_written);
|
||
|
else
|
||
|
rc=compute_data(stream, current_event->time-current_sample, bytes_written);
|
||
|
ctl->refresh();
|
||
|
if ( endSong || ((rc!=RC_NO_RETURN_VALUE) && (rc!=RC_JUMP)))
|
||
|
break;
|
||
|
}
|
||
|
|
||
|
if ( endSong ) {
|
||
|
return RC_TUNE_END;
|
||
|
}
|
||
|
return rc;
|
||
|
}
|
||
|
|
||
|
|
||
|
void Timidity_SetVolume(int volume)
|
||
|
{
|
||
|
int i;
|
||
|
if (volume > MAX_AMPLIFICATION)
|
||
|
amplification=MAX_AMPLIFICATION;
|
||
|
else
|
||
|
if (volume < 0)
|
||
|
amplification=0;
|
||
|
else
|
||
|
amplification=volume;
|
||
|
adjust_amplification();
|
||
|
for (i=0; i<voices; i++)
|
||
|
if (voice[i].status != VOICE_FREE)
|
||
|
{
|
||
|
recompute_amp(i);
|
||
|
apply_envelope_to_amp(i);
|
||
|
}
|
||
|
ctl->master_volume(amplification);
|
||
|
}
|
||
|
|
||
|
MidiSong *Timidity_LoadSong(char *midifile)
|
||
|
{
|
||
|
MidiSong *song;
|
||
|
int32_t events;
|
||
|
idFile * fp;
|
||
|
|
||
|
/* Allocate memory for the song */
|
||
|
song = (MidiSong *)safe_malloc(sizeof(*song));
|
||
|
memset(song, 0, sizeof(*song));
|
||
|
|
||
|
/* Open the file */
|
||
|
fp = open_file(midifile, 1, OF_VERBOSE);
|
||
|
if ( fp != NULL ) {
|
||
|
song->events=read_midi_file(fp, &events, &song->samples);
|
||
|
close_file(fp);
|
||
|
}
|
||
|
|
||
|
/* Make sure everything is okay */
|
||
|
if (!song->events) {
|
||
|
Real_Tim_Free(song);
|
||
|
song = NULL;
|
||
|
ctl->cmsg(CMSG_WARNING, VERB_NORMAL, "Song had null events! Returning NULL.");
|
||
|
}
|
||
|
return(song);
|
||
|
}
|
||
|
|
||
|
MidiSong *Timidity_LoadSongMem(unsigned char* buffer, size_t length)
|
||
|
{
|
||
|
MidiSong *song;
|
||
|
int32_t events;
|
||
|
|
||
|
song = (MidiSong *)safe_malloc(sizeof(*song));
|
||
|
memset(song, 0, sizeof(*song));
|
||
|
|
||
|
song->events = read_midi_buffer(buffer, length, &events, &song->samples);
|
||
|
|
||
|
if (!song->events) {
|
||
|
Real_Tim_Free(song);
|
||
|
song = NULL;
|
||
|
ctl->cmsg(CMSG_WARNING, VERB_NORMAL, "Song had null events! Returning NULL.");
|
||
|
}
|
||
|
return(song);
|
||
|
}
|
||
|
|
||
|
void Timidity_Start(MidiSong *song)
|
||
|
{
|
||
|
load_missing_instruments();
|
||
|
adjust_amplification();
|
||
|
sample_count = song->samples;
|
||
|
event_list = song->events;
|
||
|
lost_notes=cut_notes=0;
|
||
|
|
||
|
skip_to(0);
|
||
|
midi_playing = 1;
|
||
|
}
|
||
|
|
||
|
int Timidity_Active(void)
|
||
|
{
|
||
|
return(midi_playing);
|
||
|
}
|
||
|
|
||
|
void Timidity_Stop(void)
|
||
|
{
|
||
|
midi_playing = 0;
|
||
|
}
|
||
|
|
||
|
void Timidity_FreeSong(MidiSong *song)
|
||
|
{
|
||
|
//if (free_instruments_afterwards)
|
||
|
//free_instruments();
|
||
|
|
||
|
Real_Tim_Free(song->events);
|
||
|
Real_Tim_Free(song);
|
||
|
}
|
||
|
|
||
|
extern sample_t *resample_buffer;
|
||
|
extern int32_t *common_buffer;
|
||
|
|
||
|
void Timidity_Shutdown(void) {
|
||
|
free_instruments();
|
||
|
|
||
|
Real_Tim_Free( resample_buffer );
|
||
|
Real_Tim_Free( common_buffer );
|
||
|
}
|