/* * This program is free software; you can redistribute it and modify it * under the terms of the GNU General Public License as published by the * Free Software Foundation; either version 2 of the license or (at your * option) any later version. * * Authors: Olivier Lapicque */ #include "stdafx.h" #include "sndfile.h" //#pragma warning(disable:4244) #pragma pack(1) typedef struct tagSTMNOTE { BYTE note; BYTE insvol; BYTE volcmd; BYTE cmdinf; } Q_PACKED STMNOTE; // Raw STM sampleinfo struct: typedef struct tagSTMSAMPLE { CHAR filename[14]; // Can't have long comments - just filename comments :) WORD reserved; // ISA in memory when in ST 2 WORD length; // Sample length WORD loopbeg; // Loop start point WORD loopend; // Loop end point BYTE volume; // Volume BYTE reserved2; // More reserved crap WORD c2spd; // Good old c2spd BYTE reserved3[6]; // Yet more of PSi's reserved crap } Q_PACKED STMSAMPLE; // Raw STM header struct: typedef struct tagSTMHEADER { char songname[20]; // changed from CHAR char trackername[8]; // !SCREAM! for ST 2.xx // changed from CHAR CHAR unused; // 0x1A CHAR filetype; // 1=song, 2=module (only 2 is supported, of course) :) CHAR ver_major; // Like 2 CHAR ver_minor; // "ditto" BYTE inittempo; // initspeed= stm inittempo>>4 BYTE numpat; // number of patterns BYTE globalvol; // <- WoW! a RiGHT TRiANGLE =8*) BYTE reserved[13]; // More of PSi's internal crap STMSAMPLE sample[31]; // STM sample data BYTE patorder[128]; // Docs say 64 - actually 128 } Q_PACKED STMHEADER; #pragma pack() BOOL CSoundFile::ReadSTM(const BYTE *lpStream, DWORD dwMemLength) //--------------------------------------------------------------- { STMHEADER *phdr = (STMHEADER *)lpStream; DWORD dwMemPos = 0; if ((!lpStream) || (dwMemLength < sizeof(STMHEADER))) return FALSE; if ((phdr->filetype != 2) || (phdr->unused != 0x1A) || ((strnicmp(phdr->trackername, "!SCREAM!", 8)) && (strnicmp(phdr->trackername, "BMOD2STM", 8)))) return FALSE; memcpy(m_szNames[0], phdr->songname, 20); // Read STM header m_nType = MOD_TYPE_STM; m_nSamples = 31; m_nChannels = 4; m_nInstruments = 0; m_nMinPeriod = 64; m_nMaxPeriod = 0x7FFF; m_nDefaultSpeed = phdr->inittempo >> 4; if (m_nDefaultSpeed < 1) m_nDefaultSpeed = 1; m_nDefaultTempo = 125; m_nDefaultGlobalVolume = phdr->globalvol << 2; if (m_nDefaultGlobalVolume > 256) m_nDefaultGlobalVolume = 256; memcpy(Order, phdr->patorder, 128); // Setting up channels for (UINT nSet=0; nSet<4; nSet++) { ChnSettings[nSet].dwFlags = 0; ChnSettings[nSet].nVolume = 64; ChnSettings[nSet].nPan = (nSet & 1) ? 0x40 : 0xC0; } // Reading samples for (UINT nIns=0; nIns<31; nIns++) { MODINSTRUMENT *pIns = &Ins[nIns+1]; STMSAMPLE *pStm = &phdr->sample[nIns]; // STM sample data memcpy(pIns->name, pStm->filename, 13); memcpy(m_szNames[nIns+1], pStm->filename, 12); pIns->nC4Speed = pStm->c2spd; pIns->nGlobalVol = 64; pIns->nVolume = pStm->volume << 2; if (pIns->nVolume > 256) pIns->nVolume = 256; pIns->nLength = pStm->length; if ((pIns->nLength < 4) || (!pIns->nVolume)) pIns->nLength = 0; pIns->nLoopStart = pStm->loopbeg; pIns->nLoopEnd = pStm->loopend; if ((pIns->nLoopEnd > pIns->nLoopStart) && (pIns->nLoopEnd != 0xFFFF)) pIns->uFlags |= CHN_LOOP; } dwMemPos = sizeof(STMHEADER); for (UINT nOrd=0; nOrd= 99) Order[nOrd] = 0xFF; UINT nPatterns = phdr->numpat; for (UINT nPat=0; nPat dwMemLength) return TRUE; PatternSize[nPat] = 64; if ((Patterns[nPat] = AllocatePattern(64, m_nChannels)) == NULL) return TRUE; MODCOMMAND *m = Patterns[nPat]; STMNOTE *p = (STMNOTE *)(lpStream + dwMemPos); for (UINT n=0; n<64*4; n++, p++, m++) { UINT note,ins,vol,cmd; // extract the various information from the 4 bytes that // make up a single note note = p->note; ins = p->insvol >> 3; vol = (p->insvol & 0x07) + (p->volcmd >> 1); cmd = p->volcmd & 0x0F; if ((ins) && (ins < 32)) m->instr = ins; // special values of [SBYTE0] are handled here -> // we have no idea if these strange values will ever be encountered // but it appears as though stms sound correct. if ((note == 0xFE) || (note == 0xFC)) m->note = 0xFE; else // if note < 251, then all three bytes are stored in the file if (note < 0xFC) m->note = (note >> 4)*12 + (note&0xf) + 37; if (vol <= 64) { m->volcmd = VOLCMD_VOLUME; m->vol = vol; } m->param = p->cmdinf; switch(cmd) { // Axx set speed to xx case 1: m->command = CMD_SPEED; m->param >>= 4; break; // Bxx position jump case 2: m->command = CMD_POSITIONJUMP; break; // Cxx patternbreak to row xx case 3: m->command = CMD_PATTERNBREAK; m->param = (m->param & 0xF0) * 10 + (m->param & 0x0F); break; // Dxy volumeslide case 4: m->command = CMD_VOLUMESLIDE; break; // Exy toneslide down case 5: m->command = CMD_PORTAMENTODOWN; break; // Fxy toneslide up case 6: m->command = CMD_PORTAMENTOUP; break; // Gxx Tone portamento,speed xx case 7: m->command = CMD_TONEPORTAMENTO; break; // Hxy vibrato case 8: m->command = CMD_VIBRATO; break; // Ixy tremor, ontime x, offtime y case 9: m->command = CMD_TREMOR; break; // Jxy arpeggio case 10: m->command = CMD_ARPEGGIO; break; // Kxy Dual command H00 & Dxy case 11: m->command = CMD_VIBRATOVOL; break; // Lxy Dual command G00 & Dxy case 12: m->command = CMD_TONEPORTAVOL; break; // Xxx amiga command 8xx case 0x18: m->command = CMD_PANNING8; break; default: m->command = m->param = 0; } } dwMemPos += 64*4*4; } // Reading Samples for (UINT nSmp=1; nSmp<=31; nSmp++) { MODINSTRUMENT *pIns = &Ins[nSmp]; dwMemPos = (dwMemPos + 15) & (~15); if (pIns->nLength) { UINT nPos = ((UINT)phdr->sample[nSmp-1].reserved) << 4; if ((nPos >= sizeof(STMHEADER)) && (nPos+pIns->nLength <= dwMemLength)) dwMemPos = nPos; if (dwMemPos < dwMemLength) { dwMemPos += ReadSample(pIns, RS_PCM8S, (LPSTR)(lpStream+dwMemPos),dwMemLength-dwMemPos); } } } return TRUE; }