Re: Most popular French users request : bar numbering of alternatives

[Thomas Morley]

Hi,

2011/11/28 Alexander Kobel <address@hidden>

On 2011-11-28 09:44, Colin Hall wrote:

On Mon, Nov 28, 2011 at 01:04:06AM +0100, Xavier Scheuer wrote:

Dear LilyPond developers,

Dear Bug Squad members, could you add this enhancement request to
the tracker?  Thanks!

This is by far the most popular enhancement request from the French
users mailing list: Bar numbering of repeat volta _alternatives_.

Currently LilyPond counts the measures of each "alternative" as
normal, unrepeated, measures hence incrementing the currentBarNumber
in both alternative "1." and "2.".  Several references supports what is
actually asked by many users: bar numbering of alternatives should not
be counted twice.

Thanks, Xavier. Added to the tracker as issue 2059:

http://code.google.com/p/lilypond/issues/detail?id=2059

Looks like a duplicate of
 http://code.google.com/p/lilypond/issues/detail?id=785
with some additional links...


Best,
Alexander

_______________________________________________
lilypond-user mailing list
address@hidden
https://lists.gnu.org/mailman/listinfo/lilypond-user

some helpful definitions: addtobarnumber by Jakob Lund
http://web.archiveorange.com/archive/v/nRTVViDHBezWgfouZMtk
and altBarNumber (can't rmember where I found it)

\version "2.15.20"

#(define (alt-bar-number BarNumber)
        "Append a to the bar number."
        (let* (
                ; Set barNumber to the current value
                (barNumber (ly:grob-property BarNumber 'text))
                ; Append "a" to it
                (bisBarNumber (string-append barNumber "a" )))
            ; Store the new value back
            (ly:grob-set-property! BarNumber 'text bisBarNumber))
            ; and print it
            (ly:text-interface::print BarNumber))
            
altBarNumber = \once \override Score.BarNumber #'stencil = #alt-bar-number

addtobarnumber = #(define-music-function (P L m) (integer?)
#{
  \applyContext
  #(lambda (voice)
    (let ((staff (ly:context-property-where-defined voice 'currentBarNumber))
          (n (ly:context-property voice 'currentBarNumber)))
    (ly:context-set-property! staff 'currentBarNumber
    ;; with "2.14.2" use: 
    ;;  (+ $m n)
     (+ m n)
     ))) 
#})

%----- test

\relative c' {
 \override Score.BarNumber #'break-visibility = #'#(#t #t #t)
 \repeat volta 2 {
   c1 |  
   c1 |  
   c1 |  
 }
 \alternative {
   {
     c1 | 
   }
   { \addtobarnumber #-1
     \altBarNumber
     c1 |  
   }
 }
 c1 |
 c1 | 
}


Cordialement,
  Harm