cml/libcm
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
d963fb2b77
libcm/app/cmXScore.c

2506 lines
67 KiB
C
Raw Blame History

#include "cmPrefix.h"
#include "cmGlobal.h"
#include "cmFloatTypes.h"
#include "cmComplexTypes.h"
#include "cmRpt.h"
#include "cmErr.h"
#include "cmCtx.h"
#include "cmMem.h"
#include "cmMallocDebug.h"
#include "cmLinkedHeap.h"
#include "cmXml.h"
#include "cmText.h"
#include "cmXScore.h"
#include "cmTime.h"
#include "cmMidi.h"
#include "cmMidiFile.h"
#include "cmLex.h"
#include "cmCsv.h"
#include "cmSymTbl.h"
#include "cmScore.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;
enum
{
kSectionXsFl = 0x000001, // rvalue holds section number
kBarXsFl = 0x000002,
kRestXsFl = 0x000004,
kGraceXsFl = 0x000008,
kDotXsFl = 0x000010,
kChordXsFl = 0x000020,
kDynXsFl = 0x000040,
kEvenXsFl = 0x000080,
kTempoXsFl = 0x000100,
kHeelXsFl = 0x000200,
kTieBegXsFl = 0x000400,
kTieEndXsFl = 0x000800,
kTieProcXsFl = 0x001000,
kPedalDnXsFl = 0x002000,
kPedalUpXsFl = 0x004000,
kPedalUpDnXsFl = 0x008000,
kSostDnXsFl = 0x010000,
kSostUpXsFl = 0x020000,
kMetronomeXsFl = 0x040000, // duration holds BPM
kOnsetXsFl = 0x080000, // this is a sounding note
kBegGroupXsFl = 0x100000,
kEndGroupXsFl = 0x200000
};
struct cmXsMeas_str;
struct cmXsVoice_str;
typedef struct cmXsNote_str
{
unsigned uid; // unique id of this note record
unsigned flags; // See k???XsFl
unsigned pitch; // midi pitch
unsigned velocity; // midi velocity
unsigned dynamics; // dynamic level 1=pppp 9=fff
unsigned vel; // score specified MIDI velocity
cmChar_t step; // A-G
unsigned octave; // sci pitch octave
int alter; // +n=sharps,-n=flats
unsigned staff; // 1=treble 2=bass
unsigned tick; //
unsigned duration; // duration in ticks
double secs; // absolute time in seconds
double dsecs; // delta time in seconds since previous event
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, ...)
const cmChar_t* tvalue; // text value
unsigned evenGroupId; // eveness group id
unsigned dynGroupId; // dynamics group id
unsigned tempoGroupId; // tempo group id
struct cmXsVoice_str* voice; // voice this note belongs to
struct cmXsMeas_str* meas; // measure this note belongs to
const cmXmlNode_t* xmlNode; // note xml ptr
struct cmXsNote_str* mlink; // measure note list
struct cmXsNote_str* slink; // time sorted event list
} cmXsNote_t;
typedef struct cmXsVoice_str
{
unsigned id; // Voice id
cmXsNote_t* noteL; // List of notes in this voice
struct cmXsVoice_str* link; // Link to other voices in this measure
} cmXsVoice_t;
typedef struct cmXsSpan_str
{
unsigned staff;
unsigned number;
struct cmXsMeas_str* meas;
unsigned tick0;
unsigned tick1;
int pitch_offset;
struct cmXsSpan_str* link;
} cmXsSpan_t;
typedef struct cmXsMeas_str
{
unsigned number; // Measure number
unsigned divisions; // ticks-per-quarter-note
unsigned beats; // beats per measure
unsigned beat_type; // whole/half/quarter/eighth ...
cmXsVoice_t* voiceL; // List of voices in this measure
cmXsNote_t* noteL; // List of time sorted notes in this measure
struct cmXsMeas_str* link; // Link to other measures in this part.
} cmXsMeas_t;
typedef struct cmXsPart_str
{
const cmChar_t* idStr; // Id of this part
cmXsMeas_t* measL; // List of measures in this part.
struct cmXsPart_str* link; // Link to other parts in this score
} cmXsPart_t;
typedef struct
{
cmErr_t err;
cmXmlH_t xmlH;
cmLHeapH_t lhH;
cmXsPart_t* partL;
cmCsvH_t csvH;
cmXsSpan_t* spanL;
unsigned nextUid;
} cmXScore_t;
cmXScore_t* _cmXScoreHandleToPtr( cmXsH_t h )
{
cmXScore_t* p = (cmXScore_t*)h.h;
assert( p != NULL );
return p;
}
cmXsRC_t _cmXScoreFinalize( cmXScore_t* p )
{
cmXsRC_t rc = kOkXsRC;
// release the XML file
cmXmlFree( &p->xmlH );
// release the local linked heap memory
cmLHeapDestroy(&p->lhH);
// release the CSV output object
cmCsvFinalize(&p->csvH);
cmMemFree(p);
return rc;
}
cmXsRC_t _cmXScoreMissingNode( cmXScore_t* p, const cmXmlNode_t* parent, const cmChar_t* label )
{
return cmErrMsg(&p->err,kSyntaxErrorXsRC,"Missing XML node '%s'. Parent line:%i",label,parent->line);
}
cmXsRC_t _cmXScoreMissingAttribute( cmXScore_t* p, const cmXmlNode_t* np, const cmChar_t* attrLabel )
{
return cmErrMsg(&p->err,kSyntaxErrorXsRC,"Missing XML attribute '%s' from node '%s'.",attrLabel,np->label);
}
cmXsVoice_t* _cmXScoreIdToVoice( cmXsMeas_t* meas, unsigned voiceId )
{
cmXsVoice_t* v = meas->voiceL;
for(; v!=NULL; v=v->link)
if( v->id == voiceId )
return v;
return NULL;
}
cmXsRC_t _cmXScorePushNote( cmXScore_t* p, cmXsMeas_t* meas, unsigned voiceId, cmXsNote_t* note )
{
cmXsVoice_t* v;
// get the voice recd
if((v = _cmXScoreIdToVoice(meas,voiceId)) == NULL)
{
// the voice recd doesn't exist for this voiceId - allocate one
v = cmLhAllocZ(p->lhH,cmXsVoice_t,1);
v->id = voiceId;
// add the voice record to the meas->voiceL
if( meas->voiceL == NULL )
meas->voiceL = v;
else
{
cmXsVoice_t* vp = meas->voiceL;
while( vp->link!=NULL )
vp = vp->link;
vp->link = v;
}
}
// add the note record to the end of meas->voiceL
if( v->noteL == NULL )
v->noteL = note;
else
{
cmXsNote_t* n = v->noteL;
while( n->mlink != NULL )
n = n->mlink;
n->mlink = note;
}
note->voice = v;
note->uid = p->nextUid++;
return kOkXsRC;
}
cmXsRC_t _cmXScoreParsePartList( cmXScore_t* p )
{
cmXsRC_t rc = kOkXsRC;
cmXsPart_t* lastPartPtr = NULL;
const cmXmlNode_t* xnp;
// find the 'part-list'
if((xnp = cmXmlSearch( cmXmlRoot(p->xmlH), "part-list", NULL, 0)) == NULL )
return _cmXScoreMissingNode(p,cmXmlRoot(p->xmlH),"part-list");
const cmXmlNode_t* cnp = xnp->children;
// for each child of the 'part-list'
for(; cnp!=NULL; cnp=cnp->sibling)
if( cmTextCmp( cnp->label, "score-part" ) == 0 )
{
const cmXmlAttr_t* a;
// find the 'score-part' id
if((a = cmXmlFindAttrib(cnp,"id")) == NULL )
return _cmXScoreMissingAttribute(p,cnp,"id");
// allocate a new part record
cmXsPart_t* pp = cmLhAllocZ(p->lhH,cmXsPart_t,1);
pp->idStr = a->value; // set the part id
// link the new part record to the end of the part list
if(lastPartPtr == NULL)
p->partL = pp;
else
lastPartPtr->link = pp;
lastPartPtr = pp;
}
return rc;
}
cmXsRC_t _cmXScoreParsePitch( cmXScore_t* p, const cmXmlNode_t* nnp, cmXsNote_t* np )
{
cmXsRC_t rc = kOkXsRC;
unsigned octave = 0;
double alter = 0;
const cmChar_t* step = NULL;
if((step = cmXmlNodeValue(nnp,"pitch","step",NULL)) == NULL )
return _cmXScoreMissingNode(p,nnp,"step");
if((rc = cmXmlNodeUInt( nnp,&octave,"pitch","octave",NULL)) != kOkXmlRC )
return _cmXScoreMissingNode(p,nnp,"octave");
cmXmlNodeDouble( nnp,&alter,"pitch","alter",NULL);
cmChar_t buf[3] = { *step, '0', '\0'};
unsigned midi = cmSciPitchToMidi(buf);
midi += (12 * octave);
midi += alter;
np->pitch = midi;
np->step = *step;
np->octave = octave;
np->alter = alter;
np->flags |= kOnsetXsFl;
return rc;
}
cmXsRC_t _cmXScoreParseNoteRValue( cmXScore_t* p, const cmXmlNode_t* nnp, const cmChar_t* label, double* rvalueRef )
{
typedef struct map_str
{
double rvalue;
const cmChar_t* label;
} map_t;
map_t mapV[] =
{
{-1.0, "measure" }, // whole measure rest
{ 0.5, "breve" }, // double whole
{ 1.0, "whole" },
{ 2.0, "half" },
{ 4.0, "quarter" },
{ 8.0, "eighth" },
{16.0, "16th" },
{32.0, "32nd" },
{ 64.0, "64th" },
{128.0, "128th" },
{ 0.0, "" }
};
const cmChar_t* str;
// get the XML rvalue label
if((str = cmXmlNodeValue(nnp,label,NULL)) == NULL)
{
if((nnp = cmXmlSearch(nnp,"rest",NULL,0)) != NULL )
{
const cmXmlAttr_t* a;
if((a = cmXmlFindAttrib(nnp,"measure")) != NULL && cmTextCmp(a->value,"yes")==0)
{
*rvalueRef = -1;
return kOkXsRC;
}
}
return cmErrMsg(&p->err,kSyntaxErrorXsRC,"The 'beat-unit' metronome value is missing on line %i.",nnp->line);
}
unsigned i;
// lookup the rvalue numeric value from the mapV[] table
for(i=0; mapV[i].rvalue!=0; ++i)
if( cmTextCmp(mapV[i].label,str) == 0 )
{
*rvalueRef = mapV[i].rvalue;
return kOkXsRC;
}
// the rvalue label was not found
return cmErrMsg(&p->err,kSyntaxErrorXsRC,"Unknown rvalue type='%s'.",str);
}
cmXsRC_t _cmXScoreParseColor( cmXScore_t* p, const cmXmlNode_t* nnp, cmXsNote_t* note )
{
cmXsRC_t rc = kOkXsRC;
const cmXmlAttr_t* a;
typedef struct map_str
{
unsigned value;
const cmChar_t* label;
} map_t;
map_t mapV[] =
{
{ kEvenXsFl, "#0000FF" }, // blue (even)
{ kTempoXsFl, "#00FF00" }, // green (tempo)
{ kDynXsFl, "#FF0000" }, // red (dynamics)
{ kTempoXsFl | kEvenXsFl, "#00FFFF" }, // green + blue (turquoise)
{ kDynXsFl | kEvenXsFl, "#FF00FF" }, // red + blue
{ kDynXsFl | kEvenXsFl, "#FF0CF7" }, // magenta (even+dyn)
{ kDynXsFl | kTempoXsFl, "#FF7F00" }, // red + green (brown)
{ kTempoXsFl | kEvenXsFl | kDynXsFl, "#996633" }, // (purple)
{ kDynXsFl, "#FF6A03" }, // 176 orange (dynamics)
{ kEvenXsFl, "#2F00E8" }, // 1001 blue (even)
{ kTempoXsFl, "#01CD1F" }, // 1196 green (tempo)
{ kEvenXsFl, "#3600E8" }, // 1627 blue (even)
{ kDynXsFl | kTempoXsFl, "#9E8F15" }, // 8827 brown (dyn + tempo)
{ kEvenXsFl, "#2E00E6" }, // 5393 blue (even)
{ kEvenXsFl, "#2C00DD" }, // 5895 blue (even)
{ kDynXsFl, "#FF5B03" }, // 6498 orange (dyn)
{ kDynXsFl, "#FF6104" }, // 6896 orange
{ kEvenXsFl, "#2A00E6" }, // 7781 blue
{ kEvenXsFl, "#2300DD" }, // 8300 blue (even)
{ kTempoXsFl, "#03CD22" }, // 10820 green (tempo)
{ kEvenXsFl, "#3400DB" }, // 11627 blue (dyn)
{ -1, "" }
};
/*
orange #FF6A03
magenta #FF0CF7
blue #2F00E8
green #01CD1F
gold #9E8F15
green #03CD22
*/
if((a = cmXmlFindAttrib(nnp, "color" )) != NULL )
{
unsigned i;
for(i=0; mapV[i].value != -1; ++i)
if( cmTextCmp(a->value,mapV[i].label) == 0 )
{
note->flags += mapV[i].value;
break;
}
if( mapV[i].value == -1 )
cmErrMsg(&p->err,kSyntaxErrorXsRC,"The note color '%s' was not found on line %i.",a->value,nnp->line);
}
return rc;
}
// On input tick0Ref is set to the tick of the previous event.
// On input tickRef is set to the tick of this event.
// On output tick0Ref is set to the tick of this event.
// On output tickRef is set to the tick of the next event.
cmXsRC_t _cmXScoreParseNote(cmXScore_t* p, cmXsMeas_t* meas, const cmXmlNode_t* nnp, unsigned* tick0Ref, unsigned* tickRef )
{
cmXsRC_t rc = kOkXsRC;
cmXsNote_t* note = cmLhAllocZ(p->lhH,cmXsNote_t,1);
unsigned voiceId;
note->meas = meas;
note->xmlNode = nnp;
// get the voice id for this node
if( cmXmlNodeUInt(nnp,&voiceId,"voice",NULL) != kOkXmlRC )
return _cmXScoreMissingNode(p,nnp,"voice");
// if this note has a pitch
if( cmXmlNodeHasChild(nnp,"pitch",NULL) )
if((rc = _cmXScoreParsePitch(p,nnp,note)) != kOkXsRC )
return rc;
cmXmlNodeUInt(nnp,&note->duration,"duration",NULL); // get the note duration
cmXmlNodeUInt(nnp,&note->staff,"staff",NULL); // get th staff number
// is 'rest'
if( cmXmlNodeHasChild(nnp,"rest",NULL) )
note->flags |= kRestXsFl;
// is 'grace'
if( cmXmlNodeHasChild(nnp,"grace",NULL) )
note->flags |= kGraceXsFl;
// is 'dot'
if( cmXmlNodeHasChild(nnp,"dot",NULL) )
note->flags |= kDotXsFl;
// is 'chord'
if( cmXmlNodeHasChild(nnp,"chord",NULL) )
note->flags |= kChordXsFl;
// is this is first note in a tied pair
if( cmXmlNodeHasChildWithAttrAndValue(nnp,"tie","type","start",NULL) )
note->flags |= kTieBegXsFl;
// is this is second note in a tied pair
if( cmXmlNodeHasChildWithAttrAndValue(nnp,"tie","type","stop",NULL) )
note->flags |= kTieEndXsFl;
// has 'heel' mark
if( cmXmlNodeHasChild(nnp,"notations","technical","heel",NULL) )
note->flags |= kHeelXsFl;
// set color coded flags
if((rc = _cmXScoreParseColor(p, nnp, note )) != kOkXsRC )
return rc;
// get the note's rythmic value
if((rc = _cmXScoreParseNoteRValue(p,nnp,"type",&note->rvalue)) != kOkXsRC )
return rc;
// if this is a chord note
if( cmIsFlag(note->flags,kChordXsFl) )
{
note->tick = *tick0Ref; // then use the onset time from the previous note and do not advance time
}
else
{
*tick0Ref = *tickRef;
note->tick = *tickRef;
*tickRef += note->duration;
}
return _cmXScorePushNote(p, meas, voiceId, note );
}
cmXsRC_t _cmXScorePushNonNote( cmXScore_t* p, cmXsMeas_t* meas, const cmXmlNode_t* noteXmlNode, unsigned tick, unsigned duration, double rvalue, const cmChar_t* tvalue, unsigned flags )
{
cmXsNote_t* note = cmLhAllocZ(p->lhH,cmXsNote_t,1);
unsigned voiceId = 0; // non-note's are always assigned to voiceId=0;
note->tick = tick;
note->flags = flags;
note->rvalue = rvalue;
note->tvalue = tvalue;
note->duration = duration;
note->meas = meas;
note->xmlNode = noteXmlNode;
return _cmXScorePushNote(p, meas, voiceId, note );
}
cmXsSpan_t* _cmXScoreFindOpenOctaveShift( cmXScore_t* p, unsigned staff, unsigned number )
{
cmXsSpan_t* s = p->spanL;
for(; s!=NULL; s=s->link)
if( s->tick1 == -1 && s->staff == staff && s->number == number )
return s;
return NULL;
}
cmXsRC_t _cmXScorePushOctaveShift(cmXScore_t* p, cmXsMeas_t* meas, unsigned staff, unsigned span_number, const cmChar_t* type_str, unsigned tick)
{
assert( meas != NULL);
cmXsSpan_t* s;
if( cmTextCmp(type_str,"stop") == 0 )
{
if((s = _cmXScoreFindOpenOctaveShift(p,staff,span_number)) == NULL )
return cmErrWarnMsg(&p->err,kUnterminatedOctaveShiftXsrRC,"An illegal octave shift was encounted in meas %i.\n",meas->number);
s->tick1 = tick;
}
else
{
s = cmLhAllocZ(p->lhH,cmXsSpan_t,1);
s->staff = staff;
s->meas = meas;
s->number = span_number;
s->tick0 = tick;
s->tick1 = -1;
s->pitch_offset = cmTextCmp(type_str,"up")==0 ? -12 : 12;
s->link = p->spanL;
p->spanL = s;
}
return kOkXsRC;
}
cmXsRC_t _cmXScoreParseDirection(cmXScore_t* p, cmXsMeas_t* meas, const cmXmlNode_t* dnp, unsigned tick)
{
cmXsRC_t rc = kOkXsRC;
const cmXmlNode_t* np = NULL;
const cmXmlAttr_t* a = NULL;
unsigned flags = 0;
int offset = 0;
double rvalue = 0;
const cmChar_t* tvalue = NULL;
unsigned duration = 0;
bool pushFl = true;
unsigned staff = 0;
cmXmlNodeInt( dnp, &offset, "offset", NULL );
cmXmlNodeUInt(dnp, &staff, "staff", NULL );
// if this is a metronome direction
if((np = cmXmlSearch( dnp, "metronome", NULL, 0)) != NULL )
{
if( cmXmlNodeUInt(np,&duration,"per-minute",NULL) != kOkXmlRC )
return cmErrMsg(&p->err,kSyntaxErrorXsRC,"The 'per-minute' metronome value is missing on line %i.",np->line);
if((rc = _cmXScoreParseNoteRValue(p,np,"beat-unit",&rvalue)) != kOkXsRC )
return rc;
flags = kMetronomeXsFl;
}
else
// if this is a pedal direction
if((np = cmXmlSearch( dnp, "pedal",NULL,0)) != NULL )
{
if((a = cmXmlFindAttrib(np,"type")) == NULL )
return _cmXScoreMissingAttribute(p, np, "type" );
if( cmTextCmp(a->value,"start") == 0 )
flags = kPedalDnXsFl;
else
if( cmTextCmp(a->value,"change") == 0 )
flags = kPedalUpDnXsFl;
else
if( cmTextCmp(a->value,"stop") == 0 )
flags = kPedalUpXsFl;
else
return cmErrMsg(&p->err,kSyntaxErrorXsRC,"Unrecognized pedal type:'%s'.",cmStringNullGuard(a->value));
}
else
// if this is a 'words' direction
if((np = cmXmlSearch( dnp, "words", NULL, 0)) != NULL )
{
if((a = cmXmlFindAttrib(np,"enclosure")) != NULL && cmTextCmp(a->value,"rectangle")==0 )
{
if( cmTextIsEmpty( tvalue = np->dataStr ) )
return cmErrMsg(&p->err,kSyntaxErrorXsRC,"Section number is blank or missing on line %i.",np->line);
flags = kSectionXsFl;
}
}
else
// if this is an 'octave-shift' direction
if((np = cmXmlSearch( dnp, "octave-shift", NULL, 0)) != NULL )
{
unsigned span_number = -1;
if( cmXmlAttrUInt(np,"number",&span_number) != kOkXmlRC )
return cmErrMsg(&p->err,kSyntaxErrorXsRC,"Octave-shift is missing a 'number' attribute.");
if((a = cmXmlFindAttrib(np,"type")) == NULL)
return cmErrMsg(&p->err,kSyntaxErrorXsRC,"Octave-shift is missing a 'type' attribute.");
rc = _cmXScorePushOctaveShift(p,meas,staff,span_number,a->value,tick+offset);
pushFl = false;
}
else
{
pushFl = false;
}
if( pushFl )
rc = _cmXScorePushNonNote(p,meas,dnp,tick+offset,duration,rvalue,tvalue,flags);
return rc;
}
// On input tickRef is set to the absolute tick of the bar line and on output it is set
// to the absolute tick of the next bar line.
cmXsRC_t _cmXScoreParseMeasure(cmXScore_t* p, cmXsPart_t* pp, const cmXmlNode_t* mnp, unsigned* tickRef)
{
cmXsRC_t rc = kOkXsRC;
const cmXmlNode_t* np = NULL;
unsigned tick = *tickRef;
unsigned tick0= 0;
cmXsMeas_t* m = NULL;
// allocate the 'measure' record
cmXsMeas_t* meas = cmLhAllocZ(p->lhH,cmXsMeas_t,1);
// get measure number
if( cmXmlAttrUInt(mnp,"number", &meas->number) != kOkXmlRC )
return _cmXScoreMissingAttribute(p,mnp,"number");
if( pp->measL == NULL )
pp->measL = meas;
else
{
m = pp->measL;
while( m->link != NULL )
m = m->link;
m->link = meas;
meas->divisions = m->divisions;
meas->beats = m->beats;
meas->beat_type = m->beat_type;
}
// get measure attributes node
if((np = cmXmlSearch(mnp,"attributes",NULL,0)) != NULL)
{
cmXmlNodeUInt(np,&meas->divisions,"divisions",NULL);
cmXmlNodeUInt(np,&meas->beats, "time","beats",NULL);
cmXmlNodeUInt(np,&meas->beat_type,"time","beat-type",NULL);
}
// store the bar line
if((rc = _cmXScorePushNonNote(p,meas,mnp,tick,0,0,NULL,kBarXsFl)) != kOkXsRC )
return rc;
np = mnp->children;
// for each child of the 'meas' XML node
for(; rc==kOkXsRC && np!=NULL; np=np->sibling)
{
// if this is a 'note' node
if( cmTextCmp(np->label,"note") == 0 )
{
rc = _cmXScoreParseNote(p,meas,np,&tick0,&tick);
}
else
// if this is a 'backup' node
if( cmTextCmp(np->label,"backup") == 0 )
{
unsigned backup;
cmXmlNodeUInt(np,&backup,"duration",NULL);
if( backup > tick )
tick = 0;
else
tick -= backup;
tick0 = tick;
}
else
// if this is a 'direction' node
if( cmTextCmp(np->label,"direction") == 0 )
{
rc = _cmXScoreParseDirection(p,meas,np,tick);
}
}
*tickRef = tick;
return rc;
}
cmXsRC_t _cmXScoreParsePart( cmXScore_t* p, cmXsPart_t* pp )
{
cmXsRC_t rc = kOkXsRC;
const cmXmlNode_t* xnp;
cmXmlAttr_t partAttr = { "id", pp->idStr };
unsigned barTick = 0;
// find the 'part'
if((xnp = cmXmlSearch( cmXmlRoot(p->xmlH), "part", &partAttr, 1)) == NULL )
return cmErrMsg(&p->err,kSyntaxErrorXsRC,"The part '%s' was not found.",pp->idStr);
// for each child of this part - find each measure
const cmXmlNode_t* cnp = xnp->children;
for(; cnp!=NULL; cnp=cnp->sibling)
if( cmTextCmp(cnp->label,"measure") == 0 )
if((rc = _cmXScoreParseMeasure(p,pp,cnp,&barTick)) != kOkXsRC )
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 )
{
assert( np != NULL );
// np->slink is not NULL if the list is being resorted
np->slink = NULL;
// this list is empty so np is the first element on the list
if( s0 == NULL )
return np;
// np is before the first element on the list
if( np->tick < s0->tick )
{
np->slink = s0;
return np;
}
cmXsNote_t* s1 = s0;
cmXsNote_t* s2 = s0->slink;
while( s2 != NULL )
{
if( s2->tick > np->tick )
{
s1->slink = np;
np->slink = s2;
return s0;
}
s1 = s2;
s2 = s2->slink;
}
s1->slink = np;
return s0;
}
void _cmXScoreSort( cmXScore_t* p )
{
// for each part
cmXsPart_t* pp = p->partL;
for(; pp!=NULL; pp=pp->link)
{
// for each measure in this part
cmXsMeas_t* mp = pp->measL;
for(; mp!=NULL; mp=mp->link)
{
// explicitely set noteL to NULL to in case we are re-sorting
mp->noteL = NULL;
// for each voice in this measure
cmXsVoice_t* vp = mp->voiceL;
for(; vp!=NULL; vp=vp->link)
{
// for each note in this measure
cmXsNote_t* np = vp->noteL;
for(; np!=NULL; np=np->mlink)
mp->noteL = _cmXScoreInsertSortedNote(mp->noteL,np);
}
}
}
}
void _cmXScoreSetAbsoluteTime( cmXScore_t* p )
{
double tpqn = 0; // ticks per quarter note
double tps = 0; // ticks per second
unsigned metro_tick = 0;
double metro_sec = 0;
double sec0 = 0;
cmXsPart_t* pp = p->partL;
for(; pp!=NULL; pp=pp->link)
{
cmXsMeas_t* mp = pp->measL;
for(; mp!=NULL; mp=mp->link)
{
if( mp->divisions != 0 )
tpqn = mp->divisions;
cmXsNote_t* np = mp->noteL;
for(; np!=NULL; np=np->slink)
{
// Seconds are calculated as:
// dticks = np->tick - metro_tick; // where metro_tick is the absolute tick of the last metro event
// secs = (dticks/tps) + metro_secs; // where metro_secs is the absoute time of the last metro event
unsigned dticks = np->tick - metro_tick;
double secs = tps==0 ? 0 : (dticks/tps) + metro_sec;
double dsecs = secs - sec0;
//
if( cmIsFlag(np->flags,kMetronomeXsFl) )
{
double bpm = np->duration;
double bps = bpm / 60.0;
tps = bps * tpqn;
metro_tick = np->tick;
metro_sec = secs;
}
if( cmIsFlag(np->flags,kBarXsFl|kPedalDnXsFl|kPedalUpXsFl|kPedalUpDnXsFl|kOnsetXsFl|kSectionXsFl) )
{
np->secs = secs;
np->dsecs = dsecs;
sec0 = secs;
}
}
}
}
}
// All notes in a[aN] are on the same tick
unsigned _cmXsSpreadGraceNotes( cmXsNote_t** a, unsigned aN )
{
unsigned i;
bool barFl = false;
// set barFl to true if a bar marker is included in the notes
for(i=0; i<aN; ++i)
if( cmIsFlag(a[i]->flags,kBarXsFl) )
barFl = true;
// spread any grace notes by one tick
unsigned nextGraceTick = UINT_MAX;
for(i=0; i<aN; ++i)
if( cmIsFlag(a[i]->flags,kGraceXsFl) )
{
if( nextGraceTick == UINT_MAX )
nextGraceTick = a[i]->tick + 1;
else
{
a[i]->tick = nextGraceTick;
nextGraceTick += 1;
}
}
// if this tick group includes the bar ...
if( barFl && nextGraceTick != UINT_MAX )
{
// ... then move all non-grace note events (except the bar marker) after
// the grace notes
for(i=0; i<aN; ++i)
if( cmIsNotFlag(a[i]->flags,kGraceXsFl) && cmIsNotFlag(a[i]->flags,kBarXsFl) )
a[i]->tick = nextGraceTick;
}
return nextGraceTick==UINT_MAX ? 0 : nextGraceTick;
}
void _cmXScoreSpreadGraceNotes( cmXScore_t* p )
{
cmXsPart_t* pp = p->partL;
for(; pp!=NULL; pp=pp->link)
{
// tick1 is the location of the minimum current tick
// (or 0 if it should be ignored)
unsigned tick1 = 0;
cmXsMeas_t* mp = pp->measL;
for(; mp!=NULL; mp=mp->link)
{
cmXsNote_t* np = mp->noteL;
unsigned aN = 128;
cmXsNote_t* a[ aN ];
unsigned ai = 0;
// The first event in a measure may have been forced ahead
// by spreading at the end of the previous measure
if( tick1 > np->tick )
np->tick = tick1;
else
tick1 = 0;
// tick0 is the tick of the current tick group we are examining
// A tick group is a group of events that share the same tick.
unsigned tick0 = np->tick;
for(; np!=NULL; np=np->slink)
{
// if this event is the first of a new tick group
if( np->tick != tick0 )
{
// if there is more than one event in the completed tick group ...
if( ai > 1 )
tick1 = _cmXsSpreadGraceNotes(a,ai); // ... then process the group
ai = 0; // empty the tick group array
tick0 = np->tick; // update the current group's common tick
}
// if the min. current tick is ahead of this event then move the event ahead
if( tick1 > np->tick )
np->tick = tick1;
else
tick1 = 0; // otherwise disable tick1
// add this event to the tick group
assert(ai<aN);
a[ai++] = np;
}
// if there are events in the group array then process them
if( ai > 1 )
tick1 = _cmXsSpreadGraceNotes(a,ai);
}
}
}
bool _cmXScoreFindTiedNote( cmXScore_t* p, cmXsMeas_t* mp, cmXsNote_t* n0p, bool rptFl )
{
cmXsNote_t* nnp = n0p->slink; // begin w/ note following np
unsigned measNumb = mp->number;
cmChar_t acc = n0p->alter==-1?'b' : (n0p->alter==1?'#':' ');
if( rptFl )
printf("%i %i %s ",n0p->meas->number,n0p->tick,cmMidiToSciPitch(n0p->pitch,NULL,0));
while(1)
{
// if we are at the end of a measure advance to the next measure
if( nnp == NULL )
{
mp = mp->link;
nnp = mp->noteL;
// if a measure was completed and no end note was found ... then the tie is unterminated
// (a tie must be continued in every measure which it passes through)
if( mp->number > measNumb + 1 )
break;
}
// for each note starting at nnp
for(; nnp!=NULL; nnp=nnp->slink)
{
// if this note is tied to the originating note (np)
if( nnp->voice->id == n0p->voice->id && nnp->step == n0p->step && nnp->octave == n0p->octave )
{
nnp->flags |= kTieProcXsFl;
nnp->flags = cmClrFlag(nnp->flags,kOnsetXsFl);
if( rptFl )
printf("---> %i %i %s ",nnp->meas->number,nnp->tick,cmMidiToSciPitch(nnp->pitch,NULL,0));
// if this note is not tied to a subsequent note
if( cmIsNotFlag(nnp->flags,kTieBegXsFl) )
return true;
// record the measure number of the last note with a tie-start
measNumb = mp->number;
}
}
}
cmErrWarnMsg(&p->err,kUnterminatedTieXsRC,"The tied %c%c%i in measure %i was not terminated.",n0p->step,acc,n0p->octave,measNumb);
return false;
}
void _cmXScoreResolveTiesAndLoc( cmXScore_t* p )
{
unsigned n = 0;
unsigned m = 0;
bool rptFl = false;
cmXsPart_t* pp = p->partL;
// for each part
for(; pp!=NULL; pp=pp->link)
{
unsigned locIdx = 1;
cmXsMeas_t* mp = pp->measL;
// for each measure
for(; mp!=NULL; mp=mp->link)
{
cmXsNote_t* n0 = NULL;
cmXsNote_t* np = mp->noteL;
// for each note in this measure
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( _cmXScoreFindTiedNote(p,mp,np,rptFl) )
m += 1;
if( rptFl )
printf("\n");
n += 1;
}
if( cmIsFlag(np->flags,kTieEndXsFl) && cmIsFlag(np->flags,kOnsetXsFl) )
{
cmChar_t acc = np->alter==-1?'b' : (np->alter==1?'#':' ');
cmErrWarnMsg(&p->err,kUnterminatedTieXsRC,"The tied %c%c%i in measure %i marked as a tied note but is also marked to sound.",np->step,acc,np->octave,mp->number);
}
// set the location
if( cmIsFlag(np->flags,kOnsetXsFl|kBarXsFl) )
{
if( cmIsFlag(np->flags,kBarXsFl) || (n0!=NULL && n0->tick!=np->tick))
locIdx += 1;
np->locIdx = locIdx;
n0 = np;
}
}
}
}
printf("Found:%i Not Found:%i\n",m,n-m);
}
cmXsRC_t _cmXScoreResolveOctaveShift( cmXScore_t* p )
{
const cmXsSpan_t* s;
for(s=p->spanL; s!=NULL; s=s->link)
{
if( s->tick1 == -1)
{
cmErrWarnMsg(&p->err,kSyntaxErrorXsRC,"An unterminated octave shift span was encountered in measure %i staff=%i.",s->meas->number,s->staff);
}
else
{
cmXsMeas_t* m = p->partL->measL;
for(; m!=NULL; m=m->link)
if( m->number == s->meas->number )
break;
assert( m != NULL );
cmXsNote_t* note = m->noteL;
for(; note!=NULL; note=note->slink)
if( note->staff==s->staff && s->tick0 <= note->tick && note->tick < s->tick1 )
note->pitch += s->pitch_offset;
}
}
return kOkXsRC;
}
// The identical pitch may be notated to play simultaneously on different voices.
// As performed on the piano this will equate to a single sounding note.
// This function clears the onset flag on all except one of the duplicated notes.
void _cmXScoreRemoveDuplicateNotes( cmXScore_t* p )
{
cmXsPart_t* pp = p->partL;
// for each part
for(; pp!=NULL; pp=pp->link)
{
cmXsMeas_t* mp = pp->measL;
// for each measure
for(; mp!=NULL; mp=mp->link)
{
cmXsNote_t* np = mp->noteL;
// for each note in this measure
for(; np!=NULL; np=np->slink)
if( cmIsFlag(np->flags,kOnsetXsFl) )
{
cmXsNote_t* n0p = mp->noteL;
for(; n0p!=NULL; n0p=n0p->slink)
if( n0p!=np && cmIsFlag(n0p->flags,kOnsetXsFl) && np->locIdx==n0p->locIdx && np->pitch==n0p->pitch )
n0p->flags = cmClrFlag(n0p->flags,kOnsetXsFl);
}
}
}
}
void _cmXScoreSetMeasGroups( cmXScore_t* p, unsigned flag )
{
unsigned sectionId = 0;
cmXsNote_t* n0 = NULL;
cmXsPart_t* pp = p->partL;
// for each part
for(; pp!=NULL; pp=pp->link)
{
cmXsMeas_t* mp = pp->measL;
// for each measure
for(; mp!=NULL; mp=mp->link)
{
cmXsNote_t* np = mp->noteL;
// for each note in this measure
for(; np!=NULL; np=np->slink)
{
// if this note has a heel marker and we are looking for evenness events
if( cmIsFlag(flag,kEvenXsFl) && cmIsFlag(np->flags,kHeelXsFl) )
{
np->flags = cmSetFlag(np->flags,kBegGroupXsFl | kEndGroupXsFl );
np->evenGroupId = sectionId + 1;
}
// if this note is of the type we are looking for
if( cmIsFlag(np->flags,flag) )
{
if( n0 == NULL )
np->flags = cmSetFlag(np->flags,kBegGroupXsFl);
n0 = np;
}
// if this is a section marker
if( cmIsFlag(np->flags,kSectionXsFl) )
{
if( n0 != NULL )
{
np->flags = cmSetFlag(np->flags,kEndGroupXsFl);
switch( flag )
{
case kEvenXsFl: n0->evenGroupId = sectionId+1; break;
case kDynXsFl: n0->dynGroupId = sectionId+1; break;
case kTempoXsFl: n0->tempoGroupId= sectionId+1; break;
}
}
if( cmIsFlag(np->flags,kSectionXsFl) )
sectionId = np->tvalue==NULL ? 0 : strtol(np->tvalue,NULL,10);
n0 = NULL;
}
}
}
}
}
cmXsRC_t _cmXScoreWriteScorePlotFile( cmXScore_t* p, const cmChar_t* fn )
{
cmXsRC_t rc = kOkXsRC;
cmFileH_t fH = cmFileNullHandle;
double ticks_per_sec = 0;
double onset_secs = 0;
if( cmFileOpen(&fH,fn,kWriteFileFl,p->err.rpt) != kOkFileRC )
return cmErrMsg(&p->err,kFileFailXsRC,"Unable to create the file '%s'.",cmStringNullGuard(fn));
cmXsPart_t* pp = p->partL;
for(; pp!=NULL; pp=pp->link)
{
cmXsMeas_t* mp = pp->measL;
for(; mp!=NULL; mp=mp->link)
{
cmFilePrintf(fH,"b %f %i %s B\n",onset_secs,mp->number,"bar");
cmXsNote_t* np = mp->noteL;
unsigned tick0 = 0;
for(; np!=NULL; np=np->slink)
{
if( cmIsFlag(np->flags,kMetronomeXsFl) )
{
double bps = np->duration / 60.0;
// t b t
// - = - -
// s s b
ticks_per_sec = bps * mp->divisions;
}
else
{
if( cmIsFlag(np->flags,kOnsetXsFl) )
{
onset_secs += (np->tick - tick0) / ticks_per_sec;
tick0 = np->tick;
cmFilePrintf(fH,"n %f %f %i %s %s\n",onset_secs,np->duration/ticks_per_sec,np->uid,cmMidiToSciPitch(np->pitch,NULL,0),cmIsFlag(np->flags,kGraceXsFl)?"G":"N");
}
}
}
onset_secs += (mp->divisions * mp->beats - tick0) / ticks_per_sec;
}
}
cmFileClose(&fH);
return rc;
}
// Force the bar event to be the first event in the measure.
void _cmXScoreFixBarLines( cmXScore_t* p )
{
cmXsPart_t* pp = p->partL;
for(; pp!=NULL; pp=pp->link)
{
cmXsMeas_t* mp = pp->measL;
for(; mp!=NULL; mp=mp->link)
{
cmXsNote_t* np = mp->noteL;
cmXsNote_t* ep = NULL;
for(; np!=NULL; np=np->slink )
{
if( cmIsFlag(np->flags,kBarXsFl) )
{
if( ep != NULL )
np->tick = ep->tick;
break;
}
if( ep == NULL )
ep = np;
}
}
}
}
cmXsRC_t cmXScoreInitialize( cmCtx_t* ctx, cmXsH_t* hp, const cmChar_t* xmlFn, const cmChar_t* midiFn )
{
cmXsRC_t rc = kOkXsRC;
if((rc = cmXScoreFinalize(hp)) != kOkXsRC )
return rc;
cmXScore_t* p = cmMemAllocZ(cmXScore_t,1);
cmErrSetup(&p->err,&ctx->rpt,"XScore");
// create a local linked heap
if( cmLHeapIsValid( p->lhH = cmLHeapCreate(8196,ctx)) == false )
return cmErrMsg(&p->err,kLHeapFailXsRC,"Lheap create failed.");
// open the music xml file
if( cmXmlAlloc(ctx, &p->xmlH, xmlFn) != kOkXmlRC )
{
rc = cmErrMsg(&p->err,kXmlFailXsRC,"Unable to open the MusicXML file '%s'.",cmStringNullGuard(xmlFn));
goto errLabel;
}
//cmXmlPrint(p->xmlH,&ctx->rpt);
// parse the part-list
if((rc = _cmXScoreParsePartList( p )) != kOkXsRC )
goto errLabel;
// parse each score 'part'
cmXsPart_t* pp = p->partL;
for(; pp!=NULL; pp=pp->link)
if((rc = _cmXScoreParsePart(p,pp)) != kOkXsRC )
goto errLabel;
// fill in the note->slink chain to link the notes in each measure in time order
_cmXScoreSort(p);
_cmXScoreSpreadGraceNotes(p);
_cmXScoreSort(p);
_cmXScoreSetAbsoluteTime(p);
_cmXScoreResolveTiesAndLoc(p);
_cmXScoreRemoveDuplicateNotes(p);
_cmXScoreSetMeasGroups(p,kEvenXsFl);
_cmXScoreSetMeasGroups(p,kDynXsFl);
_cmXScoreSetMeasGroups(p,kTempoXsFl);
//_cmXScoreResolveOctaveShift(p);
// CSV output initialize failed.
if( cmCsvInitialize(&p->csvH,ctx) != kOkCsvRC )
rc = cmErrMsg(&p->err,kCsvFailXsRC,"CSV output object create failed.");
errLabel:
if( rc != kOkXsRC )
_cmXScoreFinalize(p);
else
hp->h = p;
return rc;
}
cmXsRC_t cmXScoreFinalize( cmXsH_t* hp )
{
cmXsRC_t rc = kOkXsRC;
if( hp == NULL || cmXScoreIsValid(*hp)==false )
return kOkXsRC;
cmXScore_t* p = _cmXScoreHandleToPtr(*hp);
if((rc = _cmXScoreFinalize(p)) != kOkXsRC )
return rc;
hp->h = NULL;
return rc;
}
bool cmXScoreIsValid( cmXsH_t h )
{ return h.h != NULL; }
//-------------------------------------------------------------------------------------------
typedef struct
{
unsigned idx; // Fields from the reordering input file which are
unsigned voice; // used to match the reorder record to
unsigned locIdx; // the associated a cmXsNode_t record.
unsigned tick; //
unsigned durtn; //
float rval; //
unsigned midi; //
cmXsNote_t* note; // The cmXsNode_t* associated with this cmXsReorder_t record
unsigned dynIdx; // cmInvalidIdx=ignore otherwise index into _cmXScoreDynMarkArray[]
unsigned sostFl; // 0=ignore | kSostDnXsFl | kSostUpXsFl
unsigned newTick; // 0=ignore >0 new tick value
} cmXsReorder_t;
typedef struct _cmXScoreDynMark_str
{
const cmChar_t* mark; //
unsigned id; // (1-17) maps to velocity
unsigned dyn; // pppp - fff (1-9) as used by cmScore
int adjust; // {-1,0,+1}
unsigned vel; // associated MIDI velocity
} _cmXScoreDynMark_t;
_cmXScoreDynMark_t _cmXScoreDynMarkArray[] =
{
{"pppp-", 1, 1, -1, 3},
{"pppp", 2, 1, 0, 10},
{"pppp+", 3, 1, 1, 22},
{"ppp-", 3, 2, -1, 22},
{"ppp", 4, 2, 0, 29},
{"ppp+", 5, 2, 1, 36},
{"pp-", 5, 3, -1, 36},
{"pp", 6, 3, 0, 43},
{"pp+", 7, 3, 1, 50},
{"p-", 7, 4, -1, 50},
{"p", 8, 4, 0, 57},
{"p+", 9, 4, 1, 64},
{"mp-", 9, 5, -1, 64},
{"mp", 10, 5, 0, 71},
{"mp+", 11, 5, 1, 78},
{"mf-", 11, 6, -1, 78},
{"mf", 12, 6, 0, 85},
{"mf+", 13, 6, 1, 92},
{"f-", 13, 7, -1, 92},
{"f", 14, 7, 0, 99},
{"f+", 15, 7, 1, 106},
{"ff", 16, 8, 0, 113},
{"ff+", 17, 8, 1, 120},
{"fff", 18, 9, 0, 127},
{NULL,0,0,0,0}
};
cmXsNote_t* _cmXsReorderFindNote( cmXScore_t* p, unsigned measNumb, const cmXsReorder_t* r, unsigned iii )
{
cmXsPart_t* pp = p->partL;
for(; pp!=NULL; pp=pp->link)
{
cmXsMeas_t* mp = pp->measL;
for(; mp!=NULL; mp=mp->link)
if( mp->number == measNumb)
{
cmXsNote_t* np = mp->noteL;
int index = 0;
for(; np!=NULL; np=np->slink,++index)
{
if( np->voice->id == r->voice &&
np->locIdx == r->locIdx &&
np->tick == r->tick &&
np->duration == r->durtn &&
np->rvalue == r->rval &&
np->pitch == r->midi &&
index == r->idx )
{
return np;
}
}
}
}
cmErrMsg(&p->err,kSyntaxErrorXsRC,"Reorder note not found meas:%i index:%i.",measNumb,iii);
return NULL;
}
cmXsRC_t _cmXScoreReorderMeas( cmXScore_t* p, unsigned measNumb, cmXsReorder_t* rV, unsigned rN )
{
unsigned i;
if( rN == 0 )
return kOkXsRC;
// set the 'note' field on each cmXsReorder_t record
for(i=0; i<rN; ++i)
{
if((rV[i].note = _cmXsReorderFindNote(p,measNumb,rV+i,i)) == NULL )
return kSyntaxErrorXsRC;
}
cmXsMeas_t* mp = rV[0].note->meas;
cmXsNote_t* n0p = NULL;
assert( mp->number == measNumb );
// Reassign the slink of the cmXsNote_t records in this measure
// according to their order in rV[].
for(i=0; i<rN; ++i)
{
if( n0p == NULL )
mp->noteL = rV[i].note;
else
n0p->slink = rV[i].note;
// if a new tick was specified
if( rV[i].newTick != 0 )
rV[i].note->tick = rV[i].newTick;
// if a sostenuto was specified
rV[i].note->flags |= rV[i].sostFl;
if( rV[i].dynIdx != cmInvalidIdx )
{
rV[i].note->dynamics = _cmXScoreDynMarkArray[ rV[i].dynIdx ].dyn;
rV[i].note->vel = _cmXScoreDynMarkArray[ rV[i].dynIdx ].vel;
}
n0p = rV[i].note;
n0p->slink = NULL;
}
return kOkXsRC;
}
cmXsRC_t _cmXScoreReorderParseDyn(cmXScore_t* p, const cmChar_t* b, unsigned lineNumb, unsigned* dynIdxRef )
{
cmXsRC_t rc = kOkXsRC;
const cmChar_t* s;
*dynIdxRef = cmInvalidIdx;
// locate the '!' which indicates the start of a dynamic marking
if( (s = strchr(b,'!')) == NULL )
return rc;
++s; // increment past the '!'
if( *s == 0 )
return cmErrMsg(&p->err,kSyntaxErrorXsRC,"Unexpected end-of-line on dynamics parsing on line:%i.",lineNumb);
// some dynamic markings are surrounded by parenthesis (to indicate a dynamic level with greater uncertainty)
if( *s == '(' )
++s; // skip the paren.
if( *s == 0 )
return cmErrMsg(&p->err,kSyntaxErrorXsRC,"Unexpected end-of-line on dynamics parsing on line:%i.",lineNumb);
unsigned i = 0;
unsigned j = 0;
unsigned n = 6;
bool doneFl = false;
cmChar_t mark[n+1];
memset(mark,0,n+1);
for(i=0; j<n && doneFl==false; ++i)
{
switch(s[i])
{
case 'm':
case 'p':
case 'f':
case '+':
case '-':
mark[j++] = s[i];
break;
case ')': // ending paren.
case 0: // end of string
case ' ': // end of mark
case '\n': // end of line
default: // anything else
doneFl = true;
break;
}
}
if( !doneFl )
return cmErrMsg(&p->err,kSyntaxErrorXsRC,"Illegal dynamic mark (%s) syntax on line:%i.",mark,lineNumb);
// look up the dynamic mark in the reference table
for(j=0; _cmXScoreDynMarkArray[j].mark!=NULL; ++j)
if( strcmp(mark,_cmXScoreDynMarkArray[j].mark) == 0 )
break;
if( _cmXScoreDynMarkArray[j].mark == NULL )
return cmErrMsg(&p->err,kSyntaxErrorXsRC,"The dynamic mark '%s' is not legal on line:%i.",mark,lineNumb);
*dynIdxRef = j;
return rc;
}
cmXsRC_t _cmXScoreReorderParseSost(cmXScore_t* p, const cmChar_t* b, unsigned line, unsigned* sostFlRef )
{
cmXsRC_t rc = kOkXsRC;
const cmChar_t* s;
*sostFlRef = 0;
if((s = strchr(b,'~')) == NULL )
return rc;
++s;
switch( *s )
{
case 'd':
*sostFlRef = kSostDnXsFl; // pedal down just after this note onset
break;
case 'u':
*sostFlRef = kSostUpXsFl; // pedal up
break;
default:
return cmErrMsg(&p->err,kSyntaxErrorXsRC,"Unexpected sostenuto marking '%c' on line %i.",*s,line);
}
return rc;
}
cmXsRC_t _cmXScoreReorderParseTick(cmXScore_t* p, const cmChar_t* b, unsigned line, unsigned* tickRef )
{
cmXsRC_t rc = kOkXsRC;
const cmChar_t* s;
if((s = strchr(b,'@')) == NULL )
return rc;
++s;
if(!isdigit(*s))
return cmErrMsg(&p->err,kSyntaxErrorXsRC,"Unexpected tick reorder value '%c' on line %i.",*s,line);
if(sscanf(s,"%i",tickRef) != 1 )
return cmErrMsg(&p->err,kSyntaxErrorXsRC,"tick reorder parse failed on line %i.",line);
return rc;
}
cmXsRC_t cmXScoreReorder( cmXsH_t h, const cmChar_t* fn )
{
typedef enum { kFindMeasStId, kFindEventStId, kReadEventStId } stateId_t;
cmXsRC_t rc = kOkXsRC;
cmXScore_t* p = _cmXScoreHandleToPtr(h);
cmFileH_t fH = cmFileNullHandle;
cmChar_t* b = NULL;
unsigned bN = 0;
unsigned ln = 0;
stateId_t stateId = kFindMeasStId;
unsigned rN = 1024;
unsigned ri = 0;
unsigned measNumb = 0;
cmXsReorder_t rV[ rN ];
if( cmFileOpen(&fH,fn,kReadFileFl,p->err.rpt) != kOkFileRC )
{
rc = cmErrMsg(&p->err,kFileFailXsRC,"The reordering file '%s' could not be opened.",cmStringNullGuard(fn));
return rc;
}
for(; cmFileGetLineAuto(fH,&b,&bN)==kOkFileRC; ++ln)
{
switch( stateId )
{
case kFindEventStId: // scanning past labels to an event line
{
unsigned voice,loc;
if( sscanf(b,"%i %i",&voice,&loc) != 2 )
continue;
stateId = kReadEventStId;
}
// fall through
case kReadEventStId:
{
cmXsReorder_t r;
char pitchStr[4];
memset(&r,0,sizeof(r));
// parse an event line
if( sscanf(b,"%i %i %i %i %i %f",&r.idx,&r.voice,&r.locIdx,&r.tick,&r.durtn,&r.rval) == 6 )
{
assert( strlen(b)>=52);
int PC = 39; // text file column where first pitch char occurs
if( b[PC] == ' ')
r.midi = 0;
else
{
pitchStr[0] = b[PC+0];
pitchStr[1] = b[PC+1];
pitchStr[2] = b[PC+2];
pitchStr[3] = 0;
if( !isdigit(pitchStr[2]) )
r.midi = 0;
else
{
if( pitchStr[1] == ' ')
{
pitchStr[1] = pitchStr[2];
pitchStr[2] = 0;
}
r.midi = cmSciPitchToMidi(pitchStr);
}
}
// parse the dynamic marking following a '!'
if((rc = _cmXScoreReorderParseDyn(p,b,ln+1,&r.dynIdx)) != kOkXsRC )
goto errLabel;
// parse the sostenuto pedal marking
if((rc = _cmXScoreReorderParseSost(p,b,ln+1, &r.sostFl)) != kOkXsRC )
goto errLabel;
// parse the @newtick marker
if((rc = _cmXScoreReorderParseTick(p, b, ln+1, &r.newTick)) != kOkXsRC )
goto errLabel;
// store the record
assert( ri < rN );
rV[ri++] = r;
continue;
}
// the end of the measure was encountered -
// reorder the measure based on the cmXsReorder_t in rV[ri]
if((rc = _cmXScoreReorderMeas(p, measNumb, rV, ri )) != kOkXsRC )
goto errLabel;
ri = 0;
stateId = kFindMeasStId;
// fall through
}
case kFindMeasStId: // scanning for a bar-line
{
char colon;
if( sscanf(b,"%i %c",&measNumb,&colon) == 2 && colon == ':' )
{
//printf("meas: %i \n",measNumb);
stateId = kFindEventStId;
}
}
break;
}
}
// the ticks may have changed so the 'secs' and 'dsecs' must be updated
_cmXScoreSetAbsoluteTime( p );
// the bar lines should be the first event in the measure
_cmXScoreFixBarLines(p);
// resort to force the links to be correct
_cmXScoreSort(p);
errLabel:
cmFileClose(&fH);
cmMemFree(b);
return rc;
}
/*-------------------------------------------------------------------------------------------
Dynamics File Format:
<blk>*
<blk> -> <hdr-line> <note-line> <blank-line>
<hdr-line> -> <int> "|"
<note-line> -> <float> <sci-pitch> ":" <int>
<sci-pitch> -> <A-G><#|b|<space>
See imag_themes/scores/dyn.txt for an example.
*/
typedef struct cmXsDyn_str
{
unsigned bar;
float rval;
unsigned pitch;
char dyn;
unsigned line;
} cmXsDyn_t;
cmXsRC_t _cmXScoreParseDynamicsFile( cmXScore_t* p, const cmChar_t* fn, cmXsDyn_t** aVRef, unsigned* aNRef )
{
typedef enum { hdrStateId,noteStateId } state_t;
cmXsRC_t rc = kOkXsRC;
cmFileH_t fH = cmFileNullHandle;
cmChar_t* b = NULL;
unsigned bN = 0;
unsigned ln = 1;
state_t stateId = hdrStateId;
unsigned bar = 0;
if( cmFileOpen(&fH,fn,kReadFileFl,p->err.rpt) != kOkFileRC )
return cmErrMsg(&p->err,kFileFailXsRC,"File open failed on '%s'.",cmStringNullGuard(fn));
unsigned aN = 0;
unsigned ai = 0;
if( cmFileLineCount(fH,&aN) != kOkFileRC )
{
rc = cmErrMsg(&p->err,kFileFailXsRC,"File line count acces failed on '%s'.",cmStringNullGuard(fn));
goto errLabel;
}
cmXsDyn_t* aV = cmMemAllocZ(cmXsDyn_t,aN);
for(; cmFileGetLineAuto(fH,&b,&bN)==kOkFileRC; ++ln)
{
char ch;
if( cmTextIsEmpty(b) )
{
stateId = hdrStateId;
continue;
}
switch( stateId )
{
case hdrStateId:
if( sscanf(b,"%i %c",&bar,&ch) != 2 || ch != '|' )
{
rc = cmErrMsg(&p->err,kSyntaxErrorXsRC,"Expected header string read failed on line %i in '%s'.",ln,cmStringNullGuard(fn));
goto errLabel;
}
stateId = noteStateId;
break;
case noteStateId:
{
float rv;
char colon;
char dyn;
char sps[4];
sps[3] = 0;
if(sscanf(b,"%f %c%c%c %c %c", &rv, sps, sps+1, sps+2, &colon, &dyn ) != 6 || colon != ':' )
{
rc = cmErrMsg(&p->err,kSyntaxErrorXsRC,"Expected note string read failed on line %i in '%s'.",ln,cmStringNullGuard(fn));
goto errLabel;
}
//printf("%3i %3.1f %3s %c\n",bar,rv,sps,dyn);
if( sps[1] == ' ')
cmTextShrinkS(sps, sps+1, 1 );
assert(ai<aN);
aV[ai].bar = bar;
aV[ai].rval = rv;
aV[ai].pitch = cmSciPitchToMidi(sps);
aV[ai].dyn = dyn;
aV[ai].line = ln;
++ai;
}
break;
}
}
*aVRef = aV;
*aNRef = ai;
errLabel:
cmMemFree(b);
cmFileClose(&fH);
return rc;
}
cmXsRC_t cmXScoreInsertDynamics( cmXsH_t h, const cmChar_t* dynFn )
{
cmXsRC_t rc = kOkXsRC;
cmXScore_t* p = _cmXScoreHandleToPtr(h);
cmXsDyn_t* aV = NULL;
unsigned aN = 0;
unsigned ai = 0;
if((rc = _cmXScoreParseDynamicsFile(p, dynFn, &aV, &aN)) != kOkXsRC )
return rc;
cmXsPart_t* pp = p->partL;
for(; pp!=NULL; pp=pp->link)
{
cmXsMeas_t* mp = pp->measL;
for(; mp!=NULL; mp=mp->link)
{
cmXsNote_t* np = mp->noteL;
for(; np!=NULL; np=np->slink)
if( cmIsFlag(np->flags,kDynXsFl) )
{
if( ai >= aN || aV[ai].bar != mp->number || aV[ai].pitch != np->pitch || aV[ai].rval != np->rvalue )
{
rc = cmErrMsg(&p->err,kSyntaxErrorXsRC,"Dynamics file mismatch error on dynamics line:%i. expected:%s %f actual:%s %f\n",aV[ai].line,aV[ai].rval,cmMidiToSciPitch(aV[ai].pitch,NULL,0),cmMidiToSciPitch(np->pitch,NULL,0),np->rvalue);
goto errLabel;
}
if( '1' <= aV[ai].dyn && aV[ai].dyn <= '9' )
np->dynamics = strtol(&aV[ai].dyn,NULL,10);
++ai;
}
}
}
errLabel:
cmMemFree(aV);
return rc;
}
/*
kMidiFileIdColScIdx= 0,
kTypeLabelColScIdx = 3,
kDSecsColScIdx = 4,
kSecsColScIdx = 5,
kD0ColScIdx = 9,
kD1ColScIdx = 10,
kPitchColScIdx = 11,
kBarColScIdx = 13,
kSkipColScIdx = 14,
kEvenColScIdx = 15,
kGraceColScIdx = 16,
kTempoColScIdx = 17,
kFracColScIdx = 18,
kDynColScIdx = 19,
kSectionColScIdx = 20,
kRecdPlayColScIdx = 21,
kRemarkColScIdx = 22
*/
cmXsRC_t _cmXScoreWriteCsvHdr( cmXScore_t* p )
{
const cmChar_t* s[] =
{
"id","trk","evt","opcode","dticks","micros","status",
"meta","ch","d0","d1","arg0","arg1","bar","skip",
"even","grace","tempo","t frac","dyn","section","play_recd","remark",NULL
};
cmCsvCell_t* lcp = NULL;
if( cmCsvAppendRow( p->csvH, &lcp, cmCsvInsertSymText(p->csvH,s[0]), 0, 0 ) != kOkCsvRC )
return cmErrMsg(&p->err,kCsvFailXsRC,"CSV append row failed.");
unsigned i;
for(i=1; s[i]!=NULL; ++i)
{
if( cmCsvInsertIdentColAfter(p->csvH, lcp, &lcp, s[i], 0 ) != kOkCsvRC )
return cmErrMsg(&p->err,kCsvFailXsRC,"CSV error inserting CSV title %i.\n",i);
}
return kOkXsRC;
}
cmXsRC_t _cmXScoreWriteCsvBlankCols( cmXScore_t* p, unsigned cnt, cmCsvCell_t** leftCellPtrPtr )
{
unsigned i;
for(i=0; i<cnt; ++i)
if( cmCsvInsertIdentColAfter(p->csvH,*leftCellPtrPtr,leftCellPtrPtr,"",0) != kOkCsvRC )
return cmErrMsg(&p->err,kCsvFailXsRC,"CSV output failed on blank column.");
return kOkCsvRC;
}
const cmChar_t* _cmXScoreTranslateDynamics( cmXScore_t* p, const cmXsNote_t* np, cmChar_t* buf, unsigned bufN )
{
if( cmIsFlag(np->flags,kDynXsFl) && np->dynamics != 0 )
{
const cmChar_t* dynStr = NULL;
switch(np->dynamics)
{
case 1: dynStr = "pppp"; break;
case 2: dynStr = "ppp"; break;
case 3: dynStr = "pp"; break;
case 4: dynStr = "p"; break;
case 5: dynStr = "mp"; break;
case 6: dynStr = "mf"; break;
case 7: dynStr = "f"; break;
case 8: dynStr = "ff"; break;
case 9: dynStr = "fff"; break;
default:
cmErrMsg(&p->err,kSyntaxErrorXsRC,"An invalid dynamic value (%i) was encountered.",np->dynamics);
goto errLabel;
}
if( np->dynGroupId == 0 )
snprintf(buf,bufN,"%s",dynStr);
else
snprintf(buf,bufN,"%s %i",dynStr,np->dynGroupId);
return buf;
}
errLabel:
return "";
}
const cmChar_t* cmXsFormatMeasurementCsvField( unsigned flags, unsigned fl, char abbrev, unsigned sectionId, char* buf, unsigned bufN )
{
assert( bufN > 1 );
buf[0] = ' ';
buf[1] = 0;
if( cmIsFlag(flags,fl) )
{
if( sectionId != 0 )
snprintf(buf,bufN-1,"%c %i%c",abbrev,sectionId, cmIsFlag(flags,kHeelXsFl)?'*':' ');
else
buf[0] = abbrev;
}
return buf;
}
cmXsRC_t _cmXScoreWriteCsvRow(
cmXScore_t* p,
unsigned rowIdx,
unsigned uid,
unsigned bar,
const cmChar_t* sectionStr,
const cmChar_t* opCodeStr,
double dsecs,
double secs,
unsigned d0,
unsigned d1,
unsigned pitch, // set to -1 if the pitch is not valid
double frac,
const cmChar_t* dynStr,
unsigned flags,
const cmChar_t* evenStr,
const cmChar_t* tempoStr)
{
cmXsRC_t rc = kOkXsRC;
cmCsvCell_t* lcp = NULL;
// append an empty row to the CSV object
if( cmCsvAppendRow( p->csvH, &lcp, cmCsvInsertSymUInt(p->csvH, rowIdx ), 0, 0 ) != kOkCsvRC )
{
rc = cmErrMsg(&p->err,kCsvFailXsRC,"CSV append row failed.");
goto errLabel;
}
/*
// col 0 : blanks
if( cmCsvInsertUIntColAfter(p->csvH, lcp, &lcp, rowIdx, 0 ) != kOkCsvRC )
{
rc = cmErrMsg(&p->err,kCsvFailXsRC,"CSV output row index failed.");
goto errLabel;
}
*/
// col 1 : track (always 1)
if( cmCsvInsertUIntColAfter(p->csvH,lcp,&lcp,1,0) != kOkCsvRC )
{
rc = cmErrMsg(&p->err,kCsvFailXsRC,"CSV insert failed on 'd0'.");
goto errLabel;
}
// col 2 : evt (set to event uid, or blank if uid == -1)
if( uid == -1 )
{
if((rc = _cmXScoreWriteCsvBlankCols(p,1,&lcp)) != kOkXsRC )
goto errLabel;
}
else
if( cmCsvInsertUIntColAfter(p->csvH,lcp,&lcp,uid,0) != kOkCsvRC )
{
rc = cmErrMsg(&p->err,kCsvFailXsRC,"CSV insert failed on 'd0'.");
goto errLabel;
}
// col 3 : output the opcode
if( cmCsvInsertIdentColAfter(p->csvH,lcp,&lcp,opCodeStr,0) != kOkCsvRC )
{
rc = cmErrMsg(&p->err,kCsvFailXsRC,"CSV insert failed on opcode label.");
goto errLabel;
}
// col 4 : dsecs
if( cmCsvInsertDoubleColAfter(p->csvH,lcp,&lcp,dsecs,0) != kOkCsvRC )
{
rc = cmErrMsg(&p->err,kCsvFailXsRC,"CSV insert failed on 'dsecs'.");
goto errLabel;
}
// col 5 : secs
if( cmCsvInsertDoubleColAfter(p->csvH,lcp,&lcp,secs,0) != kOkCsvRC )
{
rc = cmErrMsg(&p->err,kCsvFailXsRC,"CSV insert failed on 'secs'.");
goto errLabel;
}
// cols 6,7,8 blanks
if((rc = _cmXScoreWriteCsvBlankCols(p,3,&lcp)) != kOkXsRC )
goto errLabel;
// col 9 : d0
if( cmCsvInsertUIntColAfter(p->csvH,lcp,&lcp,d0,0) != kOkCsvRC )
{
rc = cmErrMsg(&p->err,kCsvFailXsRC,"CSV insert failed on 'd0'.");
goto errLabel;
}
// col 10 : d1
if( cmCsvInsertUIntColAfter(p->csvH,lcp,&lcp,d1,0) != kOkCsvRC )
{
rc = cmErrMsg(&p->err,kCsvFailXsRC,"CSV insert failed on 'd1'.");
goto errLabel;
}
// col 11 : pitch
if( pitch == -1 )
{
if((rc = _cmXScoreWriteCsvBlankCols(p,1,&lcp)) != kOkXsRC )
goto errLabel;
}
else
{
if( cmCsvInsertIdentColAfter(p->csvH,lcp,&lcp,cmMidiToSciPitch(pitch,NULL,0),0) != kOkCsvRC )
{
rc = cmErrMsg(&p->err,kCsvFailXsRC,"CSV insert failed on 'pitch'.");
goto errLabel;
}
}
// col 12 : blanks
if((rc = _cmXScoreWriteCsvBlankCols(p,1 + (cmIsFlag(flags,kBarXsFl) ? 0 : 1), &lcp)) != kOkXsRC )
goto errLabel;
// col 13 : bar number
if( cmIsFlag(flags,kBarXsFl) )
{
if( cmCsvInsertUIntColAfter(p->csvH,lcp,&lcp,bar,0) != kOkCsvRC )
{
rc = cmErrMsg(&p->err,kCsvFailXsRC,"CSV insert failed on 'pitch'.");
goto errLabel;
}
}
// col 14 : skip (blank for now)
if((rc = _cmXScoreWriteCsvBlankCols(p,1,&lcp)) != kOkXsRC )
goto errLabel;
// col 15: even (all grace notes are 'even' notes
if( cmCsvInsertQTextColAfter(p->csvH,lcp,&lcp, evenStr, 0) != kOkCsvRC )
{
rc = cmErrMsg(&p->err,kCsvFailXsRC,"CSV insert failed on eveness flag label.");
goto errLabel;
}
// col 16: grace
if( cmCsvInsertIdentColAfter(p->csvH,lcp,&lcp,cmIsFlag(flags,kGraceXsFl) ? "g" : "",0) != kOkCsvRC )
{
rc = cmErrMsg(&p->err,kCsvFailXsRC,"CSV insert failed on eveness flag label.");
goto errLabel;
}
// col 17: tempo
if( cmCsvInsertQTextColAfter(p->csvH,lcp,&lcp,tempoStr,0) != kOkCsvRC )
{
rc = cmErrMsg(&p->err,kCsvFailXsRC,"CSV insert failed on eveness flag label.");
goto errLabel;
}
// col 18: frac
if( frac == 0 )
{
if((rc = _cmXScoreWriteCsvBlankCols(p,1,&lcp)) != kOkXsRC )
goto errLabel;
}
else
{
if( cmCsvInsertDoubleColAfter(p->csvH,lcp,&lcp,1.0/frac,0) != kOkCsvRC )
{
rc = cmErrMsg(&p->err,kCsvFailXsRC,"CSV insert failed on 't frac'.");
goto errLabel;
}
}
// col 19: dynamic marking
if( cmCsvInsertQTextColAfter(p->csvH, lcp, &lcp, dynStr, 0 ) != kOkCsvRC )
{
rc = cmErrMsg(&p->err,kCsvFailXsRC,"CSV insert failed on 'dynamics'.");
goto errLabel;
}
//if((rc = _cmXScoreWriteCsvBlankCols(p,1,&lcp)) != kOkXsRC )
// goto errLabel;
// col 20: section
if( cmCsvInsertIdentColAfter(p->csvH,lcp,&lcp,sectionStr!=NULL ? sectionStr : "",0) != kOkCsvRC )
{
rc = cmErrMsg(&p->err,kCsvFailXsRC,"CSV insert failed on eveness flag label.");
goto errLabel;
}
// col 21, 22 : recd-play, remark (blank for now)
if((rc = _cmXScoreWriteCsvBlankCols(p,2,&lcp)) != kOkXsRC )
goto errLabel;
errLabel:
return rc;
}
cmXsRC_t cmXScoreWriteCsv( cmXsH_t h, const cmChar_t* csvFn )
{
cmXsRC_t rc = kOkXsRC;
cmXScore_t* p = _cmXScoreHandleToPtr(h);
unsigned rowIdx = 1;
const cmChar_t* sectionIdStr = NULL;
if( !cmCsvIsValid(p->csvH) )
return cmErrMsg(&p->err,kCsvFailXsRC,"The CSV output object is not initialized.");
if((rc = _cmXScoreWriteCsvHdr( p )) != kOkXsRC )
goto errLabel;
cmXsPart_t* pp = p->partL;
for(; pp!=NULL; pp=pp->link)
{
cmXsMeas_t* mp = pp->measL;
for(; mp!=NULL; mp=mp->link)
{
cmXsNote_t* np = mp->noteL;
for(; np!=NULL; np=np->slink)
{
// if this is a section event
if( cmIsFlag(np->flags,kSectionXsFl) )
sectionIdStr = np->tvalue;
// if this is a bar event
if( cmIsFlag(np->flags,kBarXsFl) )
{
_cmXScoreWriteCsvRow(p,rowIdx,-1,mp->number,sectionIdStr,"bar",np->dsecs,np->secs,0,0,-1,0,"",np->flags,"","");
sectionIdStr = NULL;
}
else
{
// if this is a pedal event
if( cmIsFlag(np->flags,kPedalDnXsFl|kPedalUpXsFl|kPedalUpDnXsFl) )
{
unsigned d0 = 64; // pedal MIDI ctl id
unsigned d1 = cmIsFlag(np->flags,kPedalDnXsFl) ? 64 : 0; // pedal-dn: d1>=64 pedal-up:<64
_cmXScoreWriteCsvRow(p,rowIdx,-1,mp->number,sectionIdStr,"ctl",np->dsecs,np->secs,d0,d1,-1,0,"",np->flags,"","");
sectionIdStr = NULL;
if( cmIsFlag(np->flags,kPedalUpDnXsFl) )
{
rowIdx += 1;
double millisecond = 0.0;
_cmXScoreWriteCsvRow(p,rowIdx,-1,mp->number,sectionIdStr,"ctl",millisecond,np->secs+millisecond,d0,64,-1,0,"",np->flags,"","");
}
}
else
{
// if this is a sounding note event
if( cmIsFlag(np->flags,kOnsetXsFl) )
{
unsigned bufN = 128;
cmChar_t ebuf[ bufN+1]; ebuf[bufN] = 0;
cmChar_t dbuf[ bufN+1]; dbuf[bufN] = 0;
cmChar_t tbuf[ bufN+1]; tbuf[bufN] = 0;
double frac = np->rvalue + (cmIsFlag(np->flags,kDotXsFl) ? (np->rvalue/2) : 0);
const cmChar_t* dyn = _cmXScoreTranslateDynamics( p, np, dbuf, bufN );
unsigned vel = np->vel==0 ? 60 : np->vel;
//
_cmXScoreWriteCsvRow(p,rowIdx,np->uid,mp->number,sectionIdStr,"non",np->dsecs,np->secs,np->pitch,vel,np->pitch,frac,dyn,np->flags,
cmXsFormatMeasurementCsvField(np->flags, kEvenXsFl, 'e', np->evenGroupId, ebuf, bufN ),
cmXsFormatMeasurementCsvField(np->flags, kTempoXsFl,'t', np->tempoGroupId, tbuf, bufN ));
sectionIdStr = NULL;
}
}
}
rowIdx += 1;
}
}
}
// Section labels are output on the next bar/pedal/note
// but what if there is no bar pedal note-on after the section label
if( sectionIdStr != NULL )
cmErrMsg(&p->err,kSyntaxErrorXsRC,"The section label '%s' was ignored because it was not followed by a score event.",sectionIdStr);
if( cmCsvWrite( p->csvH, csvFn ) != kOkCsvRC )
rc = cmErrMsg(&p->err,kCsvFailXsRC,"The CSV output write failed on file '%s'.",csvFn);
errLabel:
return rc;
}
void _cmXScoreReportTitle( cmRpt_t* rpt )
{
cmRptPrintf(rpt," idx voc loc tick durtn rval flags\n");
cmRptPrintf(rpt," --- --- ----- ------- ----- ---- --- --------------\n");
}
void _cmXScoreReportNote( cmRpt_t* rpt, const cmXsNote_t* note,unsigned index )
{
const cmChar_t* B = cmIsFlag(note->flags,kBarXsFl) ? "|" : "-";
const cmChar_t* R = cmIsFlag(note->flags,kRestXsFl) ? "R" : "-";
const cmChar_t* G = cmIsFlag(note->flags,kGraceXsFl) ? "G" : "-";
const cmChar_t* D = cmIsFlag(note->flags,kDotXsFl) ? "." : "-";
const cmChar_t* C = cmIsFlag(note->flags,kChordXsFl) ? "C" : "-";
const cmChar_t* e = cmIsFlag(note->flags,kEvenXsFl) ? "e" : "-";
const cmChar_t* d = cmIsFlag(note->flags,kDynXsFl) ? "d" : "-";
const cmChar_t* t = cmIsFlag(note->flags,kTempoXsFl) ? "t" : "-";
const cmChar_t* P = cmIsFlag(note->flags,kPedalDnXsFl) ? "V" : "-";
const cmChar_t* S = cmIsFlag(note->flags,kSectionXsFl) ? "S" : "-";
const cmChar_t* H = cmIsFlag(note->flags,kHeelXsFl) ? "H" : "-";
const cmChar_t* T0 = cmIsFlag(note->flags,kTieBegXsFl) ? "T" : "-";
const cmChar_t* T1 = cmIsFlag(note->flags,kTieEndXsFl) ? "_" : "-";
const cmChar_t* O = cmIsFlag(note->flags,kOnsetXsFl) ? "*" : "-";
P = cmIsFlag(note->flags,kPedalUpXsFl) ? "^" : P;
P = cmIsFlag(note->flags,kPedalUpDnXsFl) ? "X" : P;
//const cmChar_t* N = note->pitch==0 ? " " : cmMidiToSciPitch( note->pitch, NULL, 0 );
cmChar_t N[] = {'\0','\0','\0','\0'};
cmChar_t acc = note->alter==-1?'b':(note->alter==1?'#':' ');
snprintf(N,4,"%c%c%1i",note->step,acc,note->octave);
cmRptPrintf(rpt," %3i %3i %5i %7i %5i %4.1f %3s %s%s%s%s%s%s%s%s%s%s%s%s%s%s",
index,
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,O);
if( cmIsFlag(note->flags,kSectionXsFl) )
cmRptPrintf(rpt," %s",cmStringNullGuard(note->tvalue));
if( cmIsFlag(note->flags,kMetronomeXsFl) )
cmRptPrintf(rpt," %i bpm",note->duration);
if( note->evenGroupId != 0 )
cmRptPrintf(rpt," e=%i",note->evenGroupId);
if( note->dynGroupId != 0 )
cmRptPrintf(rpt," d=%i",note->dynGroupId);
if( note->tempoGroupId != 0 )
cmRptPrintf(rpt," t=%i",note->tempoGroupId);
}
void cmXScoreReport( cmXsH_t h, cmRpt_t* rpt, bool sortFl )
{
cmXScore_t* p = _cmXScoreHandleToPtr(h);
cmXsPart_t* pp = p->partL;
for(; pp!=NULL; pp=pp->link)
{
cmRptPrintf(rpt,"Part:%s\n",pp->idStr);
const cmXsMeas_t* meas = pp->measL;
for(; meas!=NULL; meas=meas->link)
{
unsigned idx = 0;
cmRptPrintf(rpt," %i : div:%i beat:%i beat-type:%i (%i)\n",meas->number,meas->divisions,meas->beats,meas->beat_type,meas->divisions*meas->beats);
_cmXScoreReportTitle(rpt);
if( sortFl )
{
const cmXsNote_t* note = meas->noteL;
unsigned t0 = 0;
unsigned t1 = 0;
for(; note!=NULL; note=note->slink,++idx)
{
_cmXScoreReportNote(rpt,note,idx);
t1 = note->slink==NULL ? note->tick : note->slink->tick;
if( !(t0 <= note->tick && note->tick <= t1) )
{
cmRptPrintf(rpt," +");
}
t0 = note->tick;
if( note->slink!=NULL || note->voice->id==0)
cmRptPrintf(rpt,"\n");
else
cmRptPrintf(rpt," %i\n", note->tick + note->duration);
}
}
else
{
const cmXsVoice_t* v = meas->voiceL;
for(; v!=NULL; v=v->link)
{
const cmXsNote_t* note = v->noteL;
cmRptPrintf(rpt," voice:%i\n",v->id);
for(; note!=NULL; note=note->mlink)
{
_cmXScoreReportNote(rpt,note,idx);
if( note->mlink!=NULL || note->voice->id==0)
cmRptPrintf(rpt,"\n");
else
cmRptPrintf(rpt," %i\n", note->tick + note->duration);
}
}
}
}
}
}
cmXsRC_t cmXScoreWriteMidi( cmXsH_t h, const cmChar_t* fn )
{
assert(0); // function not implemented
cmXScore_t* p = _cmXScoreHandleToPtr(h);
cmXsPart_t* pp = p->partL;
for(; pp!=NULL; pp=pp->link)
{
const cmXsMeas_t* meas = pp->measL;
for(; meas!=NULL; meas=meas->link)
{
const cmXsNote_t* note = meas->noteL;
for(; note!=NULL; note=note->slink)
{
}
}
}
}
cmXsRC_t cmXScoreTest(
cmCtx_t* ctx,
const cmChar_t* xmlFn,
const cmChar_t* midiFn,
const cmChar_t* outFn,
const cmChar_t* dynFn,
const cmChar_t* reorderFn )
{
cmXsRC_t rc;
cmXsH_t h = cmXsNullHandle;
if((rc = cmXScoreInitialize( ctx, &h, xmlFn, midiFn)) != kOkXsRC )
return cmErrMsg(&ctx->err,rc,"XScore alloc failed.");
//if( dynFn != NULL )
// cmXScoreInsertDynamics(h, dynFn );
if( reorderFn != NULL )
{
cmXScoreReorder(h,reorderFn);
}
if( outFn != NULL )
{
cmScH_t scH = cmScNullHandle;
double srate = 44100.0;
cmXScoreWriteCsv(h,outFn);
cmSymTblH_t stH = cmSymTblCreate(cmSymTblNullHandle, 0, ctx );
if( cmScoreInitialize( ctx, &scH, outFn, srate, NULL, 0, NULL, NULL, stH) != kOkScRC )
cmErrMsg(&ctx->err,kFileFailXsRC,"The generated CSV file could not be parsed.");
else
{
//cmScorePrintSets(scH,&ctx->rpt);
//cmScorePrint(scH,&ctx->rpt);
cmScoreFinalize(&scH);
}
cmSymTblDestroy(&stH);
}
//cmXScoreReport(h,&ctx->rpt,true);
return cmXScoreFinalize(&h);
}
Reference in New Issue View Git Blame Copy Permalink