#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 "cmFileSys.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" #include "cmSvgWriter.h" cmXsH_t cmXsNullHandle = cmSTATIC_NULL_HANDLE; enum { kSectionXsFl = 0x00000001, // rvalue holds section number kBarXsFl = 0x00000002, kRestXsFl = 0x00000004, kGraceXsFl = 0x00000008, kDotXsFl = 0x00000010, kChordXsFl = 0x00000020, kDynXsFl = 0x00000040, kEvenXsFl = 0x00000080, kTempoXsFl = 0x00000100, kHeelXsFl = 0x00000200, kTieBegXsFl = 0x00000400, kTieEndXsFl = 0x00000800, kTieProcXsFl = 0x00001000, kDampDnXsFl = 0x00002000, kDampUpXsFl = 0x00004000, kDampUpDnXsFl = 0x00008000, kSostDnXsFl = 0x00010000, kSostUpXsFl = 0x00020000, kMetronomeXsFl = 0x00040000, // duration holds BPM kOnsetXsFl = 0x00080000, // this is a sounding note kBegGroupXsFl = 0x00100000, kEndGroupXsFl = 0x00200000, kBegGraceXsFl = 0x00400000, // (b) beg grace note group kEndGraceXsFl = 0x00800000, // end grace note group kAddGraceXsFl = 0x01000000, // (a) end grace note group operator flag - add time kSubGraceXsFl = 0x02000000, // (s) " " " " " " - subtract time kAFirstGraceXsFl = 0x04000000, // (A) add time after first note kNFirstGraceXsFl = 0x08000000, // (n) grace notes start as soon as possible after first note and add time kDeleteXsFl = 0x10000000 }; struct cmXsMeas_str; struct cmXsVoice_str; // Values measured for each sounding note in the preceding time window.... typedef struct cmXsComplexity_str { unsigned sum_d_vel; // sum of first order difference of cmXsNote_t.dynamics unsigned sum_d_rym; // sum of first order difference of cmXsNote_t.rvalue unsigned sum_d_lpch; // sum of first order difference of cmXsNote_t.pitch of note assigned to the bass cleff unsigned sum_n_lpch; // count of notes assigned to the bass cleff unsigned sum_d_rpch; // sum of first order difference of cmXsNote_t.pitch of note assigned to the treble cleff unsigned sum_n_rpch; // count of notes assigned to the treble cleff } cmXsComplexity_t; typedef struct cmXsNote_str { unsigned uid; // unique id of this note record unsigned flags; // See k???XsFl unsigned pitch; // midi pitch 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 unsigned tied_dur; // duration in ticks (including all tied notes) 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 unsigned graceGroupId; // grace note 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* tied; // subsequent note tied to this note struct cmXsNote_str* grace; // grace note groups link backward in time from the anchor note struct cmXsNote_str* mlink; // measure note list struct cmXsNote_str* slink; // time sorted event list cmXsComplexity_t cplx; } 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; cmXsComplexity_t cplx_max; } 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++; note->tied_dur = note->duration; return kOkXsRC; } void _cmXScoreRemoveNote( cmXsNote_t* note ) { cmXsNote_t* n0 = NULL; cmXsNote_t* n1 = note->voice->noteL; for(; n1!=NULL; n1=n1->mlink) if( n1->uid == note->uid ) { if( n0 == NULL ) note->voice->noteL = NULL; else n0->mlink = n1->mlink; break; } n0 = NULL; n1 = note->meas->noteL; for(; n1!=NULL; n1=n1->slink) if( n1->uid == note->uid ) { if( n0 == NULL ) note->voice->noteL = NULL; else n0->slink = n1->slink; break; } } void _cmXScoreInsertNoteBefore( cmXsNote_t* note, cmXsNote_t* nn ) { // insert the new note into the voice list before 'note' cmXsNote_t* n0 = NULL; cmXsNote_t* n1 = note->voice->noteL; for(; n1 != NULL; n1=n1->mlink ) { if( n1->uid == note->uid ) { if( n0 == NULL ) note->voice->noteL = nn; else n0->mlink = nn; nn->mlink = note; break; } n0 = n1; } assert( n1 != NULL ); // insert the new note into the time sorted note list before 'note' n0 = NULL; n1 = note->meas->noteL; for(; n1!=NULL; n1=n1->slink) { if( n1->tick >= nn->tick ) { if( n0 == NULL ) note->meas->noteL = nn; else n0->slink = nn; nn->slink = n1; break; } n0 = n1; } assert( n1 != NULL ); } void _cmXScoreInsertNoteAfter( cmXsNote_t* note, cmXsNote_t* nn ) { // insert the new note into the voice list after 'note' cmXsNote_t* n0 = note->voice->noteL; for(; n0 != NULL; n0=n0->mlink ) if( n0->uid == note->uid ) { nn->mlink = note->mlink; note->mlink = nn; break; } assert(n0 != NULL ); // insert the new note into the time sorted note list after 'note' n0 = note->meas->noteL; for(; n0!=NULL; n0=n0->slink) { if( n0->tick >= nn->tick ) { nn->slink = n0->slink; n0->slink = nn; break; } // if n0 is the last ele in the list if( n0->slink == NULL ) { n0->slink = nn; nn->slink = NULL; break; } } assert(n0 != NULL); } 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); int acc = alter; unsigned midi = cmSciPitchToMidiPitch(*step,acc,octave); 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,¬e->duration,"duration",NULL); // get the note duration cmXmlNodeUInt(nnp,¬e->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",¬e->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->tied_dur = 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 = kDampDnXsFl; else if( cmTextCmp(a->value,"change") == 0 ) flags = kDampUpDnXsFl; else if( cmTextCmp(a->value,"stop") == 0 ) flags = kDampUpXsFl; 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; } // Set the cmXsNode_t.secs and dsecs. 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; // beats per minute double bps = bpm / 60.0; // beats per second tps = bps * tpqn; // ticks per second metro_tick = np->tick; // store tick of the last metronome marker metro_sec = secs; // store time of the last metronome marker } if( cmIsFlag(np->flags,kBarXsFl|kDampDnXsFl|kDampUpXsFl|kDampUpDnXsFl|kSostDnXsFl|kSostUpXsFl|kOnsetXsFl|kSectionXsFl) ) { np->secs = secs; np->dsecs = dsecs; sec0 = secs; } } } } } 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); } } } // The order of events may have changed update the absolute time. _cmXScoreSetAbsoluteTime( p ); } // 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; iflags,kBarXsFl) ) barFl = true; // spread any grace notes by one tick unsigned nextGraceTick = UINT_MAX; for(i=0; iflags,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; iflags,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 each note for(; np!=NULL; np=np->slink) { // if this event is the first of a new tick group (then a[] holds a group completed on the previous note) 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 1 ) tick1 = _cmXsSpreadGraceNotes(a,ai); } } } bool _cmXScoreFindTiedNote( cmXScore_t* p, cmXsMeas_t* mp, cmXsNote_t* n0p, bool rptFl ) { cmXsNote_t* nbp = n0p; 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); n0p->tied = nnp; nbp->tied_dur += nnp->duration; nnp->tied_dur = 0; 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; n0p = nnp; // 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; // count of notes which begin a tie unsigned m = 0; // count of tied notes that are correctly terminated. 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; } // Validate the tie state of the current note. 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 score location of notes marked for onset and bar lines. // if( cmIsFlag(np->flags,kOnsetXsFl|kBarXsFl) ) { // if this note does not share the same location as the previous 'located' note then increment the 'loc' index if( cmIsFlag(np->flags,kBarXsFl) || (n0!=NULL && n0->tick!=np->tick)) locIdx += 1; np->locIdx = locIdx; n0 = np; } } } } printf("Tied notes 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; } cmXsNote_t* _cmXScoreFindOverlappingNote( cmXScore_t* p, const cmXsNote_t* knp ) { 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( np->uid != knp->uid && cmIsFlag(np->flags,kOnsetXsFl) && knp->pitch == np->pitch && knp->tick >= np->tick && knp->tick < (np->tick + np->tied_dur) ) { return np; } } } return NULL; } void _cmXScoreProcessOverlappingNotes( 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; cmXsNote_t* fnp; // for each note in this measure for(; np!=NULL; np=np->slink) if( cmIsFlag(np->flags,kOnsetXsFl) && (fnp = _cmXScoreFindOverlappingNote(p,np)) != NULL) { // is np entirely contained inside fnp bool embeddedFl = fnp->tick + fnp->tied_dur > np->tick + np->tied_dur; //printf("bar=%3i %4s voice:%2i %2i : %7i %7i : %7i %7i : %7i : %c \n",np->meas->number,cmMidiToSciPitch(np->pitch,NULL,0),np->voice->id,fnp->voice->id,fnp->tick,fnp->tick+fnp->duration,np->tick,np->tick+np->duration, (fnp->tick+fnp->duration) - np->tick, embeddedFl ? 'E' : 'O'); // turn off embedded notes if( embeddedFl ) { if( np->voice->id == fnp->voice->id ) cmErrWarnMsg(&p->err,kOverlapWarnXsRC,"A time embedded note (bar=%i %s) was removed even though it overlapped with a note in the same voice.",np->meas->number,cmMidiToSciPitch(np->pitch,NULL,0)); np->flags = cmClrFlag(np->flags,kOnsetXsFl); } else { int d = (fnp->tick+fnp->tied_dur) - np->tick; // shorten the first note if( d > 0 && d < fnp->tied_dur ) fnp->tied_dur -= d; // move the second note just past it np->tick = fnp->tick + fnp->tied_dur + 1; } } } } } // 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 = 0; if( np->tvalue == NULL ) cmErrWarnMsg(&p->err,kSyntaxErrorXsRC,"An apparent section label in measure '%i' is blank.",np->meas->number); else if( cmTextToUInt( np->tvalue, §ionId, NULL ) != kOkTxRC ) cmErrWarnMsg(&p->err,kSyntaxErrorXsRC,"The section label '%s' is not an integer.",np->tvalue); //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->tied_dur / 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->tied_dur/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; } } } } // Assign pedal down durations to pedal down events. cmXsRC_t _cmXScoreProcessPedals( cmXScore_t* p ) { cmXsRC_t rc = kOkXsRC; cmXsPart_t* pp = p->partL; for(; pp!=NULL; pp=pp->link) { cmXsNote_t* dnp = NULL; // pointer to last damper down event cmXsNote_t* snp = NULL; // pointer to last sostenuto down event cmXsMeas_t* mp = pp->measL; for(; mp!=NULL; mp=mp->link) { cmXsNote_t* np = mp->noteL; for(; np!=NULL; np=np->slink ) { unsigned x = np->flags & (kDampDnXsFl|kDampUpXsFl|kDampUpDnXsFl|kSostUpXsFl|kSostDnXsFl); switch( x ) { case 0: break; case kDampDnXsFl: if( dnp != NULL ) cmErrWarnMsg(&p->err,kPedalStateErrorXsRc,"Damper down not preceded by damper up in measure:%i.",mp->number); else dnp = np; break; case kDampUpXsFl: if( dnp == NULL ) cmErrWarnMsg(&p->err,kPedalStateErrorXsRc,"Damper up not preceded by damper down in measure:%i.",mp->number); else { dnp->duration = np->tick - dnp->tick; dnp = NULL; } break; case kDampUpDnXsFl: if( dnp == NULL ) cmErrWarnMsg(&p->err,kPedalStateErrorXsRc,"Damper up/down not preceded by damper down in measure:%i.",mp->number); else { dnp->duration = np->tick - dnp->tick; dnp = np; } break; case kSostDnXsFl: if( snp != NULL ) cmErrWarnMsg(&p->err,kPedalStateErrorXsRc,"Sostenuto down not preceded by sostenuto up in measure:%i.",mp->number); else snp = np; break; case kSostUpXsFl: if( snp == NULL ) cmErrWarnMsg(&p->err,kPedalStateErrorXsRc,"Sostenuto up not preceded by sostenuto down in measure:%i.",mp->number); else { snp->duration = np->tick - snp->tick; snp = NULL; } break; default: { assert(0); } } // switch } // for notes } // for measures if( dnp != NULL ) cmErrWarnMsg(&p->err,kPedalStateErrorXsRc,"Damper left down at the end of a part."); if( snp != NULL ) cmErrWarnMsg(&p->err,kPedalStateErrorXsRc,"Sostenuto left down at the end of a part."); } _cmXScoreSort(p); return rc; } void _cmXScoreInsertTime( cmXScore_t* p, cmXsMeas_t* mp, cmXsNote_t* np, unsigned expand_ticks ) { for(; mp!=NULL; mp=mp->link) { if( np == NULL ) np = mp->noteL; for(; np!=NULL; np=np->slink) np->tick += expand_ticks; } } void _cmXScoreGraceInsertTimeBase( cmXScore_t* p, unsigned graceGroupId, cmXsNote_t* aV[], unsigned aN, unsigned initTick ) { cmXsNote_t* np = NULL; unsigned expand_ticks = 0; unsigned ticks = initTick; unsigned t0 = 0; unsigned i; for(i=0; iflags,kGraceXsFl) && aV[i]->graceGroupId == graceGroupId ) { // if this grace note falls on the same tick as the previous grace note if( np != NULL && aV[i]->tick == t0 ) aV[i]->tick = np->tick; else { t0 = aV[i]->tick; // store the unmodified tick value of this note aV[i]->tick = ticks; // set the new tick value ticks += aV[i]->duration; // calc the next grace not location expand_ticks += aV[i]->duration; // track how much we are expanding time by } np = aV[i]; } np = np->slink; if( np != NULL ) _cmXScoreInsertTime(p,np->meas,np,expand_ticks); } // (a) Insert the grace notes in between the first and last note in the group // by inserting time between the first and last note. // Note that in effect his means that the last note is pushed back // in time by the total duration of the grace notes. void _cmXScoreGraceInsertTime( cmXScore_t* p, unsigned graceGroupId, cmXsNote_t* aV[], unsigned aN ) { _cmXScoreGraceInsertTimeBase( p, graceGroupId,aV,aN, aV[aN-1]->tick ); } // (s) Insert the grace notes in between the first and last note in the group // but do not insert any additional time betwee the first and last note. // In effect time is removed from the first note and taken by the grace notes. // The time position of the last note is therefore unchanged. void _cmXScoreGraceOverlayTime( cmXScore_t* p, unsigned graceGroupId, cmXsNote_t* aV[], unsigned aN ) { assert(aN >= 3 ); int i = (int)aN-2; cmXsNote_t* np = aV[aN-1]; unsigned t0 = -1; for(; i>0; --i) if( cmIsFlag(aV[i]->flags,kGraceXsFl) && aV[i]->graceGroupId == graceGroupId ) { if( aV[i]->tick == t0) aV[i]->tick = np->tick; else { t0 = aV[i]->tick; aV[i]->tick = np->tick - aV[i]->duration; } np = aV[i]; } } // (A) Play the first grace at the time of the first note in the group (which is a non-grace note) // and then expand time while inserting the other grace notes. void _cmXScoreGraceInsertAfterFirst( cmXScore_t* p, unsigned graceGroupId, cmXsNote_t* aV[], unsigned aN ) { _cmXScoreGraceInsertTimeBase( p, graceGroupId,aV,aN, aV[0]->tick ); } // (n) Play the first grace not shortly (one grace note duration) after the first note // in the group (which is a non-grace note) and then expand time while inserting the other // grace notes. void _cmXScoreGraceInsertSoonAfterFirst( cmXScore_t* p, unsigned graceGroupId, cmXsNote_t* aV[], unsigned aN ) { _cmXScoreGraceInsertTimeBase( p, graceGroupId,aV,aN, aV[0]->tick + aV[1]->duration ); } // Adjust the locations of grace notes. Note that this must be done // after reordering so that we can be sure that the order in time of // the notes in each group has been set prior to building the // grace note groups - which must be in reverse time order. cmXsRC_t _cmXScoreProcessGraceNotes( cmXScore_t* p ) { cmXsRC_t rc = kOkXsRC; unsigned graceGroupId = 1; double graceDurSec = 1.0/15.0; // duration of all grace notes in seconds for(; 1; ++graceGroupId) { cmXsNote_t* gn0p = NULL; // first note in the grace group cmXsNote_t* gn1p = NULL; // last note in the grace group unsigned gN = 0; cmXsPart_t* pp = p->partL; double ticksPerSec = 0; // Build a note chain, using cmXsNote_t.grace, between gn0p and // gn1p containing all the grace notes with // cmXsNote_t.graceGroupId == graceGroupId. 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 ) { // notice change of tempo if( cmIsFlag(np->flags,kMetronomeXsFl) ) { // ticks/sec = ticks/qn * qn/sec ticksPerSec = mp->divisions * np->duration / 60.0; } // if this note is part of the grace note group we are searching for if( np->graceGroupId == graceGroupId ) { // track the first note in the grace note list if( gn0p == NULL ) gn0p = np; // add the note to the end of the grace note list if( gn1p != NULL ) gn1p->grace = np; // track the last note in the grace note list gn1p = np; // set each grace note to have 1/20 of a second duration if( cmIsFlag(np->flags,kGraceXsFl) ) np->duration = np->tied_dur = floor(ticksPerSec * graceDurSec); gN += 1; } } // for each note in this meassure } // for each measure } // for each part // no records were found for this grace id - we're done if( gn0p == NULL ) break; // grace note groups must have at least 3 members if( gN < 3 ) { rc = cmErrMsg(&p->err,kSyntaxErrorXsRC,"The grace not group ending in meas %i has fewer than 3 (%i) members.", gn1p->meas->number, gN ); break; } // gn0p is now set to the first note in th group // gn1p is now set to the last note in the group // verify that the first note is marked with kBegGraceXsFl if( cmIsNotFlag(gn0p->flags,kBegGraceXsFl) ) { rc = cmErrMsg(&p->err,kSyntaxErrorXsRC,"The first note in a grace note group in meas %i is not marked with a 'b'.", gn0p->meas->number ); break; } // verify that the last note is marked with kEndGraceXsFl if( cmIsNotFlag(gn1p->flags,kEndGraceXsFl) ) { rc = cmErrMsg(&p->err,kSyntaxErrorXsRC,"The last note in a grace note group in meas %i is not marked with a valid operator character.", gn1p->meas->number ); break; } // Count the total number of events between gn0p and gn1p cmXsNote_t* n0p = NULL; cmXsNote_t* n1p = gn0p; cmXsMeas_t* mp = gn0p->meas; unsigned aN = 0; for(; n0p != gn1p; n1p=n1p->slink ) { // if we are crossing a measure boundary if( n1p == NULL ) { mp = mp->link; assert(mp!=NULL); n1p = mp->noteL; } if(0) { bool fl = n0p != NULL && n0p->tick < n1p->tick; unsigned type = n1p->flags & (kBegGraceXsFl|kEndGraceXsFl|kAddGraceXsFl|kSubGraceXsFl|kAFirstGraceXsFl|kNFirstGraceXsFl); printf("%3i 0x%08x %i %3i %5i %i\n",n1p->graceGroupId,type,n1p->meas->number,n1p->tick,n1p->duration,fl); } ++aN; n0p = n1p; } // create a vector of pointers to all events between gn0p and gn1p cmXsNote_t* aV[ aN ]; unsigned i; n1p = gn0p; n0p = NULL; mp = gn0p->meas; for(i=0; n0p != gn1p; n1p=n1p->slink ) { // if we are crossing a measure boundary if( n1p == NULL ) { mp = mp->link; assert(mp!=NULL); n1p = mp->noteL; } assert(iflags & (kAddGraceXsFl | kSubGraceXsFl | kAFirstGraceXsFl | kNFirstGraceXsFl ) ) { case kAddGraceXsFl: _cmXScoreGraceInsertTime(p, graceGroupId, aV, aN ); break; case kSubGraceXsFl: _cmXScoreGraceOverlayTime(p, graceGroupId, aV, aN ); break; case kAFirstGraceXsFl: _cmXScoreGraceInsertAfterFirst(p,graceGroupId,aV,aN); break; case kNFirstGraceXsFl: _cmXScoreGraceInsertSoonAfterFirst(p,graceGroupId,aV,aN); break; default: { assert(0); } } } return rc; } //------------------------------------------------------------------------------------------- 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 cmXsNote_t* associated with this cmXsReorder_t record unsigned dynIdx; // cmInvalidIdx=ignore otherwise index into _cmXScoreDynMarkArray[] unsigned newFlags; // 0=ignore | kSostUp/DnXsFl | kDampUp/DnXsFl | kTieEndXsFl unsigned newTick; // 0=ignore >0 new tick value unsigned graceFlags; // 0=ignore See kXXXGraceXsFl unsigned graceGroupId; // 0=ignore >0=grace note group id unsigned pitch; // 0=ignore >0 new pitch } 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[] = { {"s", 1, 0, 0, 1}, // silent note {"pppp-", 2, 1, -1, 3}, {"pppp", 3, 1, 0, 10}, {"pppp+", 4, 1, 1, 22}, {"ppp-", 4, 2, -1, 22}, {"ppp", 5, 2, 0, 29}, {"ppp+", 6, 2, 1, 36}, {"pp-", 6, 3, -1, 36}, {"pp", 7, 3, 0, 43}, {"pp+", 8, 3, 1, 50}, {"p-", 8, 4, -1, 50}, {"p", 9, 4, 0, 57}, {"p+", 10, 4, 1, 64}, {"mp-", 10, 5, -1, 64}, {"mp", 11, 5, 0, 71}, {"mp+", 12, 5, 1, 78}, {"mf-", 12, 6, -1, 78}, {"mf", 13, 6, 0, 85}, {"mf+", 14, 6, 1, 92}, {"f-", 14, 7, -1, 92}, {"f", 15, 7, 0, 99}, {"f+", 16, 7, 1, 106}, {"ff", 17, 8, 0, 113}, {"ff+", 18, 8, 1, 120}, {"fff", 19, 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( 0 /*mp->number==17*/) printf("voice: %i %i loc:%i %i tick:%i %i pitch:%i %i idx:%i %i\n", np->voice->id, r->voice, np->locIdx , r->locIdx , np->tick , r->tick , np->pitch , r->midi , index , r->idx ); 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; } void _cmXScoreInsertPedalEvent( cmXScore_t* p, const cmXsReorder_t* r, unsigned flags ) { // Create a new score event record cmXsNote_t* nn = cmLhAllocZ(p->lhH,cmXsNote_t,1); nn->uid = p->nextUid++; nn->voice = r->note->voice; nn->meas = r->note->meas; nn->flags = flags; // Pedal down events occur after the event they are attached to if( cmIsFlag(flags,kSostDnXsFl | kDampDnXsFl ) ) { nn->tick = r->note->tick + 1; _cmXScoreInsertNoteAfter(r->note,nn); } else { // Pedal up events occur before the event they are attached to if( cmIsFlag(flags,kSostUpXsFl | kDampUpXsFl ) ) { nn->tick = r->note->tick==0 ? 0 : r->note->tick - 1; _cmXScoreInsertNoteBefore(r->note,nn); } else { assert(0); } } } 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; imeas; 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; inoteL = 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 dynamic or velocity mark was included if( rV[i].dynIdx != cmInvalidIdx ) { rV[i].note->dynamics = _cmXScoreDynMarkArray[ rV[i].dynIdx ].dyn; rV[i].note->vel = _cmXScoreDynMarkArray[ rV[i].dynIdx ].vel; } // if the tie end flag was set if( cmIsFlag(rV[i].newFlags,kTieEndXsFl) ) { rV[i].note->flags |= kTieEndXsFl; rV[i].note->flags = cmClrFlag( rV[i].note->flags, kOnsetXsFl ); rV[i].newFlags = cmClrFlag( rV[i].newFlags, kTieEndXsFl); } // if a new note value was specified if( rV[i].pitch != 0 ) rV[i].note->pitch = rV[i].pitch; rV[i].note->flags |= rV[i].graceFlags; rV[i].note->graceGroupId = rV[i].graceGroupId; n0p = rV[i].note; n0p->slink = NULL; } // Insert new note records for pedal up/dn events. for(i=0; ierr,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; jerr,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 _cmXScoreReorderParseFlags(cmXScore_t* p, const cmChar_t* b, unsigned line, unsigned* newFlagsRef ) { cmXsRC_t rc = kOkXsRC; const cmChar_t* s; bool doneFl = false; unsigned i = 0; *newFlagsRef = 0; // tilde indicates a pedal event if((s = strchr(b,'~')) == NULL ) return rc; do { ++s; switch( *s ) { case 'd': *newFlagsRef |= kSostDnXsFl; // sostenuto pedal down just after this note onset break; case 'u': *newFlagsRef |= kSostUpXsFl; // sostenuto pedal up just before this event break; case 'x': *newFlagsRef |= (kSostUpXsFl | kSostDnXsFl); // sostenuto pedal up just before this event and sost down just after it. break; case 'D': *newFlagsRef |= kDampDnXsFl; // damper pedal down break; case 'U': *newFlagsRef |= kDampUpXsFl; // damper pedal up break; case '_': *newFlagsRef |= kTieEndXsFl; // set tie end flag break; case '&': *newFlagsRef |= kDeleteXsFl; // delete this evetn break; default: if( i == 0 ) return cmErrMsg(&p->err,kSyntaxErrorXsRC,"Unexpected flag marking '%c' on line %i.",*s,line); doneFl = true; } ++i; }while(!doneFl); 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 _cmXScoreReorderParseGrace(cmXScore_t* p, const cmChar_t* b, unsigned line, cmXsReorder_t* r, unsigned* graceGroupIdRef ) { cmXsRC_t rc = kOkXsRC; const cmChar_t* s; if((s = strchr(b,'%')) == NULL ) return rc; ++s; r->graceGroupId = *graceGroupIdRef; while(1) { switch(*s) { case 'b': r->graceFlags |= kBegGraceXsFl; break; case 'a': r->graceFlags |= kAddGraceXsFl | kEndGraceXsFl; break; case 's': r->graceFlags |= kSubGraceXsFl | kEndGraceXsFl; break; case 'A': r->graceFlags |= kAFirstGraceXsFl| kEndGraceXsFl; break; case 'n': r->graceFlags |= kNFirstGraceXsFl| kEndGraceXsFl; break; case 'g': break; case '%': *graceGroupIdRef += 1; ++s; continue; default: { assert(0); } } break; } return rc; } cmXsRC_t _cmXScoreReorderParsePitch(cmXScore_t* p, const cmChar_t* b, unsigned line, unsigned* pitchRef ) { cmXsRC_t rc = kOkXsRC; cmChar_t* s; cmChar_t buf[4]; unsigned i,j; memset(buf,0,sizeof(buf)); *pitchRef = 0; if((s = strchr(b,'$')) == NULL ) return rc; ++s; j=2; for(i=0; ierr,kSyntaxErrorXsRC,"Illegal pitch letter ('%c')specification line %i.",*s,line); if( i==1 && !isdigit(*s) && *s!='#' && *s!='b' ) return cmErrMsg(&p->err,kSyntaxErrorXsRC,"Illegal pitch level ('%c') specification line %i.",*s,line); if( i==2 && !isdigit(*s) ) return cmErrMsg(&p->err,kSyntaxErrorXsRC,"Illegal pitch octave ('%c') specification line %i.",*s,line); } unsigned pitch = cmSciPitchToMidi(buf); if( pitcherr,kSyntaxErrorXsRC,"Pitch conversion from '%s' failed on line %i.",buf,line); return rc; } cmXsRC_t _cmXsApplyEditFile( cmXScore_t* p, const cmChar_t* fn ) { typedef enum { kFindMeasStId, kFindEventStId, kReadEventStId } stateId_t; cmXsRC_t rc = kOkXsRC; 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; unsigned graceGroupId = 1; 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 flag edits following a '~' if((rc = _cmXScoreReorderParseFlags(p,b,ln+1, &r.newFlags)) != kOkXsRC ) goto errLabel; // parse the @newtick marker if((rc = _cmXScoreReorderParseTick(p, b, ln+1, &r.newTick)) != kOkXsRC ) goto errLabel; // parse the %grace note marker if((rc = _cmXScoreReorderParseGrace(p, b, ln+1, &r, &graceGroupId)) != kOkXsRC ) goto errLabel; // parse the $pitch marker if((rc = _cmXScoreReorderParsePitch(p, b, ln+1, &r.pitch )) != kOkXsRC ) goto errLabel; // process grace notes - these need to be processed separate from // the _cmXScoreReorderMeas() because grace notes may cross measure boundaries. /* if( r.graceType != 0 ) { r.graceGroupId = graceGroupId; // if this is an end of a grace note group if( r.graceType != 'g' && r.graceType != 'b' ) { graceGroupId += 1; } } */ // 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; } } // If reorder records remain to be processed if( ri > 0 ) if((rc = _cmXScoreReorderMeas(p, measNumb, rV, ri )) != kOkXsRC ) goto errLabel; // 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); // process the grace notes. _cmXScoreProcessGraceNotes( p ); // inserting grace notes may have left the score unsorted _cmXScoreSort(p); errLabel: cmFileClose(&fH); cmMemFree(b); return rc; } cmXsRC_t cmXScoreInitialize( cmCtx_t* ctx, cmXsH_t* hp, const cmChar_t* xmlFn, const cmChar_t* editFn ) { 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); // kpl: 4/19/17 fix problem where notes ended up out of order by one tick _cmXScoreSpreadGraceNotes(p); _cmXScoreSort(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."); if( editFn != NULL ) { if((rc = _cmXsApplyEditFile(p,editFn)) != kOkXsRC ) { cmErrMsg(&ctx->err,rc,"XScore reorder failed."); goto errLabel; } } // assign durations to pedal down events _cmXScoreProcessPedals(p); // remove some notes which share a pitch and are overlapped or embedded within another note. _cmXScoreProcessOverlappingNotes(p); 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; } /* CSV score columns 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; icsvH,*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,kDampDnXsFl|kDampUpXsFl|kDampUpDnXsFl|kSostDnXsFl|kSostUpXsFl) ) { unsigned d0 = cmIsFlag(np->flags,kSostDnXsFl |kSostUpXsFl) ? 66 : 64; // pedal MIDI ctl id unsigned d1 = cmIsFlag(np->flags,kDampDnXsFl|kSostDnXsFl) ? 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,kDampUpDnXsFl) ) { 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,kDampDnXsFl) ? "V" : "-"; const cmChar_t* s = cmIsFlag(note->flags,kSostDnXsFl) ? "{" : "-"; 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,kDampUpXsFl) ? "^" : P; P = cmIsFlag(note->flags,kDampUpDnXsFl) ? "X" : P; s = cmIsFlag(note->flags,kSostUpXsFl) ? "}" : s; //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%s", index, note->voice->id, note->locIdx, note->tick, note->tied_dur, note->rvalue, N,B,R,G,D,C,e,d,t,P,s,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); if( note->graceGroupId != 0) cmRptPrintf(rpt," g=%i",note->graceGroupId); } 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); } } } } } } void _cmXScoreGenEditFileWrite( void* arg, const cmChar_t* text ) { if( text != NULL && arg != NULL ) { cmFileH_t* hp = (cmFileH_t*)arg; cmFilePrint(*hp,text); } } cmXsRC_t cmXScoreGenEditFile( cmCtx_t* ctx, const cmChar_t* xmlFn, const cmChar_t* outFn ) { cmXsH_t xsH = cmXsNullHandle; cmFileH_t fH = cmFileNullHandle; cmXsRC_t rc = kOkXsRC; cmErr_t err; cmRpt_t rpt; cmErrSetup(&err,&ctx->rpt,"cmXScoreGenEditFile"); cmRptSetup(&rpt,_cmXScoreGenEditFileWrite,_cmXScoreGenEditFileWrite,&fH); if((rc = cmXScoreInitialize(ctx,&xsH,xmlFn,NULL)) != kOkXsRC ) return rc; if( cmFileOpen(&fH,outFn,kWriteFileFl,&ctx->rpt) != kOkFileRC ) { cmErrMsg(&err,kFileFailXsRC,"Unable to open the output file '%s'.",cmStringNullGuard(outFn)); goto errLabel; } cmXScoreReport(xsH,&rpt,true); errLabel: if( cmFileClose(&fH) != kOkFileRC ) rc = cmErrMsg(&err,kFileFailXsRC,"File close failed on '%s'.",cmStringNullGuard(outFn)); cmXScoreFinalize(&xsH); return rc; } typedef struct { unsigned ival; double fval; unsigned cnt; } cmXsHist_t; void _cmXsHistUpdateI( cmXsHist_t* hist, unsigned histN, unsigned ival ) { unsigned i; for(i=0; i0; ++i) n += 1; return n; } // Measure the score complexity for the the time window 'wndSecs' seconds // prior to the note n1 and following n0. const cmXsNote_t* _cmXsMeasComplexityInWindow( const cmXsNote_t* n0, cmXsNote_t* n1, double wndSecs ) { const cmXsNote_t* n2 = NULL; unsigned l_pch_0 = 0; unsigned l_pch_value = 0; unsigned l_pch_cnt = n1->staff==1 ? 0 : 1; unsigned r_pch_0 = n1->staff==1 ? 1 : 0; unsigned r_pch_value = 0; unsigned r_pch_cnt = 0; unsigned i = 0; unsigned histN = 100; cmXsHist_t velHist[ histN ]; cmXsHist_t rymHist[ histN ]; memset(velHist,0,sizeof(velHist)); memset(rymHist,0,sizeof(rymHist)); const cmXsNote_t* n = n0; while(n!=NULL && n != n1) { // if this event is less than wndSecs behind 'n1' and is not a sounding note ... if( n1->secs - n->secs <= wndSecs && cmIsFlag(n->flags,kOnsetXsFl) ) { _cmXsHistUpdateI( velHist, histN, n->dynamics ); _cmXsHistUpdateF( rymHist, histN, n->rvalue ); switch( n->staff ) { case 1: // treble cleff if( i > 0 ) { r_pch_value += r_pch_0 > n->pitch ? r_pch_0-n->pitch : n->pitch-r_pch_0; r_pch_cnt += 1; } r_pch_0 = n->pitch; break; case 2: // bass cleff if( i > 0 ) { l_pch_value += l_pch_0 > n->pitch ? l_pch_0-n->pitch : n->pitch-l_pch_0; l_pch_cnt += 1; } l_pch_0 = n->pitch; break; default: { assert(0); } } // track the first note that is inside the window if( i == 0 ) n2 = n; // count the number of notes in the window i += 1; } cmXsMeas_t* m = n->meas; // advance th note pointer n = n->slink; // if we have reached the end of a measure if( n == NULL ) { if( m != NULL ) { m = m->link; if( m != NULL ) n = m->noteL; } } } // update the cplx record in n1 with the results of this window analysis n1->cplx.sum_d_vel = _cmXsHistValue( velHist, histN ); n1->cplx.sum_d_rym = _cmXsHistValue( rymHist, histN ); n1->cplx.sum_d_lpch = l_pch_value; n1->cplx.sum_n_lpch = l_pch_cnt; n1->cplx.sum_d_rpch = r_pch_value; n1->cplx.sum_n_rpch = r_pch_cnt; return n2; } // Measure the score complexity and fill in the cmXsComplexity_t record associated // with the cmXsNote_t record of each sounding note. cmXsRC_t _cmXsMeasComplexity( cmXsH_t h, double wndSecs ) { cmXsRC_t rc = kOkXsRC; cmXScore_t* p = _cmXScoreHandleToPtr(h); cmXsPart_t* pp = p->partL; memset(&p->cplx_max,0,sizeof(p->cplx_max)); const cmXsNote_t* n0 = NULL; // 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* n1 = mp->noteL; // for each note in this measure for(; n1!=NULL; n1=n1->slink) if( cmIsFlag(n1->flags,kOnsetXsFl) ) { if( n0 == NULL ) n0 = n1; else if((n0 = _cmXsMeasComplexityInWindow(n0,n1,wndSecs)) == NULL ) n0 = n1; // track the max value for all complexity values to allow // eventual normalization of the complexity values p->cplx_max.sum_d_vel = cmMax(p->cplx_max.sum_d_vel, n1->cplx.sum_d_vel); p->cplx_max.sum_d_rym = cmMax(p->cplx_max.sum_d_rym, n1->cplx.sum_d_rym); p->cplx_max.sum_d_lpch = cmMax(p->cplx_max.sum_d_lpch,n1->cplx.sum_d_lpch); p->cplx_max.sum_n_lpch = cmMax(p->cplx_max.sum_n_lpch,n1->cplx.sum_n_lpch); p->cplx_max.sum_d_rpch = cmMax(p->cplx_max.sum_d_rpch,n1->cplx.sum_d_rpch); p->cplx_max.sum_n_rpch = cmMax(p->cplx_max.sum_n_rpch,n1->cplx.sum_n_rpch); } } } return rc; } cmXsRC_t _cmXsWriteMidiFile( cmCtx_t* ctx, cmXsH_t h, const cmChar_t* dir, const cmChar_t* fn ) { cmXsRC_t rc = kOkXsRC; cmXScore_t* p = _cmXScoreHandleToPtr(h); if( p->partL==NULL || p->partL->measL == NULL ) return rc; cmMidiFileH_t mfH = cmMidiFileNullHandle; unsigned trkN = 2; unsigned ticksPerQN = p->partL->measL->divisions; const cmChar_t* outFn = cmFsMakeFn(dir,fn,"mid",NULL); if( cmMidiFileCreate( ctx, &mfH, trkN, ticksPerQN ) != kOkMfRC ) return cmErrMsg(&p->err,kMidiFailXsRC,"Unable to create the MIDI file object."); 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; if( mp->divisions != ticksPerQN ) cmErrWarnMsg(&p->err,kMidiFailXsRC,"The 'tick per quarter note' (divisions) field in measure %i does not match the value in the first measure (%i).",mp->divisions,ticksPerQN); // for each note in this measure for(; np!=NULL; np=np->slink) { switch( np->flags & (kOnsetXsFl|kMetronomeXsFl|kDampDnXsFl|kDampUpDnXsFl|kSostDnXsFl) ) { case kOnsetXsFl: { if( np->tied_dur <= 0 ) cmErrWarnMsg(&p->err,kOkXsRC,"A zero length note was encountered bar:%i tick:%i %s",np->meas->number,np->tick,cmMidiToSciPitch(np->pitch,NULL,0)); if( cmMidiFileInsertTrackChMsg(mfH, 1, np->tick, kNoteOnMdId, np->pitch, np->vel ) != kOkMfRC ||cmMidiFileInsertTrackChMsg(mfH, 1, np->tick + np->tied_dur, kNoteOffMdId, np->pitch, 0 ) != kOkMfRC ) { rc = kMidiFailXsRC; } } break; case kDampDnXsFl: case kDampUpDnXsFl: case kSostDnXsFl: { if( np->duration <= 0 ) cmErrWarnMsg(&p->err,kOkXsRC,"A zero length pedal event was encountered bar:%i tick:%i",np->meas->number,np->tick); cmMidiByte_t d0 = cmIsFlag(np->flags,kSostDnXsFl) ? kSostenutoCtlMdId : kSustainCtlMdId; if( (cmMidiFileInsertTrackChMsg(mfH, 1, np->tick, kCtlMdId, d0, 127 ) != kOkMfRC ) ||(cmMidiFileInsertTrackChMsg(mfH, 1, np->tick + np->duration, kCtlMdId, d0, 0 ) != kOkMfRC ) ) { rc = kMidiFailXsRC; } } break; case kMetronomeXsFl: if( cmMidFileInsertTrackTempoMsg(mfH, 0, np->tick, np->duration ) != kOkMfRC ) rc = kMidiFailXsRC; break; case 0: break; default: { assert(0); } } if( rc != kOkXsRC ) { rc = cmErrMsg(&p->err,rc,"MIDI message insert failed on '%s'.",cmStringNullGuard(outFn)); goto errLabel; } } } } if( cmMidiFileWrite(mfH,outFn) != kOkMfRC ) { rc = cmErrMsg(&p->err,kMidiFailXsRC,"MIDI file write failed on '%s'.",cmStringNullGuard(outFn)); goto errLabel; } errLabel: cmFsFreeFn(outFn); if( cmMidiFileClose(&mfH) != kOkMfRC ) { rc = cmErrMsg(&p->err,kMidiFailXsRC,"Unable to create the MIDI file object."); goto errLabel; } return rc; } typedef struct cmXsSvgEvt_str { unsigned flags; // k???XsFl unsigned tick; // start tick unsigned durTicks; // dur-ticks unsigned voice; // score voice number unsigned d0; // MIDI d0 (barNumb) unsigned d1; // MIDI d1 cmXsComplexity_t cplx; struct cmXsSvgEvt_str* link; } cmXsSvgEvt_t; typedef struct cmXsMidiFile_str { cmXsSvgEvt_t* elist; cmXsSvgEvt_t* eol; unsigned pitch_min; unsigned pitch_max; } cmXsMidiFile_t; void _cmXsWriteMidiSvgLegend( cmSvgH_t svgH, unsigned index, const cmChar_t* label, const cmChar_t* classStr ) { double x = 100; double y = 120*10 - 20*index; cmSvgWriterText( svgH, x, y, label, "legend" ); x += 75; cmSvgWriterLine( svgH, x, y, x+125, y, classStr ); } void _cmXsWriteMidiSvgLinePoint( cmSvgH_t svgH, double x0, double y0, double x1, double y1, double y_max, const cmChar_t* classStr, const cmChar_t* label ) { int bn = 255; char b[bn+1]; double y_scale = 10; double y_label = y1; b[0] = 0; y0 = (y0/y_max) * 127.0 * y_scale; y1 = (y1/y_max) * 127.0 * y_scale; cmSvgWriterLine(svgH, x0, y0, x1, y1, classStr ); if( y0 != y1 ) snprintf(b,bn,"%5.0f %s",y_label,label==NULL?"":label); else { if( label != NULL ) snprintf(b,bn,"%s",label); } if( strlen(b) ) cmSvgWriterText(svgH, x1, y1, b, "pt_text"); } cmXsRC_t _cmXsWriteMidiSvg( cmCtx_t* ctx, cmXScore_t* p, cmXsMidiFile_t* mf, const cmChar_t* dir, const cmChar_t* fn ) { cmXsRC_t rc = kOkXsRC; cmSvgH_t svgH = cmSvgNullHandle; cmXsSvgEvt_t* e = mf->elist; unsigned noteHeight = 10; cmChar_t* fn0 = cmMemAllocStr( fn ); const cmChar_t* svgFn = cmFsMakeFn(dir,fn0 = cmTextAppendSS(fn0,"_midi_svg"),"html",NULL); const cmChar_t* cssFn = cmFsMakeFn(NULL,"score_midi_svg","css",NULL); cmChar_t* t0 = NULL; // temporary dynamic string unsigned i = 0; const cmXsSvgEvt_t* e0 = NULL; cmMemFree(fn0); // create the SVG writer if( cmSvgWriterAlloc(ctx,&svgH) != kOkSvgRC ) { rc = cmErrMsg(&p->err,kSvgFailXsRC,"Unable to create the MIDI SVG output file '%s'.",cmStringNullGuard(svgFn)); goto errLabel; } _cmXsWriteMidiSvgLegend( svgH, 0, "Velocity", "cplx_vel" ); _cmXsWriteMidiSvgLegend( svgH, 1, "Duration", "cplx_rym" ); _cmXsWriteMidiSvgLegend( svgH, 2, "Left Pitch", "cplx_lpch" ); _cmXsWriteMidiSvgLegend( svgH, 3, "Right Pitch", "cplx_rpch" ); _cmXsWriteMidiSvgLegend( svgH, 4, "Density", "cplx_density" ); // for each MIDI file element for(; e!=NULL && rc==kOkXsRC; e=e->link) { switch( e->flags & (kOnsetXsFl|kBarXsFl|kDampDnXsFl|kDampUpDnXsFl|kSostDnXsFl)) { // if this is a note case kOnsetXsFl: { const cmChar_t* classLabel = "note"; t0 = cmTsPrintfP(t0,"note_%i%s",e->voice, cmIsFlag(e->flags,kGraceXsFl) ? "_g":""); if( cmIsFlag(e->flags,kGraceXsFl) ) classLabel = "grace"; if( cmSvgWriterRect(svgH, e->tick, e->d0 * noteHeight, e->durTicks, noteHeight-1, t0 ) != kOkSvgRC ) rc = kSvgFailXsRC; else { t0 = cmTsPrintfP(t0,"%s",cmMidiToSciPitch( e->d0, NULL, 0)); if( cmSvgWriterText(svgH, e->tick + e->durTicks/2, e->d0 * noteHeight + noteHeight/2, t0, "pitch") != kOkSvgRC ) rc = kSvgFailXsRC; else { if( e0 != NULL ) { bool fl = (i % 10) == 0; _cmXsWriteMidiSvgLinePoint(svgH, e0->tick, e0->cplx.sum_d_vel, e->tick, e->cplx.sum_d_vel, p->cplx_max.sum_d_vel, "cplx_vel",fl?"V":NULL); _cmXsWriteMidiSvgLinePoint(svgH, e0->tick, e0->cplx.sum_d_rym, e->tick, e->cplx.sum_d_rym, p->cplx_max.sum_d_rym, "cplx_rym",fl?"D":NULL); _cmXsWriteMidiSvgLinePoint(svgH, e0->tick, e0->cplx.sum_d_lpch, e->tick, e->cplx.sum_d_lpch, p->cplx_max.sum_d_lpch, "cplx_lpch",fl?"L":NULL); _cmXsWriteMidiSvgLinePoint(svgH, e0->tick, e0->cplx.sum_d_rpch, e->tick, e->cplx.sum_d_rpch, p->cplx_max.sum_d_rpch, "cplx_rpch",fl?"R":NULL); _cmXsWriteMidiSvgLinePoint(svgH, e0->tick, e0->cplx.sum_n_lpch + e0->cplx.sum_n_rpch, e->tick, e->cplx.sum_n_lpch + e->cplx.sum_n_rpch, p->cplx_max.sum_n_lpch + p->cplx_max.sum_n_rpch, "cplx_density",fl?"N":NULL); } e0 = e; } } i+=1; } break; // if this is a bar case kBarXsFl: { if( cmSvgWriterLine(svgH, e->tick, 0, e->tick, 127*noteHeight, "bar") != kOkSvgRC ) rc = kSvgFailXsRC; else { if( cmSvgWriterText(svgH, e->tick, 10, t0 = cmTsPrintfP(t0,"%i",e->d0), "text" ) != kOkSvgRC ) rc = kSvgFailXsRC; } } break; // if this is a pedal event case kDampDnXsFl: case kDampUpDnXsFl: case kSostDnXsFl: { const cmChar_t* classLabel = cmIsFlag(e->flags,kSostDnXsFl) ? "sost" : "damp"; unsigned y = (128 + cmIsFlag(e->flags,kSostDnXsFl)?1:0) * noteHeight; cmSvgWriterRect(svgH, e->tick, y, e->durTicks, noteHeight-1, classLabel); } break; } } if( rc != kOkXsRC ) cmErrMsg(&p->err,kSvgFailXsRC,"SVG element insert failed."); if( rc == kOkXsRC ) if( cmSvgWriterWrite(svgH,cssFn,svgFn) != kOkSvgRC ) rc = cmErrMsg(&p->err,kSvgFailXsRC,"SVG file write to '%s' failed.",cmStringNullGuard(svgFn)); errLabel: cmSvgWriterFree(&svgH); cmFsFreeFn(svgFn); cmFsFreeFn(cssFn); cmMemFree(t0); return rc; } void _cmXsPushSvgEvent( cmXScore_t* p, cmXsMidiFile_t* mf, unsigned flags, unsigned tick, unsigned durTick, unsigned voice, unsigned d0, unsigned d1, const cmXsComplexity_t* cplx ) { cmXsSvgEvt_t* e = cmLhAllocZ(p->lhH,cmXsSvgEvt_t,1); e->flags = flags; e->tick = tick; e->durTicks = durTick; e->voice = voice; e->d0 = d0; // note=pitch bar=number pedal=ctl# metronome=BPM e->d1 = d1; if( cplx != NULL ) e->cplx = *cplx; if( mf->eol != NULL ) mf->eol->link = e; else mf->elist = e; // track the min/max pitch if( cmIsFlag(flags,kOnsetXsFl) ) { mf->pitch_min = mf->eol==NULL ? d0 : cmMin(mf->pitch_min,d0); mf->pitch_max = mf->eol==NULL ? d0 : cmMin(mf->pitch_max,d0); } mf->eol = e; } cmXsRC_t _cmXScoreGenSvg( cmCtx_t* ctx, cmXsH_t h, const cmChar_t* dir, const cmChar_t* fn ) { cmXScore_t* p = _cmXScoreHandleToPtr(h); cmXsPart_t* pp = p->partL; cmXsMidiFile_t mf; memset(&mf,0,sizeof(mf)); 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) { // if this is a metronome marker if( cmIsFlag(note->flags,kMetronomeXsFl) ) { // set BPM as d0 _cmXsPushSvgEvent(p,&mf,note->flags,note->tick,0,0,note->duration,0,NULL); continue; } // if this is a sounding note if( cmIsFlag(note->flags,kOnsetXsFl) ) { unsigned d0 = cmSciPitchToMidiPitch( note->step, note->alter, note->octave ); unsigned durTick = note->tied_dur; if( note->tied != NULL ) { cmXsNote_t* tn = note->tied; for(; tn!=NULL; tn=tn->tied) durTick += tn->tied_dur; } _cmXsPushSvgEvent(p,&mf,note->flags,note->tick,durTick,note->voice->id,d0,note->vel,¬e->cplx); continue; } // if this is a bar event if( cmIsFlag(note->flags,kBarXsFl) ) { _cmXsPushSvgEvent(p,&mf,note->flags,note->tick,0,0,note->meas->number,0,NULL); continue; } // if this is a pedal event if( cmIsFlag(note->flags,kDampDnXsFl|kDampUpDnXsFl|kSostDnXsFl) ) { unsigned d0 = cmIsFlag(note->flags,kSostDnXsFl) ? kSostenutoCtlMdId : kSustainCtlMdId; _cmXsPushSvgEvent(p,&mf,note->flags,note->tick,note->duration,0,d0,127,NULL); continue; } } } } return _cmXsWriteMidiSvg( ctx, p, &mf, dir, fn ); } cmXsRC_t cmXScoreTest( cmCtx_t* ctx, const cmChar_t* xmlFn, const cmChar_t* editFn, const cmChar_t* csvOutFn, const cmChar_t* midiOutFn) { cmXsRC_t rc; cmXsH_t h = cmXsNullHandle; if( editFn!=NULL && !cmFsIsFile(editFn) ) { cmRptPrintf(&ctx->rpt,"The edit file %s does not exist. A new edit file is therefore being created.",editFn); cmXScoreGenEditFile(ctx,xmlFn,editFn); editFn = NULL; } // Parse the XML file and apply the changes in editFn. if((rc = cmXScoreInitialize( ctx, &h, xmlFn,editFn)) != kOkXsRC ) return cmErrMsg(&ctx->err,rc,"XScore alloc failed."); if( csvOutFn != NULL ) { cmScH_t scH = cmScNullHandle; double srate = 44100.0; cmXScoreWriteCsv(h,csvOutFn); cmSymTblH_t stH = cmSymTblCreate(cmSymTblNullHandle, 0, ctx ); if( cmScoreInitialize( ctx, &scH, csvOutFn, 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); } if( midiOutFn != NULL ) { // measure the score complexity double wndSecs = 1.0; _cmXsMeasComplexity(h,wndSecs); cmFileSysPathPart_t* pp = cmFsPathParts(midiOutFn); _cmXsWriteMidiFile(ctx, h, pp->dirStr, pp->fnStr ); _cmXScoreGenSvg( ctx, h, pp->dirStr, pp->fnStr ); cmFsFreePathParts(pp); } //cmXScoreReport(h,&ctx->rpt,true); return cmXScoreFinalize(&h); }