diff Plugins/Input/adplug/core/amd.cpp @ 359:8df427a314a8 trunk

[svn] Adlib synthesizer (AdPlug) support.

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Plugins/Input/adplug/core/amd.cpp	Fri Dec 30 16:31:39 2005 -0800
@@ -0,0 +1,173 @@
+/*
+ * Adplug - Replayer for many OPL2/OPL3 audio file formats.
+ * Copyright (C) 1999 - 2003 Simon Peter, <[e-mail]>, et al.
+ * 
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+ * 
+ * This library 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
+ * Lesser General Public License for more details.
+ * 
+ * You should have received a copy of the GNU Lesser 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
+ *
+ * amd.cpp - AMD Loader by Simon Peter <[e-mail]>
+ */
+
+#include <string.h>
+
+#include "amd.h"
+#include "debug.h"
+
+CPlayer *CamdLoader::factory(Copl *newopl)
+{
+  return new CamdLoader(newopl);
+}
+
+bool CamdLoader::load(const std::string &filename, const CFileProvider &fp)
+{
+        binistream *f = fp.open(filename); if(!f) return false;
+	struct {
+		char id[9];
+		unsigned char version;
+	} header;
+	int i, j, k, t, numtrax;
+	unsigned char buf, buf2, buf3;
+	const unsigned char convfx[10] = {0,1,2,9,17,11,13,18,3,14};
+
+	// file validation section
+	if(fp.filesize(f) < 1072) { fp.close(f); return false; }
+	f->seek(1062); f->readString(header.id, 9);
+	header.version = f->readInt(1);
+	if(strncmp(header.id, "<o\xefQU\xeeRoR", 9) &&
+	   strncmp(header.id, "MaDoKaN96", 9)) { fp.close(f); return false; }
+
+	// load section
+	memset(inst, 0, sizeof(inst));
+	f->seek(0);
+	f->readString(songname, sizeof(songname));
+	f->readString(author, sizeof(author));
+	for(i = 0; i < 26; i++) {
+		f->readString(instname[i], 23);
+		for(j = 0; j < 11; j++) inst[i].data[j] = f->readInt(1);
+	}
+	length = f->readInt(1); nop = f->readInt(1) + 1;
+	for(i=0;i<128;i++) order[i] = f->readInt(1);
+	f->seek(10, binio::Add);
+	if(header.version == 0x10) {	// unpacked module
+		for(i=0;i<64*9;i++)
+			trackord[i/9][i%9] = i+1;
+		t = 0;
+		while(!f->ateof()) {
+			for(j=0;j<64;j++)
+				for(i=t;i<t+9;i++) {
+					buf = f->readInt(1);
+					tracks[i][j].param2 = (buf&127) % 10;
+					tracks[i][j].param1 = (buf&127) / 10;
+					buf = f->readInt(1);
+					tracks[i][j].inst = buf >> 4;
+					tracks[i][j].command = buf & 0x0f;
+					buf = f->readInt(1);
+					if(buf >> 4)	// fix bug in AMD save routine
+						tracks[i][j].note = ((buf & 14) >> 1) * 12 + (buf >> 4);
+					else
+						tracks[i][j].note = 0;
+					tracks[i][j].inst += (buf & 1) << 4;
+				}
+			t += 9;
+		}
+	} else {						// packed module
+		for(i=0;i<nop;i++)
+		  for(j=0;j<9;j++)
+		    trackord[i][j] = f->readInt(2) + 1;
+		numtrax = f->readInt(2);
+		for(k=0;k<numtrax;k++) {
+			i = f->readInt(2);
+			if(i > 575) i = 575;	// fix corrupted modules
+			j = 0;
+			do {
+				buf = f->readInt(1);
+				if(buf & 128) {
+					for(t = j; t < j + (buf & 127) && t < 64; t++) {
+						tracks[i][t].command = 0;
+						tracks[i][t].inst = 0;
+						tracks[i][t].note = 0;
+						tracks[i][t].param1 = 0;
+						tracks[i][t].param2 = 0;
+					}
+					j += buf & 127;
+					continue;
+				}
+				tracks[i][j].param2 = buf % 10;
+				tracks[i][j].param1 = buf / 10;
+				buf = f->readInt(1);
+				tracks[i][j].inst = buf >> 4;
+				tracks[i][j].command = buf & 0x0f;
+				buf = f->readInt(1);
+				if(buf >> 4)	// fix bug in AMD save routine
+					tracks[i][j].note = ((buf & 14) >> 1) * 12 + (buf >> 4);
+				else
+					tracks[i][j].note = 0;
+				tracks[i][j].inst += (buf & 1) << 4;
+				j++;
+			} while(j<64);
+		}
+	}
+	fp.close(f);
+
+	// convert to protracker replay data
+	bpm = 50; restartpos = 0; activechan = 0xffff; flags = Decimal;
+	for(i=0;i<26;i++) {	// convert instruments
+		buf = inst[i].data[0];
+		buf2 = inst[i].data[1];
+		inst[i].data[0] = inst[i].data[10];
+		inst[i].data[1] = buf;
+		buf = inst[i].data[2];
+		inst[i].data[2] = inst[i].data[5];
+		buf3 = inst[i].data[3];
+		inst[i].data[3] = buf;
+		buf = inst[i].data[4];
+		inst[i].data[4] = inst[i].data[7];
+		inst[i].data[5] = buf3;
+		buf3 = inst[i].data[6];
+		inst[i].data[6] = inst[i].data[8];
+		inst[i].data[7] = buf;
+		inst[i].data[8] = inst[i].data[9];
+		inst[i].data[9] = buf2;
+		inst[i].data[10] = buf3;
+		for(j=0;j<23;j++)	// convert names
+			if(instname[i][j] == '\xff')
+				instname[i][j] = '\x20';
+	}
+	for(i=0;i<nop*9;i++)	// convert patterns
+		for(j=0;j<64;j++) {
+			tracks[i][j].command = convfx[tracks[i][j].command];
+			if(tracks[i][j].command == 14) {
+				if(tracks[i][j].param1 == 2) {
+					tracks[i][j].command = 10;
+					tracks[i][j].param1 = tracks[i][j].param2;
+					tracks[i][j].param2 = 0;
+				}
+				if(tracks[i][j].param1 == 3) {
+					tracks[i][j].command = 10;
+					tracks[i][j].param1 = 0;
+				}
+			}
+		}
+
+	rewind(0);
+	return true;
+}
+
+float CamdLoader::getrefresh()
+{
+	if(tempo)
+		return (float) (tempo);
+	else
+		return 18.2f;
+}