From 26f2bfde03420edad4de1f22cb3d515dc063b20d Mon Sep 17 00:00:00 2001 From: Frank Gevaerts Date: Sun, 12 Dec 2010 15:03:30 +0000 Subject: Add MikMod plugin, ported by Jason Yu, with some minor work by Craig Mann and William Peters (FS#8806) git-svn-id: svn://svn.rockbox.org/rockbox/trunk@28810 a1c6a512-1295-4272-9138-f99709370657 --- apps/plugins/mikmod/load_stx.c | 439 +++++++++++++++++++++++++++++++++++++++++ 1 file changed, 439 insertions(+) create mode 100644 apps/plugins/mikmod/load_stx.c (limited to 'apps/plugins/mikmod/load_stx.c') diff --git a/apps/plugins/mikmod/load_stx.c b/apps/plugins/mikmod/load_stx.c new file mode 100644 index 0000000000..ac6e51f4c7 --- /dev/null +++ b/apps/plugins/mikmod/load_stx.c @@ -0,0 +1,439 @@ +/* MikMod sound library + (c) 1998, 1999, 2000, 2001, 2002 Miodrag Vallat and others - see file + AUTHORS for complete list. + + This library is free software; you can redistribute it and/or modify + it under the terms of the GNU Library General Public License as + published by the Free Software Foundation; either version 2 of + the License, or (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU Library General Public License for more details. + + You should have received a copy of the GNU Library General Public + License along with this library; if not, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA. +*/ + +/*============================================================================== + + $Id: load_stx.c,v 1.3 2005/04/07 19:57:38 realtech Exp $ + + STMIK 0.2 (STX) module loader + +==============================================================================*/ + +/* + + Written by Claudio Matsuoka + +*/ + +#ifdef HAVE_CONFIG_H +#include "config.h" +#endif + +#ifdef HAVE_UNISTD_H +#include +#endif + +#include +#ifdef HAVE_MEMORY_H +#include +#endif +#include + +#include "mikmod_internals.h" + +#ifdef SUNOS +extern int fprintf(FILE *, const char *, ...); +#endif + +/*========== Module structure */ + +/* header */ +typedef struct STXHEADER { + CHAR songname[20]; + CHAR trackername[8]; + UWORD patsize; + UWORD unknown1; + UWORD patptr; + UWORD insptr; + UWORD chnptr; /* not sure */ + UWORD unknown2; + UWORD unknown3; + UBYTE mastermult; + UBYTE initspeed; + UWORD unknown4; + UWORD unknown5; + UWORD patnum; + UWORD insnum; + UWORD ordnum; + UWORD unknown6; + UWORD unknown7; + UWORD unknown8; + CHAR scrm[4]; +} STXHEADER; + +/* sample information */ +typedef struct STXSAMPLE { + UBYTE type; + CHAR filename[12]; + UBYTE memsegh; + UWORD memsegl; + ULONG length; + ULONG loopbeg; + ULONG loopend; + UBYTE volume; + UBYTE dsk; + UBYTE pack; + UBYTE flags; + ULONG c2spd; + UBYTE unused[12]; + CHAR sampname[28]; + CHAR scrs[4]; +} STXSAMPLE; + +typedef struct STXNOTE { + UBYTE note,ins,vol,cmd,inf; +} STXNOTE; + +/*========== Loader variables */ + +static STXNOTE *stxbuf = NULL; /* pointer to a complete STX pattern */ +static STXHEADER *mh = NULL; +static UWORD *paraptr = NULL; /* parapointer array (see STX docs) */ + +/*========== Loader code */ + +static int STX_Test(void) +{ + UBYTE id[8]; + int t; + + _mm_fseek(modreader,0x3C,SEEK_SET); + if(!_mm_read_UBYTES(id,4,modreader)) return 0; + if(memcmp(id,"SCRM",4)) return 0; + + _mm_fseek(modreader,0x14,SEEK_SET); + if(!_mm_read_UBYTES(id,8,modreader)) return 0; + + for(t=0;t=0)&&(ch<4)) + n=&stxbuf[(64U*ch)+row]; + else + n=&dummy; + + if(flag&32) { + n->note=_mm_read_UBYTE(modreader); + n->ins=_mm_read_UBYTE(modreader); + } + if(flag&64) { + n->vol=_mm_read_UBYTE(modreader); + if(n->vol>64) n->vol=64; + } + if(flag&128) { + n->cmd=_mm_read_UBYTE(modreader); + n->inf=_mm_read_UBYTE(modreader); + } + } else row++; + } + return 1; +} + +static UBYTE* STX_ConvertTrack(STXNOTE* tr) +{ + int t; + + UniReset(); + for(t=0;t<64;t++) { + UBYTE note,ins,vol,cmd,inf; + + note=tr[t].note; + ins=tr[t].ins; + vol=tr[t].vol; + cmd=tr[t].cmd; + inf=tr[t].inf; + + if((ins)&&(ins!=255)) UniInstrument(ins-1); + if((note)&&(note!=255)) { + if(note==254) { + UniPTEffect(0xc,0); /* note cut command */ + vol=255; + } else UniNote(24+((note>>4)*OCTAVE)+(note&0xf)); /* normal note */ + } + + if(vol<255) UniPTEffect(0xc,vol); + + if(cmd<255) switch(cmd) { + case 1: /* Axx set speed to xx */ + UniPTEffect(0xf,inf>>4); + break; + case 2: /* Bxx position jump */ + UniPTEffect(0xb,inf); + break; + case 3: /* Cxx patternbreak to row xx */ + UniPTEffect(0xd,(((inf&0xf0)>>4)*10)+(inf&0xf)); + break; + case 4: /* Dxy volumeslide */ + UniEffect(UNI_S3MEFFECTD,inf); + break; + case 5: /* Exy toneslide down */ + UniEffect(UNI_S3MEFFECTE,inf); + break; + case 6: /* Fxy toneslide up */ + UniEffect(UNI_S3MEFFECTF,inf); + break; + case 7: /* Gxx Tone portamento,speed xx */ + UniPTEffect(0x3,inf); + break; + case 8: /* Hxy vibrato */ + UniPTEffect(0x4,inf); + break; + case 9: /* Ixy tremor, ontime x, offtime y */ + UniEffect(UNI_S3MEFFECTI,inf); + break; + case 0: /* protracker arpeggio */ + if(!inf) break; + /* fall through */ + case 0xa: /* Jxy arpeggio */ + UniPTEffect(0x0,inf); + break; + case 0xb: /* Kxy Dual command H00 & Dxy */ + UniPTEffect(0x4,0); + UniEffect(UNI_S3MEFFECTD,inf); + break; + case 0xc: /* Lxy Dual command G00 & Dxy */ + UniPTEffect(0x3,0); + UniEffect(UNI_S3MEFFECTD,inf); + break; + /* Support all these above, since ST2 can LOAD these values but can + actually only play up to J - and J is only half-way implemented + in ST2 */ + case 0x18: /* Xxx amiga panning command 8xx */ + UniPTEffect(0x8,inf); + of.flags |= UF_PANNING; + break; + } + UniNewline(); + } + return UniDup(); +} + +static int STX_Load(int curious) +{ + int t,u,track = 0; + int version = 0; + SAMPLE *q; + + /* try to read module header */ + _mm_read_string(mh->songname,20,modreader); + _mm_read_string(mh->trackername,8,modreader); + mh->patsize =_mm_read_I_UWORD(modreader); + mh->unknown1 =_mm_read_I_UWORD(modreader); + mh->patptr =_mm_read_I_UWORD(modreader); + mh->insptr =_mm_read_I_UWORD(modreader); + mh->chnptr =_mm_read_I_UWORD(modreader); + mh->unknown2 =_mm_read_I_UWORD(modreader); + mh->unknown3 =_mm_read_I_UWORD(modreader); + mh->mastermult =_mm_read_UBYTE(modreader); + mh->initspeed =_mm_read_UBYTE(modreader)>>4; + mh->unknown4 =_mm_read_I_UWORD(modreader); + mh->unknown5 =_mm_read_I_UWORD(modreader); + mh->patnum =_mm_read_I_UWORD(modreader); + mh->insnum =_mm_read_I_UWORD(modreader); + mh->ordnum =_mm_read_I_UWORD(modreader); + mh->unknown6 =_mm_read_I_UWORD(modreader); + mh->unknown7 =_mm_read_I_UWORD(modreader); + mh->unknown8 =_mm_read_I_UWORD(modreader); + _mm_read_string(mh->scrm,4,modreader); + + if(_mm_eof(modreader)) { + _mm_errno = MMERR_LOADING_HEADER; + return 0; + } + + /* set module variables */ + of.songname = DupStr(mh->songname,20,1); + of.numpat = mh->patnum; + of.reppos = 0; + of.numins = of.numsmp = mh->insnum; + of.initspeed = mh->initspeed; + of.inittempo = 125; + of.numchn = 4; + of.flags |= UF_S3MSLIDES; + of.bpmlimit = 32; + + if(!(paraptr=(UWORD*)MikMod_malloc((of.numins+of.numpat)*sizeof(UWORD)))) + return 0; + + /* read the instrument+pattern parapointers */ + _mm_fseek(modreader,mh->insptr<<4,SEEK_SET); + _mm_read_I_UWORDS(paraptr,of.numins,modreader); + _mm_fseek(modreader,mh->patptr<<4,SEEK_SET); + _mm_read_I_UWORDS(paraptr+of.numins,of.numpat,modreader); + + /* check module version */ + _mm_fseek(modreader,paraptr[of.numins]<<4,SEEK_SET); + version=_mm_read_I_UWORD(modreader); + if(version==mh->patsize) { + version = 0x10; + of.modtype = StrDup("STMIK 0.2 (STM2STX 1.0)"); + } else { + version = 0x11; + of.modtype = StrDup("STMIK 0.2 (STM2STX 1.1)"); + } + + /* read the order data */ + _mm_fseek(modreader,(mh->chnptr<<4)+32,SEEK_SET); + if(!AllocPositions(mh->ordnum)) return 0; + for(t=0;tordnum;t++) { + of.positions[t]=_mm_read_UBYTE(modreader); + _mm_fseek(modreader,4,SEEK_CUR); + } + + of.numpos=0;poslookupcnt=mh->ordnum; + for(t=0;tordnum;t++) { + int order=of.positions[t]; + if(order==255) order=LAST_PATTERN; + of.positions[of.numpos]=order; + poslookup[t]=of.numpos; /* bug fix for freaky S3Ms */ + if(of.positions[t]<254) of.numpos++; + else + /* special end of song pattern */ + if((order==LAST_PATTERN)&&(!curious)) break; + } + + if(_mm_eof(modreader)) { + _mm_errno = MMERR_LOADING_HEADER; + return 0; + } + + /* load samples */ + if(!AllocSamples()) return 0; + for(q=of.samples,t=0;tsamplename = DupStr(s.sampname,28,1); + q->speed = (s.c2spd * 8363) / 8448; + q->length = s.length; + q->loopstart = s.loopbeg; + q->loopend = s.loopend; + q->volume = s.volume; + q->seekpos = (((long)s.memsegh)<<16|s.memsegl)<<4; + q->flags |= SF_SIGNED; + + if(s.flags&1) q->flags |= SF_LOOP; + if(s.flags&4) q->flags |= SF_16BITS; + } + + /* load pattern info */ + of.numtrk=of.numpat*of.numchn; + if(!AllocTracks()) return 0; + if(!AllocPatterns()) return 0; + + for(t=0;t