Logo Search packages:      
Sourcecode: adplug version File versions  Download package

amd.cpp

/*
 * Adplug - Replayer for many OPL2/OPL3 audio file formats.
 * Copyright (C) 1999 - 2003 Simon Peter, <dn.tlp@gmx.net>, 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 <dn.tlp@gmx.net>
 */

#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;
}

Generated by  Doxygen 1.6.0   Back to index