winamp/Src/external_dependencies/openmpt-trunk/soundlib/Load_669.cpp
2024-09-24 14:54:57 +02:00

331 lines
8.4 KiB
C++

/*
* Load_669.cpp
* ------------
* Purpose: 669 Composer / UNIS 669 module loader
* Notes : <opinion humble="false">This is better than Schism's 669 loader</opinion> :)
* (some of this code is "heavily inspired" by Storlek's code from Schism Tracker, and improvements have been made where necessary.)
* Authors: Olivier Lapicque
* OpenMPT Devs
* The OpenMPT source code is released under the BSD license. Read LICENSE for more details.
*/
#include "stdafx.h"
#include "Loaders.h"
OPENMPT_NAMESPACE_BEGIN
struct _669FileHeader
{
char magic[2]; // 'if' (0x6669, ha ha) or 'JN'
char songMessage[108]; // Song Message
uint8 samples; // number of samples (1-64)
uint8 patterns; // number of patterns (1-128)
uint8 restartPos;
uint8 orders[128];
uint8 tempoList[128];
uint8 breaks[128];
};
MPT_BINARY_STRUCT(_669FileHeader, 497)
struct _669Sample
{
char filename[13];
uint32le length;
uint32le loopStart;
uint32le loopEnd;
// Convert a 669 sample header to OpenMPT's internal sample header.
void ConvertToMPT(ModSample &mptSmp) const
{
mptSmp.Initialize();
mptSmp.nC5Speed = 8363;
mptSmp.nLength = length;
mptSmp.nLoopStart = loopStart;
mptSmp.nLoopEnd = loopEnd;
if(mptSmp.nLoopEnd > mptSmp.nLength && mptSmp.nLoopStart == 0)
{
mptSmp.nLoopEnd = 0;
}
if(mptSmp.nLoopEnd != 0)
{
mptSmp.uFlags = CHN_LOOP;
mptSmp.SanitizeLoops();
}
}
};
MPT_BINARY_STRUCT(_669Sample, 25)
static bool ValidateHeader(const _669FileHeader &fileHeader)
{
if((std::memcmp(fileHeader.magic, "if", 2) && std::memcmp(fileHeader.magic, "JN", 2))
|| fileHeader.samples > 64
|| fileHeader.restartPos >= 128
|| fileHeader.patterns > 128)
{
return false;
}
for(std::size_t i = 0; i < std::size(fileHeader.breaks); i++)
{
if(fileHeader.orders[i] >= 128 && fileHeader.orders[i] < 0xFE)
return false;
if(fileHeader.orders[i] < 128 && fileHeader.tempoList[i] == 0)
return false;
if(fileHeader.tempoList[i] > 15)
return false;
if(fileHeader.breaks[i] >= 64)
return false;
}
return true;
}
static uint64 GetHeaderMinimumAdditionalSize(const _669FileHeader &fileHeader)
{
return fileHeader.samples * sizeof(_669Sample) + fileHeader.patterns * 1536u;
}
CSoundFile::ProbeResult CSoundFile::ProbeFileHeader669(MemoryFileReader file, const uint64 *pfilesize)
{
_669FileHeader fileHeader;
if(!file.ReadStruct(fileHeader))
{
return ProbeWantMoreData;
}
if(!ValidateHeader(fileHeader))
{
return ProbeFailure;
}
return ProbeAdditionalSize(file, pfilesize, GetHeaderMinimumAdditionalSize(fileHeader));
}
bool CSoundFile::Read669(FileReader &file, ModLoadingFlags loadFlags)
{
_669FileHeader fileHeader;
file.Rewind();
if(!file.ReadStruct(fileHeader))
{
return false;
}
if(!ValidateHeader(fileHeader))
{
return false;
}
if(loadFlags == onlyVerifyHeader)
{
return true;
}
if(!file.CanRead(mpt::saturate_cast<FileReader::off_t>(GetHeaderMinimumAdditionalSize(fileHeader))))
{
return false;
}
InitializeGlobals(MOD_TYPE_669);
m_nMinPeriod = 28 << 2;
m_nMaxPeriod = 1712 << 3;
m_nDefaultTempo.Set(78);
m_nDefaultSpeed = 4;
m_nChannels = 8;
m_playBehaviour.set(kPeriodsAreHertz);
#ifdef MODPLUG_TRACKER
// 669 uses frequencies rather than periods, so linear slides mode will sound better in the higher octaves.
//m_SongFlags.set(SONG_LINEARSLIDES);
#endif // MODPLUG_TRACKER
m_modFormat.formatName = U_("Composer 669");
m_modFormat.type = U_("669");
m_modFormat.madeWithTracker = !memcmp(fileHeader.magic, "if", 2) ? UL_("Composer 669") : UL_("UNIS 669");
m_modFormat.charset = mpt::Charset::CP437;
m_nSamples = fileHeader.samples;
for(SAMPLEINDEX smp = 1; smp <= m_nSamples; smp++)
{
_669Sample sampleHeader;
file.ReadStruct(sampleHeader);
// Since 669 files have very unfortunate magic bytes ("if") and can
// hardly be validated, reject any file with far too big samples.
if(sampleHeader.length >= 0x4000000)
return false;
sampleHeader.ConvertToMPT(Samples[smp]);
m_szNames[smp] = mpt::String::ReadBuf(mpt::String::maybeNullTerminated, sampleHeader.filename);
}
// Copy first song message line into song title
m_songName = mpt::String::ReadBuf(mpt::String::spacePadded, fileHeader.songMessage, 36);
// Song Message
m_songMessage.ReadFixedLineLength(mpt::byte_cast<const std::byte*>(fileHeader.songMessage), 108, 36, 0);
// Reading Orders
ReadOrderFromArray(Order(), fileHeader.orders, std::size(fileHeader.orders), 0xFF, 0xFE);
if(Order()[fileHeader.restartPos] < fileHeader.patterns)
Order().SetRestartPos(fileHeader.restartPos);
// Set up panning
for(CHANNELINDEX chn = 0; chn < 8; chn++)
{
ChnSettings[chn].Reset();
ChnSettings[chn].nPan = (chn & 1) ? 0xD0 : 0x30;
}
// Reading Patterns
Patterns.ResizeArray(fileHeader.patterns);
for(PATTERNINDEX pat = 0; pat < fileHeader.patterns; pat++)
{
if(!(loadFlags & loadPatternData) || !Patterns.Insert(pat, 64))
{
file.Skip(64 * 8 * 3);
continue;
}
static constexpr ModCommand::COMMAND effTrans[] =
{
CMD_PORTAMENTOUP, // Slide up (param * 80) Hz on every tick
CMD_PORTAMENTODOWN, // Slide down (param * 80) Hz on every tick
CMD_TONEPORTAMENTO, // Slide to note by (param * 40) Hz on every tick
CMD_S3MCMDEX, // Add (param * 80) Hz to sample frequency
CMD_VIBRATO, // Add (param * 669) Hz on every other tick
CMD_SPEED, // Set ticks per row
CMD_PANNINGSLIDE, // Extended UNIS 669 effect
CMD_RETRIG, // Extended UNIS 669 effect
};
uint8 effect[8] = { 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF };
for(ROWINDEX row = 0; row < 64; row++)
{
PatternRow m = Patterns[pat].GetRow(row);
for(CHANNELINDEX chn = 0; chn < 8; chn++, m++)
{
const auto [noteInstr, instrVol, effParam] = file.ReadArray<uint8, 3>();
uint8 note = noteInstr >> 2;
uint8 instr = ((noteInstr & 0x03) << 4) | (instrVol >> 4);
uint8 vol = instrVol & 0x0F;
if(noteInstr < 0xFE)
{
m->note = note + 36 + NOTE_MIN;
m->instr = instr + 1;
effect[chn] = 0xFF;
}
if(noteInstr <= 0xFE)
{
m->volcmd = VOLCMD_VOLUME;
m->vol = ((vol * 64 + 8) / 15);
}
if(effParam != 0xFF)
{
effect[chn] = effParam;
}
if((effParam & 0x0F) == 0 && effParam != 0x30)
{
// A param value of 0 resets the effect.
effect[chn] = 0xFF;
}
if(effect[chn] == 0xFF)
{
continue;
}
m->param = effect[chn] & 0x0F;
// Weird stuff happening in corehop.669 with effects > 8... they seem to do the same thing as if the high bit wasn't set, but the sample also behaves strangely.
uint8 command = effect[chn] >> 4;
if(command < static_cast<uint8>(std::size(effTrans)))
{
m->command = effTrans[command];
} else
{
m->command = CMD_NONE;
continue;
}
// Fix some commands
switch(command)
{
case 3:
// D - frequency adjust
#ifdef MODPLUG_TRACKER
// Since we convert to S3M, the finetune command will not quite do what we intend to do (it can adjust the frequency upwards and downwards), so try to approximate it using a fine slide.
m->command = CMD_PORTAMENTOUP;
m->param |= 0xF0;
#else
m->param |= 0x20;
#endif
effect[chn] = 0xFF;
break;
case 4:
// E - frequency vibrato - almost like an arpeggio, but does not arpeggiate by a given note but by a frequency amount.
#ifdef MODPLUG_TRACKER
m->command = CMD_ARPEGGIO;
#endif
m->param |= (m->param << 4);
break;
case 5:
// F - set tempo
// TODO: param 0 is a "super fast tempo" in Unis 669 mode (?)
effect[chn] = 0xFF;
break;
case 6:
// G - subcommands (extended)
switch(m->param)
{
case 0:
// balance fine slide left
m->param = 0x4F;
break;
case 1:
// balance fine slide right
m->param = 0xF4;
break;
default:
m->command = CMD_NONE;
}
break;
}
}
}
// Write pattern break
if(fileHeader.breaks[pat] < 63)
{
Patterns[pat].WriteEffect(EffectWriter(CMD_PATTERNBREAK, 0).Row(fileHeader.breaks[pat]).RetryNextRow());
}
// And of course the speed...
Patterns[pat].WriteEffect(EffectWriter(CMD_SPEED, fileHeader.tempoList[pat]).RetryNextRow());
}
if(loadFlags & loadSampleData)
{
// Reading Samples
const SampleIO sampleIO(
SampleIO::_8bit,
SampleIO::mono,
SampleIO::littleEndian,
SampleIO::unsignedPCM);
for(SAMPLEINDEX n = 1; n <= m_nSamples; n++)
{
sampleIO.ReadSample(Samples[n], file);
}
}
return true;
}
OPENMPT_NAMESPACE_END