ref: 2070ac4176989b20390e87aa87f6e0695ca04461
dir: /src/pt2_sample_loader.c/
// for finding memory leaks in debug mode with Visual Studio
#if defined _DEBUG && defined _MSC_VER
#include <crtdbg.h>
#endif
#include <stdio.h>
#include <string.h>
#include <stdint.h>
#include <stdbool.h>
#include "pt2_header.h"
#include "pt2_textout.h"
#include "pt2_mouse.h"
#include "pt2_structs.h"
#include "pt2_sampler.h" // fixSampleBeep()
#include "pt2_audio.h"
#include "pt2_visuals.h"
#include "pt2_helpers.h"
#include "pt2_unicode.h"
#include "pt2_config.h"
#include "pt2_sampling.h"
#include "pt2_downsamplers2x.h"
enum
{
WAV_FORMAT_PCM = 0x0001,
WAV_FORMAT_IEEE_FLOAT = 0x0003
};
enum
{
SAMPLE_IFF = 0,
SAMPLE_AIFF = 1,
SAMPLE_WAV = 2
};
static int8_t loadedSampleType;
static bool loadWAVSample(UNICHAR *fileName, char *entryName, int8_t forceDownSampling);
static bool loadIFFSample(UNICHAR *fileName, char *entryName, int8_t forceDownSampling);
static bool loadRAWSample(UNICHAR *fileName, char *entryName);
static bool loadAIFFSample(UNICHAR *fileName, char *entryName, int8_t forceDownSampling);
void extLoadWAVOrAIFFSampleCallback(bool downsample)
{
switch (loadedSampleType)
{
case SAMPLE_IFF: loadIFFSample(editor.fileNameTmpU, editor.entryNameTmp, downsample); break;
case SAMPLE_AIFF: loadAIFFSample(editor.fileNameTmpU, editor.entryNameTmp, downsample); break;
case SAMPLE_WAV: loadWAVSample(editor.fileNameTmpU, editor.entryNameTmp, downsample); break;
default: break;
}
}
bool loadWAVSample(UNICHAR *fileName, char *entryName, int8_t forceDownSampling)
{
bool wavSampleNameFound;
uint8_t *audioDataU8;
int16_t *audioDataS16, tempVol;
uint16_t audioFormat, numChannels, bitsPerSample;
int32_t *audioDataS32, smp32;
uint32_t *audioDataU32, i, nameLen, chunkID, chunkSize;
uint32_t sampleLength, sampleRate, filesize, loopFlags;
uint32_t loopStart, loopEnd, dataPtr, dataLen, fmtPtr, endOfChunk, bytesRead;
uint32_t fmtLen, inamPtr, inamLen, smplPtr, smplLen, xtraPtr, xtraLen;
float *fAudioDataFloat;
double *dAudioDataDouble;
FILE *f;
moduleSample_t *s;
loadedSampleType = SAMPLE_WAV;
// zero out chunk pointers and lengths
fmtPtr = 0; fmtLen = 0;
dataPtr = 0; dataLen = 0;
inamPtr = 0; inamLen = 0;
xtraPtr = 0; xtraLen = 0;
smplPtr = 0; smplLen = 0;
wavSampleNameFound = false;
s = &song->samples[editor.currSample];
if (forceDownSampling == -1)
{
// these two *must* be fully wiped, for outputting reasons
memset(editor.fileNameTmpU, 0, PATH_MAX);
memset(editor.entryNameTmp, 0, PATH_MAX);
UNICHAR_STRCPY(editor.fileNameTmpU, fileName);
strcpy(editor.entryNameTmp, entryName);
}
f = UNICHAR_FOPEN(fileName, "rb");
if (f == NULL)
{
displayErrorMsg("FILE I/O ERROR !");
return false;
}
fseek(f, 0, SEEK_END);
filesize = ftell(f);
if (filesize == 0)
{
fclose(f);
displayErrorMsg("NOT A WAV !");
return false;
}
// look for wanted chunks and set up pointers + lengths
fseek(f, 12, SEEK_SET);
bytesRead = 0;
while (!feof(f) && bytesRead < filesize-12)
{
fread(&chunkID, 4, 1, f); if (feof(f)) break;
fread(&chunkSize, 4, 1, f); if (feof(f)) break;
endOfChunk = (ftell(f) + chunkSize) + (chunkSize & 1);
switch (chunkID)
{
case 0x20746D66: // "fmt "
{
fmtPtr = ftell(f);
fmtLen = chunkSize;
}
break;
case 0x61746164: // "data"
{
dataPtr = ftell(f);
dataLen = chunkSize;
}
break;
case 0x5453494C: // "LIST"
{
if (chunkSize >= 4)
{
fread(&chunkID, 4, 1, f);
if (chunkID == 0x4F464E49) // "INFO"
{
bytesRead = 0;
while (!feof(f) && (bytesRead < chunkSize))
{
fread(&chunkID, 4, 1, f);
fread(&chunkSize, 4, 1, f);
switch (chunkID)
{
case 0x4D414E49: // "INAM"
{
inamPtr = ftell(f);
inamLen = chunkSize;
}
break;
default: break;
}
bytesRead += (chunkSize + (chunkSize & 1));
}
}
}
}
break;
case 0x61727478: // "xtra"
{
xtraPtr = ftell(f);
xtraLen = chunkSize;
}
break;
case 0x6C706D73: // "smpl"
{
smplPtr = ftell(f);
smplLen = chunkSize;
}
break;
default: break;
}
bytesRead += chunkSize + (chunkSize & 1);
fseek(f, endOfChunk, SEEK_SET);
}
// we need at least "fmt " and "data" - check if we found them sanely
if ((fmtPtr == 0 || fmtLen < 16) || (dataPtr == 0 || dataLen == 0))
{
fclose(f);
displayErrorMsg("NOT A WAV !");
return false;
}
// ---- READ "fmt " CHUNK ----
fseek(f, fmtPtr, SEEK_SET);
fread(&audioFormat, 2, 1, f);
fread(&numChannels, 2, 1, f);
fread(&sampleRate, 4, 1, f);
fseek(f, 6, SEEK_CUR);
fread(&bitsPerSample, 2, 1, f);
sampleLength = dataLen;
// ---------------------------
if (sampleRate == 0 || sampleLength == 0 || sampleLength >= filesize*(bitsPerSample/8))
{
fclose(f);
displayErrorMsg("WAV CORRUPT !");
return false;
}
if (audioFormat != WAV_FORMAT_PCM && audioFormat != WAV_FORMAT_IEEE_FLOAT)
{
fclose(f);
displayErrorMsg("WAV UNSUPPORTED !");
return false;
}
if ((numChannels == 0) || (numChannels > 2))
{
fclose(f);
displayErrorMsg("WAV UNSUPPORTED !");
return false;
}
if (audioFormat == WAV_FORMAT_IEEE_FLOAT && bitsPerSample != 32 && bitsPerSample != 64)
{
fclose(f);
displayErrorMsg("WAV UNSUPPORTED !");
return false;
}
if (bitsPerSample != 8 && bitsPerSample != 16 && bitsPerSample != 24 && bitsPerSample != 32 && bitsPerSample != 64)
{
fclose(f);
displayErrorMsg("WAV UNSUPPORTED !");
return false;
}
if (sampleRate > 22050)
{
if (forceDownSampling == -1)
{
showDownsampleAskDialog();
fclose(f);
return true;
}
}
else
{
forceDownSampling = false;
}
// ---- READ SAMPLE DATA ----
fseek(f, dataPtr, SEEK_SET);
int8_t *smpPtr = &song->sampleData[editor.currSample * MAX_SAMPLE_LEN];
if (bitsPerSample == 8) // 8-BIT INTEGER SAMPLE
{
if (sampleLength > MAX_SAMPLE_LEN*4)
sampleLength = MAX_SAMPLE_LEN*4;
audioDataU8 = (uint8_t *)malloc(sampleLength * sizeof (uint8_t));
if (audioDataU8 == NULL)
{
fclose(f);
statusOutOfMemory();
return false;
}
// read sample data
if (fread(audioDataU8, 1, sampleLength, f) != sampleLength)
{
fclose(f);
free(audioDataU8);
displayErrorMsg("I/O ERROR !");
return false;
}
// convert from stereo to mono (if needed)
if (numChannels == 2)
{
sampleLength >>= 1;
for (i = 0; i < sampleLength-1; i++) // add right channel to left channel
{
smp32 = (audioDataU8[(i << 1) + 0] - 128) + (audioDataU8[(i << 1) + 1] - 128);
smp32 = 128 + (smp32 >> 1);
audioDataU8[i] = (uint8_t)smp32;
}
}
// 2x downsampling
if (forceDownSampling)
{
downsample2x8BitU(audioDataU8, sampleLength);
sampleLength >>= 1;
}
if (sampleLength > MAX_SAMPLE_LEN)
sampleLength = MAX_SAMPLE_LEN;
turnOffVoices();
for (i = 0; i < sampleLength; i++)
smpPtr[i] = audioDataU8[i] - 128;
free(audioDataU8);
}
else if (bitsPerSample == 16) // 16-BIT INTEGER SAMPLE
{
sampleLength >>= 1;
if (sampleLength > MAX_SAMPLE_LEN*4)
sampleLength = MAX_SAMPLE_LEN*4;
audioDataS16 = (int16_t *)malloc(sampleLength * sizeof (int16_t));
if (audioDataS16 == NULL)
{
fclose(f);
statusOutOfMemory();
return false;
}
// read sample data
if (fread(audioDataS16, 2, sampleLength, f) != sampleLength)
{
fclose(f);
free(audioDataS16);
displayErrorMsg("I/O ERROR !");
return false;
}
// convert from stereo to mono (if needed)
if (numChannels == 2)
{
sampleLength >>= 1;
for (i = 0; i < sampleLength-1; i++) // add right channel to left channel
audioDataS16[i] = (audioDataS16[(i << 1) + 0] + audioDataS16[(i << 1) + 1]) >> 1;;
}
// 2x downsampling
if (forceDownSampling)
{
downsample2x16Bit(audioDataS16, sampleLength);
sampleLength >>= 1;
}
if (sampleLength > MAX_SAMPLE_LEN)
sampleLength = MAX_SAMPLE_LEN;
double dAmp = 1.0;
if (forceDownSampling) // we already normalized
{
dAmp = INT8_MAX / (double)INT16_MAX;
}
else
{
const double dPeak = get16BitPeak(audioDataS16, sampleLength);
if (dPeak > 0.0)
dAmp = INT8_MAX / dPeak;
}
turnOffVoices();
for (i = 0; i < sampleLength; i++)
{
smp32 = (int32_t)round(audioDataS16[i] * dAmp);
assert(smp32 >= -128 && smp32 <= 127); // shouldn't happen according to dAmp (but just in case)
smpPtr[i] = (int8_t)smp32;
}
free(audioDataS16);
}
else if (bitsPerSample == 24) // 24-BIT INTEGER SAMPLE
{
sampleLength /= 3;
if (sampleLength > MAX_SAMPLE_LEN*4)
sampleLength = MAX_SAMPLE_LEN*4;
audioDataS32 = (int32_t *)malloc(sampleLength * sizeof (int32_t));
if (audioDataS32 == NULL)
{
fclose(f);
statusOutOfMemory();
return false;
}
// read sample data
audioDataU8 = (uint8_t *)audioDataS32;
for (i = 0; i < sampleLength; i++)
{
audioDataU8[0] = 0;
fread(&audioDataU8[1], 3, 1, f);
audioDataU8 += sizeof (int32_t);
}
// convert from stereo to mono (if needed)
if (numChannels == 2)
{
sampleLength >>= 1;
for (i = 0; i < sampleLength-1; i++) // add right channel to left channel
{
int64_t smp = ((int64_t)audioDataS32[(i << 1) + 0] + audioDataS32[(i << 1) + 1]) >> 1;
audioDataS32[i] = (int32_t)smp;
}
}
// 2x downsampling
if (forceDownSampling)
{
downsample2x32Bit(audioDataS32, sampleLength);
sampleLength >>= 1;
}
if (sampleLength > MAX_SAMPLE_LEN)
sampleLength = MAX_SAMPLE_LEN;
double dAmp = 1.0;
if (forceDownSampling) // we already normalized
{
dAmp = INT8_MAX / (double)INT32_MAX;
}
else
{
const double dPeak = get32BitPeak(audioDataS32, sampleLength);
if (dPeak > 0.0)
dAmp = INT8_MAX / dPeak;
}
turnOffVoices();
for (i = 0; i < sampleLength; i++)
{
smp32 = (int32_t)round(audioDataS32[i] * dAmp);
assert(smp32 >= -128 && smp32 <= 127); // shouldn't happen according to dAmp (but just in case)
smpPtr[i] = (int8_t)smp32;
}
free(audioDataS32);
}
else if (audioFormat == WAV_FORMAT_PCM && bitsPerSample == 32) // 32-BIT INTEGER SAMPLE
{
sampleLength >>= 2;
if (sampleLength > MAX_SAMPLE_LEN*4)
sampleLength = MAX_SAMPLE_LEN*4;
audioDataS32 = (int32_t *)malloc(sampleLength * sizeof (int32_t));
if (audioDataS32 == NULL)
{
fclose(f);
statusOutOfMemory();
return false;
}
// read sample data
if (fread(audioDataS32, 4, sampleLength, f) != sampleLength)
{
fclose(f);
free(audioDataS32);
displayErrorMsg("I/O ERROR !");
return false;
}
// convert from stereo to mono (if needed)
if (numChannels == 2)
{
sampleLength >>= 1;
for (i = 0; i < sampleLength-1; i++) // add right channel to left channel
{
int64_t smp = ((int64_t)audioDataS32[(i << 1) + 0] + audioDataS32[(i << 1) + 1]) >> 1;
audioDataS32[i] = (int32_t)smp;
}
}
// 2x downsampling
if (forceDownSampling)
{
downsample2x32Bit(audioDataS32, sampleLength);
sampleLength >>= 1;
}
if (sampleLength > MAX_SAMPLE_LEN)
sampleLength = MAX_SAMPLE_LEN;
double dAmp = 1.0;
if (forceDownSampling) // we already normalized
{
dAmp = INT8_MAX / (double)INT32_MAX;
}
else
{
const double dPeak = get32BitPeak(audioDataS32, sampleLength);
if (dPeak > 0.0)
dAmp = INT8_MAX / dPeak;
}
turnOffVoices();
for (i = 0; i < sampleLength; i++)
{
smp32 = (int32_t)round(audioDataS32[i] * dAmp);
assert(smp32 >= -128 && smp32 <= 127); // shouldn't happen according to dAmp (but just in case)
smpPtr[i] = (int8_t)smp32;
}
free(audioDataS32);
}
else if (audioFormat == WAV_FORMAT_IEEE_FLOAT && bitsPerSample == 32) // 32-BIT FLOATING POINT SAMPLE
{
sampleLength >>= 2;
if (sampleLength > MAX_SAMPLE_LEN*4)
sampleLength = MAX_SAMPLE_LEN*4;
audioDataU32 = (uint32_t *)malloc(sampleLength * sizeof (uint32_t));
if (audioDataU32 == NULL)
{
fclose(f);
statusOutOfMemory();
return false;
}
// read sample data
if (fread(audioDataU32, 4, sampleLength, f) != sampleLength)
{
fclose(f);
free(audioDataU32);
displayErrorMsg("I/O ERROR !");
return false;
}
fAudioDataFloat = (float *)audioDataU32;
// convert from stereo to mono (if needed)
if (numChannels == 2)
{
sampleLength >>= 1;
for (i = 0; i < sampleLength-1; i++) // add right channel to left channel
fAudioDataFloat[i] = (fAudioDataFloat[(i * 2) + 0] + fAudioDataFloat[(i * 2) + 1]) * 0.5f;
}
// 2x downsampling
if (forceDownSampling)
{
downsample2xFloat(fAudioDataFloat, sampleLength);
sampleLength >>= 1;
}
if (sampleLength > MAX_SAMPLE_LEN)
sampleLength = MAX_SAMPLE_LEN;
float fAmp = 1.0f;
const float fPeak = getFloatPeak(fAudioDataFloat, sampleLength);
if (fPeak > 0.0f)
fAmp = INT8_MAX / fPeak;
turnOffVoices();
for (i = 0; i < sampleLength; i++)
{
smp32 = (int32_t)roundf(fAudioDataFloat[i] * fAmp);
assert(smp32 >= -128 && smp32 <= 127); // shouldn't happen according to dAmp (but just in case)
smpPtr[i] = (int8_t)smp32;
}
free(audioDataU32);
}
else if (audioFormat == WAV_FORMAT_IEEE_FLOAT && bitsPerSample == 64) // 64-BIT FLOATING POINT SAMPLE
{
sampleLength >>= 3;
if (sampleLength > MAX_SAMPLE_LEN*4)
sampleLength = MAX_SAMPLE_LEN*4;
audioDataU32 = (uint32_t *)malloc(sampleLength * (sizeof (uint32_t) * 2));
if (audioDataU32 == NULL)
{
fclose(f);
statusOutOfMemory();
return false;
}
// read sample data
if (fread(audioDataU32, 8, sampleLength, f) != sampleLength)
{
fclose(f);
free(audioDataU32);
displayErrorMsg("I/O ERROR !");
return false;
}
dAudioDataDouble = (double *)audioDataU32;
// convert from stereo to mono (if needed)
if (numChannels == 2)
{
sampleLength >>= 1;
for (i = 0; i < sampleLength-1; i++) // add right channel to left channel
dAudioDataDouble[i] = (dAudioDataDouble[(i * 2) + 0] + dAudioDataDouble[(i * 2) + 1]) * 0.5;
}
// 2x downsampling
if (forceDownSampling)
{
downsample2xDouble(dAudioDataDouble, sampleLength);
sampleLength >>= 1;
}
if (sampleLength > MAX_SAMPLE_LEN)
sampleLength = MAX_SAMPLE_LEN;
double dAmp = 1.0;
const double dPeak = getDoublePeak(dAudioDataDouble, sampleLength);
if (dPeak > 0.0)
dAmp = INT8_MAX / dPeak;
turnOffVoices();
for (i = 0; i < sampleLength; i++)
{
smp32 = (int32_t)round(dAudioDataDouble[i] * dAmp);
assert(smp32 >= -128 && smp32 <= 127); // shouldn't happen according to dAmp (but just in case)
smpPtr[i] = (int8_t)smp32;
}
free(audioDataU32);
}
if (sampleLength < MAX_SAMPLE_LEN) // clear rest of sample data
memset(&song->sampleData[s->offset + sampleLength], 0, MAX_SAMPLE_LEN - sampleLength);
// set sample length
if (sampleLength & 1)
{
if (++sampleLength > MAX_SAMPLE_LEN)
sampleLength = MAX_SAMPLE_LEN;
}
s->length = (uint16_t)sampleLength;
s->fineTune = 0;
s->volume = 64;
s->loopStart = 0;
s->loopLength = 2;
// ---- READ "smpl" chunk ----
if (smplPtr != 0 && smplLen > 52)
{
fseek(f, smplPtr + 28, SEEK_SET); // seek to first wanted byte
fread(&loopFlags, 4, 1, f);
fseek(f, 12, SEEK_CUR);
fread(&loopStart, 4, 1, f);
fread(&loopEnd, 4, 1, f);
loopEnd++;
if (forceDownSampling)
{
// we already downsampled 2x, so we're half the original length
loopStart >>= 1;
loopEnd >>= 1;
}
loopStart &= 0xFFFFFFFE;
loopEnd &= 0xFFFFFFFE;
if (loopFlags)
{
if (loopStart+(loopEnd-loopStart) <= s->length)
{
s->loopStart = (uint16_t)loopStart;
s->loopLength = (uint16_t)(loopEnd - loopStart);
if (s->loopLength < 2)
{
s->loopStart = 0;
s->loopLength = 2;
}
}
}
}
// ---------------------------
// ---- READ "xtra" chunk ----
if (xtraPtr != 0 && xtraLen >= 8)
{
fseek(f, xtraPtr + 4, SEEK_SET); // seek to first wanted byte
// volume (0..256)
fseek(f, 2, SEEK_CUR);
fread(&tempVol, 2, 1, f);
if (tempVol > 256)
tempVol = 256;
tempVol >>= 2; // 0..256 -> 0..64
s->volume = (int8_t)tempVol;
}
// ---------------------------
// ---- READ "INAM" chunk ----
if (inamPtr != 0 && inamLen > 0)
{
fseek(f, inamPtr, SEEK_SET); // seek to first wanted byte
for (i = 0; i < 21; i++)
{
if (i < inamLen)
s->text[i] = (char)fgetc(f);
else
s->text[i] = '\0';
}
s->text[21] = '\0';
s->text[22] = '\0';
wavSampleNameFound = true;
}
// ---------------------------
fclose(f);
// copy over sample name
if (!wavSampleNameFound)
{
nameLen = (uint32_t)strlen(entryName);
for (i = 0; i < 21; i++)
s->text[i] = (i < nameLen) ? (char)entryName[i] : '\0';
s->text[21] = '\0';
s->text[22] = '\0';
}
// remove .wav from end of sample name (if present)
nameLen = (uint32_t)strlen(s->text);
if (nameLen >= 4 && !_strnicmp(&s->text[nameLen-4], ".WAV", 4))
memset(&s->text[nameLen-4], '\0', 4);
editor.sampleZero = false;
editor.samplePos = 0;
fixSampleBeep(s);
fillSampleRedoBuffer(editor.currSample);
if (ui.samplingBoxShown)
{
removeSamplingBox();
ui.samplingBoxShown = false;
}
updateCurrSample();
updateWindowTitle(MOD_IS_MODIFIED);
return true;
}
bool loadIFFSample(UNICHAR *fileName, char *entryName, int8_t forceDownSampling)
{
bool nameFound, is16Bit;
char tmpCharBuf[23];
int8_t *sampleData;
int16_t *ptr16;
int32_t filesize, smp32;
uint16_t sampleRate;
uint32_t i, sampleLength, sampleLoopStart, sampleLoopLength;
uint32_t sampleVolume, blockName, blockSize;
uint32_t vhdrPtr, vhdrLen, bodyPtr, bodyLen, namePtr, nameLen;
FILE *f;
moduleSample_t *s;
loadedSampleType = SAMPLE_IFF;
s = &song->samples[editor.currSample];
vhdrPtr = 0; vhdrLen = 0;
bodyPtr = 0; bodyLen = 0;
namePtr = 0; nameLen = 0;
if (forceDownSampling == -1)
{
// these two *must* be fully wiped, for outputting reasons
memset(editor.fileNameTmpU, 0, PATH_MAX);
memset(editor.entryNameTmp, 0, PATH_MAX);
UNICHAR_STRCPY(editor.fileNameTmpU, fileName);
strcpy(editor.entryNameTmp, entryName);
}
f = UNICHAR_FOPEN(fileName, "rb");
if (f == NULL)
{
displayErrorMsg("FILE I/O ERROR !");
return false;
}
fseek(f, 0, SEEK_END);
filesize = ftell(f);
if (filesize == 0)
{
displayErrorMsg("IFF IS CORRUPT !");
return false;
}
fseek(f, 8, SEEK_SET);
fread(tmpCharBuf, 1, 4, f);
is16Bit = !strncmp(tmpCharBuf, "16SV", 4);
sampleLength = 0;
nameFound = false;
sampleVolume = 65536; // max volume
fseek(f, 12, SEEK_SET);
while (!feof(f) && ftell(f) < filesize-12)
{
fread(&blockName, 4, 1, f); if (feof(f)) break;
fread(&blockSize, 4, 1, f); if (feof(f)) break;
blockName = SWAP32(blockName);
blockSize = SWAP32(blockSize);
switch (blockName)
{
case 0x56484452: // VHDR
{
vhdrPtr = ftell(f);
vhdrLen = blockSize;
}
break;
case 0x4E414D45: // NAME
{
namePtr = ftell(f);
nameLen = blockSize;
}
break;
case 0x424F4459: // BODY
{
bodyPtr = ftell(f);
bodyLen = blockSize;
}
break;
default: break;
}
fseek(f, blockSize + (blockSize & 1), SEEK_CUR);
}
if (vhdrPtr == 0 || vhdrLen < 20 || bodyPtr == 0)
{
fclose(f);
displayErrorMsg("NOT A VALID IFF !");
return false;
}
// kludge for some really strange IFFs
if (bodyLen == 0)
bodyLen = filesize - bodyPtr;
if (bodyPtr+bodyLen > (uint32_t)filesize)
bodyLen = filesize - bodyPtr;
fseek(f, vhdrPtr, SEEK_SET);
fread(&sampleLoopStart, 4, 1, f); sampleLoopStart = SWAP32(sampleLoopStart);
fread(&sampleLoopLength, 4, 1, f); sampleLoopLength = SWAP32(sampleLoopLength);
fseek(f, 4, SEEK_CUR);
fread(&sampleRate, 2, 1, f); sampleRate = SWAP16(sampleRate);
fseek(f, 1, SEEK_CUR);
if (fgetc(f) != 0) // sample type
{
fclose(f);
displayErrorMsg("UNSUPPORTED IFF !");
return false;
}
fread(&sampleVolume, 4, 1, f); sampleVolume = SWAP32(sampleVolume);
if (sampleVolume > 65536)
sampleVolume = 65536;
sampleVolume = (sampleVolume + 512) / 1024; // rounded
if (sampleVolume > 64)
sampleVolume = 64;
sampleLength = bodyLen;
if (sampleLength == 0)
{
fclose(f);
displayErrorMsg("NOT A VALID IFF !");
return false;
}
if (sampleRate > 22050)
{
if (forceDownSampling == -1)
{
showDownsampleAskDialog();
fclose(f);
return true;
}
}
else
{
forceDownSampling = false;
}
uint32_t maxSampleLength = MAX_SAMPLE_LEN;
if (is16Bit)
maxSampleLength *= 2;
if (forceDownSampling)
maxSampleLength *= 2;
if (sampleLength > maxSampleLength)
sampleLength = maxSampleLength;
sampleData = (int8_t *)malloc(sampleLength);
if (sampleData == NULL)
{
fclose(f);
statusOutOfMemory();
return false;
}
if (is16Bit)
{
sampleLength >>= 1;
sampleLoopStart >>= 1;
sampleLoopLength >>= 1;
}
if (forceDownSampling)
{
sampleLoopStart >>= 1;
sampleLoopLength >>= 1;
}
turnOffVoices();
fseek(f, bodyPtr, SEEK_SET);
if (is16Bit) // FT2-specific 16SV format (little-endian samples)
{
fread(sampleData, 1, sampleLength << 1, f);
ptr16 = (int16_t *)sampleData;
// 2x downsampling
if (forceDownSampling)
{
downsample2x16Bit(ptr16, sampleLength);
sampleLength >>= 1;
}
if (sampleLength > MAX_SAMPLE_LEN)
sampleLength = MAX_SAMPLE_LEN;
double dAmp = 1.0;
if (forceDownSampling) // we already normalized
{
dAmp = INT8_MAX / (double)INT16_MAX;
}
else
{
const double dPeak = get16BitPeak(ptr16, sampleLength);
if (dPeak > 0.0)
dAmp = INT8_MAX / dPeak;
}
int8_t *smpPtr = &song->sampleData[s->offset];
for (i = 0; i < sampleLength; i++)
{
smp32 = (int32_t)round(ptr16[i] * dAmp);
assert(smp32 >= -128 && smp32 <= 127); // shouldn't happen according to dAmp (but just in case)
smpPtr[i] = (int8_t)smp32;
}
}
else
{
fread(sampleData, 1, sampleLength, f);
// 2x downsampling
if (forceDownSampling)
{
downsample2x8Bit(sampleData, sampleLength);
sampleLength >>= 1;
}
if (sampleLength > MAX_SAMPLE_LEN)
sampleLength = MAX_SAMPLE_LEN;
memcpy(&song->sampleData[s->offset], sampleData, sampleLength);
}
free(sampleData);
if (sampleLength < MAX_SAMPLE_LEN) // clear rest of sample data
memset(&song->sampleData[s->offset + sampleLength], 0, MAX_SAMPLE_LEN - sampleLength);
// set sample length
if (sampleLength & 1)
{
if (++sampleLength > MAX_SAMPLE_LEN)
sampleLength = MAX_SAMPLE_LEN;
}
sampleLoopStart &= 0xFFFFFFFE;
sampleLoopLength &= 0xFFFFFFFE;
if (sampleLoopLength < 2)
{
sampleLoopStart = 0;
sampleLoopLength = 2;
}
if (sampleLoopStart >= sampleLength || sampleLoopLength > sampleLength)
{
sampleLoopStart = 0;
sampleLoopLength = 2;
}
if (sampleLoopStart+sampleLoopLength > sampleLength)
{
sampleLoopStart = 0;
sampleLoopLength = 2;
}
if (sampleLoopStart > sampleLength-2)
{
sampleLoopStart = 0;
sampleLoopLength = 2;
}
// set sample attributes
s->volume = (int8_t)sampleVolume;
s->fineTune = 0;
s->length = (uint16_t)sampleLength;
s->loopStart = (uint16_t)sampleLoopStart;
s->loopLength = (uint16_t)sampleLoopLength;
// read name
if (namePtr != 0 && nameLen > 0)
{
fseek(f, namePtr, SEEK_SET);
memset(tmpCharBuf, 0, sizeof (tmpCharBuf));
if (nameLen > 21)
{
fread(tmpCharBuf, 1, 21, f);
fseek(f, nameLen - 21, SEEK_CUR);
}
else
{
fread(tmpCharBuf, 1, nameLen, f);
}
nameFound = true;
}
fclose(f);
// copy over sample name
memset(s->text, '\0', sizeof (s->text));
if (nameFound)
{
nameLen = (uint32_t)strlen(tmpCharBuf);
if (nameLen > 21)
nameLen = 21;
memcpy(s->text, tmpCharBuf, nameLen);
}
else
{
nameLen = (uint32_t)strlen(entryName);
if (nameLen > 21)
nameLen = 21;
memcpy(s->text, entryName, nameLen);
}
// remove .iff from end of sample name (if present)
nameLen = (uint32_t)strlen(s->text);
if (nameLen >= 4 && !strncmp(&s->text[nameLen-4], ".IFF", 4))
memset(&s->text[nameLen-4], '\0', 4);
editor.sampleZero = false;
editor.samplePos = 0;
fixSampleBeep(s);
fillSampleRedoBuffer(editor.currSample);
updateCurrSample();
updateWindowTitle(MOD_IS_MODIFIED);
return false;
}
bool loadRAWSample(UNICHAR *fileName, char *entryName)
{
uint8_t i;
uint32_t nameLen, fileSize;
FILE *f;
moduleSample_t *s;
s = &song->samples[editor.currSample];
f = UNICHAR_FOPEN(fileName, "rb");
if (f == NULL)
{
displayErrorMsg("FILE I/O ERROR !");
return false;
}
fseek(f, 0, SEEK_END);
fileSize = ftell(f);
fseek(f, 0, SEEK_SET);
fileSize &= 0xFFFFFFFE;
if (fileSize > MAX_SAMPLE_LEN)
fileSize = MAX_SAMPLE_LEN;
turnOffVoices();
fread(&song->sampleData[s->offset], 1, fileSize, f);
fclose(f);
if (fileSize < MAX_SAMPLE_LEN)
memset(&song->sampleData[s->offset + fileSize], 0, MAX_SAMPLE_LEN - fileSize);
// set sample attributes
s->volume = 64;
s->fineTune = 0;
s->length = (uint16_t)fileSize;
s->loopStart = 0;
s->loopLength = 2;
// copy over sample name
nameLen = (uint32_t)strlen(entryName);
for (i = 0; i < 21; i++)
s->text[i] = (i < nameLen) ? (char)entryName[i] : '\0';
s->text[21] = '\0';
s->text[22] = '\0';
editor.sampleZero = false;
editor.samplePos = 0;
fixSampleBeep(s);
fillSampleRedoBuffer(editor.currSample);
if (ui.samplingBoxShown)
{
removeSamplingBox();
ui.samplingBoxShown = false;
}
updateCurrSample();
updateWindowTitle(MOD_IS_MODIFIED);
return true;
}
static int32_t getAIFFRate(uint8_t *in)
{
int32_t exp;
uint32_t lo, hi;
double dOut;
exp = (int32_t)(((in[0] & 0x7F) << 8) | in[1]);
lo = (in[2] << 24) | (in[3] << 16) | (in[4] << 8) | in[5];
hi = (in[6] << 24) | (in[7] << 16) | (in[8] << 8) | in[9];
if (exp == 0 && lo == 0 && hi == 0)
return 0;
exp -= 16383;
dOut = ldexp(lo, -31 + exp) + ldexp(hi, -63 + exp);
return (int32_t)(dOut + 0.5);
}
bool loadAIFFSample(UNICHAR *fileName, char *entryName, int8_t forceDownSampling)
{
bool unsigned8bit;
char compType[4];
int8_t *audioDataS8;
uint8_t *audioDataU8, sampleRateBytes[10];
int16_t *audioDataS16;
uint16_t bitDepth, numChannels;
int32_t filesize, *audioDataS32, smp32;
uint32_t nameLen, i, offset, sampleRate, sampleLength, blockName, blockSize;
uint32_t commPtr, commLen, ssndPtr, ssndLen;
FILE *f;
moduleSample_t *s;
unsigned8bit = false;
loadedSampleType = SAMPLE_AIFF;
if (forceDownSampling == -1)
{
// these two *must* be fully wiped, for outputting reasons
memset(editor.fileNameTmpU, 0, PATH_MAX);
memset(editor.entryNameTmp, 0, PATH_MAX);
UNICHAR_STRCPY(editor.fileNameTmpU, fileName);
strcpy(editor.entryNameTmp, entryName);
}
s = &song->samples[editor.currSample];
commPtr = 0; commLen = 0;
ssndPtr = 0; ssndLen = 0;
f = UNICHAR_FOPEN(fileName, "rb");
if (f == NULL)
{
displayErrorMsg("FILE I/O ERROR !");
return false;
}
fseek(f, 0, SEEK_END);
filesize = ftell(f);
if (filesize == 0)
{
displayErrorMsg("AIFF IS CORRUPT !");
return false;
}
fseek(f, 12, SEEK_SET);
while (!feof(f) && ftell(f) < filesize-12)
{
fread(&blockName, 4, 1, f); if (feof(f)) break;
fread(&blockSize, 4, 1, f); if (feof(f)) break;
blockName = SWAP32(blockName);
blockSize = SWAP32(blockSize);
switch (blockName)
{
case 0x434F4D4D: // "COMM"
{
commPtr = ftell(f);
commLen = blockSize;
}
break;
case 0x53534E44: // "SSND"
{
ssndPtr = ftell(f);
ssndLen = blockSize;
}
break;
default: break;
}
fseek(f, blockSize + (blockSize & 1), SEEK_CUR);
}
if (commPtr == 0 || commLen < 18 || ssndPtr == 0)
{
fclose(f);
displayErrorMsg("NOT A VALID AIFF!");
return false;
}
// kludge for some really strange AIFFs
if (ssndLen == 0)
ssndLen = filesize - ssndPtr;
if (ssndPtr+ssndLen > (uint32_t)filesize)
ssndLen = filesize - ssndPtr;
fseek(f, commPtr, SEEK_SET);
fread(&numChannels, 2, 1, f); numChannels = SWAP16(numChannels);
fseek(f, 4, SEEK_CUR);
fread(&bitDepth, 2, 1, f); bitDepth = SWAP16(bitDepth);
fread(sampleRateBytes, 1, 10, f);
fseek(f, 4 + 2 + 1, SEEK_CUR);
if (numChannels != 1 && numChannels != 2) // sample type
{
fclose(f);
displayErrorMsg("UNSUPPORTED AIFF!");
return false;
}
if (bitDepth != 8 && bitDepth != 16 && bitDepth != 24 && bitDepth != 32)
{
fclose(f);
displayErrorMsg("UNSUPPORTED AIFF!");
return false;
}
// read compression type (if present)
if (commLen > 18)
{
fread(&compType, 1, 4, f);
if (memcmp(compType, "NONE", 4))
{
fclose(f);
displayErrorMsg("UNSUPPORTED AIFF!");
return false;
}
}
sampleRate = getAIFFRate(sampleRateBytes);
// sample data chunk
fseek(f, ssndPtr, SEEK_SET);
fread(&offset, 4, 1, f);
if (offset > 0)
{
fclose(f);
displayErrorMsg("UNSUPPORTED AIFF!");
return false;
}
fseek(f, 4, SEEK_CUR);
ssndLen -= 8; // don't include offset and blockSize datas
sampleLength = ssndLen;
if (sampleLength == 0)
{
fclose(f);
displayErrorMsg("NOT A VALID AIFF!");
return false;
}
if (sampleRate > 22050)
{
if (forceDownSampling == -1)
{
showDownsampleAskDialog();
fclose(f);
return true;
}
}
else
{
forceDownSampling = false;
}
int8_t *smpPtr = &song->sampleData[editor.currSample * MAX_SAMPLE_LEN];
if (bitDepth == 8) // 8-BIT INTEGER SAMPLE
{
if (sampleLength > MAX_SAMPLE_LEN*4)
sampleLength = MAX_SAMPLE_LEN*4;
audioDataS8 = (int8_t *)malloc(sampleLength * sizeof (int8_t));
if (audioDataS8 == NULL)
{
fclose(f);
statusOutOfMemory();
return false;
}
// read sample data
if (fread(audioDataS8, 1, sampleLength, f) != sampleLength)
{
fclose(f);
free(audioDataS8);
displayErrorMsg("I/O ERROR !");
return false;
}
if (unsigned8bit)
{
for (i = 0; i < sampleLength; i++)
audioDataS8[i] ^= 0x80;
}
// convert from stereo to mono (if needed)
if (numChannels == 2)
{
sampleLength >>= 1;
for (i = 0; i < sampleLength-1; i++) // add right channel to left channel
audioDataS8[i] = (audioDataS8[(i * 2) + 0] + audioDataS8[(i * 2) + 1]) >> 1;;
}
// 2x downsampling
if (forceDownSampling)
{
downsample2x8Bit(audioDataS8, sampleLength);
sampleLength >>= 1;
}
if (sampleLength > MAX_SAMPLE_LEN)
sampleLength = MAX_SAMPLE_LEN;
turnOffVoices();
for (i = 0; i < sampleLength; i++)
smpPtr[i] = audioDataS8[i];
free(audioDataS8);
}
else if (bitDepth == 16) // 16-BIT INTEGER SAMPLE
{
sampleLength >>= 1;
if (sampleLength > MAX_SAMPLE_LEN*4)
sampleLength = MAX_SAMPLE_LEN*4;
audioDataS16 = (int16_t *)malloc(sampleLength * sizeof (int16_t));
if (audioDataS16 == NULL)
{
fclose(f);
statusOutOfMemory();
return false;
}
// read sample data
if (fread(audioDataS16, 2, sampleLength, f) != sampleLength)
{
fclose(f);
free(audioDataS16);
displayErrorMsg("I/O ERROR !");
return false;
}
// fix endianness
for (i = 0; i < sampleLength; i++)
audioDataS16[i] = SWAP16(audioDataS16[i]);
// convert from stereo to mono (if needed)
if (numChannels == 2)
{
sampleLength >>= 1;
for (i = 0; i < sampleLength-1; i++) // add right channel to left channel
audioDataS16[i] = (audioDataS16[(i << 1) + 0] + audioDataS16[(i << 1) + 1]) >> 1;
}
// 2x downsampling
if (forceDownSampling)
{
downsample2x16Bit(audioDataS16, sampleLength);
sampleLength >>= 1;
}
if (sampleLength > MAX_SAMPLE_LEN)
sampleLength = MAX_SAMPLE_LEN;
double dAmp = 1.0;
if (forceDownSampling) // we already normalized
{
dAmp = INT8_MAX / (double)INT16_MAX;
}
else
{
const double dPeak = get16BitPeak(audioDataS16, sampleLength);
if (dPeak > 0.0)
dAmp = INT8_MAX / dPeak;
}
turnOffVoices();
for (i = 0; i < sampleLength; i++)
{
smp32 = (int32_t)round(audioDataS16[i] * dAmp);
assert(smp32 >= -128 && smp32 <= 127); // shouldn't happen according to dAmp (but just in case)
smpPtr[i] = (int8_t)smp32;
}
free(audioDataS16);
}
else if (bitDepth == 24) // 24-BIT INTEGER SAMPLE
{
sampleLength /= 3;
if (sampleLength > MAX_SAMPLE_LEN*4)
sampleLength = MAX_SAMPLE_LEN*4;
audioDataS32 = (int32_t *)malloc(sampleLength * sizeof (int32_t));
if (audioDataS32 == NULL)
{
fclose(f);
statusOutOfMemory();
return false;
}
// read sample data
if (fread(&audioDataS32[sampleLength >> 2], 3, sampleLength, f) != sampleLength)
{
fclose(f);
free(audioDataS32);
displayErrorMsg("I/O ERROR !");
return false;
}
// convert to 32-bit
audioDataU8 = (uint8_t *)audioDataS32 + sampleLength;
for (i = 0; i < sampleLength; i++)
{
audioDataS32[i] = (audioDataU8[0] << 24) | (audioDataU8[1] << 16) | (audioDataU8[2] << 8);
audioDataU8 += 3;
}
// convert from stereo to mono (if needed)
if (numChannels == 2)
{
sampleLength >>= 1;
for (i = 0; i < sampleLength-1; i++) // add right channel to left channel
{
int64_t smp = ((int64_t)audioDataS32[(i << 1) + 0] + audioDataS32[(i << 1) + 1]) >> 1;
audioDataS32[i] = (int32_t)smp;
}
}
// 2x downsampling
if (forceDownSampling)
{
downsample2x32Bit(audioDataS32, sampleLength);
sampleLength >>= 1;
}
if (sampleLength > MAX_SAMPLE_LEN)
sampleLength = MAX_SAMPLE_LEN;
double dAmp = 1.0;
if (forceDownSampling) // we already normalized
{
dAmp = INT8_MAX / (double)INT32_MAX;
}
else
{
const double dPeak = get32BitPeak(audioDataS32, sampleLength);
if (dPeak > 0.0)
dAmp = INT8_MAX / dPeak;
}
turnOffVoices();
for (i = 0; i < sampleLength; i++)
{
smp32 = (int32_t)round(audioDataS32[i] * dAmp);
smpPtr[i] = (int8_t)smp32;
}
free(audioDataS32);
}
else if (bitDepth == 32) // 32-BIT INTEGER SAMPLE
{
sampleLength >>= 2;
if (sampleLength > MAX_SAMPLE_LEN*4)
sampleLength = MAX_SAMPLE_LEN*4;
audioDataS32 = (int32_t *)malloc(sampleLength * sizeof (int32_t));
if (audioDataS32 == NULL)
{
fclose(f);
statusOutOfMemory();
return false;
}
// read sample data
if (fread(audioDataS32, 4, sampleLength, f) != sampleLength)
{
fclose(f);
free(audioDataS32);
displayErrorMsg("I/O ERROR !");
return false;
}
// fix endianness
for (i = 0; i < sampleLength; i++)
audioDataS32[i] = SWAP32(audioDataS32[i]);
// convert from stereo to mono (if needed)
if (numChannels == 2)
{
sampleLength >>= 1;
for (i = 0; i < sampleLength-1; i++) // add right channel to left channel
{
int64_t smp = ((int64_t)audioDataS32[(i << 1) + 0] + audioDataS32[(i << 1) + 1]) >> 1;
audioDataS32[i] = (int32_t)smp;
}
}
// 2x downsampling
if (forceDownSampling)
{
downsample2x32Bit(audioDataS32, sampleLength);
sampleLength >>= 1;
}
if (sampleLength > MAX_SAMPLE_LEN)
sampleLength = MAX_SAMPLE_LEN;
double dAmp = 1.0;
if (forceDownSampling) // we already normalized
{
dAmp = INT8_MAX / (double)INT32_MAX;
}
else
{
const double dPeak = get32BitPeak(audioDataS32, sampleLength);
if (dPeak > 0.0)
dAmp = INT8_MAX / dPeak;
}
turnOffVoices();
for (i = 0; i < sampleLength; i++)
{
smp32 = (int32_t)round(audioDataS32[i] * dAmp);
smpPtr[i] = (int8_t)smp32;
}
free(audioDataS32);
}
if (sampleLength < MAX_SAMPLE_LEN) // clear rest of sample data
memset(&song->sampleData[s->offset + sampleLength], 0, MAX_SAMPLE_LEN - sampleLength);
// set sample length
if (sampleLength & 1)
{
if (++sampleLength > MAX_SAMPLE_LEN)
sampleLength = MAX_SAMPLE_LEN;
}
s->length = (uint16_t)sampleLength;
s->fineTune = 0;
s->volume = 64;
s->loopStart = 0;
s->loopLength = 2;
fclose(f);
// copy over sample name
nameLen = (uint32_t)strlen(entryName);
for (i = 0; i < 21; i++)
s->text[i] = (i < nameLen) ? (char)entryName[i] : '\0';
s->text[21] = '\0';
s->text[22] = '\0';
// remove .aiff from end of sample name (if present)
nameLen = (uint32_t)strlen(s->text);
if (nameLen >= 5 && !_strnicmp(&s->text[nameLen-5], ".AIFF", 5))
memset(&s->text[nameLen-5], '\0', 5);
editor.sampleZero = false;
editor.samplePos = 0;
fixSampleBeep(s);
fillSampleRedoBuffer(editor.currSample);
if (ui.samplingBoxShown)
{
removeSamplingBox();
ui.samplingBoxShown = false;
}
updateCurrSample();
updateWindowTitle(MOD_IS_MODIFIED);
return true;
}
bool loadSample(UNICHAR *fileName, char *entryName)
{
uint32_t fileSize, ID;
FILE *f;
if (editor.sampleZero)
{
statusNotSampleZero();
return false;
}
f = UNICHAR_FOPEN(fileName, "rb");
if (f == NULL)
{
displayErrorMsg("FILE I/O ERROR !");
return false;
}
fseek(f, 0, SEEK_END);
fileSize = ftell(f);
fseek(f, 0, SEEK_SET);
// first, check heades before we eventually load as RAW
if (fileSize > 16)
{
fread(&ID, 4, 1, f);
/* Reject FLAC files, since they are not supported.
** This is a dumb test since any sample *could* start
** with "fLaC", but in 99.999% of cases it won't happen.
*/
if (ID == 0x43614C66) // "fLaC"
{
displayErrorMsg("NOT SUPPORTED !");
return false;
}
// check if it's actually a WAV sample
if (ID == 0x46464952) // "RIFF"
{
fseek(f, 4, SEEK_CUR);
fread(&ID, 4, 1, f);
if (ID == 0x45564157) // "WAVE"
{
fclose(f);
return loadWAVSample(fileName, entryName, -1);
}
}
else if (ID == 0x4D524F46) // "FORM"
{
fseek(f, 4, SEEK_CUR);
fread(&ID, 4, 1, f);
// check if it's an Amiga IFF sample
if (ID == 0x58565338 || ID == 0x56533631) // "8SVX" (normal) and "16SV" (FT2 sample)
{
fclose(f);
return loadIFFSample(fileName, entryName, -1);
}
// check if it's an AIFF sample
else if (ID == 0x46464941) // "AIFF"
{
fclose(f);
return loadAIFFSample(fileName, entryName, -1);
}
else if (ID == 0x43464941) // "AIFC" (compressed AIFF)
{
fclose(f);
displayErrorMsg("UNSUPPORTED AIFF!");
return false;
}
}
}
// nope, continue loading as RAW
fclose(f);
return loadRAWSample(fileName, entryName);
}