mirror of
https://github.com/tildearrow/furnace.git
synced 2024-11-02 02:52:40 +00:00
XM import: more work more work
This commit is contained in:
parent
36e6899eff
commit
2d33c004af
1 changed files with 312 additions and 188 deletions
|
@ -19,11 +19,115 @@
|
|||
|
||||
#include "fileOpsCommon.h"
|
||||
|
||||
void readEnvelope(DivInstrument* ins, int env, unsigned char flags, unsigned char numPoints, unsigned char loopStart, unsigned char loopEnd, unsigned char susPoint, short* points) {
|
||||
if (numPoints>24) numPoints=24;
|
||||
|
||||
if (loopStart>=numPoints) loopStart=numPoints-1;
|
||||
if (loopEnd>=numPoints) loopEnd=numPoints-1;
|
||||
if (susPoint>=numPoints) susPoint=numPoints-1;
|
||||
|
||||
unsigned short pointTime[12];
|
||||
short pointVal[12];
|
||||
|
||||
for (int i=0; i<12; i++) {
|
||||
pointTime[i]=points[i<<1];
|
||||
pointVal[i]=points[1|(i<<1)];
|
||||
}
|
||||
|
||||
// don't process if there aren't any points or if the envelope is disabled
|
||||
if (numPoints<1) return;
|
||||
if (!(flags&1)) return;
|
||||
|
||||
// convert into macro, or try to
|
||||
DivInstrumentMacro* target=NULL;
|
||||
switch (env) {
|
||||
case 0: // volume
|
||||
target=&ins->std.volMacro;
|
||||
break;
|
||||
case 1: // panning (split later)
|
||||
target=&ins->std.panLMacro;
|
||||
break;
|
||||
}
|
||||
target->len=0;
|
||||
int point=0;
|
||||
bool pointJustBegan=true;
|
||||
// mark loop end as end of envelope
|
||||
if (flags&4) {
|
||||
if (loopEnd<numPoints) numPoints=loopEnd+1;
|
||||
}
|
||||
for (int i=0; i<255; i++) {
|
||||
int curPoint=MIN(point,numPoints-1);
|
||||
int nextPoint=MIN(point+1,numPoints-1);
|
||||
int p0=pointVal[curPoint];
|
||||
int p1=pointVal[nextPoint];
|
||||
while (i>pointTime[nextPoint]) {
|
||||
point++;
|
||||
pointJustBegan=true;
|
||||
curPoint=MIN(point,numPoints-1);
|
||||
nextPoint=MIN(point+1,numPoints-1);
|
||||
p0=pointVal[curPoint];
|
||||
p1=pointVal[nextPoint];
|
||||
if ((point+1)>=numPoints) {
|
||||
break;
|
||||
}
|
||||
}
|
||||
if (pointJustBegan) {
|
||||
pointJustBegan=false;
|
||||
if (flags&4) { // loop
|
||||
if (point==loopStart) {
|
||||
if (loopStart!=loopEnd) {
|
||||
target->loop=i;
|
||||
}
|
||||
}
|
||||
}
|
||||
if (flags&2) { // sustain
|
||||
if (point==susPoint) {
|
||||
target->rel=MAX(i-1,0);
|
||||
}
|
||||
}
|
||||
}
|
||||
if ((point+1)>=numPoints) {
|
||||
target->len=i;
|
||||
//target->val[i]=p0;
|
||||
break;
|
||||
}
|
||||
int timeDiff=pointTime[nextPoint]-pointTime[curPoint];
|
||||
int curTime=i-pointTime[curPoint];
|
||||
if (timeDiff<1) timeDiff=1;
|
||||
if (curTime<0) curTime=0;
|
||||
|
||||
target->len=i+1;
|
||||
target->val[i]=p0+(((p1-p0)*curTime)/timeDiff);
|
||||
}
|
||||
|
||||
// split L/R
|
||||
if (env==1) {
|
||||
for (int i=0; i<ins->std.panLMacro.len; i++) {
|
||||
int val=ins->std.panLMacro.val[i];
|
||||
if (val==0) {
|
||||
ins->std.panLMacro.val[i]=4095;
|
||||
ins->std.panRMacro.val[i]=4095;
|
||||
} else if (val>0) { // pan right
|
||||
ins->std.panLMacro.val[i]=4095*pow(1.0-((double)val/64.0),0.25);
|
||||
ins->std.panRMacro.val[i]=4095;
|
||||
} else { // pan left
|
||||
ins->std.panLMacro.val[i]=4095;
|
||||
ins->std.panRMacro.val[i]=4095*pow(1.0+((double)val/64.0),0.25);
|
||||
}
|
||||
}
|
||||
ins->std.panRMacro.len=ins->std.panLMacro.len;
|
||||
ins->std.panRMacro.loop=ins->std.panLMacro.loop;
|
||||
ins->std.panRMacro.rel=ins->std.panLMacro.rel;
|
||||
}
|
||||
}
|
||||
|
||||
bool DivEngine::loadXM(unsigned char* file, size_t len) {
|
||||
struct InvalidHeaderException {};
|
||||
bool success=false;
|
||||
char magic[32];
|
||||
unsigned char sampleVol[256][256];
|
||||
unsigned char samplePan[256][256];
|
||||
unsigned char noteMap[256][128];
|
||||
|
||||
unsigned short patLen[256];
|
||||
|
||||
|
@ -37,6 +141,8 @@ bool DivEngine::loadXM(unsigned char* file, size_t len) {
|
|||
warnings="";
|
||||
|
||||
memset(sampleVol,0,256*256);
|
||||
memset(samplePan,0,256*256);
|
||||
memset(noteMap,0,256*128);
|
||||
|
||||
memset(patLen,0,256*sizeof(unsigned short));
|
||||
|
||||
|
@ -318,6 +424,197 @@ bool DivEngine::loadXM(unsigned char* file, size_t len) {
|
|||
}
|
||||
}
|
||||
|
||||
// read instruments
|
||||
for (int i=0; i<ds.insLen; i++) {
|
||||
short volEnv[24];
|
||||
short panEnv[48];
|
||||
|
||||
DivInstrument* ins=new DivInstrument;
|
||||
logD("instrument %d",i);
|
||||
headerSeek=reader.tell();
|
||||
headerSeek+=reader.readI();
|
||||
|
||||
logV("the freaking thing ends at %x",headerSeek);
|
||||
|
||||
ins->name=reader.readStringLatin1(22);
|
||||
ins->type=DIV_INS_ES5506;
|
||||
ins->amiga.useNoteMap=true;
|
||||
|
||||
unsigned char insType=reader.readC();
|
||||
|
||||
/*
|
||||
if (insType!=0) {
|
||||
logE("unknown instrument type!");
|
||||
lastError="unknown instrument type";
|
||||
delete ins;
|
||||
song.unload();
|
||||
delete[] file;
|
||||
return false;
|
||||
}*/
|
||||
|
||||
logV("type: %d",insType);
|
||||
|
||||
unsigned short sampleCount=reader.readS();
|
||||
logV("%d samples",sampleCount);
|
||||
|
||||
if (sampleCount>0) {
|
||||
unsigned int sampleHeaderSize=reader.readI();
|
||||
logV("sample header size: %d",sampleHeaderSize);
|
||||
for (int j=0; j<96; j++) {
|
||||
unsigned char nextMap=reader.readC();
|
||||
ins->amiga.noteMap[j].map=ds.sample.size()+nextMap;
|
||||
noteMap[i][j]=nextMap;
|
||||
}
|
||||
|
||||
for (int j=0; j<24; j++) {
|
||||
volEnv[j]=reader.readS();
|
||||
}
|
||||
for (int j=0; j<24; j++) {
|
||||
panEnv[j]=reader.readS();
|
||||
}
|
||||
|
||||
unsigned char volEnvLen=reader.readC();
|
||||
unsigned char panEnvLen=reader.readC();
|
||||
unsigned char volSusPoint=reader.readC();
|
||||
unsigned char volLoopStart=reader.readC();
|
||||
unsigned char volLoopEnd=reader.readC();
|
||||
unsigned char panSusPoint=reader.readC();
|
||||
unsigned char panLoopStart=reader.readC();
|
||||
unsigned char panLoopEnd=reader.readC();
|
||||
unsigned char volType=reader.readC();
|
||||
unsigned char panType=reader.readC();
|
||||
|
||||
unsigned char vibType=reader.readC();
|
||||
unsigned char vibSweep=reader.readC();
|
||||
unsigned char vibDepth=reader.readC();
|
||||
unsigned char vibRate=reader.readC();
|
||||
|
||||
unsigned short volFade=reader.readS();
|
||||
reader.readS(); // reserved
|
||||
|
||||
logV("%d",vibType);
|
||||
logV("%d",vibSweep);
|
||||
logV("%d",vibDepth);
|
||||
logV("%d",vibRate);
|
||||
logV("volFade: %d",volFade);
|
||||
|
||||
// convert envelopes
|
||||
readEnvelope(ins,0,volType,volEnvLen,volLoopStart,volLoopEnd,volSusPoint,volEnv);
|
||||
readEnvelope(ins,1,panType,panEnvLen,panLoopStart,panLoopEnd,panSusPoint,panEnv);
|
||||
|
||||
if (volType&1) {
|
||||
// add fade-out
|
||||
int cur=64;
|
||||
if (ins->std.volMacro.len>0) {
|
||||
cur=ins->std.volMacro.val[ins->std.volMacro.len-1];
|
||||
}
|
||||
for (int fadeOut=32767; fadeOut>0 && ins->std.volMacro.len<254; fadeOut-=volFade) {
|
||||
ins->std.volMacro.val[ins->std.volMacro.len++]=(cur*fadeOut)>>15;
|
||||
}
|
||||
ins->std.volMacro.val[ins->std.volMacro.len++]=0;
|
||||
} else {
|
||||
// add a one-tick macro to make note release happy
|
||||
ins->std.volMacro.val[0]=64;
|
||||
ins->std.volMacro.val[1]=0;
|
||||
ins->std.volMacro.rel=0;
|
||||
ins->std.volMacro.len=2;
|
||||
}
|
||||
|
||||
if (!reader.seek(headerSeek,SEEK_SET)) {
|
||||
logE("premature end of file!");
|
||||
lastError="incomplete file";
|
||||
delete[] file;
|
||||
return false;
|
||||
}
|
||||
|
||||
// read samples for this instrument
|
||||
std::vector<DivSample*> toAdd;
|
||||
for (int j=0; j<sampleCount; j++) {
|
||||
DivSample* s=new DivSample;
|
||||
|
||||
unsigned int numSamples=reader.readI();
|
||||
if (numSamples>16777216) {
|
||||
logE("abnormal sample size! %x",reader.tell());
|
||||
lastError="bad sample size";
|
||||
delete s;
|
||||
delete[] file;
|
||||
return false;
|
||||
}
|
||||
|
||||
s->loopStart=reader.readI();
|
||||
s->loopEnd=reader.readI()+s->loopStart;
|
||||
|
||||
sampleVol[i][j]=reader.readC();
|
||||
|
||||
signed char fine=reader.readC();
|
||||
unsigned char flags=reader.readC();
|
||||
samplePan[i][j]=reader.readC();
|
||||
signed char note=reader.readC();
|
||||
|
||||
switch (flags&3) {
|
||||
case 0:
|
||||
s->loop=false;
|
||||
break;
|
||||
case 1:
|
||||
s->loop=true;
|
||||
s->loopMode=DIV_SAMPLE_LOOP_FORWARD;
|
||||
break;
|
||||
case 2:
|
||||
s->loop=true;
|
||||
s->loopMode=DIV_SAMPLE_LOOP_PINGPONG;
|
||||
break;
|
||||
}
|
||||
|
||||
reader.readC(); // reserved
|
||||
|
||||
s->centerRate=8363.0*pow(2.0,((double)note+((double)fine/128.0))/12.0);
|
||||
|
||||
s->name=reader.readStringLatin1(22);
|
||||
s->depth=(flags&16)?DIV_SAMPLE_DEPTH_16BIT:DIV_SAMPLE_DEPTH_8BIT;
|
||||
if (flags&16) {
|
||||
numSamples>>=1;
|
||||
}
|
||||
s->init(numSamples);
|
||||
|
||||
// seek here???
|
||||
toAdd.push_back(s);
|
||||
}
|
||||
|
||||
for (int j=0; j<sampleCount; j++) {
|
||||
DivSample* s=toAdd[j];
|
||||
|
||||
// load sample data
|
||||
if (s->depth==DIV_SAMPLE_DEPTH_16BIT) {
|
||||
short next=0;
|
||||
for (unsigned int i=0; i<s->samples; i++) {
|
||||
next+=reader.readS();
|
||||
s->data16[i]=next;
|
||||
}
|
||||
} else {
|
||||
signed char next=0;
|
||||
for (unsigned int i=0; i<s->samples; i++) {
|
||||
next+=reader.readC();
|
||||
s->data8[i]=next;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
for (DivSample* i: toAdd) {
|
||||
ds.sample.push_back(i);
|
||||
}
|
||||
toAdd.clear();
|
||||
} else {
|
||||
if (!reader.seek(headerSeek,SEEK_SET)) {
|
||||
logE("premature end of file!");
|
||||
lastError="incomplete file";
|
||||
delete[] file;
|
||||
return false;
|
||||
}
|
||||
}
|
||||
|
||||
ds.ins.push_back(ins);
|
||||
}
|
||||
|
||||
if (!reader.seek(patBegin,SEEK_SET)) {
|
||||
logE("premature end of file!");
|
||||
lastError="incomplete file";
|
||||
|
@ -437,15 +734,18 @@ bool DivEngine::loadXM(unsigned char* file, size_t len) {
|
|||
}
|
||||
|
||||
if (hasNote) {
|
||||
if (note>=96) {
|
||||
p->data[j][0]=100;
|
||||
p->data[j][1]=0;
|
||||
} else {
|
||||
p->data[j][0]=note%12;
|
||||
p->data[j][1]=note/12;
|
||||
if (p->data[j][0]==0) {
|
||||
p->data[j][0]=12;
|
||||
p->data[j][1]=(unsigned char)(p->data[j][1]-1);
|
||||
if (note!=0) {
|
||||
if (note>96) {
|
||||
p->data[j][0]=101;
|
||||
p->data[j][1]=0;
|
||||
} else {
|
||||
note--;
|
||||
p->data[j][0]=note%12;
|
||||
p->data[j][1]=note/12;
|
||||
if (p->data[j][0]==0) {
|
||||
p->data[j][0]=12;
|
||||
p->data[j][1]=(unsigned char)(p->data[j][1]-1);
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
@ -464,7 +764,7 @@ bool DivEngine::loadXM(unsigned char* file, size_t len) {
|
|||
if (vol==0) {
|
||||
if (hasNote && hasIns && note<96 && ins>0) {
|
||||
// TODO: default volume
|
||||
p->data[j][3]=0x40;
|
||||
p->data[j][3]=sampleVol[(ins-1)&255][noteMap[(ins-1)&255][note&127]];
|
||||
}
|
||||
}
|
||||
if (hasEffect) {
|
||||
|
@ -474,11 +774,11 @@ bool DivEngine::loadXM(unsigned char* file, size_t len) {
|
|||
effectVal=reader.readC();
|
||||
}
|
||||
|
||||
if (hasEffect) {
|
||||
if (hasEffect || (hasEffectVal && effectVal!=0)) {
|
||||
switch (effect) {
|
||||
case 0: // arp
|
||||
if (effectVal!=0) {
|
||||
arpStatus[k]=effectVal;
|
||||
arpStatus[k]=(effectVal>>4)|(effectVal<<4);
|
||||
arpStatusChanged[k]=true;
|
||||
}
|
||||
arping[k]=true;
|
||||
|
@ -702,182 +1002,6 @@ bool DivEngine::loadXM(unsigned char* file, size_t len) {
|
|||
}
|
||||
}
|
||||
|
||||
// read instruments
|
||||
for (int i=0; i<ds.insLen; i++) {
|
||||
unsigned char volEnv[48];
|
||||
unsigned char panEnv[48];
|
||||
|
||||
DivInstrument* ins=new DivInstrument;
|
||||
logD("instrument %d",i);
|
||||
headerSeek=reader.tell();
|
||||
headerSeek+=reader.readI();
|
||||
|
||||
logV("the freaking thing ends at %x",headerSeek);
|
||||
|
||||
ins->name=reader.readStringLatin1(22);
|
||||
ins->type=DIV_INS_ES5506;
|
||||
ins->amiga.useNoteMap=true;
|
||||
|
||||
unsigned char insType=reader.readC();
|
||||
|
||||
/*
|
||||
if (insType!=0) {
|
||||
logE("unknown instrument type!");
|
||||
lastError="unknown instrument type";
|
||||
delete ins;
|
||||
song.unload();
|
||||
delete[] file;
|
||||
return false;
|
||||
}*/
|
||||
|
||||
logV("type: %d",insType);
|
||||
|
||||
unsigned short sampleCount=reader.readS();
|
||||
logV("%d samples",sampleCount);
|
||||
|
||||
if (sampleCount>0) {
|
||||
unsigned int sampleHeaderSize=reader.readI();
|
||||
logV("sample header size: %d",sampleHeaderSize);
|
||||
for (int j=0; j<96; j++) {
|
||||
unsigned char nextMap=reader.readC();
|
||||
if (nextMap==0) {
|
||||
ins->amiga.noteMap[j].map=-1;
|
||||
} else {
|
||||
ins->amiga.noteMap[j].map=ds.sample.size()+nextMap-1;
|
||||
}
|
||||
}
|
||||
|
||||
reader.read(volEnv,48);
|
||||
reader.read(panEnv,48);
|
||||
|
||||
unsigned char volEnvLen=reader.readC();
|
||||
unsigned char panEnvLen=reader.readC();
|
||||
unsigned char volSusPoint=reader.readC();
|
||||
unsigned char volLoopStart=reader.readC();
|
||||
unsigned char volLoopEnd=reader.readC();
|
||||
unsigned char panSusPoint=reader.readC();
|
||||
unsigned char panLoopStart=reader.readC();
|
||||
unsigned char panLoopEnd=reader.readC();
|
||||
unsigned char volType=reader.readC();
|
||||
unsigned char panType=reader.readC();
|
||||
|
||||
unsigned char vibType=reader.readC();
|
||||
unsigned char vibSweep=reader.readC();
|
||||
unsigned char vibDepth=reader.readC();
|
||||
unsigned char vibRate=reader.readC();
|
||||
|
||||
unsigned short volFade=reader.readS();
|
||||
reader.readS(); // reserved
|
||||
|
||||
logV("%d",volEnvLen);
|
||||
logV("%d",panEnvLen);
|
||||
logV("%d",volSusPoint);
|
||||
logV("%d",volLoopStart);
|
||||
logV("%d",volLoopEnd);
|
||||
logV("%d",panSusPoint);
|
||||
logV("%d",panLoopStart);
|
||||
logV("%d",panLoopEnd);
|
||||
logV("%d",volType);
|
||||
logV("%d",panType);
|
||||
logV("%d",vibType);
|
||||
logV("%d",vibSweep);
|
||||
logV("%d",vibDepth);
|
||||
logV("%d",vibRate);
|
||||
logV("%d",volFade);
|
||||
|
||||
if (!reader.seek(headerSeek,SEEK_SET)) {
|
||||
logE("premature end of file!");
|
||||
lastError="incomplete file";
|
||||
delete[] file;
|
||||
return false;
|
||||
}
|
||||
|
||||
// read samples for this instrument
|
||||
std::vector<DivSample*> toAdd;
|
||||
for (int j=0; j<sampleCount; j++) {
|
||||
DivSample* s=new DivSample;
|
||||
|
||||
unsigned int numSamples=reader.readI();
|
||||
if (numSamples>16777216) {
|
||||
logE("abnormal sample size! %x",reader.tell());
|
||||
lastError="bad sample size";
|
||||
delete s;
|
||||
delete[] file;
|
||||
return false;
|
||||
}
|
||||
|
||||
s->loopStart=reader.readI();
|
||||
s->loopEnd=reader.readI()+s->loopStart;
|
||||
|
||||
sampleVol[i][j]=reader.readC();
|
||||
|
||||
signed char fine=reader.readC();
|
||||
unsigned char flags=reader.readC();
|
||||
unsigned char pan=reader.readC();
|
||||
unsigned char note=reader.readC();
|
||||
|
||||
logV("%d %d %d",fine,pan,note);
|
||||
|
||||
switch (flags&3) {
|
||||
case 0:
|
||||
s->loop=false;
|
||||
break;
|
||||
case 1:
|
||||
s->loop=true;
|
||||
s->loopMode=DIV_SAMPLE_LOOP_FORWARD;
|
||||
break;
|
||||
case 2:
|
||||
s->loop=true;
|
||||
s->loopMode=DIV_SAMPLE_LOOP_PINGPONG;
|
||||
break;
|
||||
}
|
||||
|
||||
reader.readC(); // reserved
|
||||
|
||||
s->name=reader.readStringLatin1(22);
|
||||
s->depth=(flags&4)?DIV_SAMPLE_DEPTH_16BIT:DIV_SAMPLE_DEPTH_8BIT;
|
||||
s->init(numSamples);
|
||||
|
||||
|
||||
// seek here???
|
||||
toAdd.push_back(s);
|
||||
}
|
||||
|
||||
for (int j=0; j<sampleCount; j++) {
|
||||
DivSample* s=toAdd[j];
|
||||
|
||||
// load sample data
|
||||
if (s->depth==DIV_SAMPLE_DEPTH_16BIT) {
|
||||
short next=0;
|
||||
for (unsigned int i=0; i<s->samples; i++) {
|
||||
next+=reader.readS();
|
||||
s->data16[i]=next;
|
||||
}
|
||||
} else {
|
||||
signed char next=0;
|
||||
for (unsigned int i=0; i<s->samples; i++) {
|
||||
next+=reader.readC();
|
||||
s->data8[i]=next;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
for (DivSample* i: toAdd) {
|
||||
ds.sample.push_back(i);
|
||||
}
|
||||
toAdd.clear();
|
||||
} else {
|
||||
if (!reader.seek(headerSeek,SEEK_SET)) {
|
||||
logE("premature end of file!");
|
||||
lastError="incomplete file";
|
||||
delete[] file;
|
||||
return false;
|
||||
}
|
||||
}
|
||||
|
||||
ds.ins.push_back(ins);
|
||||
}
|
||||
|
||||
ds.sampleLen=ds.sample.size();
|
||||
if (ds.sampleLen>256) {
|
||||
logE("too many samples!");
|
||||
|
|
Loading…
Reference in a new issue