CVSROOT:        /cvsroot/lilypond
Module name:    lilypond
Branch:         
Changes by:     Han-Wen Nienhuys <[EMAIL PROTECTED]>    05/07/21 16:20:24

Modified files:
        .              : ChangeLog 
        Documentation/user: basic-notation.itely 
        lily           : lyric-engraver.cc 
        ly             : music-functions-init.ly 

Log message:
        * Documentation/user/basic-notation.itely (Barnumber check): add 
section.
        
        * lily/lyric-engraver.cc (process_music): don't typeset text for _
        syllable text. Instead, assume that the previous lyric text is a
        melismated text.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/lilypond/lilypond/ChangeLog.diff?tr1=1.3907&tr2=1.3908&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/lilypond/lilypond/Documentation/user/basic-notation.itely.diff?tr1=1.29&tr2=1.30&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/lilypond/lilypond/lily/lyric-engraver.cc.diff?tr1=1.81&tr2=1.82&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/lilypond/lilypond/ly/music-functions-init.ly.diff?tr1=1.29&tr2=1.30&r1=text&r2=text

Patches:
Index: lilypond/ChangeLog
diff -u lilypond/ChangeLog:1.3907 lilypond/ChangeLog:1.3908
--- lilypond/ChangeLog:1.3907   Thu Jul 21 14:45:52 2005
+++ lilypond/ChangeLog  Thu Jul 21 16:20:24 2005
@@ -1,5 +1,7 @@
 2005-07-21  Han-Wen Nienhuys  <[EMAIL PROTECTED]>
 
+       * Documentation/user/basic-notation.itely (Barnumber check): add 
section.
+
        * scm/music-functions.scm (skip-to-last): new function. Show only
        last showLastLength part of the \score.
 
Index: lilypond/Documentation/user/basic-notation.itely
diff -u lilypond/Documentation/user/basic-notation.itely:1.29 
lilypond/Documentation/user/basic-notation.itely:1.30
--- lilypond/Documentation/user/basic-notation.itely:1.29       Thu Jul 21 
14:53:42 2005
+++ lilypond/Documentation/user/basic-notation.itely    Thu Jul 21 16:20:24 2005
@@ -490,6 +490,7 @@
 * Octave check::                
 * Transpose::                   
 * Bar check::                   
+* Barnumber check::             
 * Skipping corrected music::    
 * Automatic note splitting::    
 @end menu
@@ -747,6 +748,23 @@
 
 { c'2 c' | c'2 c' }
 @end lilypond
+
+
[EMAIL PROTECTED] Barnumber check
[EMAIL PROTECTED] Barnumber check
+
+When copying large pieces of music, it can be helpful to check that
+the LilyPond bar number corresponds to the original that you are
+entering from.  This can be checked with @code{\barNumberCheck}, for
+example, 
+
[EMAIL PROTECTED]
+\barNumberCheck #123
[EMAIL PROTECTED] verbatim
+
[EMAIL PROTECTED]
+will print a warning if the @code{currentBarNumber} is not 123 when it
+is processed.
 
 
 @node Skipping corrected music
Index: lilypond/lily/lyric-engraver.cc
diff -u lilypond/lily/lyric-engraver.cc:1.81 
lilypond/lily/lyric-engraver.cc:1.82
--- lilypond/lily/lyric-engraver.cc:1.81        Thu Jul 21 14:45:55 2005
+++ lilypond/lily/lyric-engraver.cc     Thu Jul 21 16:20:24 2005
@@ -40,6 +40,7 @@
 Lyric_engraver::Lyric_engraver ()
 {
   text_ = 0;
+  last_text_ = 0;
   event_ = 0;
 }
 
Index: lilypond/ly/music-functions-init.ly
diff -u lilypond/ly/music-functions-init.ly:1.29 
lilypond/ly/music-functions-init.ly:1.30
--- lilypond/ly/music-functions-init.ly:1.29    Fri Jul  8 21:34:52 2005
+++ lilypond/ly/music-functions-init.ly Thu Jul 21 16:20:24 2005
@@ -190,6 +190,20 @@
        (make-music 'GraceMusic
                    'element grace)))))))
 
+
+barNumberCheck =
+#(def-music-function (parser location n) (integer?)
+   (make-music 'ApplyContext 
+              'origin location
+              'procedure 
+              (lambda (c)
+                (let*
+                    ((cbn (ly:context-property c 'currentBarNumber)))
+                  (if (not (= cbn n))
+                      (ly:input-message location "Barcheck failed got ~a 
expect ~a"
+                                        cbn n))))))
+
+
 %{
 
 TODO:
@@ -204,3 +218,4 @@
  *  ?
 
 %}
+


_______________________________________________
Lilypond-cvs mailing list
Lilypond-cvs@gnu.org
http://lists.gnu.org/mailman/listinfo/lilypond-cvs

Reply via email to