gosu 0.15.2 → 1.0.0.pre1

data/dependencies/SDL_sound/libmodplug/load_dbm.c

@@ -0,0 +1,357 @@
+/*
+ * This source code is public domain.
+ *
+ * Authors: Olivier Lapicque <olivierl@jps.net>,
+ *          Adam Goode       <adam@evdebs.org> (endian and char fixes for PPC)
+*/
+
+///////////////////////////////////////////////////////////////
+//
+// DigiBooster Pro Module Loader (*.dbm)
+//
+// Note: this loader doesn't handle multiple songs
+//
+///////////////////////////////////////////////////////////////
+
+#include "libmodplug.h"
+
+#define DBM_FILE_MAGIC	0x304d4244
+#define DBM_ID_NAME		0x454d414e
+#define DBM_NAMELEN		0x2c000000
+#define DBM_ID_INFO		0x4f464e49
+#define DBM_INFOLEN		0x0a000000
+#define DBM_ID_SONG		0x474e4f53
+#define DBM_ID_INST		0x54534e49
+#define DBM_ID_VENV		0x564e4556
+#define DBM_ID_PATT		0x54544150
+#define DBM_ID_SMPL		0x4c504d53
+
+#pragma pack(1)
+
+typedef struct DBMFILEHEADER
+{
+	DWORD dbm_id;		// "DBM0" = 0x304d4244
+	WORD trkver;		// Tracker version: 02.15
+	WORD reserved;
+	DWORD name_id;		// "NAME" = 0x454d414e
+	DWORD name_len;		// name length: always 44
+	CHAR songname[44];
+	DWORD info_id;		// "INFO" = 0x4f464e49
+	DWORD info_len;		// 0x0a000000
+	WORD instruments;
+	WORD samples;
+	WORD songs;
+	WORD patterns;
+	WORD channels;
+	DWORD song_id;		// "SONG" = 0x474e4f53
+	DWORD song_len;
+	CHAR songname2[44];
+	WORD orders;
+//	WORD orderlist[0];	// orderlist[orders] in words
+} DBMFILEHEADER;
+
+typedef struct DBMINSTRUMENT
+{
+	CHAR name[30];
+	WORD sampleno;
+	WORD volume;
+	DWORD finetune;
+	DWORD loopstart;
+	DWORD looplen;
+	WORD panning;
+	WORD flags;
+} DBMINSTRUMENT;
+
+typedef struct DBMENVELOPE
+{
+	WORD instrument;
+	BYTE flags;
+	BYTE numpoints;
+	BYTE sustain1;
+	BYTE loopbegin;
+	BYTE loopend;
+	BYTE sustain2;
+	WORD volenv[2*32];
+} DBMENVELOPE;
+
+typedef struct DBMPATTERN
+{
+	WORD rows;
+	DWORD packedsize;
+	BYTE patterndata[2];	// [packedsize]
+} DBMPATTERN;
+
+typedef struct DBMSAMPLE
+{
+	DWORD flags;
+	DWORD samplesize;
+	BYTE sampledata[2];		// [samplesize]
+} DBMSAMPLE;
+
+#pragma pack()
+
+
+BOOL CSoundFile_ReadDBM(CSoundFile *_this, const BYTE *lpStream, DWORD dwMemLength)
+//---------------------------------------------------------------
+{
+	const DBMFILEHEADER *pfh = (DBMFILEHEADER *)lpStream;
+	DWORD dwMemPos;
+	UINT nOrders, nSamples, nInstruments, nPatterns;
+	
+	if ((!lpStream) || (dwMemLength <= sizeof(DBMFILEHEADER)) || (!pfh->channels)
+	 || (pfh->dbm_id != bswapLE32(DBM_FILE_MAGIC)) || (!pfh->songs) || (pfh->song_id != bswapLE32(DBM_ID_SONG))
+	 || (pfh->name_id != bswapLE32(DBM_ID_NAME)) || (pfh->name_len != bswapLE32(DBM_NAMELEN))
+	 || (pfh->info_id != bswapLE32(DBM_ID_INFO)) || (pfh->info_len != bswapLE32(DBM_INFOLEN))) return FALSE;
+	dwMemPos = sizeof(DBMFILEHEADER);
+	nOrders = bswapBE16(pfh->orders);
+	if (dwMemPos + 2 * nOrders + 8*3 >= dwMemLength) return FALSE;
+	nInstruments = bswapBE16(pfh->instruments);
+	nSamples = bswapBE16(pfh->samples);
+	nPatterns = bswapBE16(pfh->patterns);
+	_this->m_nType = MOD_TYPE_DBM;
+	_this->m_nChannels = bswapBE16(pfh->channels);
+	if (_this->m_nChannels < 4) _this->m_nChannels = 4;
+	if (_this->m_nChannels > 64) _this->m_nChannels = 64;
+	for (UINT iOrd=0; iOrd < nOrders; iOrd++)
+	{
+		_this->Order[iOrd] = lpStream[dwMemPos+iOrd*2+1];
+		if (iOrd >= MAX_ORDERS-2) break;
+	}
+	dwMemPos += 2*nOrders;
+	while (dwMemPos + 10 < dwMemLength)
+	{
+		DWORD chunk_id = ((LPDWORD)(lpStream+dwMemPos))[0];
+		DWORD chunk_size = bswapBE32(((LPDWORD)(lpStream+dwMemPos))[1]);
+		DWORD chunk_pos;
+		
+		dwMemPos += 8;
+		chunk_pos = dwMemPos;
+		if ((dwMemPos + chunk_size > dwMemLength) || (chunk_size > dwMemLength)) break;
+		dwMemPos += chunk_size;
+		// Instruments
+		if (chunk_id == bswapLE32(DBM_ID_INST))
+		{
+			if (nInstruments >= MAX_INSTRUMENTS) nInstruments = MAX_INSTRUMENTS-1;
+			for (UINT iIns=0; iIns<nInstruments; iIns++)
+			{
+				MODINSTRUMENT *psmp;
+				INSTRUMENTHEADER *penv;
+				DBMINSTRUMENT *pih;
+				UINT nsmp;
+
+				if (chunk_pos + sizeof(DBMINSTRUMENT) > dwMemPos) break;
+				if ((penv = (INSTRUMENTHEADER *) SDL_malloc(sizeof (INSTRUMENTHEADER))) == NULL) break;
+				pih = (DBMINSTRUMENT *)(lpStream+chunk_pos);
+				nsmp = bswapBE16(pih->sampleno);
+				psmp = ((nsmp) && (nsmp < MAX_SAMPLES)) ? &_this->Ins[nsmp] : NULL;
+				SDL_memset(penv, 0, sizeof(INSTRUMENTHEADER));
+				_this->Headers[iIns+1] = penv;
+				penv->nFadeOut = 1024;	// ???
+				penv->nGlobalVol = 64;
+				penv->nPan = bswapBE16(pih->panning);
+				if ((penv->nPan) && (penv->nPan < 256))
+					penv->dwFlags = ENV_SETPANNING;
+				else
+					penv->nPan = 128;
+				penv->nPPC = 5*12;
+				for (UINT i=0; i<NOTE_MAX; i++)
+				{
+					penv->Keyboard[i] = nsmp;
+					penv->NoteMap[i] = i+1;
+				}
+				// Sample Info
+				if (psmp)
+				{
+					DWORD sflags = bswapBE16(pih->flags);
+					psmp->nVolume = bswapBE16(pih->volume) * 4;
+					if ((!psmp->nVolume) || (psmp->nVolume > 256)) psmp->nVolume = 256;
+					psmp->nGlobalVol = 64;
+					psmp->nC4Speed = bswapBE32(pih->finetune);
+					int f2t = CSoundFile_FrequencyToTranspose(psmp->nC4Speed);
+					psmp->RelativeTone = f2t >> 7;
+					psmp->nFineTune = f2t & 0x7F;
+					if ((pih->looplen) && (sflags & 3))
+					{
+						psmp->nLoopStart = bswapBE32(pih->loopstart);
+						psmp->nLoopEnd = psmp->nLoopStart + bswapBE32(pih->looplen);
+						psmp->uFlags |= CHN_LOOP;
+						psmp->uFlags &= ~CHN_PINGPONGLOOP;
+						if (sflags & 2) psmp->uFlags |= CHN_PINGPONGLOOP;
+					}
+				}
+				chunk_pos += sizeof(DBMINSTRUMENT);
+				_this->m_nInstruments = iIns+1;
+			}
+		} else
+		// Volume Envelopes
+		if (chunk_id == bswapLE32(DBM_ID_VENV))
+		{
+			UINT nEnvelopes = lpStream[chunk_pos+1];
+			
+			chunk_pos += 2;
+			for (UINT iEnv=0; iEnv<nEnvelopes; iEnv++)
+			{
+				DBMENVELOPE *peh;
+				UINT nins;
+				
+				if (chunk_pos + sizeof(DBMENVELOPE) > dwMemPos) break;
+				peh = (DBMENVELOPE *)(lpStream+chunk_pos);
+				nins = bswapBE16(peh->instrument);
+				if ((nins) && (nins < MAX_INSTRUMENTS) && (_this->Headers[nins]) && (peh->numpoints))
+				{
+					INSTRUMENTHEADER *penv = _this->Headers[nins];
+
+					if (peh->flags & 1) penv->dwFlags |= ENV_VOLUME;
+					if (peh->flags & 2) penv->dwFlags |= ENV_VOLSUSTAIN;
+					if (peh->flags & 4) penv->dwFlags |= ENV_VOLLOOP;
+					penv->nVolEnv = peh->numpoints + 1;
+					if (penv->nVolEnv > MAX_ENVPOINTS) penv->nVolEnv = MAX_ENVPOINTS;
+					penv->nVolLoopStart = peh->loopbegin;
+					penv->nVolLoopEnd = peh->loopend;
+					penv->nVolSustainBegin = penv->nVolSustainEnd = peh->sustain1;
+					for (UINT i=0; i<penv->nVolEnv; i++)
+					{
+						penv->VolPoints[i] = bswapBE16(peh->volenv[i*2]);
+						penv->VolEnv[i] = (BYTE)bswapBE16(peh->volenv[i*2+1]);
+					}
+				}
+				chunk_pos += sizeof(DBMENVELOPE);
+			}
+		} else
+		// Packed Pattern Data
+		if (chunk_id == bswapLE32(DBM_ID_PATT))
+		{
+			if (nPatterns > MAX_PATTERNS) nPatterns = MAX_PATTERNS;
+			for (UINT iPat=0; iPat<nPatterns; iPat++)
+			{
+				DBMPATTERN *pph;
+				DWORD pksize;
+				UINT nRows;
+
+				if (chunk_pos + sizeof(DBMPATTERN) > dwMemPos) break;
+				pph = (DBMPATTERN *)(lpStream+chunk_pos);
+				pksize = bswapBE32(pph->packedsize);
+				if ((chunk_pos + pksize + 6 > dwMemPos) || (pksize > dwMemPos)) break;
+				nRows = bswapBE16(pph->rows);
+				if ((nRows >= 4) && (nRows <= 256))
+				{
+					MODCOMMAND *m = CSoundFile_AllocatePattern(nRows, _this->m_nChannels);
+					if (m)
+					{
+						LPBYTE pkdata = (LPBYTE)&pph->patterndata;
+						UINT row = 0;
+						UINT i = 0;
+
+						_this->PatternSize[iPat] = nRows;
+						_this->Patterns[iPat] = m;
+						while ((i+3<pksize) && (row < nRows))
+						{
+							UINT ch = pkdata[i++];
+
+							if (ch)
+							{
+								BYTE b = pkdata[i++];
+								ch--;
+								if (ch < _this->m_nChannels)
+								{
+									if (b & 0x01)
+									{
+										UINT note = pkdata[i++];
+
+										if (note == 0x1F) note = 0xFF; else
+										if ((note) && (note < 0xFE))
+										{
+											note = ((note >> 4)*12) + (note & 0x0F) + 13;
+										}
+										m[ch].note = note;
+									}
+									if (b & 0x02) m[ch].instr = pkdata[i++];
+									if (b & 0x3C)
+									{
+										UINT cmd1 = 0xFF, param1 = 0, cmd2 = 0xFF, param2 = 0;
+										if (b & 0x04) cmd1 = (UINT)pkdata[i++];
+										if (b & 0x08) param1 = pkdata[i++];
+										if (b & 0x10) cmd2 = (UINT)pkdata[i++];
+										if (b & 0x20) param2 = pkdata[i++];
+										if (cmd1 == 0x0C)
+										{
+											m[ch].volcmd = VOLCMD_VOLUME;
+											m[ch].vol = param1;
+											cmd1 = 0xFF;
+										} else
+										if (cmd2 == 0x0C)
+										{
+											m[ch].volcmd = VOLCMD_VOLUME;
+											m[ch].vol = param2;
+											cmd2 = 0xFF;
+										}
+										if ((cmd1 > 0x13) || ((cmd1 >= 0x10) && (cmd2 < 0x10)))
+										{
+											cmd1 = cmd2;
+											param1 = param2;
+											cmd2 = 0xFF;
+										}
+										if (cmd1 <= 0x13)
+										{
+											m[ch].command = cmd1;
+											m[ch].param = param1;
+											CSoundFile_ConvertModCommand(_this, &m[ch]);
+										}
+									}
+								} else
+								{
+									if (b & 0x01) i++;
+									if (b & 0x02) i++;
+									if (b & 0x04) i++;
+									if (b & 0x08) i++;
+									if (b & 0x10) i++;
+									if (b & 0x20) i++;
+								}
+							} else
+							{
+								row++;
+								m += _this->m_nChannels;
+							}
+						}
+					}
+				}
+				chunk_pos += 6 + pksize;
+			}
+		} else
+		// Reading Sample Data
+		if (chunk_id == bswapLE32(DBM_ID_SMPL))
+		{
+			if (nSamples >= MAX_SAMPLES) nSamples = MAX_SAMPLES-1;
+			_this->m_nSamples = nSamples;
+			for (UINT iSmp=1; iSmp<=nSamples; iSmp++)
+			{
+				MODINSTRUMENT *pins;
+				DBMSAMPLE *psh;
+				DWORD samplesize;
+				DWORD sampleflags;
+
+				if (chunk_pos + sizeof(DBMSAMPLE) >= dwMemPos) break;
+				psh = (DBMSAMPLE *)(lpStream+chunk_pos);
+				chunk_pos += 8;
+				samplesize = bswapBE32(psh->samplesize);
+				sampleflags = bswapBE32(psh->flags);
+				pins = &_this->Ins[iSmp];
+				pins->nLength = samplesize;
+				if (sampleflags & 2)
+				{
+					pins->uFlags |= CHN_16BIT;
+					samplesize <<= 1;
+				}
+				if ((chunk_pos+samplesize > dwMemPos) || (samplesize > dwMemLength)) break;
+				if (sampleflags & 3)
+				{
+					CSoundFile_ReadSample(_this, pins, (pins->uFlags & CHN_16BIT) ? RS_PCM16M : RS_PCM8S,
+								(LPSTR)(psh->sampledata), samplesize);
+				}
+				chunk_pos += samplesize;
+			}
+		}
+	}
+	return TRUE;
+}
+

data/dependencies/SDL_sound/libmodplug/load_dmf.c

@@ -0,0 +1,531 @@
+/*
+ * This source code is public domain.
+ *
+ * Authors: Olivier Lapicque <olivierl@jps.net>
+*/
+
+///////////////////////////////////////////////////////
+// DMF DELUSION DIGITAL MUSIC FILEFORMAT (X-Tracker) //
+///////////////////////////////////////////////////////
+#include "libmodplug.h"
+
+#pragma pack(1)
+
+typedef struct DMFHEADER
+{
+	DWORD id;				// "DDMF" = 0x464d4444
+	BYTE version;			// 4
+	CHAR trackername[8];	// "XTRACKER"
+	CHAR songname[30];
+	CHAR composer[20];
+	BYTE date[3];
+} DMFHEADER;
+
+typedef struct DMFINFO
+{
+	DWORD id;			// "INFO"
+	DWORD infosize;
+} DMFINFO;
+
+typedef struct DMFSEQU
+{
+	DWORD id;			// "SEQU"
+	DWORD seqsize;
+	WORD loopstart;
+	WORD loopend;
+	WORD sequ[2];
+} DMFSEQU;
+
+typedef struct DMFPATT
+{
+	DWORD id;			// "PATT"
+	DWORD patsize;
+	WORD numpat;		// 1-1024
+	BYTE tracks;
+	BYTE firstpatinfo;
+} DMFPATT;
+
+typedef struct DMFTRACK
+{
+	BYTE tracks;
+	BYTE beat;		// [hi|lo] -> hi=ticks per beat, lo=beats per measure
+	WORD ticks;		// max 512
+	DWORD jmpsize;
+} DMFTRACK;
+
+typedef struct DMFSMPI
+{
+	DWORD id;
+	DWORD size;
+	BYTE samples;
+} DMFSMPI;
+
+typedef struct DMFSAMPLE
+{
+	DWORD len;
+	DWORD loopstart;
+	DWORD loopend;
+	WORD c3speed;
+	BYTE volume;
+	BYTE flags;
+} DMFSAMPLE;
+
+#pragma pack()
+
+
+BOOL CSoundFile_ReadDMF(CSoundFile *_this, const BYTE *lpStream, DWORD dwMemLength)
+//---------------------------------------------------------------
+{
+	const DMFHEADER *pfh = (DMFHEADER *)lpStream;
+	DMFINFO *psi;
+	DMFSEQU *sequ;
+	DWORD dwMemPos;
+	BYTE infobyte[32];
+	BYTE smplflags[MAX_SAMPLES], hasSMPI = 0;
+
+	if ((!lpStream) || (dwMemLength < 1024)) return FALSE;
+	if ((pfh->id != 0x464d4444) || (!pfh->version) || (pfh->version & 0xF0)) return FALSE;
+	dwMemPos = 66;
+	_this->m_nType = MOD_TYPE_DMF;
+	_this->m_nChannels = 0;
+	while (dwMemPos + 7 < dwMemLength)
+	{
+		DWORD id = *((LPDWORD)(lpStream+dwMemPos));
+
+		switch(id)
+		{
+		// "INFO"
+		case 0x4f464e49:
+		// "CMSG"
+		case 0x47534d43:
+			psi = (DMFINFO *)(lpStream+dwMemPos);
+			if (id == 0x47534d43) dwMemPos++;
+			if ((psi->infosize > dwMemLength) || (psi->infosize + dwMemPos + 8 > dwMemLength)) goto dmfexit;
+			dwMemPos += psi->infosize + 8 - 1;
+			break;
+
+		// "SEQU"
+		case 0x55514553:
+			sequ = (DMFSEQU *)(lpStream+dwMemPos);
+			if ((sequ->seqsize >= dwMemLength) || (dwMemPos + sequ->seqsize + 12 > dwMemLength)) goto dmfexit;
+			{
+				UINT nseq = sequ->seqsize >> 1;
+				if (nseq >= MAX_ORDERS-1) nseq = MAX_ORDERS-1;
+				if (sequ->loopstart < nseq) _this->m_nRestartPos = sequ->loopstart;
+				for (UINT i=0; i<nseq; i++) _this->Order[i] = (BYTE)sequ->sequ[i];
+			}
+			dwMemPos += sequ->seqsize + 8;
+			break;
+
+		// "PATT"
+		case 0x54544150:
+			if (!_this->m_nChannels)
+			{
+				DMFPATT *patt = (DMFPATT *)(lpStream+dwMemPos);
+				UINT numpat;
+				DWORD dwPos = dwMemPos + 11;
+				if ((patt->patsize >= dwMemLength) || (dwMemPos + patt->patsize + 8 > dwMemLength)) goto dmfexit;
+				numpat = patt->numpat;
+				if (numpat > MAX_PATTERNS) numpat = MAX_PATTERNS;
+				_this->m_nChannels = patt->tracks;
+				if (_this->m_nChannels < patt->firstpatinfo) _this->m_nChannels = patt->firstpatinfo;
+				if (_this->m_nChannels > 32) _this->m_nChannels = 32;
+				if (_this->m_nChannels < 4) _this->m_nChannels = 4;
+				for (UINT npat=0; npat<numpat; npat++)
+				{
+					DMFTRACK *pt = (DMFTRACK *)(lpStream+dwPos);
+					UINT tracks = pt->tracks;
+					if (tracks > 32) tracks = 32;
+					UINT ticks = pt->ticks;
+					if (ticks > 256) ticks = 256;
+					if (ticks < 16) ticks = 16;
+					dwPos += 8;
+					if ((pt->jmpsize >= dwMemLength) || (dwPos + pt->jmpsize + 4 >= dwMemLength)) break;
+					_this->PatternSize[npat] = (WORD)ticks;
+					MODCOMMAND *m = CSoundFile_AllocatePattern(_this->PatternSize[npat], _this->m_nChannels);
+					if (!m) goto dmfexit;
+					_this->Patterns[npat] = m;
+					DWORD d = dwPos;
+					dwPos += pt->jmpsize;
+					UINT ttype = 1;
+					UINT tempo = 125;
+					UINT glbinfobyte = 0;
+					UINT pbeat = (pt->beat & 0xf0) ? pt->beat>>4 : 8;
+					BOOL tempochange = (pt->beat & 0xf0) ? TRUE : FALSE;
+					SDL_memset(infobyte, 0, sizeof(infobyte));
+					for (UINT row=0; row<ticks; row++)
+					{
+						MODCOMMAND *p = &m[row*_this->m_nChannels];
+						// Parse track global effects
+						if (!glbinfobyte)
+						{
+							BYTE info = lpStream[d++];
+							BYTE infoval = 0;
+							if ((info & 0x80) && (d < dwPos)) glbinfobyte = lpStream[d++];
+							info &= 0x7f;
+							if ((info) && (d < dwPos)) infoval = lpStream[d++];
+							switch(info)
+							{
+							case 1:	ttype = 0; tempo = infoval; tempochange = TRUE; break;
+							case 2: ttype = 1; tempo = infoval; tempochange = TRUE; break;
+							case 3: pbeat = infoval>>4; tempochange = ttype; break;
+							}
+						} else
+						{
+							glbinfobyte--;
+						}
+						// Parse channels
+						for (UINT i=0; i<tracks; i++) if (!infobyte[i])
+						{
+							MODCOMMAND cmd;
+                            SDL_zero(cmd);
+							BYTE info = lpStream[d++];
+							if (info & 0x80) infobyte[i] = lpStream[d++];
+							// Instrument
+							if (info & 0x40)
+							{
+								cmd.instr = lpStream[d++];
+							}
+							// Note
+							if (info & 0x20)
+							{
+								cmd.note = lpStream[d++];
+								if ((cmd.note) && (cmd.note < 0xfe)) cmd.note &= 0x7f;
+								if ((cmd.note) && (cmd.note < 128)) cmd.note += 24;
+							}
+							// Volume
+							if (info & 0x10)
+							{
+								cmd.volcmd = VOLCMD_VOLUME;
+								cmd.vol = (lpStream[d++]+3)>>2;
+							}
+							// Effect 1
+							if (info & 0x08)
+							{
+								BYTE efx = lpStream[d++];
+								BYTE eval = lpStream[d++];
+								switch(efx)
+								{
+								// 1: Key Off
+								case 1: if (!cmd.note) cmd.note = 0xFE; break;
+								// 2: Set Loop
+								// 4: Sample Delay
+								case 4: if (eval&0xe0) { cmd.command = CMD_S3MCMDEX; cmd.param = (eval>>5)|0xD0; } break;
+								// 5: Retrig
+								case 5: if (eval&0xe0) { cmd.command = CMD_RETRIG; cmd.param = (eval>>5); } break;
+								// 6: Offset
+								case 6: cmd.command = CMD_OFFSET; cmd.param = eval; break;
+								}
+							}
+							// Effect 2
+							if (info & 0x04)
+							{
+								BYTE efx = lpStream[d++];
+								BYTE eval = lpStream[d++];
+								switch(efx)
+								{
+								// 1: Finetune
+								case 1: if (eval&0xf0) { cmd.command = CMD_S3MCMDEX; cmd.param = (eval>>4)|0x20; } break;
+								// 2: Note Delay
+								case 2: if (eval&0xe0) { cmd.command = CMD_S3MCMDEX; cmd.param = (eval>>5)|0xD0; } break;
+								// 3: Arpeggio
+								case 3: if (eval) { cmd.command = CMD_ARPEGGIO; cmd.param = eval; } break;
+								// 4: Portamento Up
+								case 4: cmd.command = CMD_PORTAMENTOUP; cmd.param = (eval >= 0xe0) ? 0xdf : eval; break;
+								// 5: Portamento Down
+								case 5: cmd.command = CMD_PORTAMENTODOWN; cmd.param = (eval >= 0xe0) ? 0xdf : eval; break;
+								// 6: Tone Portamento
+								case 6: cmd.command = CMD_TONEPORTAMENTO; cmd.param = eval; break;
+								// 8: Vibrato
+								case 8: cmd.command = CMD_VIBRATO; cmd.param = eval; break;
+								// 12: Note cut
+								case 12: if (eval & 0xe0) { cmd.command = CMD_S3MCMDEX; cmd.param = (eval>>5)|0xc0; }
+										else if (!cmd.note) { cmd.note = 0xfe; } break;
+								}
+							}
+							// Effect 3
+							if (info & 0x02)
+							{
+								BYTE efx = lpStream[d++];
+								BYTE eval = lpStream[d++];
+								switch(efx)
+								{
+								// 1: Vol Slide Up
+								case 1: if (eval == 0xff) break;
+										eval = (eval+3)>>2; if (eval > 0x0f) eval = 0x0f;
+										cmd.command = CMD_VOLUMESLIDE; cmd.param = eval<<4; break;
+								// 2: Vol Slide Down
+								case 2:	if (eval == 0xff) break;
+										eval = (eval+3)>>2; if (eval > 0x0f) eval = 0x0f;
+										cmd.command = CMD_VOLUMESLIDE; cmd.param = eval; break;
+								// 7: Set Pan
+								case 7: if (!cmd.volcmd) { cmd.volcmd = VOLCMD_PANNING; cmd.vol = (eval+3)>>2; }
+										else { cmd.command = CMD_PANNING8; cmd.param = eval; } break;
+								// 8: Pan Slide Left
+								case 8: eval = (eval+3)>>2; if (eval > 0x0f) eval = 0x0f;
+										cmd.command = CMD_PANNINGSLIDE; cmd.param = eval<<4; break;
+								// 9: Pan Slide Right
+								case 9: eval = (eval+3)>>2; if (eval > 0x0f) eval = 0x0f;
+										cmd.command = CMD_PANNINGSLIDE; cmd.param = eval; break;
+
+								}
+							}
+							// Store effect
+							if (i < _this->m_nChannels) p[i] = cmd;
+							if (d > dwPos)
+							{
+								break;
+							}
+						} else
+						{
+							infobyte[i]--;
+						}
+
+						// Find free channel for tempo change
+						if (tempochange)
+						{
+							tempochange = FALSE;
+							UINT speed=6, modtempo=tempo;
+							UINT rpm = ((ttype) && (pbeat)) ? tempo*pbeat : (tempo+1)*15;
+							for (speed=30; speed>1; speed--)
+							{
+								modtempo = rpm*speed/24;
+								if (modtempo <= 200) break;
+								if ((speed < 6) && (modtempo < 256)) break;
+							}
+							for (UINT ich=0; ich<_this->m_nChannels; ich++) if (!p[ich].command)
+							{
+								if (speed)
+								{
+									p[ich].command = CMD_SPEED;
+									p[ich].param = (BYTE)speed;
+									speed = 0;
+								} else
+								if ((modtempo >= 32) && (modtempo < 256))
+								{
+									p[ich].command = CMD_TEMPO;
+									p[ich].param = (BYTE)modtempo;
+									modtempo = 0;
+								} else
+								{
+									break;
+								}
+							}
+						}
+						if (d >= dwPos) break;
+					}
+					if (dwPos + 8 >= dwMemLength) break;
+				}
+				dwMemPos += patt->patsize + 8;
+			}
+			break;
+
+		// "SMPI": Sample Info
+		case 0x49504d53:
+			{
+				hasSMPI = 1;
+				DMFSMPI *pds = (DMFSMPI *)(lpStream+dwMemPos);
+				if (pds->size <= dwMemLength - dwMemPos)
+				{
+					DWORD dwPos = dwMemPos + 9;
+					_this->m_nSamples = pds->samples;
+					if (_this->m_nSamples >= MAX_SAMPLES) _this->m_nSamples = MAX_SAMPLES-1;
+					for (UINT iSmp=1; iSmp<=_this->m_nSamples; iSmp++)
+					{
+						const UINT namelen = lpStream[dwPos];
+						smplflags[iSmp] = 0;
+						if (dwPos+namelen+1+sizeof(DMFSAMPLE) > dwMemPos+pds->size+8) break;
+						dwPos += namelen + 1;
+						DMFSAMPLE *psh = (DMFSAMPLE *)(lpStream+dwPos);
+						MODINSTRUMENT *psmp = &_this->Ins[iSmp];
+						psmp->nLength = psh->len;
+						psmp->nLoopStart = psh->loopstart;
+						psmp->nLoopEnd = psh->loopend;
+						psmp->nC4Speed = psh->c3speed;
+						psmp->nGlobalVol = 64;
+						psmp->nVolume = (psh->volume) ? ((WORD)psh->volume)+1 : (WORD)256;
+						psmp->uFlags = (psh->flags & 2) ? CHN_16BIT : 0;
+						if (psmp->uFlags & CHN_16BIT) psmp->nLength >>= 1;
+						if (psh->flags & 1) psmp->uFlags |= CHN_LOOP;
+						smplflags[iSmp] = psh->flags;
+						dwPos += (pfh->version < 8) ? 22 : 30;
+					}
+				}
+				dwMemPos += pds->size + 8;
+			}
+			break;
+
+		// "SMPD": Sample Data
+		case 0x44504d53:
+			{
+				DWORD dwPos = dwMemPos + 8;
+				UINT ismpd = 0;
+				for (UINT iSmp=1; iSmp<=_this->m_nSamples; iSmp++)
+				{
+					ismpd++;
+					DWORD pksize;
+					if (dwPos + 4 >= dwMemLength)
+					{
+						break;
+					}
+					pksize = *((LPDWORD)(lpStream+dwPos));
+					dwPos += 4;
+					if (pksize > dwMemLength - dwPos)
+					{
+						pksize = dwMemLength - dwPos;
+					}
+					if ((pksize) && (iSmp <= _this->m_nSamples))
+					{
+						UINT flags = (_this->Ins[iSmp].uFlags & CHN_16BIT) ? RS_PCM16S : RS_PCM8S;
+						if (hasSMPI && smplflags[ismpd] & 4)
+							flags = (_this->Ins[iSmp].uFlags & CHN_16BIT) ? RS_DMF16 : RS_DMF8;
+						CSoundFile_ReadSample(_this, &_this->Ins[iSmp], flags, (LPSTR)(lpStream+dwPos), pksize);
+					}
+					dwPos += pksize;
+				}
+				dwMemPos = dwPos;
+			}
+			break;
+
+		// "ENDE": end of file
+		case 0x45444e45:
+			goto dmfexit;
+		
+		// Unrecognized id, or "ENDE" field
+		default:
+			dwMemPos += 4;
+			break;
+		}
+	}
+dmfexit:
+	if (!_this->m_nChannels)
+	{
+		if (!_this->m_nSamples)
+		{
+			_this->m_nType = MOD_TYPE_NONE;
+			return FALSE;
+		}
+		_this->m_nChannels = 4;
+	}
+	return TRUE;
+}
+
+
+///////////////////////////////////////////////////////////////////////
+// DMF Compression
+
+#pragma pack(1)
+
+typedef struct DMF_HNODE
+{
+	short int left, right;
+	BYTE value;
+} DMF_HNODE;
+
+typedef struct DMF_HTREE
+{
+	LPBYTE ibuf, ibufmax;
+	DWORD bitbuf;
+	UINT bitnum;
+	UINT lastnode, nodecount;
+	DMF_HNODE nodes[256];
+} DMF_HTREE;
+
+#pragma pack()
+
+
+// DMF Huffman ReadBits
+BYTE DMFReadBits(DMF_HTREE *tree, UINT nbits)
+//-------------------------------------------
+{
+	BYTE x = 0, bitv = 1;
+	while (nbits--)
+	{
+		if (tree->bitnum)
+		{
+			tree->bitnum--;
+		} else
+		{
+			tree->bitbuf = (tree->ibuf < tree->ibufmax) ? *(tree->ibuf++) : 0;
+			tree->bitnum = 7;
+		}
+		if (tree->bitbuf & 1) x |= bitv;
+		bitv <<= 1;
+		tree->bitbuf >>= 1;
+	}
+	return x;
+}
+
+//
+// tree: [8-bit value][12-bit index][12-bit index] = 32-bit
+//
+
+void DMFNewNode(DMF_HTREE *tree)
+//------------------------------
+{
+	BYTE isleft, isright;
+	UINT actnode;
+
+	actnode = tree->nodecount;
+	if (actnode > 255) return;
+	tree->nodes[actnode].value = DMFReadBits(tree, 7);
+	isleft = DMFReadBits(tree, 1);
+	isright = DMFReadBits(tree, 1);
+	actnode = tree->lastnode;
+	if (actnode > 255) return;
+	tree->nodecount++;
+	tree->lastnode = tree->nodecount;
+	if (isleft)
+	{
+		tree->nodes[actnode].left = tree->lastnode;
+		DMFNewNode(tree);
+	} else
+	{
+		tree->nodes[actnode].left = -1;
+	}
+	tree->lastnode = tree->nodecount;
+	if (isright)
+	{
+		tree->nodes[actnode].right = tree->lastnode;
+		DMFNewNode(tree);
+	} else
+	{
+		tree->nodes[actnode].right = -1;
+	}
+}
+
+
+int DMFUnpack(LPBYTE psample, LPBYTE ibuf, LPBYTE ibufmax, UINT maxlen)
+//----------------------------------------------------------------------
+{
+	DMF_HTREE tree;
+	UINT actnode;
+	BYTE value, sign, delta = 0;
+	
+	SDL_memset(&tree, 0, sizeof(tree));
+	tree.ibuf = ibuf;
+	tree.ibufmax = ibufmax;
+	DMFNewNode(&tree);
+	value = 0;
+	for (UINT i=0; i<maxlen; i++)
+	{
+		actnode = 0;
+		sign = DMFReadBits(&tree, 1);
+		do
+		{
+			if (DMFReadBits(&tree, 1))
+				actnode = tree.nodes[actnode].right;
+			else
+				actnode = tree.nodes[actnode].left;
+			if (actnode > 255) break;
+			delta = tree.nodes[actnode].value;
+			if ((tree.ibuf >= tree.ibufmax) && (!tree.bitnum)) break;
+		} while ((tree.nodes[actnode].left >= 0) && (tree.nodes[actnode].right >= 0));
+		if (sign) delta ^= 0xFF;
+		value += delta;
+		psample[i] = (i) ? value : 0;
+	}
+	return tree.ibuf - ibuf;
+}
+
+