mirror of
https://github.com/ZDoom/gzdoom-gles.git
synced 2024-12-04 01:41:56 +00:00
01f59fa85f
heavily customized version of DUMB (Dynamic Universal Music Bibliotheque).
It has been slightly modified by me:
* Added support for Ogg Vorbis-compressed samples in XM files ala FMOD.
* Removed excessive mallocs from the replay core.
* Rerolled the loops in resample.c. Unrolling them made the object file
~250k large while providing little benefit. Even at ~100k, I think it's
still larger than it ought to be, but I'll live with it for now.
Other than that, it's essentially the same thing you'd hear in foobar2000,
minus some subsong detection features. Release builds of the library look
like they might even be slightly faster than FMOD, which is a plus.
- Fixed: Timidity::font_add() did not release the file reader it created.
- Fixed: The SF2 loader did not free the sample headers in its destructor.
SVN r995 (trunk)
125 lines
4.9 KiB
C
125 lines
4.9 KiB
C
/* _______ ____ __ ___ ___
|
|
* \ _ \ \ / \ / \ \ / / ' ' '
|
|
* | | \ \ | | || | \/ | . .
|
|
* | | | | | | || ||\ /| |
|
|
* | | | | | | || || \/ | | ' ' '
|
|
* | | | | | | || || | | . .
|
|
* | |_/ / \ \__// || | |
|
|
* /_______/ynamic \____/niversal /__\ /____\usic /| . . ibliotheque
|
|
* / \
|
|
* / . \
|
|
* ptmeffect.c - Code for converting PTM / / \ \
|
|
* effects to IT effects. | < / \_
|
|
* | \/ /\ /
|
|
* By Chris Moeller. Based on xmeffect.c \_ / > /
|
|
* by Julien Cugniere. | \ / /
|
|
* | ' /
|
|
* \__/
|
|
*/
|
|
|
|
|
|
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
|
|
#include "dumb.h"
|
|
#include "internal/it.h"
|
|
|
|
void _dumb_it_ptm_convert_effect(int effect, int value, IT_ENTRY *entry)
|
|
{
|
|
if (effect >= PTM_N_EFFECTS)
|
|
return;
|
|
|
|
/* Linearisation of the effect number... */
|
|
if (effect == PTM_E) {
|
|
effect = PTM_EBASE + HIGH(value);
|
|
value = LOW(value);
|
|
}
|
|
|
|
/* convert effect */
|
|
entry->mask |= IT_ENTRY_EFFECT;
|
|
switch (effect) {
|
|
|
|
case PTM_APPREGIO: effect = IT_ARPEGGIO; break;
|
|
case PTM_PORTAMENTO_UP: effect = IT_PORTAMENTO_UP; break;
|
|
case PTM_PORTAMENTO_DOWN: effect = IT_PORTAMENTO_DOWN; break;
|
|
case PTM_TONE_PORTAMENTO: effect = IT_TONE_PORTAMENTO; break;
|
|
case PTM_VIBRATO: effect = IT_VIBRATO; break;
|
|
case PTM_VOLSLIDE_TONEPORTA: effect = IT_VOLSLIDE_TONEPORTA; break;
|
|
case PTM_VOLSLIDE_VIBRATO: effect = IT_VOLSLIDE_VIBRATO; break;
|
|
case PTM_TREMOLO: effect = IT_TREMOLO; break;
|
|
case PTM_SAMPLE_OFFSET: effect = IT_SET_SAMPLE_OFFSET; break;
|
|
case PTM_VOLUME_SLIDE: effect = IT_VOLUME_SLIDE; break;
|
|
case PTM_POSITION_JUMP: effect = IT_JUMP_TO_ORDER; break;
|
|
case PTM_SET_CHANNEL_VOLUME: effect = IT_SET_CHANNEL_VOLUME; break;
|
|
case PTM_PATTERN_BREAK: effect = IT_BREAK_TO_ROW; break;
|
|
case PTM_SET_GLOBAL_VOLUME: effect = IT_SET_GLOBAL_VOLUME; break;
|
|
case PTM_RETRIGGER: effect = IT_RETRIGGER_NOTE; break;
|
|
case PTM_FINE_VIBRATO: effect = IT_FINE_VIBRATO; break;
|
|
|
|
/* TODO properly */
|
|
case PTM_NOTE_SLIDE_UP: effect = IT_PTM_NOTE_SLIDE_UP; break;
|
|
case PTM_NOTE_SLIDE_DOWN: effect = IT_PTM_NOTE_SLIDE_DOWN; break;
|
|
case PTM_NOTE_SLIDE_UP_RETRIG: effect = IT_PTM_NOTE_SLIDE_UP_RETRIG; break;
|
|
case PTM_NOTE_SLIDE_DOWN_RETRIG: effect = IT_PTM_NOTE_SLIDE_DOWN_RETRIG; break;
|
|
|
|
case PTM_SET_TEMPO_BPM:
|
|
effect = (value < 0x20) ? (IT_SET_SPEED) : (IT_SET_SONG_TEMPO);
|
|
break;
|
|
|
|
case PTM_EBASE+PTM_E_SET_FINETUNE: effect = SBASE+IT_S_FINETUNE; break; /** TODO */
|
|
case PTM_EBASE+PTM_E_SET_LOOP: effect = SBASE+IT_S_PATTERN_LOOP; break;
|
|
case PTM_EBASE+PTM_E_NOTE_CUT: effect = SBASE+IT_S_DELAYED_NOTE_CUT; break;
|
|
case PTM_EBASE+PTM_E_NOTE_DELAY: effect = SBASE+IT_S_NOTE_DELAY; break;
|
|
case PTM_EBASE+PTM_E_PATTERN_DELAY: effect = SBASE+IT_S_PATTERN_DELAY; break;
|
|
case PTM_EBASE+PTM_E_SET_PANNING: effect = SBASE+IT_S_SET_PAN; break;
|
|
|
|
case PTM_EBASE+PTM_E_FINE_VOLSLIDE_UP:
|
|
effect = IT_VOLUME_SLIDE;
|
|
value = EFFECT_VALUE(value, 0xF);
|
|
break;
|
|
|
|
case PTM_EBASE + PTM_E_FINE_VOLSLIDE_DOWN:
|
|
effect = IT_VOLUME_SLIDE;
|
|
value = EFFECT_VALUE(0xF, value);
|
|
break;
|
|
|
|
case PTM_EBASE + PTM_E_FINE_PORTA_UP:
|
|
effect = IT_PORTAMENTO_UP;
|
|
value = EFFECT_VALUE(0xF, value);
|
|
break;
|
|
|
|
case PTM_EBASE + PTM_E_FINE_PORTA_DOWN:
|
|
effect = IT_PORTAMENTO_DOWN;
|
|
value = EFFECT_VALUE(0xF, value);
|
|
break;
|
|
|
|
case PTM_EBASE + PTM_E_RETRIG_NOTE:
|
|
effect = IT_XM_RETRIGGER_NOTE;
|
|
value = EFFECT_VALUE(0, value);
|
|
break;
|
|
|
|
case PTM_EBASE + PTM_E_SET_VIBRATO_CONTROL:
|
|
effect = SBASE+IT_S_SET_VIBRATO_WAVEFORM;
|
|
value &= ~4; /** TODO: value&4 -> don't retrig wave */
|
|
break;
|
|
|
|
case PTM_EBASE + PTM_E_SET_TREMOLO_CONTROL:
|
|
effect = SBASE+IT_S_SET_TREMOLO_WAVEFORM;
|
|
value &= ~4; /** TODO: value&4 -> don't retrig wave */
|
|
break;
|
|
|
|
default:
|
|
/* user effect (often used in demos for synchronisation) */
|
|
entry->mask &= ~IT_ENTRY_EFFECT;
|
|
}
|
|
|
|
/* Inverse linearisation... */
|
|
if (effect >= SBASE && effect < SBASE+16) {
|
|
value = EFFECT_VALUE(effect-SBASE, value);
|
|
effect = IT_S;
|
|
}
|
|
|
|
entry->effect = effect;
|
|
entry->effectvalue = value;
|
|
}
|