mirror of
https://github.com/WinampDesktop/winamp.git
synced 2024-12-12 12:51:02 -05:00
1444 lines
40 KiB
C++
1444 lines
40 KiB
C++
|
/*
|
||
|
* Load_med.cpp
|
||
|
* ------------
|
||
|
* Purpose: OctaMED / MED Soundstudio module loader
|
||
|
* Notes : Support for synthesized instruments is still missing.
|
||
|
* Authors: OpenMPT Devs
|
||
|
* The OpenMPT source code is released under the BSD license. Read LICENSE for more details.
|
||
|
*/
|
||
|
|
||
|
#include "stdafx.h"
|
||
|
#include "Loaders.h"
|
||
|
|
||
|
#ifdef MPT_WITH_VST
|
||
|
#include "../mptrack/Vstplug.h"
|
||
|
#include "plugins/PluginManager.h"
|
||
|
#endif // MPT_WITH_VST
|
||
|
#include "mpt/io/base.hpp"
|
||
|
#include "mpt/io/io.hpp"
|
||
|
#include "mpt/io/io_span.hpp"
|
||
|
#include "mpt/io/io_stdstream.hpp"
|
||
|
|
||
|
#include <map>
|
||
|
|
||
|
OPENMPT_NAMESPACE_BEGIN
|
||
|
|
||
|
struct MMD0FileHeader
|
||
|
{
|
||
|
char mmd[3]; // "MMD" for the first song in file, "MCN" for the rest
|
||
|
uint8be version; // '0'-'3'
|
||
|
uint32be modLength; // Size of file
|
||
|
uint32be songOffset; // Position in file for the first song
|
||
|
uint16be playerSettings1[2]; // Internal variables for the play routine
|
||
|
uint32be blockArrOffset; // Position in file for blocks (patterns)
|
||
|
uint8be flags;
|
||
|
uint8be reserved1[3];
|
||
|
uint32be sampleArrOffset; // Position in file for samples (should be identical between songs)
|
||
|
uint32be reserved2;
|
||
|
uint32be expDataOffset; // Absolute offset in file for ExpData (0 if not present)
|
||
|
uint32be reserved3;
|
||
|
char playerSettings2[11]; // Internal variables for the play routine
|
||
|
uint8be extraSongs; // Number of songs - 1
|
||
|
};
|
||
|
|
||
|
MPT_BINARY_STRUCT(MMD0FileHeader, 52)
|
||
|
|
||
|
|
||
|
struct MMD0Sample
|
||
|
{
|
||
|
uint16be loopStart;
|
||
|
uint16be loopLength;
|
||
|
uint8be midiChannel;
|
||
|
uint8be midiPreset;
|
||
|
uint8be sampleVolume;
|
||
|
int8be sampleTranspose;
|
||
|
};
|
||
|
|
||
|
MPT_BINARY_STRUCT(MMD0Sample, 8)
|
||
|
|
||
|
|
||
|
// Song header for MMD0/MMD1
|
||
|
struct MMD0Song
|
||
|
{
|
||
|
uint8be sequence[256];
|
||
|
};
|
||
|
|
||
|
MPT_BINARY_STRUCT(MMD0Song, 256)
|
||
|
|
||
|
|
||
|
// Song header for MMD2/MMD3
|
||
|
struct MMD2Song
|
||
|
{
|
||
|
enum Flags3
|
||
|
{
|
||
|
FLAG3_STEREO = 0x01, // Mixing in stereo
|
||
|
FLAG3_FREEPAN = 0x02, // Mixing flag: free pan
|
||
|
};
|
||
|
|
||
|
uint32be playSeqTableOffset;
|
||
|
uint32be sectionTableOffset;
|
||
|
uint32be trackVolsOffset;
|
||
|
uint16be numTracks;
|
||
|
uint16be numPlaySeqs;
|
||
|
uint32be trackPanOffset; // 0: all centered (according to docs, MED Soundstudio uses Amiga hard-panning instead)
|
||
|
uint32be flags3;
|
||
|
uint16be volAdjust; // Volume adjust (%)
|
||
|
uint16be mixChannels; // Mixing channels, 0 means 4
|
||
|
uint8be mixEchoType; // 0 = nothing, 1 = normal, 2 = cross
|
||
|
uint8be mixEchoDepth; // 1 - 6, 0 = default
|
||
|
uint16be mixEchoLength; // Echo length in milliseconds
|
||
|
int8be mixStereoSep; // Stereo separation
|
||
|
char pad0[223];
|
||
|
};
|
||
|
|
||
|
MPT_BINARY_STRUCT(MMD2Song, 256)
|
||
|
|
||
|
|
||
|
// Common song header
|
||
|
struct MMDSong
|
||
|
{
|
||
|
enum Flags
|
||
|
{
|
||
|
FLAG_FILTERON = 0x01, // The hardware audio filter is on
|
||
|
FLAG_JUMPINGON = 0x02, // Mouse pointer jumping on
|
||
|
FLAG_JUMP8TH = 0x04, // ump every 8th line (not in OctaMED Pro)
|
||
|
FLAG_INSTRSATT = 0x08, // sng+samples indicator (not useful in MMDs)
|
||
|
FLAG_VOLHEX = 0x10, // volumes are HEX
|
||
|
FLAG_STSLIDE = 0x20, // use ST/NT/PT compatible sliding
|
||
|
FLAG_8CHANNEL = 0x40, // this is OctaMED 5-8 channel song
|
||
|
FLAG_SLOWHQ = 0x80, // HQ V2-4 compatibility mode
|
||
|
};
|
||
|
|
||
|
enum Flags2
|
||
|
{
|
||
|
FLAG2_BMASK = 0x1F, // (bits 0-4) BPM beat length (in lines)
|
||
|
FLAG2_BPM = 0x20, // BPM mode on
|
||
|
FLAG2_MIX = 0x80, // Module uses mixing
|
||
|
};
|
||
|
|
||
|
uint16be numBlocks; // Number of blocks in current song
|
||
|
uint16be songLength; // MMD0: Number of sequence numbers in the play sequence list, MMD2: Number of sections
|
||
|
char song[256];
|
||
|
MMD0Song GetMMD0Song() const
|
||
|
{
|
||
|
static_assert(sizeof(MMD0Song) == sizeof(song));
|
||
|
return mpt::bit_cast<MMD0Song>(song);
|
||
|
}
|
||
|
MMD2Song GetMMD2Song() const
|
||
|
{
|
||
|
static_assert(sizeof(MMD2Song) == sizeof(song));
|
||
|
return mpt::bit_cast<MMD2Song>(song);
|
||
|
}
|
||
|
uint16be defaultTempo;
|
||
|
int8be playTranspose; // The global play transpose value for current song
|
||
|
uint8be flags;
|
||
|
uint8be flags2;
|
||
|
uint8be tempo2; // Timing pulses per line (ticks)
|
||
|
uint8be trackVol[16]; // 1...64 in MMD0/MMD1, reserved in MMD2
|
||
|
uint8be masterVol; // 1...64
|
||
|
uint8be numSamples;
|
||
|
};
|
||
|
|
||
|
MPT_BINARY_STRUCT(MMDSong, 284)
|
||
|
|
||
|
|
||
|
struct MMD2PlaySeq
|
||
|
{
|
||
|
char name[32];
|
||
|
uint32be commandTableOffset;
|
||
|
uint32be reserved;
|
||
|
uint16be length; // Number of entries
|
||
|
};
|
||
|
|
||
|
MPT_BINARY_STRUCT(MMD2PlaySeq, 42)
|
||
|
|
||
|
|
||
|
struct MMD0PatternHeader
|
||
|
{
|
||
|
uint8be numTracks;
|
||
|
uint8be numRows;
|
||
|
};
|
||
|
|
||
|
MPT_BINARY_STRUCT(MMD0PatternHeader, 2)
|
||
|
|
||
|
|
||
|
struct MMD1PatternHeader
|
||
|
{
|
||
|
uint16be numTracks;
|
||
|
uint16be numRows;
|
||
|
uint32be blockInfoOffset;
|
||
|
};
|
||
|
|
||
|
MPT_BINARY_STRUCT(MMD1PatternHeader, 8)
|
||
|
|
||
|
|
||
|
struct MMDPlaySeqCommand
|
||
|
{
|
||
|
enum Command
|
||
|
{
|
||
|
kStop = 1,
|
||
|
kJump = 2,
|
||
|
};
|
||
|
|
||
|
uint16be offset; // Offset within current play sequence, 0xFFFF = end of list
|
||
|
uint8be command; // Stop = 1, Jump = 2
|
||
|
uint8be extraSize;
|
||
|
};
|
||
|
|
||
|
MPT_BINARY_STRUCT(MMDPlaySeqCommand, 4)
|
||
|
|
||
|
|
||
|
struct MMDBlockInfo
|
||
|
{
|
||
|
uint32be highlightMaskOffset;
|
||
|
uint32be nameOffset;
|
||
|
uint32be nameLength;
|
||
|
uint32be pageTableOffset; // File offset of command page table
|
||
|
uint32be cmdExtTableOffset; // File offset of command extension table (second parameter)
|
||
|
uint32be reserved[4];
|
||
|
};
|
||
|
|
||
|
MPT_BINARY_STRUCT(MMDBlockInfo, 36)
|
||
|
|
||
|
|
||
|
struct MMDInstrHeader
|
||
|
{
|
||
|
enum Types
|
||
|
{
|
||
|
VSTI = -4,
|
||
|
HIGHLIFE = -3,
|
||
|
HYBRID = -2,
|
||
|
SYNTHETIC = -1,
|
||
|
SAMPLE = 0, // an ordinary 1-octave sample (or MIDI)
|
||
|
IFF5OCT = 1, // 5 octaves
|
||
|
IFF3OCT = 2, // 3 octaves
|
||
|
// The following ones are recognized by OctaMED Pro only
|
||
|
IFF2OCT = 3, // 2 octaves
|
||
|
IFF4OCT = 4, // 4 octaves
|
||
|
IFF6OCT = 5, // 6 octaves
|
||
|
IFF7OCT = 6, // 7 octaves
|
||
|
// OctaMED Pro V5 + later
|
||
|
EXTSAMPLE = 7, // two extra-low octaves
|
||
|
|
||
|
TYPEMASK = 0x0F,
|
||
|
|
||
|
S_16 = 0x10,
|
||
|
STEREO = 0x20,
|
||
|
DELTA = 0x40,
|
||
|
PACKED = 0x80, // MMDPackedSampleHeader follows
|
||
|
OBSOLETE_MD16 = 0x18,
|
||
|
};
|
||
|
|
||
|
uint32be length;
|
||
|
int16be type;
|
||
|
};
|
||
|
|
||
|
MPT_BINARY_STRUCT(MMDInstrHeader, 6)
|
||
|
|
||
|
|
||
|
struct MMDPackedSampleHeader
|
||
|
{
|
||
|
uint16be packType; // Only 1 = ADPCM is supported
|
||
|
uint16be subType; // Packing subtype
|
||
|
// ADPCM subtype
|
||
|
// 1: g723_40
|
||
|
// 2: g721
|
||
|
// 3: g723_24
|
||
|
uint8be commonFlags; // flags common to all packtypes (none defined so far)
|
||
|
uint8be packerFlags; // flags for the specific packtype
|
||
|
uint32be leftChLen; // packed length of left channel in bytes
|
||
|
uint32be rightChLen; // packed length of right channel in bytes (ONLY PRESENT IN STEREO SAMPLES)
|
||
|
};
|
||
|
|
||
|
MPT_BINARY_STRUCT(MMDPackedSampleHeader, 14)
|
||
|
|
||
|
|
||
|
struct MMDInstrExt
|
||
|
{
|
||
|
enum
|
||
|
{
|
||
|
SSFLG_LOOP = 0x01, // Loop On / Off
|
||
|
SSFLG_EXTPSET = 0x02, // Ext.Preset
|
||
|
SSFLG_DISABLED = 0x04, // Disabled
|
||
|
SSFLG_PINGPONG = 0x08, // Ping-pong looping
|
||
|
};
|
||
|
|
||
|
uint8be hold; // 0...127
|
||
|
uint8be decay; // 0...127
|
||
|
uint8be suppressMidiOff;
|
||
|
int8be finetune;
|
||
|
// Below fields saved by >= V5
|
||
|
uint8be defaultPitch;
|
||
|
uint8be instrFlags;
|
||
|
uint16be longMidiPreset; // Legacy MIDI program mode that doesn't use banks but a combination of two program change commands
|
||
|
// Below fields saved by >= V5.02
|
||
|
uint8be outputDevice;
|
||
|
uint8be reserved;
|
||
|
// Below fields saved by >= V7
|
||
|
uint32be loopStart;
|
||
|
uint32be loopLength;
|
||
|
// Not sure which version starts saving those but they are saved by MED Soundstudio for Windows
|
||
|
uint8 volume; // 0...127
|
||
|
uint8 outputPort; // Index into user-configurable device list (NOT WinAPI port index)
|
||
|
uint16le midiBank;
|
||
|
};
|
||
|
|
||
|
MPT_BINARY_STRUCT(MMDInstrExt, 22)
|
||
|
|
||
|
|
||
|
struct MMDInstrInfo
|
||
|
{
|
||
|
char name[40];
|
||
|
};
|
||
|
|
||
|
MPT_BINARY_STRUCT(MMDInstrInfo, 40)
|
||
|
|
||
|
|
||
|
struct MMD0Exp
|
||
|
{
|
||
|
uint32be nextModOffset;
|
||
|
uint32be instrExtOffset;
|
||
|
uint16be instrExtEntries;
|
||
|
uint16be instrExtEntrySize;
|
||
|
uint32be annoText;
|
||
|
uint32be annoLength;
|
||
|
uint32be instrInfoOffset;
|
||
|
uint16be instrInfoEntries;
|
||
|
uint16be instrInfoEntrySize;
|
||
|
uint32be jumpMask;
|
||
|
uint32be rgbTable;
|
||
|
uint8be channelSplit[4];
|
||
|
uint32be notationInfoOffset;
|
||
|
uint32be songNameOffset;
|
||
|
uint32be songNameLength;
|
||
|
uint32be midiDumpOffset;
|
||
|
uint32be mmdInfoOffset;
|
||
|
uint32be arexxOffset;
|
||
|
uint32be midiCmd3xOffset;
|
||
|
uint32be trackInfoOffset; // Pointer to song->numtracks pointers to tag lists
|
||
|
uint32be effectInfoOffset; // Pointers to group pointers
|
||
|
uint32be tagEnd;
|
||
|
};
|
||
|
|
||
|
MPT_BINARY_STRUCT(MMD0Exp, 80)
|
||
|
|
||
|
|
||
|
struct MMDTag
|
||
|
{
|
||
|
enum TagType
|
||
|
{
|
||
|
// Generic MMD tags
|
||
|
MMDTAG_END = 0x00000000,
|
||
|
MMDTAG_PTR = 0x80000000, // Data needs relocation
|
||
|
MMDTAG_MUSTKNOW = 0x40000000, // Loader must fail if this isn't recognized
|
||
|
MMDTAG_MUSTWARN = 0x20000000, // Loader must warn if this isn't recognized
|
||
|
MMDTAG_MASK = 0x1FFFFFFF,
|
||
|
|
||
|
// ExpData tags
|
||
|
// # of effect groups, including the global group (will override settings in MMDSong struct), default = 1
|
||
|
MMDTAG_EXP_NUMFXGROUPS = 1,
|
||
|
MMDTAG_TRK_FXGROUP = 3,
|
||
|
|
||
|
MMDTAG_TRK_NAME = 1, // trackinfo tags
|
||
|
MMDTAG_TRK_NAMELEN = 2, // namelen includes zero term.
|
||
|
|
||
|
// effectinfo tags
|
||
|
MMDTAG_FX_ECHOTYPE = 1,
|
||
|
MMDTAG_FX_ECHOLEN = 2,
|
||
|
MMDTAG_FX_ECHODEPTH = 3,
|
||
|
MMDTAG_FX_STEREOSEP = 4,
|
||
|
MMDTAG_FX_GROUPNAME = 5, // the Global Effects group shouldn't have name saved!
|
||
|
MMDTAG_FX_GRPNAMELEN = 6, // namelen includes zero term.
|
||
|
};
|
||
|
|
||
|
uint32be type;
|
||
|
uint32be data;
|
||
|
};
|
||
|
|
||
|
MPT_BINARY_STRUCT(MMDTag, 8)
|
||
|
|
||
|
|
||
|
struct MMDDump
|
||
|
{
|
||
|
uint32be length;
|
||
|
uint32be dataPointer;
|
||
|
uint16be extLength; // If >= 20: name follows as char[20]
|
||
|
};
|
||
|
|
||
|
MPT_BINARY_STRUCT(MMDDump, 10)
|
||
|
|
||
|
|
||
|
static TEMPO MMDTempoToBPM(uint32 tempo, bool is8Ch, bool bpmMode, uint8 rowsPerBeat)
|
||
|
{
|
||
|
if(bpmMode && !is8Ch)
|
||
|
{
|
||
|
// You would have thought that we could use modern tempo mode here.
|
||
|
// Alas, the number of ticks per row still influences the tempo. :(
|
||
|
return TEMPO((tempo * rowsPerBeat) / 4.0);
|
||
|
}
|
||
|
if(is8Ch && tempo > 0)
|
||
|
{
|
||
|
LimitMax(tempo, 10u);
|
||
|
// MED Soundstudio uses these tempos when importing old files
|
||
|
static constexpr uint8 tempos[10] = {179, 164, 152, 141, 131, 123, 116, 110, 104, 99};
|
||
|
return TEMPO(tempos[tempo - 1], 0);
|
||
|
} else if(tempo > 0 && tempo <= 10)
|
||
|
{
|
||
|
// SoundTracker compatible tempo
|
||
|
return TEMPO((6.0 * 1773447.0 / 14500.0) / tempo);
|
||
|
}
|
||
|
|
||
|
return TEMPO(tempo / 0.264);
|
||
|
}
|
||
|
|
||
|
|
||
|
static void ConvertMEDEffect(ModCommand &m, bool is8ch, bool bpmMode, uint8 rowsPerBeat, bool volHex)
|
||
|
{
|
||
|
switch(m.command)
|
||
|
{
|
||
|
case 0x04: // Vibrato (twice as deep as in ProTracker)
|
||
|
m.command = CMD_VIBRATO;
|
||
|
m.param = (std::min<uint8>(m.param >> 3, 0x0F) << 4) | std::min<uint8>((m.param & 0x0F) * 2, 0x0F);
|
||
|
break;
|
||
|
case 0x08: // Hold and decay
|
||
|
m.command = CMD_NONE;
|
||
|
break;
|
||
|
case 0x09: // Set secondary speed
|
||
|
if(m.param > 0 && m.param <= 20)
|
||
|
m.command = CMD_SPEED;
|
||
|
else
|
||
|
m.command = CMD_NONE;
|
||
|
break;
|
||
|
case 0x0C: // Set Volume
|
||
|
m.command = CMD_VOLUME;
|
||
|
if(!volHex && m.param < 0x99)
|
||
|
m.param = (m.param >> 4) * 10 + (m.param & 0x0F);
|
||
|
else if(volHex)
|
||
|
m.param = ((m.param & 0x7F) + 1) / 2;
|
||
|
else
|
||
|
m.command = CMD_NONE;
|
||
|
break;
|
||
|
case 0x0D:
|
||
|
m.command = CMD_VOLUMESLIDE;
|
||
|
break;
|
||
|
case 0x0E: // Synth jump
|
||
|
m.command = CMD_NONE;
|
||
|
break;
|
||
|
case 0x0F: // Misc
|
||
|
if(m.param == 0)
|
||
|
{
|
||
|
m.command = CMD_PATTERNBREAK;
|
||
|
} else if(m.param <= 0xF0)
|
||
|
{
|
||
|
m.command = CMD_TEMPO;
|
||
|
if(m.param < 0x03) // This appears to be a bug in OctaMED which is not emulated in MED Soundstudio on Windows.
|
||
|
m.param = 0x70;
|
||
|
else
|
||
|
m.param = mpt::saturate_round<ModCommand::PARAM>(MMDTempoToBPM(m.param, is8ch, bpmMode, rowsPerBeat).ToDouble());
|
||
|
#ifdef MODPLUG_TRACKER
|
||
|
if(m.param < 0x20)
|
||
|
m.param = 0x20;
|
||
|
#endif // MODPLUG_TRACKER
|
||
|
} else switch(m.command)
|
||
|
{
|
||
|
case 0xF1: // Play note twice
|
||
|
m.command = CMD_MODCMDEX;
|
||
|
m.param = 0x93;
|
||
|
break;
|
||
|
case 0xF2: // Delay note
|
||
|
m.command = CMD_MODCMDEX;
|
||
|
m.param = 0xD3;
|
||
|
break;
|
||
|
case 0xF3: // Play note three times
|
||
|
m.command = CMD_MODCMDEX;
|
||
|
m.param = 0x92;
|
||
|
break;
|
||
|
case 0xF8: // Turn filter off
|
||
|
case 0xF9: // Turn filter on
|
||
|
m.command = CMD_MODCMDEX;
|
||
|
m.param = 0xF9 - m.param;
|
||
|
break;
|
||
|
case 0xFA: // MIDI pedal on
|
||
|
case 0xFB: // MIDI pedal off
|
||
|
case 0xFD: // Set pitch
|
||
|
case 0xFE: // End of song
|
||
|
m.command = CMD_NONE;
|
||
|
break;
|
||
|
case 0xFF: // Turn note off
|
||
|
m.note = NOTE_NOTECUT;
|
||
|
m.command = CMD_NONE;
|
||
|
break;
|
||
|
default:
|
||
|
m.command = CMD_NONE;
|
||
|
break;
|
||
|
}
|
||
|
break;
|
||
|
case 0x10: // MIDI message
|
||
|
m.command = CMD_MIDI;
|
||
|
m.param |= 0x80;
|
||
|
break;
|
||
|
case 0x11: // Slide pitch up
|
||
|
m.command = CMD_MODCMDEX;
|
||
|
m.param = 0x10 | std::min<uint8>(m.param, 0x0F);
|
||
|
break;
|
||
|
case 0x12: // Slide pitch down
|
||
|
m.command = CMD_MODCMDEX;
|
||
|
m.param = 0x20 | std::min<uint8>(m.param, 0x0F);
|
||
|
break;
|
||
|
case 0x14: // Vibrato (ProTracker compatible depth, but faster)
|
||
|
m.command = CMD_VIBRATO;
|
||
|
m.param = (std::min<uint8>((m.param >> 4) + 1, 0x0F) << 4) | (m.param & 0x0F);
|
||
|
break;
|
||
|
case 0x15: // Set finetune
|
||
|
m.command = CMD_MODCMDEX;
|
||
|
m.param = 0x50 | (m.param & 0x0F);
|
||
|
break;
|
||
|
case 0x16: // Loop
|
||
|
m.command = CMD_MODCMDEX;
|
||
|
m.param = 0x60 | std::min<uint8>(m.param, 0x0F);
|
||
|
break;
|
||
|
case 0x18: // Stop note
|
||
|
m.command = CMD_MODCMDEX;
|
||
|
m.param = 0xC0 | std::min<uint8>(m.param, 0x0F);
|
||
|
break;
|
||
|
case 0x19: // Sample Offset
|
||
|
m.command = CMD_OFFSET;
|
||
|
break;
|
||
|
case 0x1A: // Slide volume up once
|
||
|
m.command = CMD_MODCMDEX;
|
||
|
m.param = 0xA0 | std::min<uint8>(m.param, 0x0F);
|
||
|
break;
|
||
|
case 0x1B: // Slide volume down once
|
||
|
m.command = CMD_MODCMDEX;
|
||
|
m.param = 0xB0 | std::min<uint8>(m.param, 0x0F);
|
||
|
break;
|
||
|
case 0x1C: // MIDI program
|
||
|
if(m.param > 0 && m.param <= 128)
|
||
|
{
|
||
|
m.command = CMD_MIDI;
|
||
|
m.param--;
|
||
|
} else
|
||
|
{
|
||
|
m.command = CMD_NONE;
|
||
|
}
|
||
|
break;
|
||
|
case 0x1D: // Pattern break (in hex)
|
||
|
m.command = CMD_PATTERNBREAK;
|
||
|
break;
|
||
|
case 0x1E: // Repeat row
|
||
|
m.command = CMD_MODCMDEX;
|
||
|
m.param = 0xE0 | std::min<uint8>(m.param, 0x0F);
|
||
|
break;
|
||
|
case 0x1F: // Note delay and retrigger
|
||
|
{
|
||
|
if(m.param & 0xF0)
|
||
|
{
|
||
|
m.command = CMD_MODCMDEX;
|
||
|
m.param = 0xD0 | (m.param >> 4);
|
||
|
} else if(m.param & 0x0F)
|
||
|
{
|
||
|
m.command = CMD_MODCMDEX;
|
||
|
m.param = 0x90 | m.param;
|
||
|
} else
|
||
|
{
|
||
|
m.command = CMD_NONE;
|
||
|
}
|
||
|
break;
|
||
|
}
|
||
|
case 0x20: // Reverse sample + skip samples
|
||
|
if(m.param == 0 && m.vol == 0)
|
||
|
{
|
||
|
if(m.IsNote())
|
||
|
{
|
||
|
m.command = CMD_S3MCMDEX;
|
||
|
m.param = 0x9F;
|
||
|
}
|
||
|
} else
|
||
|
{
|
||
|
// Skip given number of samples
|
||
|
m.command = CMD_NONE;
|
||
|
}
|
||
|
break;
|
||
|
case 0x29: // Relative sample offset
|
||
|
if(m.vol > 0)
|
||
|
{
|
||
|
m.command = CMD_OFFSETPERCENTAGE;
|
||
|
m.param = mpt::saturate_cast<ModCommand::PARAM>(Util::muldiv_unsigned(m.param, 0x100, m.vol));
|
||
|
} else
|
||
|
{
|
||
|
m.command = CMD_NONE;
|
||
|
}
|
||
|
break;
|
||
|
case 0x2E: // Set panning
|
||
|
if(m.param <= 0x10 || m.param >= 0xF0)
|
||
|
{
|
||
|
m.command = CMD_PANNING8;
|
||
|
m.param = mpt::saturate_cast<ModCommand::PARAM>(((m.param ^ 0x80) - 0x70) * 8);
|
||
|
} else
|
||
|
{
|
||
|
m.command = CMD_NONE;
|
||
|
}
|
||
|
break;
|
||
|
default:
|
||
|
if(m.command < 0x10)
|
||
|
CSoundFile::ConvertModCommand(m);
|
||
|
else
|
||
|
m.command = CMD_NONE;
|
||
|
break;
|
||
|
}
|
||
|
}
|
||
|
|
||
|
#ifdef MPT_WITH_VST
|
||
|
static std::wstring ReadMEDStringUTF16BE(FileReader &file)
|
||
|
{
|
||
|
FileReader chunk = file.ReadChunk(file.ReadUint32BE());
|
||
|
std::wstring s(chunk.GetLength() / 2u, L'\0');
|
||
|
for(auto &c : s)
|
||
|
{
|
||
|
c = chunk.ReadUint16BE();
|
||
|
}
|
||
|
return s;
|
||
|
}
|
||
|
#endif // MPT_WITH_VST
|
||
|
|
||
|
|
||
|
static void MEDReadNextSong(FileReader &file, MMD0FileHeader &fileHeader, MMD0Exp &expData, MMDSong &songHeader)
|
||
|
{
|
||
|
file.ReadStruct(fileHeader);
|
||
|
file.Seek(fileHeader.songOffset + 63 * sizeof(MMD0Sample));
|
||
|
file.ReadStruct(songHeader);
|
||
|
if(fileHeader.expDataOffset && file.Seek(fileHeader.expDataOffset))
|
||
|
file.ReadStruct(expData);
|
||
|
else
|
||
|
expData = {};
|
||
|
}
|
||
|
|
||
|
|
||
|
static std::pair<CHANNELINDEX, SEQUENCEINDEX> MEDScanNumChannels(FileReader &file, const uint8 version)
|
||
|
{
|
||
|
MMD0FileHeader fileHeader;
|
||
|
MMD0Exp expData;
|
||
|
MMDSong songHeader;
|
||
|
|
||
|
file.Rewind();
|
||
|
uint32 songOffset = 0;
|
||
|
MEDReadNextSong(file, fileHeader, expData, songHeader);
|
||
|
|
||
|
SEQUENCEINDEX numSongs = std::min(MAX_SEQUENCES, mpt::saturate_cast<SEQUENCEINDEX>(fileHeader.expDataOffset ? fileHeader.extraSongs + 1 : 1));
|
||
|
CHANNELINDEX numChannels = 4;
|
||
|
// Scan patterns for max number of channels
|
||
|
for(SEQUENCEINDEX song = 0; song < numSongs; song++)
|
||
|
{
|
||
|
const PATTERNINDEX numPatterns = songHeader.numBlocks;
|
||
|
if(songHeader.numSamples > 63 || numPatterns > 0x7FFF)
|
||
|
return {};
|
||
|
|
||
|
for(PATTERNINDEX pat = 0; pat < numPatterns; pat++)
|
||
|
{
|
||
|
if(!file.Seek(fileHeader.blockArrOffset + pat * 4u)
|
||
|
|| !file.Seek(file.ReadUint32BE()))
|
||
|
{
|
||
|
continue;
|
||
|
}
|
||
|
numChannels = std::max(numChannels, static_cast<CHANNELINDEX>(version < 1 ? file.ReadUint8() : file.ReadUint16BE()));
|
||
|
}
|
||
|
|
||
|
// If song offsets are going backwards, reject the file
|
||
|
if(expData.nextModOffset <= songOffset || !file.Seek(expData.nextModOffset))
|
||
|
{
|
||
|
numSongs = song + 1;
|
||
|
break;
|
||
|
}
|
||
|
songOffset = expData.nextModOffset;
|
||
|
MEDReadNextSong(file, fileHeader, expData, songHeader);
|
||
|
}
|
||
|
return {numChannels, numSongs};
|
||
|
}
|
||
|
|
||
|
|
||
|
static bool ValidateHeader(const MMD0FileHeader &fileHeader)
|
||
|
{
|
||
|
if(std::memcmp(fileHeader.mmd, "MMD", 3)
|
||
|
|| fileHeader.version < '0' || fileHeader.version > '3'
|
||
|
|| fileHeader.songOffset < sizeof(MMD0FileHeader)
|
||
|
|| fileHeader.songOffset > uint32_max - 63 * sizeof(MMD0Sample) - sizeof(MMDSong)
|
||
|
|| fileHeader.blockArrOffset < sizeof(MMD0FileHeader)
|
||
|
|| (fileHeader.sampleArrOffset > 0 && fileHeader.sampleArrOffset < sizeof(MMD0FileHeader))
|
||
|
|| fileHeader.expDataOffset > uint32_max - sizeof(MMD0Exp))
|
||
|
{
|
||
|
return false;
|
||
|
}
|
||
|
return true;
|
||
|
}
|
||
|
|
||
|
|
||
|
static uint64 GetHeaderMinimumAdditionalSize(const MMD0FileHeader &fileHeader)
|
||
|
{
|
||
|
return std::max<uint64>({ fileHeader.songOffset + 63 * sizeof(MMD0Sample) + sizeof(MMDSong),
|
||
|
fileHeader.blockArrOffset,
|
||
|
fileHeader.sampleArrOffset ? fileHeader.sampleArrOffset : sizeof(MMD0FileHeader),
|
||
|
fileHeader.expDataOffset + sizeof(MMD0Exp) }) - sizeof(MMD0FileHeader);
|
||
|
}
|
||
|
|
||
|
|
||
|
CSoundFile::ProbeResult CSoundFile::ProbeFileHeaderMED(MemoryFileReader file, const uint64 *pfilesize)
|
||
|
{
|
||
|
MMD0FileHeader fileHeader;
|
||
|
if(!file.ReadStruct(fileHeader))
|
||
|
return ProbeWantMoreData;
|
||
|
if(!ValidateHeader(fileHeader))
|
||
|
return ProbeFailure;
|
||
|
return ProbeAdditionalSize(file, pfilesize, GetHeaderMinimumAdditionalSize(fileHeader));
|
||
|
}
|
||
|
|
||
|
|
||
|
bool CSoundFile::ReadMED(FileReader &file, ModLoadingFlags loadFlags)
|
||
|
{
|
||
|
file.Rewind();
|
||
|
MMD0FileHeader fileHeader;
|
||
|
if(!file.ReadStruct(fileHeader))
|
||
|
return false;
|
||
|
if(!ValidateHeader(fileHeader))
|
||
|
return false;
|
||
|
if(!file.CanRead(mpt::saturate_cast<FileReader::off_t>(GetHeaderMinimumAdditionalSize(fileHeader))))
|
||
|
return false;
|
||
|
if(loadFlags == onlyVerifyHeader)
|
||
|
return true;
|
||
|
|
||
|
InitializeGlobals(MOD_TYPE_MED);
|
||
|
InitializeChannels();
|
||
|
const uint8 version = fileHeader.version - '0';
|
||
|
|
||
|
file.Seek(fileHeader.songOffset);
|
||
|
FileReader sampleHeaderChunk = file.ReadChunk(63 * sizeof(MMD0Sample));
|
||
|
|
||
|
MMDSong songHeader;
|
||
|
file.ReadStruct(songHeader);
|
||
|
|
||
|
if(songHeader.numSamples > 63 || songHeader.numBlocks > 0x7FFF)
|
||
|
return false;
|
||
|
|
||
|
MMD0Exp expData{};
|
||
|
if(fileHeader.expDataOffset && file.Seek(fileHeader.expDataOffset))
|
||
|
{
|
||
|
file.ReadStruct(expData);
|
||
|
}
|
||
|
|
||
|
const auto [numChannels, numSongs] = MEDScanNumChannels(file, version);
|
||
|
if(numChannels < 1 || numChannels > MAX_BASECHANNELS)
|
||
|
return false;
|
||
|
m_nChannels = numChannels;
|
||
|
|
||
|
// Start with the instruments, as those are shared between songs
|
||
|
|
||
|
std::vector<uint32be> instrOffsets;
|
||
|
if(fileHeader.sampleArrOffset)
|
||
|
{
|
||
|
file.Seek(fileHeader.sampleArrOffset);
|
||
|
file.ReadVector(instrOffsets, songHeader.numSamples);
|
||
|
} else if(songHeader.numSamples > 0)
|
||
|
{
|
||
|
return false;
|
||
|
}
|
||
|
m_nInstruments = m_nSamples = songHeader.numSamples;
|
||
|
|
||
|
// In MMD0 / MMD1, octave wrapping is not done for synth instruments
|
||
|
// - It's required e.g. for automatic terminated to.mmd0 and you got to let the music.mmd1
|
||
|
// - starkelsesirap.mmd0 (synth instruments) on the other hand don't need it
|
||
|
// In MMD2 / MMD3, the mix flag is used instead.
|
||
|
const bool hardwareMixSamples = (version < 2) || (version >= 2 && !(songHeader.flags2 & MMDSong::FLAG2_MIX));
|
||
|
|
||
|
bool needInstruments = false;
|
||
|
bool anySynthInstrs = false;
|
||
|
#ifdef MPT_WITH_VST
|
||
|
PLUGINDEX numPlugins = 0;
|
||
|
#endif // MPT_WITH_VST
|
||
|
for(SAMPLEINDEX ins = 1, smp = 1; ins <= m_nInstruments; ins++)
|
||
|
{
|
||
|
if(!AllocateInstrument(ins, smp))
|
||
|
return false;
|
||
|
ModInstrument &instr = *Instruments[ins];
|
||
|
|
||
|
MMDInstrHeader instrHeader{};
|
||
|
FileReader sampleChunk;
|
||
|
if(instrOffsets[ins - 1] != 0 && file.Seek(instrOffsets[ins - 1]))
|
||
|
{
|
||
|
file.ReadStruct(instrHeader);
|
||
|
uint32 chunkLength = instrHeader.length;
|
||
|
if(instrHeader.type > 0 && (instrHeader.type & MMDInstrHeader::STEREO))
|
||
|
chunkLength *= 2u;
|
||
|
sampleChunk = file.ReadChunk(chunkLength);
|
||
|
}
|
||
|
const bool isSynth = instrHeader.type < 0;
|
||
|
const size_t maskedType = static_cast<size_t>(instrHeader.type & MMDInstrHeader::TYPEMASK);
|
||
|
|
||
|
#ifdef MPT_WITH_VST
|
||
|
if(instrHeader.type == MMDInstrHeader::VSTI)
|
||
|
{
|
||
|
needInstruments = true;
|
||
|
sampleChunk.Skip(6); // 00 00 <size of following data>
|
||
|
const std::wstring type = ReadMEDStringUTF16BE(sampleChunk);
|
||
|
const std::wstring name = ReadMEDStringUTF16BE(sampleChunk);
|
||
|
if(type == L"VST")
|
||
|
{
|
||
|
auto &mixPlug = m_MixPlugins[numPlugins];
|
||
|
mixPlug = {};
|
||
|
mixPlug.Info.dwPluginId1 = Vst::kEffectMagic;
|
||
|
mixPlug.Info.gain = 10;
|
||
|
mixPlug.Info.szName = mpt::ToCharset(mpt::Charset::Locale, name);
|
||
|
mixPlug.Info.szLibraryName = mpt::ToCharset(mpt::Charset::UTF8, name);
|
||
|
instr.nMixPlug = numPlugins + 1;
|
||
|
instr.nMidiChannel = MidiFirstChannel;
|
||
|
instr.Transpose(-24);
|
||
|
instr.AssignSample(0);
|
||
|
// TODO: Figure out patch and routing data
|
||
|
|
||
|
numPlugins++;
|
||
|
}
|
||
|
} else
|
||
|
#endif // MPT_WITH_VST
|
||
|
if(isSynth)
|
||
|
{
|
||
|
// TODO: Figure out synth instruments
|
||
|
anySynthInstrs = true;
|
||
|
instr.AssignSample(0);
|
||
|
}
|
||
|
|
||
|
uint8 numSamples = 1;
|
||
|
static constexpr uint8 SamplesPerType[] = {1, 5, 3, 2, 4, 6, 7};
|
||
|
if(!isSynth && maskedType < std::size(SamplesPerType))
|
||
|
numSamples = SamplesPerType[maskedType];
|
||
|
if(numSamples > 1)
|
||
|
{
|
||
|
static_assert(MAX_SAMPLES > 63 * 9, "Check IFFOCT multisample code");
|
||
|
m_nSamples += numSamples - 1;
|
||
|
needInstruments = true;
|
||
|
static constexpr uint8 OctSampleMap[][8] =
|
||
|
{
|
||
|
{1, 1, 0, 0, 0, 0, 0, 0}, // 2
|
||
|
{2, 2, 1, 1, 0, 0, 0, 0}, // 3
|
||
|
{3, 3, 2, 2, 1, 0, 0, 0}, // 4
|
||
|
{4, 3, 2, 1, 1, 0, 0, 0}, // 5
|
||
|
{5, 4, 3, 2, 1, 0, 0, 0}, // 6
|
||
|
{6, 5, 4, 3, 2, 1, 0, 0}, // 7
|
||
|
};
|
||
|
|
||
|
static constexpr int8 OctTransposeMap[][8] =
|
||
|
{
|
||
|
{ 0, 0, -12, -12, -24, -36, -48, -60}, // 2
|
||
|
{ 0, 0, -12, -12, -24, -36, -48, -60}, // 3
|
||
|
{ 0, 0, -12, -12, -24, -36, -48, -60}, // 4
|
||
|
{12, 0, -12, -24, -24, -36, -48, -60}, // 5
|
||
|
{12, 0, -12, -24, -36, -48, -48, -60}, // 6
|
||
|
{12, 0, -12, -24, -36, -48, -60, -72}, // 7
|
||
|
};
|
||
|
|
||
|
// TODO: Move octaves so that they align better (C-4 = lowest, we don't have access to the highest four octaves)
|
||
|
for(int octave = 4; octave < 10; octave++)
|
||
|
{
|
||
|
for(int note = 0; note < 12; note++)
|
||
|
{
|
||
|
instr.Keyboard[12 * octave + note] = smp + OctSampleMap[numSamples - 2][octave - 4];
|
||
|
instr.NoteMap[12 * octave + note] += OctTransposeMap[numSamples - 2][octave - 4];
|
||
|
}
|
||
|
}
|
||
|
} else if(maskedType == MMDInstrHeader::EXTSAMPLE)
|
||
|
{
|
||
|
needInstruments = true;
|
||
|
instr.Transpose(-24);
|
||
|
} else if(!isSynth && hardwareMixSamples)
|
||
|
{
|
||
|
for(int octave = 7; octave < 10; octave++)
|
||
|
{
|
||
|
for(int note = 0; note < 12; note++)
|
||
|
{
|
||
|
instr.NoteMap[12 * octave + note] -= static_cast<uint8>((octave - 6) * 12);
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
|
||
|
MMD0Sample sampleHeader;
|
||
|
sampleHeaderChunk.ReadStruct(sampleHeader);
|
||
|
|
||
|
// midiChannel = 0xFF == midi instrument but with invalid channel, midiChannel = 0x00 == sample-based instrument?
|
||
|
if(sampleHeader.midiChannel > 0 && sampleHeader.midiChannel <= 16)
|
||
|
{
|
||
|
instr.nMidiChannel = sampleHeader.midiChannel - 1 + MidiFirstChannel;
|
||
|
needInstruments = true;
|
||
|
|
||
|
#ifdef MPT_WITH_VST
|
||
|
if(!isSynth)
|
||
|
{
|
||
|
auto &mixPlug = m_MixPlugins[numPlugins];
|
||
|
mixPlug = {};
|
||
|
mixPlug.Info.dwPluginId1 = PLUGMAGIC('V', 's', 't', 'P');
|
||
|
mixPlug.Info.dwPluginId2 = PLUGMAGIC('M', 'M', 'I', 'D');
|
||
|
mixPlug.Info.gain = 10;
|
||
|
mixPlug.Info.szName = "MIDI Input Output";
|
||
|
mixPlug.Info.szLibraryName = "MIDI Input Output";
|
||
|
|
||
|
instr.nMixPlug = numPlugins + 1;
|
||
|
instr.Transpose(-24);
|
||
|
|
||
|
numPlugins++;
|
||
|
}
|
||
|
#endif // MPT_WITH_VST
|
||
|
}
|
||
|
if(sampleHeader.midiPreset > 0 && sampleHeader.midiPreset <= 128)
|
||
|
{
|
||
|
instr.nMidiProgram = sampleHeader.midiPreset;
|
||
|
}
|
||
|
|
||
|
for(SAMPLEINDEX i = 0; i < numSamples; i++)
|
||
|
{
|
||
|
ModSample &mptSmp = Samples[smp + i];
|
||
|
mptSmp.Initialize(MOD_TYPE_MED);
|
||
|
mptSmp.nVolume = 4u * std::min<uint8>(sampleHeader.sampleVolume, 64u);
|
||
|
mptSmp.RelativeTone = sampleHeader.sampleTranspose;
|
||
|
}
|
||
|
|
||
|
if(isSynth || !(loadFlags & loadSampleData))
|
||
|
{
|
||
|
smp += numSamples;
|
||
|
continue;
|
||
|
}
|
||
|
|
||
|
SampleIO sampleIO(
|
||
|
SampleIO::_8bit,
|
||
|
SampleIO::mono,
|
||
|
SampleIO::bigEndian,
|
||
|
SampleIO::signedPCM);
|
||
|
|
||
|
const bool hasLoop = sampleHeader.loopLength > 1;
|
||
|
SmpLength loopStart = sampleHeader.loopStart * 2;
|
||
|
SmpLength loopEnd = loopStart + sampleHeader.loopLength * 2;
|
||
|
|
||
|
SmpLength length = mpt::saturate_cast<SmpLength>(sampleChunk.GetLength());
|
||
|
if(instrHeader.type & MMDInstrHeader::S_16)
|
||
|
{
|
||
|
sampleIO |= SampleIO::_16bit;
|
||
|
length /= 2;
|
||
|
}
|
||
|
if(instrHeader.type & MMDInstrHeader::STEREO)
|
||
|
{
|
||
|
sampleIO |= SampleIO::stereoSplit;
|
||
|
length /= 2;
|
||
|
}
|
||
|
if(instrHeader.type & MMDInstrHeader::DELTA)
|
||
|
{
|
||
|
sampleIO |= SampleIO::deltaPCM;
|
||
|
}
|
||
|
|
||
|
if(numSamples > 1)
|
||
|
length = length / ((1u << numSamples) - 1);
|
||
|
|
||
|
for(SAMPLEINDEX i = 0; i < numSamples; i++)
|
||
|
{
|
||
|
ModSample &mptSmp = Samples[smp + i];
|
||
|
|
||
|
mptSmp.nLength = length;
|
||
|
sampleIO.ReadSample(mptSmp, sampleChunk);
|
||
|
|
||
|
if(hasLoop)
|
||
|
{
|
||
|
mptSmp.nLoopStart = loopStart;
|
||
|
mptSmp.nLoopEnd = loopEnd;
|
||
|
mptSmp.uFlags.set(CHN_LOOP);
|
||
|
}
|
||
|
|
||
|
length *= 2;
|
||
|
loopStart *= 2;
|
||
|
loopEnd *= 2;
|
||
|
}
|
||
|
|
||
|
smp += numSamples;
|
||
|
}
|
||
|
|
||
|
if(expData.instrExtOffset != 0 && expData.instrExtEntries != 0 && file.Seek(expData.instrExtOffset))
|
||
|
{
|
||
|
const uint16 entries = std::min<uint16>(expData.instrExtEntries, songHeader.numSamples);
|
||
|
const uint16 size = expData.instrExtEntrySize;
|
||
|
for(uint16 i = 0; i < entries; i++)
|
||
|
{
|
||
|
MMDInstrExt instrExt;
|
||
|
file.ReadStructPartial(instrExt, size);
|
||
|
|
||
|
ModInstrument &ins = *Instruments[i + 1];
|
||
|
if(instrExt.hold)
|
||
|
{
|
||
|
ins.VolEnv.assign({
|
||
|
EnvelopeNode{0u, ENVELOPE_MAX},
|
||
|
EnvelopeNode{static_cast<EnvelopeNode::tick_t>(instrExt.hold - 1), ENVELOPE_MAX},
|
||
|
EnvelopeNode{static_cast<EnvelopeNode::tick_t>(instrExt.hold + (instrExt.decay ? 64u / instrExt.decay : 0u)), ENVELOPE_MIN},
|
||
|
});
|
||
|
if(instrExt.hold == 1)
|
||
|
ins.VolEnv.erase(ins.VolEnv.begin());
|
||
|
ins.nFadeOut = instrExt.decay ? (instrExt.decay * 512) : 32767;
|
||
|
ins.VolEnv.dwFlags.set(ENV_ENABLED);
|
||
|
needInstruments = true;
|
||
|
}
|
||
|
if(size > offsetof(MMDInstrExt, volume))
|
||
|
ins.nGlobalVol = (instrExt.volume + 1u) / 2u;
|
||
|
if(size > offsetof(MMDInstrExt, midiBank))
|
||
|
ins.wMidiBank = instrExt.midiBank;
|
||
|
#ifdef MPT_WITH_VST
|
||
|
if(ins.nMixPlug > 0)
|
||
|
{
|
||
|
PLUGINDEX plug = ins.nMixPlug - 1;
|
||
|
auto &mixPlug = m_MixPlugins[plug];
|
||
|
if(mixPlug.Info.dwPluginId2 == PLUGMAGIC('M', 'M', 'I', 'D'))
|
||
|
{
|
||
|
float dev = (instrExt.outputDevice + 1) / 65536.0f; // Magic code from MidiInOut.h :(
|
||
|
mixPlug.pluginData.resize(3 * sizeof(uint32));
|
||
|
auto memFile = std::make_pair(mpt::as_span(mixPlug.pluginData), mpt::IO::Offset(0));
|
||
|
mpt::IO::WriteIntLE<uint32>(memFile, 0); // Plugin data type
|
||
|
mpt::IO::Write(memFile, IEEE754binary32LE{0}); // Input device
|
||
|
mpt::IO::Write(memFile, IEEE754binary32LE{dev}); // Output device
|
||
|
|
||
|
// Check if we already have another plugin referencing this output device
|
||
|
for(PLUGINDEX p = 0; p < plug; p++)
|
||
|
{
|
||
|
const auto &otherPlug = m_MixPlugins[p];
|
||
|
if(otherPlug.Info.dwPluginId1 == mixPlug.Info.dwPluginId1
|
||
|
&& otherPlug.Info.dwPluginId2 == mixPlug.Info.dwPluginId2
|
||
|
&& otherPlug.pluginData == mixPlug.pluginData)
|
||
|
{
|
||
|
ins.nMixPlug = p + 1;
|
||
|
mixPlug = {};
|
||
|
break;
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
#endif // MPT_WITH_VST
|
||
|
|
||
|
ModSample &sample = Samples[ins.Keyboard[NOTE_MIDDLEC]];
|
||
|
sample.nFineTune = MOD2XMFineTune(instrExt.finetune);
|
||
|
|
||
|
if(size > offsetof(MMDInstrExt, loopLength))
|
||
|
{
|
||
|
sample.nLoopStart = instrExt.loopStart;
|
||
|
sample.nLoopEnd = instrExt.loopStart + instrExt.loopLength;
|
||
|
}
|
||
|
if(size > offsetof(MMDInstrExt, instrFlags))
|
||
|
{
|
||
|
sample.uFlags.set(CHN_LOOP, (instrExt.instrFlags & MMDInstrExt::SSFLG_LOOP) != 0);
|
||
|
sample.uFlags.set(CHN_PINGPONGLOOP, (instrExt.instrFlags & MMDInstrExt::SSFLG_PINGPONG) != 0);
|
||
|
if(instrExt.instrFlags & MMDInstrExt::SSFLG_DISABLED)
|
||
|
sample.nGlobalVol = 0;
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
if(expData.instrInfoOffset != 0 && expData.instrInfoEntries != 0 && file.Seek(expData.instrInfoOffset))
|
||
|
{
|
||
|
const uint16 entries = std::min<uint16>(expData.instrInfoEntries, songHeader.numSamples);
|
||
|
const uint16 size = expData.instrInfoEntrySize;
|
||
|
for(uint16 i = 0; i < entries; i++)
|
||
|
{
|
||
|
MMDInstrInfo instrInfo;
|
||
|
file.ReadStructPartial(instrInfo, size);
|
||
|
Instruments[i + 1]->name = mpt::String::ReadBuf(mpt::String::maybeNullTerminated, instrInfo.name);
|
||
|
for(auto smp : Instruments[i + 1]->GetSamples())
|
||
|
{
|
||
|
m_szNames[smp] = Instruments[i + 1]->name;
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
|
||
|
// Setup a program change macro for command 1C (even if MIDI plugin is disabled, as otherwise these commands may act as filter commands)
|
||
|
m_MidiCfg.ClearZxxMacros();
|
||
|
m_MidiCfg.SFx[0] = "Cc z";
|
||
|
|
||
|
file.Rewind();
|
||
|
PATTERNINDEX basePattern = 0;
|
||
|
for(SEQUENCEINDEX song = 0; song < numSongs; song++)
|
||
|
{
|
||
|
MEDReadNextSong(file, fileHeader, expData, songHeader);
|
||
|
|
||
|
if(song != 0)
|
||
|
{
|
||
|
if(Order.AddSequence() == SEQUENCEINDEX_INVALID)
|
||
|
return false;
|
||
|
}
|
||
|
|
||
|
ModSequence &order = Order(song);
|
||
|
|
||
|
std::map<ORDERINDEX, ORDERINDEX> jumpTargets;
|
||
|
order.clear();
|
||
|
uint32 preamp = 32;
|
||
|
if(version < 2)
|
||
|
{
|
||
|
if(songHeader.songLength > 256 || m_nChannels > 16)
|
||
|
return false;
|
||
|
ReadOrderFromArray(order, songHeader.GetMMD0Song().sequence, songHeader.songLength);
|
||
|
for(auto &ord : order)
|
||
|
{
|
||
|
ord += basePattern;
|
||
|
}
|
||
|
|
||
|
SetupMODPanning(true);
|
||
|
for(CHANNELINDEX chn = 0; chn < m_nChannels; chn++)
|
||
|
{
|
||
|
ChnSettings[chn].nVolume = std::min<uint8>(songHeader.trackVol[chn], 64);
|
||
|
}
|
||
|
} else
|
||
|
{
|
||
|
const MMD2Song header = songHeader.GetMMD2Song();
|
||
|
if(header.numTracks < 1 || header.numTracks > 64 || m_nChannels > 64)
|
||
|
return false;
|
||
|
|
||
|
const bool freePan = (header.flags3 & MMD2Song::FLAG3_FREEPAN);
|
||
|
if(header.volAdjust)
|
||
|
preamp = Util::muldivr_unsigned(preamp, std::min<uint16>(header.volAdjust, 800), 100);
|
||
|
if (freePan)
|
||
|
preamp /= 2;
|
||
|
|
||
|
if(file.Seek(header.trackVolsOffset))
|
||
|
{
|
||
|
for(CHANNELINDEX chn = 0; chn < m_nChannels; chn++)
|
||
|
{
|
||
|
ChnSettings[chn].nVolume = std::min<uint8>(file.ReadUint8(), 64);
|
||
|
}
|
||
|
}
|
||
|
if(header.trackPanOffset && file.Seek(header.trackPanOffset))
|
||
|
{
|
||
|
for(CHANNELINDEX chn = 0; chn < m_nChannels; chn++)
|
||
|
{
|
||
|
ChnSettings[chn].nPan = (Clamp<int8, int8>(file.ReadInt8(), -16, 16) + 16) * 8;
|
||
|
}
|
||
|
} else
|
||
|
{
|
||
|
SetupMODPanning(true);
|
||
|
}
|
||
|
|
||
|
std::vector<uint16be> sections;
|
||
|
if(!file.Seek(header.sectionTableOffset)
|
||
|
|| !file.CanRead(songHeader.songLength * 2)
|
||
|
|| !file.ReadVector(sections, songHeader.songLength))
|
||
|
continue;
|
||
|
|
||
|
for(uint16 section : sections)
|
||
|
{
|
||
|
if(section > header.numPlaySeqs)
|
||
|
continue;
|
||
|
|
||
|
file.Seek(header.playSeqTableOffset + section * 4);
|
||
|
if(!file.Seek(file.ReadUint32BE()) || !file.CanRead(sizeof(MMD2PlaySeq)))
|
||
|
continue;
|
||
|
|
||
|
MMD2PlaySeq playSeq;
|
||
|
file.ReadStruct(playSeq);
|
||
|
|
||
|
if(!order.empty())
|
||
|
order.push_back(order.GetIgnoreIndex());
|
||
|
|
||
|
size_t readOrders = playSeq.length;
|
||
|
if(!file.CanRead(readOrders))
|
||
|
LimitMax(readOrders, file.BytesLeft());
|
||
|
LimitMax(readOrders, ORDERINDEX_MAX);
|
||
|
|
||
|
size_t orderStart = order.size();
|
||
|
order.reserve(orderStart + readOrders);
|
||
|
for(size_t ord = 0; ord < readOrders; ord++)
|
||
|
{
|
||
|
PATTERNINDEX pat = file.ReadUint16BE();
|
||
|
if(pat < 0x8000)
|
||
|
{
|
||
|
order.push_back(basePattern + pat);
|
||
|
}
|
||
|
}
|
||
|
if(playSeq.name[0])
|
||
|
order.SetName(mpt::ToUnicode(mpt::Charset::Amiga_no_C1, mpt::String::ReadAutoBuf(playSeq.name)));
|
||
|
|
||
|
// Play commands (jump / stop)
|
||
|
if(playSeq.commandTableOffset > 0 && file.Seek(playSeq.commandTableOffset))
|
||
|
{
|
||
|
MMDPlaySeqCommand command;
|
||
|
while(file.ReadStruct(command))
|
||
|
{
|
||
|
FileReader chunk = file.ReadChunk(command.extraSize);
|
||
|
ORDERINDEX ord = mpt::saturate_cast<ORDERINDEX>(orderStart + command.offset);
|
||
|
if(command.offset == 0xFFFF || ord >= order.size())
|
||
|
break;
|
||
|
if(command.command == MMDPlaySeqCommand::kStop)
|
||
|
{
|
||
|
order[ord] = order.GetInvalidPatIndex();
|
||
|
} else if(command.command == MMDPlaySeqCommand::kJump)
|
||
|
{
|
||
|
jumpTargets[ord] = chunk.ReadUint16BE();
|
||
|
order[ord] = order.GetIgnoreIndex();
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
|
||
|
const bool volHex = (songHeader.flags & MMDSong::FLAG_VOLHEX) != 0;
|
||
|
const bool is8Ch = (songHeader.flags & MMDSong::FLAG_8CHANNEL) != 0;
|
||
|
const bool bpmMode = (songHeader.flags2 & MMDSong::FLAG2_BPM) != 0;
|
||
|
const uint8 rowsPerBeat = 1 + (songHeader.flags2 & MMDSong::FLAG2_BMASK);
|
||
|
m_nDefaultTempo = MMDTempoToBPM(songHeader.defaultTempo, is8Ch, bpmMode, rowsPerBeat);
|
||
|
m_nDefaultSpeed = Clamp<uint8, uint8>(songHeader.tempo2, 1, 32);
|
||
|
if(bpmMode)
|
||
|
{
|
||
|
m_nDefaultRowsPerBeat = rowsPerBeat;
|
||
|
m_nDefaultRowsPerMeasure = m_nDefaultRowsPerBeat * 4u;
|
||
|
}
|
||
|
|
||
|
if(songHeader.masterVol)
|
||
|
m_nDefaultGlobalVolume = std::min<uint8>(songHeader.masterVol, 64) * 4;
|
||
|
m_nSamplePreAmp = m_nVSTiVolume = preamp;
|
||
|
|
||
|
// For MED, this affects both volume and pitch slides
|
||
|
m_SongFlags.set(SONG_FASTVOLSLIDES, !(songHeader.flags & MMDSong::FLAG_STSLIDE));
|
||
|
|
||
|
if(expData.songNameOffset && file.Seek(expData.songNameOffset))
|
||
|
{
|
||
|
file.ReadString<mpt::String::maybeNullTerminated>(m_songName, expData.songNameLength);
|
||
|
if(numSongs > 1)
|
||
|
order.SetName(mpt::ToUnicode(mpt::Charset::Amiga_no_C1, m_songName));
|
||
|
}
|
||
|
if(expData.annoLength > 1 && file.Seek(expData.annoText))
|
||
|
{
|
||
|
m_songMessage.Read(file, expData.annoLength - 1, SongMessage::leAutodetect);
|
||
|
}
|
||
|
|
||
|
#ifdef MPT_WITH_VST
|
||
|
// Read MIDI messages
|
||
|
if(expData.midiDumpOffset && file.Seek(expData.midiDumpOffset) && file.CanRead(8))
|
||
|
{
|
||
|
uint16 numDumps = std::min(file.ReadUint16BE(), static_cast<uint16>(m_MidiCfg.Zxx.size()));
|
||
|
file.Skip(6);
|
||
|
if(file.CanRead(numDumps * 4))
|
||
|
{
|
||
|
std::vector<uint32be> dumpPointers;
|
||
|
file.ReadVector(dumpPointers, numDumps);
|
||
|
for(uint16 dump = 0; dump < numDumps; dump++)
|
||
|
{
|
||
|
if(!file.Seek(dumpPointers[dump]) || !file.CanRead(sizeof(MMDDump)))
|
||
|
continue;
|
||
|
MMDDump dumpHeader;
|
||
|
file.ReadStruct(dumpHeader);
|
||
|
if(!file.Seek(dumpHeader.dataPointer) || !file.CanRead(dumpHeader.length))
|
||
|
continue;
|
||
|
std::array<char, kMacroLength> macro{};
|
||
|
auto length = std::min(static_cast<size_t>(dumpHeader.length), macro.size() / 2u);
|
||
|
for(size_t i = 0; i < length; i++)
|
||
|
{
|
||
|
const uint8 byte = file.ReadUint8(), high = byte >> 4, low = byte & 0x0F;
|
||
|
macro[i * 2] = high + (high < 0x0A ? '0' : 'A' - 0x0A);
|
||
|
macro[i * 2 + 1] = low + (low < 0x0A ? '0' : 'A' - 0x0A);
|
||
|
}
|
||
|
m_MidiCfg.Zxx[dump] = std::string_view{macro.data(), length * 2};
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
#endif // MPT_WITH_VST
|
||
|
|
||
|
if(expData.mmdInfoOffset && file.Seek(expData.mmdInfoOffset) && file.CanRead(12))
|
||
|
{
|
||
|
file.Skip(6); // Next info file (unused) + reserved
|
||
|
if(file.ReadUint16BE() == 1) // ASCII text
|
||
|
{
|
||
|
uint32 length = file.ReadUint32BE();
|
||
|
if(length && file.CanRead(length))
|
||
|
{
|
||
|
const auto oldMsg = std::move(m_songMessage);
|
||
|
m_songMessage.Read(file, length, SongMessage::leAutodetect);
|
||
|
if(!oldMsg.empty())
|
||
|
m_songMessage.SetRaw(oldMsg + std::string(2, SongMessage::InternalLineEnding) + m_songMessage);
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
|
||
|
// Track Names
|
||
|
if(version >= 2 && expData.trackInfoOffset)
|
||
|
{
|
||
|
for(CHANNELINDEX chn = 0; chn < m_nChannels; chn++)
|
||
|
{
|
||
|
if(file.Seek(expData.trackInfoOffset + chn * 4)
|
||
|
&& file.Seek(file.ReadUint32BE()))
|
||
|
{
|
||
|
uint32 nameOffset = 0, nameLength = 0;
|
||
|
while(file.CanRead(sizeof(MMDTag)))
|
||
|
{
|
||
|
MMDTag tag;
|
||
|
file.ReadStruct(tag);
|
||
|
if(tag.type == MMDTag::MMDTAG_END)
|
||
|
break;
|
||
|
switch(tag.type & MMDTag::MMDTAG_MASK)
|
||
|
{
|
||
|
case MMDTag::MMDTAG_TRK_NAME: nameOffset = tag.data; break;
|
||
|
case MMDTag::MMDTAG_TRK_NAMELEN: nameLength = tag.data; break;
|
||
|
}
|
||
|
}
|
||
|
if(nameOffset > 0 && nameLength > 0 && file.Seek(nameOffset))
|
||
|
{
|
||
|
file.ReadString<mpt::String::maybeNullTerminated>(ChnSettings[chn].szName, nameLength);
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
|
||
|
PATTERNINDEX numPatterns = songHeader.numBlocks;
|
||
|
Patterns.ResizeArray(basePattern + numPatterns);
|
||
|
for(PATTERNINDEX pat = 0; pat < numPatterns; pat++)
|
||
|
{
|
||
|
if(!(loadFlags & loadPatternData)
|
||
|
|| !file.Seek(fileHeader.blockArrOffset + pat * 4u)
|
||
|
|| !file.Seek(file.ReadUint32BE()))
|
||
|
{
|
||
|
continue;
|
||
|
}
|
||
|
|
||
|
CHANNELINDEX numTracks;
|
||
|
ROWINDEX numRows;
|
||
|
std::string patName;
|
||
|
int transpose;
|
||
|
FileReader cmdExt;
|
||
|
|
||
|
if(version < 1)
|
||
|
{
|
||
|
transpose = NOTE_MIN + 47;
|
||
|
MMD0PatternHeader patHeader;
|
||
|
file.ReadStruct(patHeader);
|
||
|
numTracks = patHeader.numTracks;
|
||
|
numRows = patHeader.numRows + 1;
|
||
|
} else
|
||
|
{
|
||
|
transpose = NOTE_MIN + (version <= 2 ? 47 : 23) + songHeader.playTranspose;
|
||
|
MMD1PatternHeader patHeader;
|
||
|
file.ReadStruct(patHeader);
|
||
|
numTracks = patHeader.numTracks;
|
||
|
numRows = patHeader.numRows + 1;
|
||
|
if(patHeader.blockInfoOffset)
|
||
|
{
|
||
|
auto offset = file.GetPosition();
|
||
|
file.Seek(patHeader.blockInfoOffset);
|
||
|
MMDBlockInfo blockInfo;
|
||
|
file.ReadStruct(blockInfo);
|
||
|
if(file.Seek(blockInfo.nameOffset))
|
||
|
{
|
||
|
// We have now chased four pointers to get this far... lovely format.
|
||
|
file.ReadString<mpt::String::maybeNullTerminated>(patName, blockInfo.nameLength);
|
||
|
}
|
||
|
if(blockInfo.cmdExtTableOffset
|
||
|
&& file.Seek(blockInfo.cmdExtTableOffset)
|
||
|
&& file.Seek(file.ReadUint32BE()))
|
||
|
{
|
||
|
cmdExt = file.ReadChunk(numTracks * numRows);
|
||
|
}
|
||
|
|
||
|
file.Seek(offset);
|
||
|
}
|
||
|
}
|
||
|
|
||
|
if(!Patterns.Insert(basePattern + pat, numRows))
|
||
|
continue;
|
||
|
|
||
|
CPattern &pattern = Patterns[basePattern + pat];
|
||
|
pattern.SetName(patName);
|
||
|
LimitMax(numTracks, m_nChannels);
|
||
|
|
||
|
for(ROWINDEX row = 0; row < numRows; row++)
|
||
|
{
|
||
|
ModCommand *m = pattern.GetpModCommand(row, 0);
|
||
|
for(CHANNELINDEX chn = 0; chn < numTracks; chn++, m++)
|
||
|
{
|
||
|
int note = NOTE_NONE;
|
||
|
if(version < 1)
|
||
|
{
|
||
|
const auto [noteInstr, instrCmd, param] = file.ReadArray<uint8, 3>();
|
||
|
|
||
|
if(noteInstr & 0x3F)
|
||
|
note = (noteInstr & 0x3F) + transpose;
|
||
|
|
||
|
m->instr = (instrCmd >> 4) | ((noteInstr & 0x80) >> 3) | ((noteInstr & 0x40) >> 1);
|
||
|
|
||
|
m->command = instrCmd & 0x0F;
|
||
|
m->param = param;
|
||
|
} else
|
||
|
{
|
||
|
const auto [noteVal, instr, command, param1] = file.ReadArray<uint8, 4>();
|
||
|
m->vol = cmdExt.ReadUint8();
|
||
|
|
||
|
if(noteVal & 0x7F)
|
||
|
note = (noteVal & 0x7F) + transpose;
|
||
|
else if(noteVal == 0x80)
|
||
|
m->note = NOTE_NOTECUT;
|
||
|
|
||
|
m->instr = instr & 0x3F;
|
||
|
m->command = command;
|
||
|
m->param = param1;
|
||
|
}
|
||
|
// Octave wrapping for 4-channel modules (TODO: this should not be set because of synth instruments)
|
||
|
if(hardwareMixSamples && note >= NOTE_MIDDLEC + 2 * 12)
|
||
|
needInstruments = true;
|
||
|
|
||
|
if(note >= NOTE_MIN && note <= NOTE_MAX)
|
||
|
m->note = static_cast<ModCommand::NOTE>(note);
|
||
|
ConvertMEDEffect(*m, is8Ch, bpmMode, rowsPerBeat, volHex);
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
|
||
|
// Fix jump order commands
|
||
|
for(const auto & [from, to] : jumpTargets)
|
||
|
{
|
||
|
PATTERNINDEX pat;
|
||
|
if(from > 0 && order.IsValidPat(from - 1))
|
||
|
{
|
||
|
pat = order.EnsureUnique(from - 1);
|
||
|
} else
|
||
|
{
|
||
|
if(to == from + 1) // No action required
|
||
|
continue;
|
||
|
pat = Patterns.InsertAny(1);
|
||
|
if(pat == PATTERNINDEX_INVALID)
|
||
|
continue;
|
||
|
order[from] = pat;
|
||
|
}
|
||
|
Patterns[pat].WriteEffect(EffectWriter(CMD_POSITIONJUMP, mpt::saturate_cast<ModCommand::PARAM>(to)).Row(Patterns[pat].GetNumRows() - 1).RetryPreviousRow());
|
||
|
if(pat >= numPatterns)
|
||
|
numPatterns = pat + 1;
|
||
|
}
|
||
|
|
||
|
basePattern += numPatterns;
|
||
|
|
||
|
if(!expData.nextModOffset || !file.Seek(expData.nextModOffset))
|
||
|
break;
|
||
|
}
|
||
|
Order.SetSequence(0);
|
||
|
|
||
|
if(!needInstruments)
|
||
|
{
|
||
|
for(INSTRUMENTINDEX ins = 1; ins <= m_nInstruments; ins++)
|
||
|
{
|
||
|
delete Instruments[ins];
|
||
|
Instruments[ins] = nullptr;
|
||
|
}
|
||
|
m_nInstruments = 0;
|
||
|
}
|
||
|
|
||
|
if(anySynthInstrs)
|
||
|
AddToLog(LogWarning, U_("Synthesized MED instruments are not supported."));
|
||
|
|
||
|
const mpt::uchar *madeWithTracker = MPT_ULITERAL("");
|
||
|
switch(version)
|
||
|
{
|
||
|
case 0: madeWithTracker = m_nChannels > 4 ? MPT_ULITERAL("OctaMED v2.10 (MMD0)") : MPT_ULITERAL("MED v2 (MMD0)"); break;
|
||
|
case 1: madeWithTracker = MPT_ULITERAL("OctaMED v4 (MMD1)"); break;
|
||
|
case 2: madeWithTracker = MPT_ULITERAL("OctaMED v5 (MMD2)"); break;
|
||
|
case 3: madeWithTracker = MPT_ULITERAL("OctaMED Soundstudio (MMD3)"); break;
|
||
|
}
|
||
|
|
||
|
m_modFormat.formatName = MPT_UFORMAT("OctaMED (MMD{})")(version);
|
||
|
m_modFormat.type = MPT_USTRING("med");
|
||
|
m_modFormat.madeWithTracker = madeWithTracker;
|
||
|
m_modFormat.charset = mpt::Charset::Amiga_no_C1;
|
||
|
|
||
|
return true;
|
||
|
}
|
||
|
|
||
|
OPENMPT_NAMESPACE_END
|