cmXScore.c : Added use of cmSeqAlign in _cmXScoreProcessMidi().

This commit is contained in:
kevin 2016-02-24 19:09:29 -05:00
parent d49f626d0e
commit 7fcce19799

View File

@ -1,6 +1,7 @@
#include "cmPrefix.h" #include "cmPrefix.h"
#include "cmGlobal.h" #include "cmGlobal.h"
#include "cmFloatTypes.h" #include "cmFloatTypes.h"
#include "cmComplexTypes.h"
#include "cmRpt.h" #include "cmRpt.h"
#include "cmErr.h" #include "cmErr.h"
#include "cmCtx.h" #include "cmCtx.h"
@ -16,6 +17,16 @@
#include "cmLex.h" #include "cmLex.h"
#include "cmCsv.h" #include "cmCsv.h"
#include "cmFile.h"
#include "cmSymTbl.h"
#include "cmAudioFile.h"
#include "cmAudioFile.h"
#include "cmProcObj.h"
#include "cmProcTemplate.h"
#include "cmProc.h"
#include "cmProc2.h"
#include "cmProc5.h"
cmXsH_t cmXsNullHandle = cmSTATIC_NULL_HANDLE; cmXsH_t cmXsNullHandle = cmSTATIC_NULL_HANDLE;
enum enum
@ -51,9 +62,10 @@ typedef struct cmXsNote_str
cmChar_t step; // A-G cmChar_t step; // A-G
unsigned octave; // sci pitch octave unsigned octave; // sci pitch octave
int alter; // +n=sharps,-n=flats int alter; // +n=sharps,-n=flats
unsigned staff; unsigned staff; // 1=treble 2=bass
unsigned tick; // unsigned tick; //
unsigned duration; // duration in ticks unsigned duration; // duration in ticks
unsigned locIdx; // location index (chords share the same location index)
double rvalue; // 1/rvalue = rythmic value (1/0.5 double whole 1/1 whole 1/2 half 1/4=quarter note, 1/8=eighth note, ...) double rvalue; // 1/rvalue = rythmic value (1/0.5 double whole 1/1 whole 1/2 half 1/4=quarter note, 1/8=eighth note, ...)
const cmChar_t* tvalue; // text value const cmChar_t* tvalue; // text value
@ -706,6 +718,8 @@ cmXsRC_t _cmXScoreParsePart( cmXScore_t* p, cmXsPart_t* pp )
return rc; return rc;
} }
// Insert note 'np' into the sorted note list based at 's0'.
// Return a pointer to the base of the list after the insertion.
cmXsNote_t* _cmXScoreInsertSortedNote( cmXsNote_t* s0, cmXsNote_t* np ) cmXsNote_t* _cmXScoreInsertSortedNote( cmXsNote_t* s0, cmXsNote_t* np )
{ {
if( s0 == NULL ) if( s0 == NULL )
@ -740,9 +754,11 @@ cmXsNote_t* _cmXScoreInsertSortedNote( cmXsNote_t* s0, cmXsNote_t* np )
void _cmXScoreSort( cmXScore_t* p ) void _cmXScoreSort( cmXScore_t* p )
{ {
// for each part
cmXsPart_t* pp = p->partL; cmXsPart_t* pp = p->partL;
for(; pp!=NULL; pp=pp->link) for(; pp!=NULL; pp=pp->link)
{ {
// for each measure in this part
cmXsMeas_t* mp = pp->measL; cmXsMeas_t* mp = pp->measL;
for(; mp!=NULL; mp=mp->link) for(; mp!=NULL; mp=mp->link)
{ {
@ -750,6 +766,7 @@ void _cmXScoreSort( cmXScore_t* p )
cmXsVoice_t* vp = mp->voiceL; cmXsVoice_t* vp = mp->voiceL;
for(; vp!=NULL; vp=vp->link) for(; vp!=NULL; vp=vp->link)
{ {
// for each note in this measure
cmXsNote_t* np = vp->noteL; cmXsNote_t* np = vp->noteL;
for(; np!=NULL; np=np->mlink) for(; np!=NULL; np=np->mlink)
mp->noteL = _cmXScoreInsertSortedNote(mp->noteL,np); mp->noteL = _cmXScoreInsertSortedNote(mp->noteL,np);
@ -797,27 +814,44 @@ bool _cmXScoreFindTiedNote( cmXScore_t* p, cmXsMeas_t* mp, cmXsNote_t* np )
return false; return false;
} }
void _cmXScoreProcessTies( cmXScore_t* p ) void _cmXScoreResolveTiesAndLoc( cmXScore_t* p )
{ {
unsigned n = 0; unsigned n = 0;
unsigned m = 0; unsigned m = 0;
cmXsPart_t* pp = p->partL; cmXsPart_t* pp = p->partL;
for(; pp!=NULL; pp=pp->link) for(; pp!=NULL; pp=pp->link)
{ {
unsigned locIdx = 1;
cmXsMeas_t* mp = pp->measL; cmXsMeas_t* mp = pp->measL;
for(; mp!=NULL; mp=mp->link) for(; mp!=NULL; mp=mp->link)
{ {
cmXsNote_t* n0 = NULL;
cmXsNote_t* np = mp->noteL; cmXsNote_t* np = mp->noteL;
for(; np!=NULL; np=np->slink) for(; np!=NULL; np=np->slink)
{
// if this note begins a tie and has not yet been processed
// (A note that continues a tie and therefore has a kTieBegXsFl set
// may have already been processed by an earlier tied note.)
if( cmIsFlag(np->flags,kTieBegXsFl) && cmIsNotFlag(np->flags,kTieProcXsFl)) if( cmIsFlag(np->flags,kTieBegXsFl) && cmIsNotFlag(np->flags,kTieProcXsFl))
{ {
if( _cmXScoreFindTiedNote(p,mp,np) ) if( _cmXScoreFindTiedNote(p,mp,np) )
m += 1; m += 1;
n += 1; n += 1;
} }
// set the location
if( cmIsFlag(np->flags,kOnsetXsFl) )
{
if( n0!=NULL && n0->tick!=np->tick)
locIdx += 1;
np->locIdx = locIdx;
n0 = np;
}
}
} }
} }
@ -911,6 +945,7 @@ cmXsNote_t* _cmXScoreNextNote( cmXsPart_t* pp, cmXsNote_t* note )
return note; return note;
} }
cmXsRC_t _cmXScoreProcessMidi(cmXScore_t* p, cmCtx_t* ctx, const cmChar_t* midiFn) cmXsRC_t _cmXScoreProcessMidi(cmXScore_t* p, cmCtx_t* ctx, const cmChar_t* midiFn)
{ {
cmXsRC_t rc = kOkXsRC; cmXsRC_t rc = kOkXsRC;
@ -924,6 +959,8 @@ cmXsRC_t _cmXScoreProcessMidi(cmXScore_t* p, cmCtx_t* ctx, const cmChar_t* mi
if( cmMidiFileOpen(ctx, &mfH, midiFn ) != kOkMfRC ) if( cmMidiFileOpen(ctx, &mfH, midiFn ) != kOkMfRC )
return cmErrMsg(&p->err,kMidiFailXsRC,"The MIDI file object could not be opened from '%s'.",cmStringNullGuard(midiFn)); return cmErrMsg(&p->err,kMidiFailXsRC,"The MIDI file object could not be opened from '%s'.",cmStringNullGuard(midiFn));
cmMidiFilePrintMsgs(mfH, p->err.rpt );
if( (m = cmMidiFileMsgArray(mfH)) == NULL || (mN = cmMidiFileMsgCount(mfH)) == 0 ) if( (m = cmMidiFileMsgArray(mfH)) == NULL || (mN = cmMidiFileMsgCount(mfH)) == 0 )
{ {
rc = cmErrMsg(&p->err,kMidiFailXsRC,"The MIDI file object appears to be empty."); rc = cmErrMsg(&p->err,kMidiFailXsRC,"The MIDI file object appears to be empty.");
@ -936,6 +973,37 @@ cmXsRC_t _cmXScoreProcessMidi(cmXScore_t* p, cmCtx_t* ctx, const cmChar_t* mi
goto errLabel; goto errLabel;
} }
cmCtx* c = cmCtxAlloc( NULL, p->err.rpt, cmLHeapNullHandle, cmSymTblNullHandle );
cmSeqAlign_t* s = cmSeqAlignAlloc(c,NULL);
unsigned offs = 0;
for(; note!=NULL; note=_cmXScoreNextNote(p->partL,note))
{
if( cmIsFlag(note->flags,kGraceXsFl) )
offs += 1;
cmSeqAlignInsert(s,0,note->locIdx+offs,note->pitch);
}
unsigned locIdx = 1;
for(i=0,j=0; i<mN; ++i)
if( (m[i]!=NULL) && cmMidiIsChStatus(m[i]->status) && cmMidiIsNoteOn(m[i]->status) && (m[i]->u.chMsgPtr->d1>0) )
{
if( m[j]->atick != m[i]->atick )
locIdx += 1;
cmSeqAlignInsert(s,1,locIdx,m[i]->u.chMsgPtr->d0);
//printf("%i : %s\n",locIdx,cmMidiToSciPitch(m[i]->u.chMsgPtr->d0,NULL,0));
j = i;
}
cmSeqAlignReport(s,p->err.rpt);
cmSeqAlignFree(&s);
cmCtxFree(&c);
goto errLabel;
printf(" i j score midi\n"); printf(" i j score midi\n");
printf("---- ---- --- ---- --- ----\n"); printf("---- ---- --- ---- --- ----\n");
@ -1002,7 +1070,7 @@ cmXsRC_t cmXScoreInitialize( cmCtx_t* ctx, cmXsH_t* hp, const cmChar_t* xmlFn, c
// fill in the note->slink chain to link the notes in each measure in time order // fill in the note->slink chain to link the notes in each measure in time order
_cmXScoreSort(p); _cmXScoreSort(p);
_cmXScoreProcessTies(p); _cmXScoreResolveTiesAndLoc(p);
//_cmXScoreResolveOctaveShift(p); //_cmXScoreResolveOctaveShift(p);
@ -1065,9 +1133,8 @@ void _cmXScoreReportNote( cmRpt_t* rpt, const cmXsNote_t* note )
cmChar_t N[] = {'\0','\0','\0','\0'}; cmChar_t N[] = {'\0','\0','\0','\0'};
cmChar_t acc = note->alter==-1?'b':(note->alter==1?'#':' '); cmChar_t acc = note->alter==-1?'b':(note->alter==1?'#':' ');
snprintf(N,4,"%c%c%1i",note->step,acc,note->octave); snprintf(N,4,"%c%c%1i",note->step,acc,note->octave);
cmRptPrintf(rpt," %3i %5i %5i %5i %4.1f %3s %s%s%s%s%s%s%s%s%s%s%s%s%s",note->voice->id,note->locIdx,note->tick,note->duration,note->rvalue,N,B,R,G,D,C,e,d,t,P,S,H,T0,T1);
cmRptPrintf(rpt," %3i %5i %5i %4.1f %3s %s%s%s%s%s%s%s%s%s%s%s%s%s",note->voice->id,note->tick,note->duration,note->rvalue,N,B,R,G,D,C,e,d,t,P,S,H,T0,T1);
if( cmIsFlag(note->flags,kSectionXsFl) ) if( cmIsFlag(note->flags,kSectionXsFl) )
cmRptPrintf(rpt," %s",cmStringNullGuard(note->tvalue)); cmRptPrintf(rpt," %s",cmStringNullGuard(note->tvalue));
@ -1474,7 +1541,7 @@ cmXsRC_t cmXScoreTest( cmCtx_t* ctx, const cmChar_t* xmlFn, const cmChar_t* midi
return cmErrMsg(&ctx->err,rc,"XScore alloc failed."); return cmErrMsg(&ctx->err,rc,"XScore alloc failed.");
cmXScoreWriteCsv(h,"/Users/kevin/temp/a0.csv"); cmXScoreWriteCsv(h,"/Users/kevin/temp/a0.csv");
cmXScoreReport(h,&ctx->rpt,false); cmXScoreReport(h,&ctx->rpt,true);
return cmXScoreFinalize(&h); return cmXScoreFinalize(&h);