cmXScore.h/c : Fixed bug in _cmXScoreFindTiedNote(). Added _cmXScoreReportTitle().

app/cmXScore.c

   }
 }
 
-bool  _cmXScoreFindTiedNote( cmXScore_t* p, cmXsMeas_t* mp, cmXsNote_t* np, bool rptFl )
+bool  _cmXScoreFindTiedNote( cmXScore_t* p, cmXsMeas_t* mp, cmXsNote_t* n0p, bool rptFl )
 {
-  cmXsNote_t* nnp      = np->slink;  // begin w/ note following np
-  unsigned    measNumb = mp->number;
-  unsigned    measNumb0= measNumb;
-  cmChar_t    acc      = np->alter==-1?'b' : (np->alter==1?'#':' ');
+  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 %s ",np->meas->number,cmMidiToSciPitch(np->pitch,NULL,0));
+    printf("%i %i %s ",n0p->meas->number,n0p->tick,cmMidiToSciPitch(n0p->pitch,NULL,0));
   
-  // for each successive measure
-  for(; mp!=NULL; mp=mp->link)
+  
+  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;
+}
+
+bool  _cmXScoreFindTiedNote1( cmXScore_t* p, cmXsMeas_t* mp, cmXsNote_t* np, bool rptFl )
+{
+  cmXsNote_t* nnp       = np->slink;  // begin w/ note following np
+  unsigned    measNumb  = mp->number;
+  unsigned    measNumb0 = measNumb;
+  cmChar_t    acc       = np->alter==-1?'b' : (np->alter==1?'#':' ');
+
+  if( rptFl )
+    printf("%i %i %s ",np->meas->number,np->tick,cmMidiToSciPitch(np->pitch,NULL,0));
+  
+  // for each successive measure
+  for(; mp!=NULL; mp=mp->link)
+  {
+    //if( nnp == NULL )
+    //  nnp = mp->noteL;
+
     // 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 == np->voice->id && nnp->step == np->step && nnp->octave == np->octave )
       {
         nnp->flags |= kTieProcXsFl;
         nnp->flags  = cmClrFlag(nnp->flags,kOnsetXsFl);
 
         if( rptFl )
-          printf("---> %i %s ",nnp->meas->number,cmMidiToSciPitch(nnp->pitch,NULL,0));
+          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;
         }
 
-        measNumb0 = mp->number; 
+        measNumb0 = mp->number;  
       }
     }
 
 bool     cmXScoreIsValid( cmXsH_t h )
 { return h.h != NULL; }
 
+void _cmXScoreReportTitle( cmRpt_t* rpt )
+{
+  cmRptPrintf(rpt,"      voc  loc  tick  durtn rval        flags\n");
+  cmRptPrintf(rpt,"      --- ----- ----- ----- ---- --- -------------\n");
+}
+    
 void _cmXScoreReportNote( cmRpt_t* rpt, const cmXsNote_t* note )
 {
   const cmChar_t* B  = cmIsFlag(note->flags,kBarXsFl)       ? "|" : "-";
   cmChar_t acc = note->alter==-1?'b':(note->alter==1?'#':' ');
   snprintf(N,4,"%c%c%1i",note->step,acc,note->octave);
     
-  cmRptPrintf(rpt,"      %3i %5i %5i %5i %4.1f %3s %s%s%s%s%s%s%s%s%s%s%s%s%s",note->voice->id,note->locIdx,note->tick,note->duration,note->rvalue,N,B,R,G,D,C,e,d,t,P,S,H,T0,T1);
+  cmRptPrintf(rpt,"      %3i %5i %5i %5i %4.1f %3s %s%s%s%s%s%s%s%s%s%s%s%s%s",
+    note->voice->id,
+    note->locIdx,
+    note->tick,
+    note->duration,
+    note->rvalue,
+    N,B,R,G,D,C,e,d,t,P,S,H,T0,T1);
 
   if( cmIsFlag(note->flags,kSectionXsFl) )
     cmRptPrintf(rpt," %s",cmStringNullGuard(note->tvalue));
 
       if( sortFl )
       {
+        _cmXScoreReportTitle(rpt);
+        
         const cmXsNote_t* note = meas->noteL;
         for(; note!=NULL; note=note->slink)
         {
       else
       {
       
+        _cmXScoreReportTitle(rpt);
+        
         const cmXsVoice_t* v = meas->voiceL;
         for(; v!=NULL; v=v->link)
         {        
     return cmErrMsg(&ctx->err,rc,"XScore alloc failed.");
 
   cmXScoreWriteCsv(h,"/Users/kevin/temp/a0.csv");
-  cmXScoreReport(h,&ctx->rpt,false);
+  cmXScoreReport(h,&ctx->rpt,true);
   
   return cmXScoreFinalize(&h);
 

app/cmXScore.h

   //
   // 2) Replace "DoletSibelius Unknown Symbol Index" with "DoletSibelius unknownSymIdx"
   //
-  // Steps one and two can be automated by in emacs by:
+  // Steps 1) and 2) can be automated by in emacs by:
   //
   // M-x load-file ~/src/emacs/rpoc_music_xml.el
   //