diff options
Diffstat (limited to 'gst/modplug/libmodplug/load_wav.cpp')
| -rw-r--r-- | gst/modplug/libmodplug/load_wav.cpp | 220 |
1 files changed, 220 insertions, 0 deletions
diff --git a/gst/modplug/libmodplug/load_wav.cpp b/gst/modplug/libmodplug/load_wav.cpp new file mode 100644 index 00000000..3bcd1328 --- /dev/null +++ b/gst/modplug/libmodplug/load_wav.cpp @@ -0,0 +1,220 @@ +/* + * This source code is public domain. + * + * Authors: Olivier Lapicque <olivierl@jps.net> +*/ + +#include "stdafx.h" +#include "sndfile.h" + +#ifndef WAVE_FORMAT_EXTENSIBLE +#define WAVE_FORMAT_EXTENSIBLE 0xFFFE +#endif + +///////////////////////////////////////////////////////////// +// WAV file support + +BOOL CSoundFile::ReadWav(const BYTE *lpStream, DWORD dwMemLength) +//--------------------------------------------------------------- +{ + DWORD dwMemPos = 0; + WAVEFILEHEADER *phdr = (WAVEFILEHEADER *)lpStream; + WAVEFORMATHEADER *pfmt = (WAVEFORMATHEADER *)(lpStream + sizeof(WAVEFILEHEADER)); + if ((!lpStream) || (dwMemLength < (DWORD)sizeof(WAVEFILEHEADER))) return FALSE; + if ((phdr->id_RIFF != IFFID_RIFF) || (phdr->id_WAVE != IFFID_WAVE) + || (pfmt->id_fmt != IFFID_fmt)) return FALSE; + dwMemPos = sizeof(WAVEFILEHEADER) + 8 + pfmt->hdrlen; + if ((dwMemPos + 8 >= dwMemLength) + || ((pfmt->format != WAVE_FORMAT_PCM) && (pfmt->format != WAVE_FORMAT_EXTENSIBLE)) + || (pfmt->channels > 4) + || (!pfmt->channels) + || (!pfmt->freqHz) + || (pfmt->bitspersample & 7) + || (pfmt->bitspersample < 8) + || (pfmt->bitspersample > 32)) return FALSE; + WAVEDATAHEADER *pdata; + for (;;) + { + pdata = (WAVEDATAHEADER *)(lpStream + dwMemPos); + if (pdata->id_data == IFFID_data) break; + dwMemPos += pdata->length + 8; + if (dwMemPos + 8 >= dwMemLength) return FALSE; + } + m_nType = MOD_TYPE_WAV; + m_nSamples = 0; + m_nInstruments = 0; + m_nChannels = 4; + m_nDefaultSpeed = 8; + m_nDefaultTempo = 125; + m_dwSongFlags |= SONG_LINEARSLIDES; // For no resampling + Order[0] = 0; + Order[1] = 0xFF; + PatternSize[0] = PatternSize[1] = 64; + if ((Patterns[0] = AllocatePattern(64, 4)) == NULL) return TRUE; + if ((Patterns[1] = AllocatePattern(64, 4)) == NULL) return TRUE; + UINT samplesize = (pfmt->channels * pfmt->bitspersample) >> 3; + UINT len = pdata->length, bytelen; + if (dwMemPos + len > dwMemLength - 8) len = dwMemLength - dwMemPos - 8; + len /= samplesize; + bytelen = len; + if (pfmt->bitspersample >= 16) bytelen *= 2; + if (len > MAX_SAMPLE_LENGTH) len = MAX_SAMPLE_LENGTH; + if (!len) return TRUE; + // Setting up module length + DWORD dwTime = ((len * 50) / pfmt->freqHz) + 1; + DWORD framesperrow = (dwTime + 63) / 63; + if (framesperrow < 4) framesperrow = 4; + UINT norders = 1; + while (framesperrow >= 0x20) + { + Order[norders++] = 1; + Order[norders] = 0xFF; + framesperrow = (dwTime + (64 * norders - 1)) / (64 * norders); + if (norders >= MAX_ORDERS-1) break; + } + m_nDefaultSpeed = framesperrow; + for (UINT iChn=0; iChn<4; iChn++) + { + ChnSettings[iChn].nPan = (iChn & 1) ? 256 : 0; + ChnSettings[iChn].nVolume = 64; + ChnSettings[iChn].dwFlags = 0; + } + // Setting up speed command + MODCOMMAND *pcmd = Patterns[0]; + pcmd[0].command = CMD_SPEED; + pcmd[0].param = (BYTE)m_nDefaultSpeed; + pcmd[0].note = 5*12+1; + pcmd[0].instr = 1; + pcmd[1].note = pcmd[0].note; + pcmd[1].instr = pcmd[0].instr; + m_nSamples = pfmt->channels; + // Support for Multichannel Wave + for (UINT nChn=0; nChn<m_nSamples; nChn++) + { + MODINSTRUMENT *pins = &Ins[nChn+1]; + pcmd[nChn].note = pcmd[0].note; + pcmd[nChn].instr = (BYTE)(nChn+1); + pins->nLength = len; + pins->nC4Speed = pfmt->freqHz; + pins->nVolume = 256; + pins->nPan = 128; + pins->nGlobalVol = 64; + pins->uFlags = (WORD)((pfmt->bitspersample >= 16) ? CHN_16BIT : 0); + pins->uFlags |= CHN_PANNING; + if (m_nSamples > 1) + { + switch(nChn) + { + case 0: pins->nPan = 0; break; + case 1: pins->nPan = 256; break; + case 2: pins->nPan = (WORD)((m_nSamples == 3) ? 128 : 64); pcmd[nChn].command = CMD_S3MCMDEX; pcmd[nChn].param = 0x91; break; + case 3: pins->nPan = 192; pcmd[nChn].command = CMD_S3MCMDEX; pcmd[nChn].param = 0x91; break; + default: pins->nPan = 128; break; + } + } + if ((pins->pSample = AllocateSample(bytelen+8)) == NULL) return TRUE; + if (pfmt->bitspersample >= 16) + { + int slsize = pfmt->bitspersample >> 3; + signed short *p = (signed short *)pins->pSample; + signed char *psrc = (signed char *)(lpStream+dwMemPos+8+nChn*slsize+slsize-2); + for (UINT i=0; i<len; i++) + { + p[i] = *((signed short *)psrc); + psrc += samplesize; + } + p[len+1] = p[len] = p[len-1]; + } else + { + signed char *p = (signed char *)pins->pSample; + signed char *psrc = (signed char *)(lpStream+dwMemPos+8+nChn); + for (UINT i=0; i<len; i++) + { + p[i] = (signed char)((*psrc) + 0x80); + psrc += samplesize; + } + p[len+1] = p[len] = p[len-1]; + } + } + return TRUE; +} + + +//////////////////////////////////////////////////////////////////////// +// IMA ADPCM Support + +#pragma pack(1) + +typedef struct IMAADPCMBLOCK +{ + WORD sample; + BYTE index; + BYTE Reserved; +} DVI_ADPCMBLOCKHEADER; + +#pragma pack() + +static const int gIMAUnpackTable[90] = +{ + 7, 8, 9, 10, 11, 12, 13, 14, + 16, 17, 19, 21, 23, 25, 28, 31, + 34, 37, 41, 45, 50, 55, 60, 66, + 73, 80, 88, 97, 107, 118, 130, 143, + 157, 173, 190, 209, 230, 253, 279, 307, + 337, 371, 408, 449, 494, 544, 598, 658, + 724, 796, 876, 963, 1060, 1166, 1282, 1411, + 1552, 1707, 1878, 2066, 2272, 2499, 2749, 3024, + 3327, 3660, 4026, 4428, 4871, 5358, 5894, 6484, + 7132, 7845, 8630, 9493, 10442, 11487, 12635, 13899, + 15289, 16818, 18500, 20350, 22385, 24623, 27086, 29794, + 32767, 0 +}; + + +BOOL IMAADPCMUnpack16(signed short *pdest, UINT nLen, LPBYTE psrc, DWORD dwBytes, UINT pkBlkAlign) +//------------------------------------------------------------------------------------------------ +{ + static const int gIMAIndexTab[8] = { -1, -1, -1, -1, 2, 4, 6, 8 }; + UINT nPos; + int value; + + if ((nLen < 4) || (!pdest) || (!psrc) + || (pkBlkAlign < 5) || (pkBlkAlign > dwBytes)) return FALSE; + nPos = 0; + while ((nPos < nLen) && (dwBytes > 4)) + { + int nIndex; + value = *((short int *)psrc); + nIndex = psrc[2]; + psrc += 4; + dwBytes -= 4; + pdest[nPos++] = (short int)value; + for (UINT i=0; ((i<(pkBlkAlign-4)*2) && (nPos < nLen) && (dwBytes)); i++) + { + BYTE delta; + if (i & 1) + { + delta = (BYTE)(((*(psrc++)) >> 4) & 0x0F); + dwBytes--; + } else + { + delta = (BYTE)((*psrc) & 0x0F); + } + int v = gIMAUnpackTable[nIndex] >> 3; + if (delta & 1) v += gIMAUnpackTable[nIndex] >> 2; + if (delta & 2) v += gIMAUnpackTable[nIndex] >> 1; + if (delta & 4) v += gIMAUnpackTable[nIndex]; + if (delta & 8) value -= v; else value += v; + nIndex += gIMAIndexTab[delta & 7]; + if (nIndex < 0) nIndex = 0; else + if (nIndex > 88) nIndex = 88; + if (value > 32767) value = 32767; else + if (value < -32768) value = -32768; + pdest[nPos++] = (short int)value; + } + } + return TRUE; +} + + + |