mirror of
https://github.com/ZDoom/raze-gles.git
synced 2024-12-26 03:30:46 +00:00
b3639ae8e7
I have commented out the versions of these functions that perform bitmasks and shifts and replaced them with versions that cast to and from integral types, pending performance and compatibility research across platforms. git-svn-id: https://svn.eduke32.com/eduke32@5174 1a8010ca-5511-0410-912e-c29ae57300e0
2059 lines
50 KiB
C
2059 lines
50 KiB
C
//-------------------------------------------------------------------------
|
|
/*
|
|
Copyright (C) 2010 EDuke32 developers and contributors
|
|
|
|
This file is part of EDuke32.
|
|
|
|
EDuke32 is free software; you can redistribute it and/or
|
|
modify it under the terms of the GNU General Public License version 2
|
|
as published by the Free Software Foundation.
|
|
|
|
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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
|
|
*/
|
|
//-------------------------------------------------------------------------
|
|
|
|
/**********************************************************************
|
|
module: MIDI.C
|
|
|
|
author: James R. Dose
|
|
date: May 25, 1994
|
|
|
|
Midi song file playback routines.
|
|
|
|
(c) Copyright 1994 James R. Dose. All Rights Reserved.
|
|
**********************************************************************/
|
|
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
#include "standard.h"
|
|
#include "music.h"
|
|
#include "_midi.h"
|
|
#include "midi.h"
|
|
#include "mpu401.h"
|
|
#include "compat.h"
|
|
#include "pragmas.h"
|
|
|
|
#define WIN32_LEAN_AND_MEAN
|
|
#include <windows.h>
|
|
|
|
extern int32_t MUSIC_SoundDevice;
|
|
|
|
static const int32_t _MIDI_CommandLengths[ NUM_MIDI_CHANNELS ] =
|
|
{
|
|
0, 0, 0, 0, 0, 0, 0, 0, 2, 2, 2, 2, 1, 1, 2, 0
|
|
};
|
|
|
|
static int32_t (*_MIDI_RerouteFunctions[ NUM_MIDI_CHANNELS ])(int32_t, int32_t, int32_t);
|
|
|
|
static track *_MIDI_TrackPtr = NULL;
|
|
static int32_t _MIDI_TrackMemSize;
|
|
static int32_t _MIDI_NumTracks;
|
|
|
|
static int32_t _MIDI_SongActive = FALSE;
|
|
static int32_t _MIDI_SongLoaded = FALSE;
|
|
static int32_t _MIDI_Loop = FALSE;
|
|
|
|
static int32_t _MIDI_Division;
|
|
static int32_t _MIDI_Tick = 0;
|
|
static int32_t _MIDI_Beat = 1;
|
|
static int32_t _MIDI_Measure = 1;
|
|
static uint32_t _MIDI_Time;
|
|
static int32_t _MIDI_BeatsPerMeasure;
|
|
static int32_t _MIDI_TicksPerBeat;
|
|
static int32_t _MIDI_TimeBase;
|
|
static int32_t _MIDI_FPSecondsPerTick;
|
|
static uint32_t _MIDI_TotalTime;
|
|
static int32_t _MIDI_TotalTicks;
|
|
static int32_t _MIDI_TotalBeats;
|
|
static int32_t _MIDI_TotalMeasures;
|
|
|
|
uint32_t _MIDI_PositionInTicks;
|
|
uint32_t _MIDI_GlobalPositionInTicks;
|
|
|
|
static int32_t _MIDI_Context;
|
|
|
|
static int32_t _MIDI_ActiveTracks;
|
|
static int32_t _MIDI_TotalVolume = MIDI_MaxVolume;
|
|
|
|
static int32_t _MIDI_ChannelVolume[ NUM_MIDI_CHANNELS ];
|
|
static int32_t _MIDI_UserChannelVolume[ NUM_MIDI_CHANNELS ] =
|
|
{
|
|
256, 256, 256, 256, 256, 256, 256, 256,
|
|
256, 256, 256, 256, 256, 256, 256, 256
|
|
};
|
|
|
|
static midifuncs *_MIDI_Funcs = NULL;
|
|
|
|
static int32_t Reset = FALSE;
|
|
|
|
int32_t MIDI_Tempo = 120;
|
|
|
|
char MIDI_PatchMap[ 128 ];
|
|
|
|
|
|
/**********************************************************************
|
|
|
|
Memory locked functions:
|
|
|
|
**********************************************************************/
|
|
|
|
|
|
/*---------------------------------------------------------------------
|
|
Function: _MIDI_ReadNumber
|
|
|
|
Reads a variable length number from a MIDI track.
|
|
---------------------------------------------------------------------*/
|
|
|
|
static int32_t _MIDI_ReadNumber
|
|
(
|
|
void *from,
|
|
size_t size
|
|
)
|
|
|
|
{
|
|
char *FromPtr;
|
|
int32_t value;
|
|
|
|
if (size > 4)
|
|
{
|
|
size = 4;
|
|
}
|
|
|
|
FromPtr = (char *)from;
|
|
|
|
value = 0;
|
|
while (size--)
|
|
{
|
|
value <<= 8;
|
|
value += *FromPtr++;
|
|
}
|
|
|
|
return(value);
|
|
}
|
|
|
|
|
|
/*---------------------------------------------------------------------
|
|
Function: _MIDI_ReadDelta
|
|
|
|
Reads a variable length encoded delta delay time from the MIDI data.
|
|
---------------------------------------------------------------------*/
|
|
|
|
static int32_t _MIDI_ReadDelta
|
|
(
|
|
track *ptr
|
|
)
|
|
|
|
{
|
|
int32_t value;
|
|
char c;
|
|
|
|
GET_NEXT_EVENT(ptr, value);
|
|
|
|
if (value & 0x80)
|
|
{
|
|
value &= 0x7f;
|
|
do
|
|
{
|
|
GET_NEXT_EVENT(ptr, c);
|
|
value = (value << 7) + (c & 0x7f);
|
|
}
|
|
while (c & 0x80);
|
|
}
|
|
|
|
return(value);
|
|
}
|
|
|
|
|
|
/*---------------------------------------------------------------------
|
|
Function: _MIDI_ResetTracks
|
|
|
|
Sets the track pointers to the beginning of the song.
|
|
---------------------------------------------------------------------*/
|
|
|
|
static void _MIDI_ResetTracks
|
|
(
|
|
void
|
|
)
|
|
|
|
{
|
|
int32_t i;
|
|
track *ptr;
|
|
|
|
_MIDI_Tick = 0;
|
|
_MIDI_Beat = 1;
|
|
_MIDI_Measure = 1;
|
|
_MIDI_Time = 0;
|
|
_MIDI_BeatsPerMeasure = 4;
|
|
_MIDI_TicksPerBeat = _MIDI_Division;
|
|
_MIDI_TimeBase = 4;
|
|
|
|
_MIDI_PositionInTicks = 0;
|
|
//_MIDI_GlobalPositionInTicks = 0;
|
|
_MIDI_ActiveTracks = 0;
|
|
_MIDI_Context = 0;
|
|
|
|
ptr = _MIDI_TrackPtr;
|
|
for (i = 0; i < _MIDI_NumTracks; i++)
|
|
{
|
|
ptr->pos = ptr->start;
|
|
ptr->delay = _MIDI_ReadDelta(ptr);
|
|
ptr->active = ptr->EMIDI_IncludeTrack;
|
|
ptr->RunningStatus = 0;
|
|
ptr->currentcontext = 0;
|
|
ptr->context[ 0 ].loopstart = ptr->start;
|
|
ptr->context[ 0 ].loopcount = 0;
|
|
|
|
if (ptr->active)
|
|
{
|
|
_MIDI_ActiveTracks++;
|
|
}
|
|
|
|
ptr++;
|
|
}
|
|
}
|
|
|
|
|
|
/*---------------------------------------------------------------------
|
|
Function: _MIDI_AdvanceTick
|
|
|
|
Increment tick counters.
|
|
---------------------------------------------------------------------*/
|
|
|
|
static void _MIDI_AdvanceTick
|
|
(
|
|
void
|
|
)
|
|
|
|
{
|
|
_MIDI_PositionInTicks++;
|
|
_MIDI_Time += _MIDI_FPSecondsPerTick;
|
|
|
|
_MIDI_Tick++;
|
|
while (_MIDI_Tick > _MIDI_TicksPerBeat)
|
|
{
|
|
_MIDI_Tick -= _MIDI_TicksPerBeat;
|
|
_MIDI_Beat++;
|
|
}
|
|
while (_MIDI_Beat > _MIDI_BeatsPerMeasure)
|
|
{
|
|
_MIDI_Beat -= _MIDI_BeatsPerMeasure;
|
|
_MIDI_Measure++;
|
|
}
|
|
}
|
|
|
|
|
|
/*---------------------------------------------------------------------
|
|
Function: _MIDI_SysEx
|
|
|
|
Interpret SysEx Event.
|
|
---------------------------------------------------------------------*/
|
|
|
|
static void _MIDI_SysEx
|
|
(
|
|
track *Track
|
|
)
|
|
|
|
{
|
|
int32_t length;
|
|
|
|
length = _MIDI_ReadDelta(Track);
|
|
Track->pos += length;
|
|
}
|
|
|
|
|
|
/*---------------------------------------------------------------------
|
|
Function: _MIDI_MetaEvent
|
|
|
|
Interpret Meta Event.
|
|
---------------------------------------------------------------------*/
|
|
|
|
static void _MIDI_MetaEvent
|
|
(
|
|
track *Track
|
|
)
|
|
|
|
{
|
|
int32_t command;
|
|
int32_t length;
|
|
int32_t denominator;
|
|
int32_t tempo;
|
|
|
|
GET_NEXT_EVENT(Track, command);
|
|
GET_NEXT_EVENT(Track, length);
|
|
|
|
switch (command)
|
|
{
|
|
case MIDI_END_OF_TRACK :
|
|
Track->active = FALSE;
|
|
|
|
_MIDI_ActiveTracks--;
|
|
break;
|
|
|
|
case MIDI_TEMPO_CHANGE :
|
|
tempo = tabledivide32_noinline(60000000L, _MIDI_ReadNumber(Track->pos, 3));
|
|
MIDI_SetTempo(tempo);
|
|
break;
|
|
|
|
case MIDI_TIME_SIGNATURE :
|
|
if ((_MIDI_Tick > 0) || (_MIDI_Beat > 1))
|
|
{
|
|
_MIDI_Measure++;
|
|
}
|
|
|
|
_MIDI_Tick = 0;
|
|
_MIDI_Beat = 1;
|
|
|
|
_MIDI_BeatsPerMeasure = (int32_t)*Track->pos;
|
|
denominator = (int32_t)*(Track->pos + 1);
|
|
_MIDI_TimeBase = 1;
|
|
while (denominator > 0)
|
|
{
|
|
_MIDI_TimeBase += _MIDI_TimeBase;
|
|
denominator--;
|
|
}
|
|
_MIDI_TicksPerBeat = tabledivide32_noinline(_MIDI_Division * 4, _MIDI_TimeBase);
|
|
break;
|
|
}
|
|
|
|
Track->pos += length;
|
|
}
|
|
|
|
|
|
/*---------------------------------------------------------------------
|
|
Function: _MIDI_InterpretControllerInfo
|
|
|
|
Interprets the MIDI controller info.
|
|
---------------------------------------------------------------------*/
|
|
|
|
static int32_t _MIDI_InterpretControllerInfo
|
|
(
|
|
track *Track,
|
|
int32_t TimeSet,
|
|
int32_t channel,
|
|
int32_t c1,
|
|
int32_t c2
|
|
)
|
|
|
|
{
|
|
track *trackptr;
|
|
int32_t tracknum;
|
|
int32_t loopcount;
|
|
|
|
switch (c1)
|
|
{
|
|
case MIDI_MONO_MODE_ON :
|
|
Track->pos++;
|
|
break;
|
|
|
|
case MIDI_VOLUME :
|
|
if (!Track->EMIDI_VolumeChange)
|
|
{
|
|
_MIDI_SetChannelVolume(channel, c2);
|
|
}
|
|
break;
|
|
|
|
case EMIDI_INCLUDE_TRACK :
|
|
case EMIDI_EXCLUDE_TRACK :
|
|
break;
|
|
|
|
case EMIDI_PROGRAM_CHANGE :
|
|
if (Track->EMIDI_ProgramChange)
|
|
{
|
|
_MIDI_Funcs->ProgramChange(channel, MIDI_PatchMap[ c2 & 0x7f ]);
|
|
}
|
|
break;
|
|
|
|
case EMIDI_VOLUME_CHANGE :
|
|
if (Track->EMIDI_VolumeChange)
|
|
{
|
|
_MIDI_SetChannelVolume(channel, c2);
|
|
}
|
|
break;
|
|
|
|
case EMIDI_CONTEXT_START :
|
|
break;
|
|
|
|
case EMIDI_CONTEXT_END :
|
|
if ((Track->currentcontext == _MIDI_Context) ||
|
|
(_MIDI_Context < 0) ||
|
|
(Track->context[ _MIDI_Context ].pos == NULL))
|
|
{
|
|
break;
|
|
}
|
|
|
|
Track->currentcontext = _MIDI_Context;
|
|
Track->context[ 0 ].loopstart = Track->context[ _MIDI_Context ].loopstart;
|
|
Track->context[ 0 ].loopcount = Track->context[ _MIDI_Context ].loopcount;
|
|
Track->pos = Track->context[ _MIDI_Context ].pos;
|
|
Track->RunningStatus = Track->context[ _MIDI_Context ].RunningStatus;
|
|
|
|
if (TimeSet)
|
|
{
|
|
break;
|
|
}
|
|
|
|
_MIDI_Time = Track->context[ _MIDI_Context ].time;
|
|
_MIDI_FPSecondsPerTick = Track->context[ _MIDI_Context ].FPSecondsPerTick;
|
|
_MIDI_Tick = Track->context[ _MIDI_Context ].tick;
|
|
_MIDI_Beat = Track->context[ _MIDI_Context ].beat;
|
|
_MIDI_Measure = Track->context[ _MIDI_Context ].measure;
|
|
_MIDI_BeatsPerMeasure = Track->context[ _MIDI_Context ].BeatsPerMeasure;
|
|
_MIDI_TicksPerBeat = Track->context[ _MIDI_Context ].TicksPerBeat;
|
|
_MIDI_TimeBase = Track->context[ _MIDI_Context ].TimeBase;
|
|
TimeSet = TRUE;
|
|
break;
|
|
|
|
case EMIDI_LOOP_START :
|
|
case EMIDI_SONG_LOOP_START :
|
|
if (c2 == 0)
|
|
{
|
|
loopcount = EMIDI_INFINITE;
|
|
}
|
|
else
|
|
{
|
|
loopcount = c2;
|
|
}
|
|
|
|
if (c1 == EMIDI_SONG_LOOP_START)
|
|
{
|
|
trackptr = _MIDI_TrackPtr;
|
|
tracknum = _MIDI_NumTracks;
|
|
}
|
|
else
|
|
{
|
|
trackptr = Track;
|
|
tracknum = 1;
|
|
}
|
|
|
|
while (tracknum > 0)
|
|
{
|
|
trackptr->context[ 0 ].loopcount = loopcount;
|
|
trackptr->context[ 0 ].pos = trackptr->pos;
|
|
trackptr->context[ 0 ].loopstart = trackptr->pos;
|
|
trackptr->context[ 0 ].RunningStatus = trackptr->RunningStatus;
|
|
trackptr->context[ 0 ].active = trackptr->active;
|
|
trackptr->context[ 0 ].delay = trackptr->delay;
|
|
trackptr->context[ 0 ].time = _MIDI_Time;
|
|
trackptr->context[ 0 ].FPSecondsPerTick = _MIDI_FPSecondsPerTick;
|
|
trackptr->context[ 0 ].tick = _MIDI_Tick;
|
|
trackptr->context[ 0 ].beat = _MIDI_Beat;
|
|
trackptr->context[ 0 ].measure = _MIDI_Measure;
|
|
trackptr->context[ 0 ].BeatsPerMeasure = _MIDI_BeatsPerMeasure;
|
|
trackptr->context[ 0 ].TicksPerBeat = _MIDI_TicksPerBeat;
|
|
trackptr->context[ 0 ].TimeBase = _MIDI_TimeBase;
|
|
trackptr++;
|
|
tracknum--;
|
|
}
|
|
break;
|
|
|
|
case EMIDI_LOOP_END :
|
|
case EMIDI_SONG_LOOP_END :
|
|
if ((c2 != EMIDI_END_LOOP_VALUE) ||
|
|
(Track->context[ 0 ].loopstart == NULL) ||
|
|
(Track->context[ 0 ].loopcount == 0))
|
|
{
|
|
break;
|
|
}
|
|
|
|
if (c1 == EMIDI_SONG_LOOP_END)
|
|
{
|
|
trackptr = _MIDI_TrackPtr;
|
|
tracknum = _MIDI_NumTracks;
|
|
_MIDI_ActiveTracks = 0;
|
|
}
|
|
else
|
|
{
|
|
trackptr = Track;
|
|
tracknum = 1;
|
|
_MIDI_ActiveTracks--;
|
|
}
|
|
|
|
while (tracknum > 0)
|
|
{
|
|
if (trackptr->context[ 0 ].loopcount != EMIDI_INFINITE)
|
|
{
|
|
trackptr->context[ 0 ].loopcount--;
|
|
}
|
|
|
|
trackptr->pos = trackptr->context[ 0 ].loopstart;
|
|
trackptr->RunningStatus = trackptr->context[ 0 ].RunningStatus;
|
|
trackptr->delay = trackptr->context[ 0 ].delay;
|
|
trackptr->active = trackptr->context[ 0 ].active;
|
|
if (trackptr->active)
|
|
{
|
|
_MIDI_ActiveTracks++;
|
|
}
|
|
|
|
if (!TimeSet)
|
|
{
|
|
_MIDI_Time = trackptr->context[ 0 ].time;
|
|
_MIDI_FPSecondsPerTick = trackptr->context[ 0 ].FPSecondsPerTick;
|
|
_MIDI_Tick = trackptr->context[ 0 ].tick;
|
|
_MIDI_Beat = trackptr->context[ 0 ].beat;
|
|
_MIDI_Measure = trackptr->context[ 0 ].measure;
|
|
_MIDI_BeatsPerMeasure = trackptr->context[ 0 ].BeatsPerMeasure;
|
|
_MIDI_TicksPerBeat = trackptr->context[ 0 ].TicksPerBeat;
|
|
_MIDI_TimeBase = trackptr->context[ 0 ].TimeBase;
|
|
TimeSet = TRUE;
|
|
}
|
|
|
|
trackptr++;
|
|
tracknum--;
|
|
}
|
|
break;
|
|
|
|
default :
|
|
if (_MIDI_Funcs->ControlChange)
|
|
{
|
|
_MIDI_Funcs->ControlChange(channel, c1, c2);
|
|
}
|
|
}
|
|
|
|
return TimeSet;
|
|
}
|
|
|
|
|
|
/*---------------------------------------------------------------------
|
|
Function: _MIDI_ServiceRoutine
|
|
|
|
Task that interperates the MIDI data.
|
|
---------------------------------------------------------------------*/
|
|
|
|
static int32_t _MIDI_ServiceRoutine(void)
|
|
{
|
|
int32_t event;
|
|
int32_t channel;
|
|
int32_t command;
|
|
track *Track;
|
|
int32_t tracknum;
|
|
int32_t status;
|
|
int32_t c1 = 0;
|
|
int32_t c2 = 0;
|
|
int32_t TimeSet = FALSE;
|
|
|
|
if (_MIDI_SongActive)
|
|
{
|
|
Track = _MIDI_TrackPtr;
|
|
tracknum = 0;
|
|
while (tracknum < _MIDI_NumTracks)
|
|
{
|
|
while ((Track->active) && (Track->delay == 0))
|
|
{
|
|
GET_NEXT_EVENT(Track, event);
|
|
|
|
if (GET_MIDI_COMMAND(event) == MIDI_SPECIAL)
|
|
{
|
|
switch (event)
|
|
{
|
|
case MIDI_SYSEX :
|
|
case MIDI_SYSEX_CONTINUE :
|
|
_MIDI_SysEx(Track);
|
|
break;
|
|
|
|
case MIDI_META_EVENT :
|
|
_MIDI_MetaEvent(Track);
|
|
break;
|
|
}
|
|
|
|
if (Track->active)
|
|
{
|
|
Track->delay = _MIDI_ReadDelta(Track);
|
|
}
|
|
continue;
|
|
}
|
|
|
|
if (event & MIDI_RUNNING_STATUS)
|
|
{
|
|
Track->RunningStatus = event;
|
|
}
|
|
else
|
|
{
|
|
event = Track->RunningStatus;
|
|
Track->pos--;
|
|
}
|
|
|
|
channel = GET_MIDI_CHANNEL(event);
|
|
command = GET_MIDI_COMMAND(event);
|
|
|
|
if (_MIDI_CommandLengths[ command ] > 0)
|
|
{
|
|
GET_NEXT_EVENT(Track, c1);
|
|
if (_MIDI_CommandLengths[ command ] > 1)
|
|
{
|
|
GET_NEXT_EVENT(Track, c2);
|
|
}
|
|
}
|
|
|
|
if (_MIDI_RerouteFunctions[ channel ] != NULL)
|
|
{
|
|
status = _MIDI_RerouteFunctions[ channel ](event, c1, c2);
|
|
|
|
if (status == MIDI_DONT_PLAY)
|
|
{
|
|
Track->delay = _MIDI_ReadDelta(Track);
|
|
continue;
|
|
}
|
|
}
|
|
|
|
switch (command)
|
|
{
|
|
case MIDI_NOTE_OFF :
|
|
if (_MIDI_Funcs->NoteOff)
|
|
{
|
|
_MIDI_Funcs->NoteOff(channel, c1, c2);
|
|
}
|
|
break;
|
|
|
|
case MIDI_NOTE_ON :
|
|
if (_MIDI_Funcs->NoteOn)
|
|
{
|
|
_MIDI_Funcs->NoteOn(channel, c1, c2);
|
|
}
|
|
break;
|
|
|
|
case MIDI_POLY_AFTER_TCH :
|
|
if (_MIDI_Funcs->PolyAftertouch)
|
|
{
|
|
_MIDI_Funcs->PolyAftertouch(channel, c1, c2);
|
|
}
|
|
break;
|
|
|
|
case MIDI_CONTROL_CHANGE :
|
|
TimeSet = _MIDI_InterpretControllerInfo(Track, TimeSet, channel, c1, c2);
|
|
break;
|
|
|
|
case MIDI_PROGRAM_CHANGE :
|
|
if ((_MIDI_Funcs->ProgramChange) && (!Track->EMIDI_ProgramChange))
|
|
{
|
|
_MIDI_Funcs->ProgramChange(channel, MIDI_PatchMap[ c1 & 0x7f ]);
|
|
}
|
|
break;
|
|
|
|
case MIDI_AFTER_TOUCH :
|
|
if (_MIDI_Funcs->ChannelAftertouch)
|
|
{
|
|
_MIDI_Funcs->ChannelAftertouch(channel, c1);
|
|
}
|
|
break;
|
|
|
|
case MIDI_PITCH_BEND :
|
|
if (_MIDI_Funcs->PitchBend)
|
|
{
|
|
_MIDI_Funcs->PitchBend(channel, c1, c2);
|
|
}
|
|
break;
|
|
|
|
default :
|
|
break;
|
|
}
|
|
|
|
Track->delay = _MIDI_ReadDelta(Track);
|
|
}
|
|
|
|
Track->delay--;
|
|
Track++;
|
|
tracknum++;
|
|
|
|
if (_MIDI_ActiveTracks == 0)
|
|
{
|
|
_MIDI_ResetTracks();
|
|
if (_MIDI_Loop)
|
|
{
|
|
tracknum = 0;
|
|
Track = _MIDI_TrackPtr;
|
|
}
|
|
else
|
|
{
|
|
_MIDI_SongActive = FALSE;
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
|
|
_MIDI_AdvanceTick();
|
|
_MIDI_GlobalPositionInTicks++;
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
|
|
/*---------------------------------------------------------------------
|
|
Function: _MIDI_SendControlChange
|
|
|
|
Sends a control change to the proper device
|
|
---------------------------------------------------------------------*/
|
|
|
|
static int32_t _MIDI_SendControlChange
|
|
(
|
|
int32_t channel,
|
|
int32_t c1,
|
|
int32_t c2
|
|
)
|
|
|
|
{
|
|
int32_t status;
|
|
|
|
if (_MIDI_RerouteFunctions[ channel ] != NULL)
|
|
{
|
|
status = _MIDI_RerouteFunctions[ channel ](0xB0 + channel,
|
|
c1, c2);
|
|
if (status == MIDI_DONT_PLAY)
|
|
{
|
|
return(MIDI_Ok);
|
|
}
|
|
}
|
|
|
|
if (_MIDI_Funcs == NULL)
|
|
{
|
|
return(MIDI_Error);
|
|
}
|
|
|
|
if (_MIDI_Funcs->ControlChange == NULL)
|
|
{
|
|
return(MIDI_Error);
|
|
}
|
|
|
|
_MIDI_Funcs->ControlChange(channel, c1, c2);
|
|
|
|
return(MIDI_Ok);
|
|
}
|
|
|
|
|
|
/*---------------------------------------------------------------------
|
|
Function: MIDI_RerouteMidiChannel
|
|
|
|
Sets callback function to reroute MIDI commands from specified
|
|
function.
|
|
---------------------------------------------------------------------*/
|
|
|
|
void MIDI_RerouteMidiChannel
|
|
(
|
|
int32_t channel,
|
|
int32_t(*function)(int32_t, int32_t, int32_t)
|
|
)
|
|
|
|
{
|
|
if ((channel >= 1) && (channel <= 16))
|
|
{
|
|
_MIDI_RerouteFunctions[ channel - 1 ] = function;
|
|
}
|
|
}
|
|
|
|
|
|
/*---------------------------------------------------------------------
|
|
Function: MIDI_AllNotesOff
|
|
|
|
Sends all notes off commands on all midi channels.
|
|
---------------------------------------------------------------------*/
|
|
|
|
int32_t MIDI_AllNotesOff
|
|
(
|
|
void
|
|
)
|
|
|
|
{
|
|
int32_t channel;
|
|
|
|
for (channel = 0; channel < NUM_MIDI_CHANNELS; channel++)
|
|
{
|
|
_MIDI_SendControlChange(channel, 0x40, 0);
|
|
_MIDI_SendControlChange(channel, MIDI_ALL_NOTES_OFF, 0);
|
|
_MIDI_SendControlChange(channel, 0x78, 0);
|
|
}
|
|
|
|
return(MIDI_Ok);
|
|
}
|
|
|
|
|
|
/*---------------------------------------------------------------------
|
|
Function: _MIDI_SetChannelVolume
|
|
|
|
Sets the volume of the specified midi channel.
|
|
---------------------------------------------------------------------*/
|
|
|
|
static void _MIDI_SetChannelVolume
|
|
(
|
|
int32_t channel,
|
|
int32_t volume
|
|
)
|
|
|
|
{
|
|
int32_t status;
|
|
int32_t remotevolume;
|
|
|
|
_MIDI_ChannelVolume[ channel ] = volume;
|
|
|
|
if (_MIDI_RerouteFunctions[ channel ] != NULL)
|
|
{
|
|
remotevolume = volume * _MIDI_TotalVolume;
|
|
remotevolume *= _MIDI_UserChannelVolume[ channel ];
|
|
remotevolume = tabledivide32_noinline(remotevolume, MIDI_MaxVolume);
|
|
remotevolume >>= 8;
|
|
|
|
status = _MIDI_RerouteFunctions[ channel ](0xB0 + channel,
|
|
MIDI_VOLUME, remotevolume);
|
|
if (status == MIDI_DONT_PLAY)
|
|
{
|
|
return;
|
|
}
|
|
}
|
|
|
|
if (_MIDI_Funcs == NULL)
|
|
{
|
|
return;
|
|
}
|
|
|
|
if (_MIDI_Funcs->ControlChange == NULL)
|
|
{
|
|
return;
|
|
}
|
|
|
|
// For user volume
|
|
volume *= _MIDI_UserChannelVolume[ channel ];
|
|
|
|
if (_MIDI_Funcs->SetVolume == NULL)
|
|
{
|
|
volume *= _MIDI_TotalVolume;
|
|
volume = tabledivide32_noinline(volume, MIDI_MaxVolume);
|
|
}
|
|
|
|
// For user volume
|
|
volume >>= 8;
|
|
|
|
_MIDI_Funcs->ControlChange(channel, MIDI_VOLUME, volume);
|
|
}
|
|
|
|
|
|
/*---------------------------------------------------------------------
|
|
Function: MIDI_SetUserChannelVolume
|
|
|
|
Sets the volume of the specified midi channel.
|
|
---------------------------------------------------------------------*/
|
|
|
|
void MIDI_SetUserChannelVolume
|
|
(
|
|
int32_t channel,
|
|
int32_t volume
|
|
)
|
|
|
|
{
|
|
// Convert channel from 1-16 to 0-15
|
|
channel--;
|
|
|
|
volume = max(0, volume);
|
|
volume = min(volume, 256);
|
|
|
|
if ((channel >= 0) && (channel < NUM_MIDI_CHANNELS))
|
|
{
|
|
_MIDI_UserChannelVolume[ channel ] = volume;
|
|
_MIDI_SetChannelVolume(channel, _MIDI_ChannelVolume[ channel ]);
|
|
}
|
|
}
|
|
|
|
|
|
/*---------------------------------------------------------------------
|
|
Function: MIDI_ResetUserChannelVolume
|
|
|
|
Sets the volume of the specified midi channel.
|
|
---------------------------------------------------------------------*/
|
|
|
|
void MIDI_ResetUserChannelVolume
|
|
(
|
|
void
|
|
)
|
|
|
|
{
|
|
int32_t channel;
|
|
|
|
for (channel = 0; channel < NUM_MIDI_CHANNELS; channel++)
|
|
{
|
|
_MIDI_UserChannelVolume[ channel ] = 256;
|
|
}
|
|
|
|
_MIDI_SendChannelVolumes();
|
|
}
|
|
|
|
|
|
/*---------------------------------------------------------------------
|
|
Function: _MIDI_SendChannelVolumes
|
|
|
|
Sets the volume on all the midi channels.
|
|
---------------------------------------------------------------------*/
|
|
|
|
static void _MIDI_SendChannelVolumes
|
|
(
|
|
void
|
|
)
|
|
|
|
{
|
|
int32_t channel;
|
|
|
|
for (channel = 0; channel < NUM_MIDI_CHANNELS; channel++)
|
|
{
|
|
_MIDI_SetChannelVolume(channel, _MIDI_ChannelVolume[ channel ]);
|
|
}
|
|
}
|
|
|
|
|
|
/*---------------------------------------------------------------------
|
|
Function: MIDI_Reset
|
|
|
|
Resets the MIDI device to General Midi defaults.
|
|
---------------------------------------------------------------------*/
|
|
|
|
int32_t MIDI_Reset
|
|
(
|
|
void
|
|
)
|
|
|
|
{
|
|
int32_t channel;
|
|
|
|
MIDI_AllNotesOff();
|
|
|
|
for (channel = 0; channel < NUM_MIDI_CHANNELS; channel++)
|
|
{
|
|
_MIDI_SendControlChange(channel, MIDI_RESET_ALL_CONTROLLERS, 0);
|
|
_MIDI_SendControlChange(channel, MIDI_RPN_MSB, MIDI_PITCHBEND_MSB);
|
|
_MIDI_SendControlChange(channel, MIDI_RPN_LSB, MIDI_PITCHBEND_LSB);
|
|
_MIDI_SendControlChange(channel, MIDI_DATAENTRY_MSB, 2); /* Pitch Bend Sensitivity MSB */
|
|
_MIDI_SendControlChange(channel, MIDI_DATAENTRY_LSB, 0); /* Pitch Bend Sensitivity LSB */
|
|
_MIDI_ChannelVolume[ channel ] = GENMIDI_DefaultVolume;
|
|
}
|
|
|
|
_MIDI_SendChannelVolumes();
|
|
|
|
Reset = TRUE;
|
|
|
|
return(MIDI_Ok);
|
|
}
|
|
|
|
|
|
/*---------------------------------------------------------------------
|
|
Function: MIDI_SetVolume
|
|
|
|
Sets the total volume of the music.
|
|
---------------------------------------------------------------------*/
|
|
|
|
int32_t MIDI_SetVolume
|
|
(
|
|
int32_t volume
|
|
)
|
|
|
|
{
|
|
int32_t i;
|
|
|
|
if (_MIDI_Funcs == NULL)
|
|
{
|
|
return(MIDI_NullMidiModule);
|
|
}
|
|
|
|
volume = min(MIDI_MaxVolume, volume);
|
|
volume = max(0, volume);
|
|
|
|
_MIDI_TotalVolume = volume;
|
|
|
|
if (_MIDI_Funcs->SetVolume)
|
|
{
|
|
_MIDI_Funcs->SetVolume(volume);
|
|
|
|
for (i = 0; i < NUM_MIDI_CHANNELS; i++)
|
|
{
|
|
if (_MIDI_RerouteFunctions[ i ] != NULL)
|
|
{
|
|
_MIDI_SetChannelVolume(i, _MIDI_ChannelVolume[ i ]);
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
_MIDI_SendChannelVolumes();
|
|
}
|
|
|
|
return(MIDI_Ok);
|
|
}
|
|
|
|
|
|
/*---------------------------------------------------------------------
|
|
Function: MIDI_GetVolume
|
|
|
|
Returns the total volume of the music.
|
|
---------------------------------------------------------------------*/
|
|
|
|
int32_t MIDI_GetVolume
|
|
(
|
|
void
|
|
)
|
|
|
|
{
|
|
int32_t volume;
|
|
|
|
if (_MIDI_Funcs == NULL)
|
|
{
|
|
return(MIDI_NullMidiModule);
|
|
}
|
|
|
|
if (_MIDI_Funcs->GetVolume)
|
|
{
|
|
volume = _MIDI_Funcs->GetVolume();
|
|
}
|
|
else
|
|
{
|
|
volume = _MIDI_TotalVolume;
|
|
}
|
|
|
|
return(volume);
|
|
}
|
|
|
|
|
|
/*---------------------------------------------------------------------
|
|
Function: MIDI_SetContext
|
|
|
|
Sets the song context.
|
|
---------------------------------------------------------------------*/
|
|
|
|
void MIDI_SetContext
|
|
(
|
|
int32_t context
|
|
)
|
|
|
|
{
|
|
if ((context > 0) && (context < EMIDI_NUM_CONTEXTS))
|
|
{
|
|
_MIDI_Context = context;
|
|
}
|
|
}
|
|
|
|
|
|
/*---------------------------------------------------------------------
|
|
Function: MIDI_GetContext
|
|
|
|
Returns the current song context.
|
|
---------------------------------------------------------------------*/
|
|
|
|
int32_t MIDI_GetContext
|
|
(
|
|
void
|
|
)
|
|
|
|
{
|
|
return _MIDI_Context;
|
|
}
|
|
|
|
|
|
/*---------------------------------------------------------------------
|
|
Function: MIDI_SetLoopFlag
|
|
|
|
Sets whether the song should loop when finished or not.
|
|
---------------------------------------------------------------------*/
|
|
|
|
void MIDI_SetLoopFlag
|
|
(
|
|
int32_t loopflag
|
|
)
|
|
|
|
{
|
|
_MIDI_Loop = loopflag;
|
|
}
|
|
|
|
|
|
/*---------------------------------------------------------------------
|
|
Function: MIDI_ContinueSong
|
|
|
|
Continues playback of a paused song.
|
|
---------------------------------------------------------------------*/
|
|
|
|
void MIDI_ContinueSong
|
|
(
|
|
void
|
|
)
|
|
|
|
{
|
|
if (_MIDI_SongLoaded)
|
|
{
|
|
_MIDI_SongActive = TRUE;
|
|
MPU_Unpause();
|
|
}
|
|
}
|
|
|
|
|
|
/*---------------------------------------------------------------------
|
|
Function: MIDI_PauseSong
|
|
|
|
Pauses playback of the current song.
|
|
---------------------------------------------------------------------*/
|
|
|
|
void MIDI_PauseSong
|
|
(
|
|
void
|
|
)
|
|
|
|
{
|
|
if (_MIDI_SongLoaded)
|
|
{
|
|
_MIDI_SongActive = FALSE;
|
|
MIDI_AllNotesOff();
|
|
MPU_Pause();
|
|
}
|
|
}
|
|
|
|
|
|
/*---------------------------------------------------------------------
|
|
Function: MIDI_SongPlaying
|
|
|
|
Returns whether a song is playing or not.
|
|
---------------------------------------------------------------------*/
|
|
|
|
int32_t MIDI_SongPlaying
|
|
(
|
|
void
|
|
)
|
|
|
|
{
|
|
return(_MIDI_SongActive);
|
|
}
|
|
|
|
|
|
/*---------------------------------------------------------------------
|
|
Function: MIDI_SetMidiFuncs
|
|
|
|
Selects the routines that send the MIDI data to the music device.
|
|
---------------------------------------------------------------------*/
|
|
|
|
void MIDI_SetMidiFuncs
|
|
(
|
|
midifuncs *funcs
|
|
)
|
|
|
|
{
|
|
_MIDI_Funcs = funcs;
|
|
}
|
|
|
|
|
|
/*---------------------------------------------------------------------
|
|
Function: MIDI_StopSong
|
|
|
|
Stops playback of the currently playing song.
|
|
---------------------------------------------------------------------*/
|
|
|
|
void MIDI_StopSong
|
|
(
|
|
void
|
|
)
|
|
|
|
{
|
|
if (_MIDI_SongLoaded)
|
|
{
|
|
_MIDI_SongActive = FALSE;
|
|
_MIDI_SongLoaded = FALSE;
|
|
|
|
MIDI_Reset();
|
|
_MIDI_ResetTracks();
|
|
|
|
if (_MIDI_Funcs->ReleasePatches)
|
|
{
|
|
_MIDI_Funcs->ReleasePatches();
|
|
}
|
|
|
|
Bfree(_MIDI_TrackPtr);
|
|
|
|
_MIDI_TrackPtr = NULL;
|
|
_MIDI_NumTracks = 0;
|
|
_MIDI_TrackMemSize = 0;
|
|
|
|
_MIDI_TotalTime = 0;
|
|
_MIDI_TotalTicks = 0;
|
|
_MIDI_TotalBeats = 0;
|
|
_MIDI_TotalMeasures = 0;
|
|
|
|
MPU_Reset();
|
|
}
|
|
}
|
|
|
|
|
|
/*---------------------------------------------------------------------
|
|
Function: MIDI_PlaySong
|
|
|
|
Begins playback of a MIDI song.
|
|
---------------------------------------------------------------------*/
|
|
|
|
int32_t MIDI_PlaySong
|
|
(
|
|
char *song,
|
|
int32_t loopflag
|
|
)
|
|
|
|
{
|
|
int32_t numtracks;
|
|
int32_t format;
|
|
int32_t headersize;
|
|
int32_t tracklength;
|
|
track *CurrentTrack;
|
|
char *ptr;
|
|
|
|
if (_MIDI_SongLoaded)
|
|
{
|
|
MIDI_StopSong();
|
|
}
|
|
|
|
MPU_Init(MUSIC_SoundDevice);
|
|
|
|
_MIDI_Loop = loopflag;
|
|
|
|
if (_MIDI_Funcs == NULL)
|
|
{
|
|
return(MIDI_NullMidiModule);
|
|
}
|
|
|
|
if (B_UNBUF32(song) != MIDI_HEADER_SIGNATURE)
|
|
{
|
|
return(MIDI_InvalidMidiFile);
|
|
}
|
|
|
|
song += 4;
|
|
|
|
headersize = _MIDI_ReadNumber(song, 4);
|
|
song += 4;
|
|
format = _MIDI_ReadNumber(song, 2);
|
|
_MIDI_NumTracks = _MIDI_ReadNumber(song + 2, 2);
|
|
_MIDI_Division = _MIDI_ReadNumber(song + 4, 2);
|
|
if (_MIDI_Division < 0)
|
|
{
|
|
// If a SMPTE time division is given, just set to 96 so no errors occur
|
|
_MIDI_Division = 96;
|
|
}
|
|
|
|
if (format > MAX_FORMAT)
|
|
{
|
|
return(MIDI_UnknownMidiFormat);
|
|
}
|
|
|
|
ptr = song + headersize;
|
|
|
|
if (_MIDI_NumTracks == 0)
|
|
{
|
|
return(MIDI_NoTracks);
|
|
}
|
|
|
|
_MIDI_TrackMemSize = _MIDI_NumTracks * sizeof(track);
|
|
_MIDI_TrackPtr = (track *)Xmalloc(_MIDI_TrackMemSize);
|
|
|
|
CurrentTrack = _MIDI_TrackPtr;
|
|
numtracks = _MIDI_NumTracks;
|
|
while (numtracks--)
|
|
{
|
|
if (B_UNBUF32(ptr) != MIDI_TRACK_SIGNATURE)
|
|
{
|
|
Bfree(_MIDI_TrackPtr);
|
|
|
|
_MIDI_TrackPtr = NULL;
|
|
_MIDI_TrackMemSize = 0;
|
|
|
|
return(MIDI_InvalidTrack);
|
|
}
|
|
|
|
tracklength = _MIDI_ReadNumber(ptr + 4, 4);
|
|
ptr += 8;
|
|
CurrentTrack->start = ptr;
|
|
ptr += tracklength;
|
|
CurrentTrack++;
|
|
}
|
|
|
|
if (_MIDI_Funcs->GetVolume != NULL)
|
|
{
|
|
_MIDI_TotalVolume = _MIDI_Funcs->GetVolume();
|
|
}
|
|
|
|
_MIDI_InitEMIDI();
|
|
|
|
if (_MIDI_Funcs->LoadPatch)
|
|
{
|
|
MIDI_LoadTimbres();
|
|
}
|
|
|
|
_MIDI_ResetTracks();
|
|
|
|
if (!Reset)
|
|
{
|
|
MIDI_Reset();
|
|
}
|
|
|
|
Reset = FALSE;
|
|
|
|
MIDI_SetDivision(_MIDI_Division);
|
|
//MIDI_SetTempo( 120 );
|
|
|
|
_MIDI_SongLoaded = TRUE;
|
|
_MIDI_SongActive = TRUE;
|
|
|
|
while (_MPU_BuffersWaiting < 4) _MIDI_ServiceRoutine();
|
|
MPU_BeginPlayback();
|
|
|
|
return(MIDI_Ok);
|
|
}
|
|
|
|
|
|
/*---------------------------------------------------------------------
|
|
Function: MIDI_SetTempo
|
|
|
|
Sets the song tempo.
|
|
---------------------------------------------------------------------*/
|
|
|
|
void MIDI_SetTempo
|
|
(
|
|
int32_t tempo
|
|
)
|
|
|
|
{
|
|
int32_t tickspersecond;
|
|
|
|
MIDI_Tempo = tempo;
|
|
tickspersecond = ((tempo) * _MIDI_Division)/60;
|
|
_MIDI_FPSecondsPerTick = tabledivide32_noinline(1 << TIME_PRECISION, tickspersecond);
|
|
MPU_SetTempo(tempo);
|
|
}
|
|
|
|
void MIDI_SetDivision(int32_t division)
|
|
{
|
|
MPU_SetDivision(division);
|
|
}
|
|
|
|
|
|
/*---------------------------------------------------------------------
|
|
Function: MIDI_GetTempo
|
|
|
|
Returns the song tempo.
|
|
---------------------------------------------------------------------*/
|
|
|
|
int32_t MIDI_GetTempo
|
|
(
|
|
void
|
|
)
|
|
|
|
{
|
|
return(MIDI_Tempo);
|
|
}
|
|
|
|
|
|
/*---------------------------------------------------------------------
|
|
Function: _MIDI_ProcessNextTick
|
|
|
|
Sets the position of the song pointer.
|
|
---------------------------------------------------------------------*/
|
|
|
|
static int32_t _MIDI_ProcessNextTick
|
|
(
|
|
void
|
|
)
|
|
|
|
{
|
|
int32_t event;
|
|
int32_t channel;
|
|
int32_t command;
|
|
track *Track;
|
|
int32_t tracknum;
|
|
int32_t status;
|
|
int32_t c1 = 0;
|
|
int32_t c2 = 0;
|
|
int32_t TimeSet = FALSE;
|
|
|
|
Track = _MIDI_TrackPtr;
|
|
tracknum = 0;
|
|
while ((tracknum < _MIDI_NumTracks) && (Track != NULL))
|
|
{
|
|
while ((Track->active) && (Track->delay == 0))
|
|
{
|
|
GET_NEXT_EVENT(Track, event);
|
|
|
|
if (GET_MIDI_COMMAND(event) == MIDI_SPECIAL)
|
|
{
|
|
switch (event)
|
|
{
|
|
case MIDI_SYSEX :
|
|
case MIDI_SYSEX_CONTINUE :
|
|
_MIDI_SysEx(Track);
|
|
break;
|
|
|
|
case MIDI_META_EVENT :
|
|
_MIDI_MetaEvent(Track);
|
|
break;
|
|
}
|
|
|
|
if (Track->active)
|
|
{
|
|
Track->delay = _MIDI_ReadDelta(Track);
|
|
}
|
|
|
|
continue;
|
|
}
|
|
|
|
if (event & MIDI_RUNNING_STATUS)
|
|
{
|
|
Track->RunningStatus = event;
|
|
}
|
|
else
|
|
{
|
|
event = Track->RunningStatus;
|
|
Track->pos--;
|
|
}
|
|
|
|
channel = GET_MIDI_CHANNEL(event);
|
|
command = GET_MIDI_COMMAND(event);
|
|
|
|
if (_MIDI_CommandLengths[ command ] > 0)
|
|
{
|
|
GET_NEXT_EVENT(Track, c1);
|
|
if (_MIDI_CommandLengths[ command ] > 1)
|
|
{
|
|
GET_NEXT_EVENT(Track, c2);
|
|
}
|
|
}
|
|
|
|
if (_MIDI_RerouteFunctions[ channel ] != NULL)
|
|
{
|
|
status = _MIDI_RerouteFunctions[ channel ](event, c1, c2);
|
|
|
|
if (status == MIDI_DONT_PLAY)
|
|
{
|
|
Track->delay = _MIDI_ReadDelta(Track);
|
|
continue;
|
|
}
|
|
}
|
|
|
|
switch (command)
|
|
{
|
|
case MIDI_NOTE_OFF :
|
|
break;
|
|
|
|
case MIDI_NOTE_ON :
|
|
break;
|
|
|
|
case MIDI_POLY_AFTER_TCH :
|
|
if (_MIDI_Funcs->PolyAftertouch)
|
|
{
|
|
_MIDI_Funcs->PolyAftertouch(channel, c1, c2);
|
|
}
|
|
break;
|
|
|
|
case MIDI_CONTROL_CHANGE :
|
|
TimeSet = _MIDI_InterpretControllerInfo(Track, TimeSet,
|
|
channel, c1, c2);
|
|
break;
|
|
|
|
case MIDI_PROGRAM_CHANGE :
|
|
if ((_MIDI_Funcs->ProgramChange) &&
|
|
(!Track->EMIDI_ProgramChange))
|
|
{
|
|
_MIDI_Funcs->ProgramChange(channel, c1);
|
|
}
|
|
break;
|
|
|
|
case MIDI_AFTER_TOUCH :
|
|
if (_MIDI_Funcs->ChannelAftertouch)
|
|
{
|
|
_MIDI_Funcs->ChannelAftertouch(channel, c1);
|
|
}
|
|
break;
|
|
|
|
case MIDI_PITCH_BEND :
|
|
if (_MIDI_Funcs->PitchBend)
|
|
{
|
|
_MIDI_Funcs->PitchBend(channel, c1, c2);
|
|
}
|
|
break;
|
|
|
|
default :
|
|
break;
|
|
}
|
|
|
|
Track->delay = _MIDI_ReadDelta(Track);
|
|
}
|
|
|
|
Track->delay--;
|
|
Track++;
|
|
tracknum++;
|
|
|
|
if (_MIDI_ActiveTracks == 0)
|
|
{
|
|
break;
|
|
}
|
|
}
|
|
|
|
_MIDI_AdvanceTick();
|
|
|
|
return(TimeSet);
|
|
}
|
|
|
|
|
|
/*---------------------------------------------------------------------
|
|
Function: MIDI_SetSongTick
|
|
|
|
Sets the position of the song pointer.
|
|
---------------------------------------------------------------------*/
|
|
|
|
void MIDI_SetSongTick
|
|
(
|
|
uint32_t PositionInTicks
|
|
)
|
|
|
|
{
|
|
if (!_MIDI_SongLoaded)
|
|
{
|
|
return;
|
|
}
|
|
|
|
MIDI_PauseSong();
|
|
|
|
if (PositionInTicks < _MIDI_PositionInTicks)
|
|
{
|
|
_MIDI_ResetTracks();
|
|
MIDI_Reset();
|
|
}
|
|
|
|
while (_MIDI_PositionInTicks < PositionInTicks)
|
|
{
|
|
if (_MIDI_ProcessNextTick())
|
|
{
|
|
break;
|
|
}
|
|
if (_MIDI_ActiveTracks == 0)
|
|
{
|
|
_MIDI_ResetTracks();
|
|
if (!_MIDI_Loop)
|
|
{
|
|
return;
|
|
}
|
|
break;
|
|
}
|
|
}
|
|
|
|
MIDI_SetVolume(_MIDI_TotalVolume);
|
|
MIDI_ContinueSong();
|
|
}
|
|
|
|
|
|
/*---------------------------------------------------------------------
|
|
Function: MIDI_SetSongTime
|
|
|
|
Sets the position of the song pointer.
|
|
---------------------------------------------------------------------*/
|
|
|
|
void MIDI_SetSongTime
|
|
(
|
|
uint32_t milliseconds
|
|
)
|
|
|
|
{
|
|
uint32_t mil;
|
|
uint32_t sec;
|
|
uint32_t newtime;
|
|
|
|
if (!_MIDI_SongLoaded)
|
|
{
|
|
return;
|
|
}
|
|
|
|
MIDI_PauseSong();
|
|
|
|
mil = tabledivide32_noinline((milliseconds % 1000) << TIME_PRECISION, 1000);
|
|
sec = tabledivide32_noinline(milliseconds, 1000) << TIME_PRECISION;
|
|
newtime = sec + mil;
|
|
|
|
if (newtime < _MIDI_Time)
|
|
{
|
|
_MIDI_ResetTracks();
|
|
MIDI_Reset();
|
|
}
|
|
|
|
while (_MIDI_Time < newtime)
|
|
{
|
|
if (_MIDI_ProcessNextTick())
|
|
{
|
|
break;
|
|
}
|
|
if (_MIDI_ActiveTracks == 0)
|
|
{
|
|
_MIDI_ResetTracks();
|
|
if (!_MIDI_Loop)
|
|
{
|
|
return;
|
|
}
|
|
break;
|
|
}
|
|
}
|
|
|
|
MIDI_SetVolume(_MIDI_TotalVolume);
|
|
MIDI_ContinueSong();
|
|
}
|
|
|
|
|
|
/*---------------------------------------------------------------------
|
|
Function: MIDI_SetSongPosition
|
|
|
|
Sets the position of the song pointer.
|
|
---------------------------------------------------------------------*/
|
|
|
|
void MIDI_SetSongPosition
|
|
(
|
|
int32_t measure,
|
|
int32_t beat,
|
|
int32_t tick
|
|
)
|
|
|
|
{
|
|
uint32_t pos;
|
|
|
|
if (!_MIDI_SongLoaded)
|
|
{
|
|
return;
|
|
}
|
|
|
|
MIDI_PauseSong();
|
|
|
|
pos = RELATIVE_BEAT(measure, beat, tick);
|
|
|
|
if (pos < (uint32_t)RELATIVE_BEAT(_MIDI_Measure, _MIDI_Beat, _MIDI_Tick))
|
|
{
|
|
_MIDI_ResetTracks();
|
|
MIDI_Reset();
|
|
}
|
|
|
|
while ((uint32_t)RELATIVE_BEAT(_MIDI_Measure, _MIDI_Beat, _MIDI_Tick) < pos)
|
|
{
|
|
if (_MIDI_ProcessNextTick())
|
|
{
|
|
break;
|
|
}
|
|
if (_MIDI_ActiveTracks == 0)
|
|
{
|
|
_MIDI_ResetTracks();
|
|
if (!_MIDI_Loop)
|
|
{
|
|
return;
|
|
}
|
|
break;
|
|
}
|
|
}
|
|
|
|
MIDI_SetVolume(_MIDI_TotalVolume);
|
|
MIDI_ContinueSong();
|
|
}
|
|
|
|
|
|
/*---------------------------------------------------------------------
|
|
Function: MIDI_GetSongPosition
|
|
|
|
Returns the position of the song pointer in Measures, beats, ticks.
|
|
---------------------------------------------------------------------*/
|
|
|
|
void MIDI_GetSongPosition
|
|
(
|
|
songposition *pos
|
|
)
|
|
|
|
{
|
|
uint32_t mil;
|
|
uint32_t sec;
|
|
|
|
mil = (_MIDI_Time & ((1 << TIME_PRECISION) - 1)) * 1000;
|
|
sec = _MIDI_Time >> TIME_PRECISION;
|
|
pos->milliseconds = (mil >> TIME_PRECISION) + (sec * 1000);
|
|
pos->tickposition = _MIDI_PositionInTicks;
|
|
pos->measure = _MIDI_Measure;
|
|
pos->beat = _MIDI_Beat;
|
|
pos->tick = _MIDI_Tick;
|
|
}
|
|
|
|
|
|
/*---------------------------------------------------------------------
|
|
Function: MIDI_GetSongLength
|
|
|
|
Returns the length of the song.
|
|
---------------------------------------------------------------------*/
|
|
|
|
void MIDI_GetSongLength
|
|
(
|
|
songposition *pos
|
|
)
|
|
|
|
{
|
|
uint32_t mil;
|
|
uint32_t sec;
|
|
|
|
mil = (_MIDI_TotalTime & ((1 << TIME_PRECISION) - 1)) * 1000;
|
|
sec = _MIDI_TotalTime >> TIME_PRECISION;
|
|
|
|
pos->milliseconds = (mil >> TIME_PRECISION) + (sec * 1000);
|
|
pos->measure = _MIDI_TotalMeasures;
|
|
pos->beat = _MIDI_TotalBeats;
|
|
pos->tick = _MIDI_TotalTicks;
|
|
pos->tickposition = 0;
|
|
}
|
|
|
|
|
|
/*---------------------------------------------------------------------
|
|
Function: MIDI_InitEMIDI
|
|
|
|
Sets up the EMIDI
|
|
---------------------------------------------------------------------*/
|
|
|
|
static void _MIDI_InitEMIDI
|
|
(
|
|
void
|
|
)
|
|
|
|
{
|
|
int32_t event;
|
|
int32_t command;
|
|
// int32_t channel;
|
|
int32_t length;
|
|
int32_t IncludeFound;
|
|
track *Track;
|
|
int32_t tracknum;
|
|
int32_t type;
|
|
int32_t c1;
|
|
int32_t c2;
|
|
|
|
type = EMIDI_GeneralMIDI;
|
|
|
|
_MIDI_ResetTracks();
|
|
|
|
_MIDI_TotalTime = 0;
|
|
_MIDI_TotalTicks = 0;
|
|
_MIDI_TotalBeats = 0;
|
|
_MIDI_TotalMeasures = 0;
|
|
|
|
Track = _MIDI_TrackPtr;
|
|
tracknum = 0;
|
|
while ((tracknum < _MIDI_NumTracks) && (Track != NULL))
|
|
{
|
|
_MIDI_Tick = 0;
|
|
_MIDI_Beat = 1;
|
|
_MIDI_Measure = 1;
|
|
_MIDI_Time = 0;
|
|
_MIDI_BeatsPerMeasure = 4;
|
|
_MIDI_TicksPerBeat = _MIDI_Division;
|
|
_MIDI_TimeBase = 4;
|
|
|
|
_MIDI_PositionInTicks = 0;
|
|
_MIDI_ActiveTracks = 0;
|
|
_MIDI_Context = -1;
|
|
|
|
Track->RunningStatus = 0;
|
|
Track->active = TRUE;
|
|
|
|
Track->EMIDI_ProgramChange = FALSE;
|
|
Track->EMIDI_VolumeChange = FALSE;
|
|
Track->EMIDI_IncludeTrack = TRUE;
|
|
|
|
memset(Track->context, 0, sizeof(Track->context));
|
|
|
|
while (Track->delay > 0)
|
|
{
|
|
_MIDI_AdvanceTick();
|
|
Track->delay--;
|
|
}
|
|
|
|
IncludeFound = FALSE;
|
|
while (Track->active)
|
|
{
|
|
GET_NEXT_EVENT(Track, event);
|
|
|
|
if (GET_MIDI_COMMAND(event) == MIDI_SPECIAL)
|
|
{
|
|
switch (event)
|
|
{
|
|
case MIDI_SYSEX :
|
|
case MIDI_SYSEX_CONTINUE :
|
|
_MIDI_SysEx(Track);
|
|
break;
|
|
|
|
case MIDI_META_EVENT :
|
|
_MIDI_MetaEvent(Track);
|
|
break;
|
|
}
|
|
|
|
if (Track->active)
|
|
{
|
|
Track->delay = _MIDI_ReadDelta(Track);
|
|
while (Track->delay > 0)
|
|
{
|
|
_MIDI_AdvanceTick();
|
|
Track->delay--;
|
|
}
|
|
}
|
|
|
|
continue;
|
|
}
|
|
|
|
if (event & MIDI_RUNNING_STATUS)
|
|
{
|
|
Track->RunningStatus = event;
|
|
}
|
|
else
|
|
{
|
|
event = Track->RunningStatus;
|
|
Track->pos--;
|
|
}
|
|
|
|
// channel = GET_MIDI_CHANNEL(event);
|
|
command = GET_MIDI_COMMAND(event);
|
|
length = _MIDI_CommandLengths[ command ];
|
|
|
|
if (command == MIDI_CONTROL_CHANGE)
|
|
{
|
|
if (*Track->pos == MIDI_MONO_MODE_ON)
|
|
{
|
|
length++;
|
|
}
|
|
GET_NEXT_EVENT(Track, c1);
|
|
GET_NEXT_EVENT(Track, c2);
|
|
length -= 2;
|
|
|
|
switch (c1)
|
|
{
|
|
case EMIDI_LOOP_START :
|
|
case EMIDI_SONG_LOOP_START :
|
|
if (c2 == 0)
|
|
{
|
|
Track->context[ 0 ].loopcount = EMIDI_INFINITE;
|
|
}
|
|
else
|
|
{
|
|
Track->context[ 0 ].loopcount = c2;
|
|
}
|
|
|
|
Track->context[ 0 ].pos = Track->pos;
|
|
Track->context[ 0 ].loopstart = Track->pos;
|
|
Track->context[ 0 ].RunningStatus = Track->RunningStatus;
|
|
Track->context[ 0 ].time = _MIDI_Time;
|
|
Track->context[ 0 ].FPSecondsPerTick = _MIDI_FPSecondsPerTick;
|
|
Track->context[ 0 ].tick = _MIDI_Tick;
|
|
Track->context[ 0 ].beat = _MIDI_Beat;
|
|
Track->context[ 0 ].measure = _MIDI_Measure;
|
|
Track->context[ 0 ].BeatsPerMeasure = _MIDI_BeatsPerMeasure;
|
|
Track->context[ 0 ].TicksPerBeat = _MIDI_TicksPerBeat;
|
|
Track->context[ 0 ].TimeBase = _MIDI_TimeBase;
|
|
break;
|
|
|
|
case EMIDI_LOOP_END :
|
|
case EMIDI_SONG_LOOP_END :
|
|
if (c2 == EMIDI_END_LOOP_VALUE)
|
|
{
|
|
Track->context[ 0 ].loopstart = NULL;
|
|
Track->context[ 0 ].loopcount = 0;
|
|
}
|
|
break;
|
|
|
|
case EMIDI_INCLUDE_TRACK :
|
|
if (EMIDI_AffectsCurrentCard(c2, type))
|
|
{
|
|
//printf( "Include track %d on card %d\n", tracknum, c2 );
|
|
IncludeFound = TRUE;
|
|
Track->EMIDI_IncludeTrack = TRUE;
|
|
}
|
|
else if (!IncludeFound)
|
|
{
|
|
//printf( "Track excluded %d on card %d\n", tracknum, c2 );
|
|
IncludeFound = TRUE;
|
|
Track->EMIDI_IncludeTrack = FALSE;
|
|
}
|
|
break;
|
|
|
|
case EMIDI_EXCLUDE_TRACK :
|
|
if (EMIDI_AffectsCurrentCard(c2, type))
|
|
{
|
|
//printf( "Exclude track %d on card %d\n", tracknum, c2 );
|
|
Track->EMIDI_IncludeTrack = FALSE;
|
|
}
|
|
break;
|
|
|
|
case EMIDI_PROGRAM_CHANGE :
|
|
if (!Track->EMIDI_ProgramChange)
|
|
//printf( "Program change on track %d\n", tracknum );
|
|
Track->EMIDI_ProgramChange = TRUE;
|
|
break;
|
|
|
|
case EMIDI_VOLUME_CHANGE :
|
|
if (!Track->EMIDI_VolumeChange)
|
|
//printf( "Volume change on track %d\n", tracknum );
|
|
Track->EMIDI_VolumeChange = TRUE;
|
|
break;
|
|
|
|
case EMIDI_CONTEXT_START :
|
|
if ((c2 > 0) && (c2 < EMIDI_NUM_CONTEXTS))
|
|
{
|
|
Track->context[ c2 ].pos = Track->pos;
|
|
Track->context[ c2 ].loopstart = Track->context[ 0 ].loopstart;
|
|
Track->context[ c2 ].loopcount = Track->context[ 0 ].loopcount;
|
|
Track->context[ c2 ].RunningStatus = Track->RunningStatus;
|
|
Track->context[ c2 ].time = _MIDI_Time;
|
|
Track->context[ c2 ].FPSecondsPerTick = _MIDI_FPSecondsPerTick;
|
|
Track->context[ c2 ].tick = _MIDI_Tick;
|
|
Track->context[ c2 ].beat = _MIDI_Beat;
|
|
Track->context[ c2 ].measure = _MIDI_Measure;
|
|
Track->context[ c2 ].BeatsPerMeasure = _MIDI_BeatsPerMeasure;
|
|
Track->context[ c2 ].TicksPerBeat = _MIDI_TicksPerBeat;
|
|
Track->context[ c2 ].TimeBase = _MIDI_TimeBase;
|
|
}
|
|
break;
|
|
|
|
case EMIDI_CONTEXT_END :
|
|
break;
|
|
}
|
|
}
|
|
|
|
Track->pos += length;
|
|
Track->delay = _MIDI_ReadDelta(Track);
|
|
|
|
while (Track->delay > 0)
|
|
{
|
|
_MIDI_AdvanceTick();
|
|
Track->delay--;
|
|
}
|
|
}
|
|
|
|
_MIDI_TotalTime = max(_MIDI_TotalTime, _MIDI_Time);
|
|
if (RELATIVE_BEAT(_MIDI_Measure, _MIDI_Beat, _MIDI_Tick) >
|
|
RELATIVE_BEAT(_MIDI_TotalMeasures, _MIDI_TotalBeats,
|
|
_MIDI_TotalTicks))
|
|
{
|
|
_MIDI_TotalTicks = _MIDI_Tick;
|
|
_MIDI_TotalBeats = _MIDI_Beat;
|
|
_MIDI_TotalMeasures = _MIDI_Measure;
|
|
}
|
|
|
|
Track++;
|
|
tracknum++;
|
|
}
|
|
|
|
_MIDI_ResetTracks();
|
|
}
|
|
|
|
|
|
/*---------------------------------------------------------------------
|
|
Function: MIDI_LoadTimbres
|
|
|
|
Preloads the timbres on cards that use patch-caching.
|
|
---------------------------------------------------------------------*/
|
|
|
|
void MIDI_LoadTimbres
|
|
(
|
|
void
|
|
)
|
|
|
|
{
|
|
int32_t event;
|
|
int32_t command;
|
|
int32_t channel;
|
|
int32_t length;
|
|
int32_t Finished;
|
|
track *Track;
|
|
int32_t tracknum;
|
|
|
|
Track = _MIDI_TrackPtr;
|
|
tracknum = 0;
|
|
while ((tracknum < _MIDI_NumTracks) && (Track != NULL))
|
|
{
|
|
Finished = FALSE;
|
|
while (!Finished)
|
|
{
|
|
GET_NEXT_EVENT(Track, event);
|
|
|
|
if (GET_MIDI_COMMAND(event) == MIDI_SPECIAL)
|
|
{
|
|
switch (event)
|
|
{
|
|
case MIDI_SYSEX :
|
|
case MIDI_SYSEX_CONTINUE :
|
|
length = _MIDI_ReadDelta(Track);
|
|
Track->pos += length;
|
|
break;
|
|
|
|
case MIDI_META_EVENT :
|
|
GET_NEXT_EVENT(Track, command);
|
|
GET_NEXT_EVENT(Track, length);
|
|
|
|
if (command == MIDI_END_OF_TRACK)
|
|
{
|
|
Finished = TRUE;
|
|
}
|
|
|
|
Track->pos += length;
|
|
break;
|
|
}
|
|
|
|
if (!Finished)
|
|
{
|
|
_MIDI_ReadDelta(Track);
|
|
}
|
|
|
|
continue;
|
|
}
|
|
|
|
if (event & MIDI_RUNNING_STATUS)
|
|
{
|
|
Track->RunningStatus = event;
|
|
}
|
|
else
|
|
{
|
|
event = Track->RunningStatus;
|
|
Track->pos--;
|
|
}
|
|
|
|
channel = GET_MIDI_CHANNEL(event);
|
|
command = GET_MIDI_COMMAND(event);
|
|
length = _MIDI_CommandLengths[ command ];
|
|
|
|
if (command == MIDI_CONTROL_CHANGE)
|
|
{
|
|
if (*Track->pos == MIDI_MONO_MODE_ON)
|
|
{
|
|
length++;
|
|
}
|
|
|
|
if (*Track->pos == EMIDI_PROGRAM_CHANGE)
|
|
{
|
|
_MIDI_Funcs->LoadPatch(*(Track->pos + 1));
|
|
}
|
|
}
|
|
|
|
if (channel == MIDI_RHYTHM_CHANNEL)
|
|
{
|
|
if (command == MIDI_NOTE_ON)
|
|
{
|
|
_MIDI_Funcs->LoadPatch(128 + *Track->pos);
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if (command == MIDI_PROGRAM_CHANGE)
|
|
{
|
|
_MIDI_Funcs->LoadPatch(*Track->pos);
|
|
}
|
|
}
|
|
Track->pos += length;
|
|
_MIDI_ReadDelta(Track);
|
|
}
|
|
Track++;
|
|
tracknum++;
|
|
}
|
|
|
|
_MIDI_ResetTracks();
|
|
}
|
|
|
|
|
|
void MIDI_UpdateMusic(void)
|
|
{
|
|
if (!_MIDI_SongLoaded || !_MIDI_SongActive) return;
|
|
while (_MPU_BuffersWaiting < 4) _MIDI_ServiceRoutine();
|
|
}
|
|
|