Indications de repères simultanées : solution – merci Neil !

[Xavier Scheuer]

Re-bonjour,

Cette fois je partage une solution aux \mark simultanés (toujours grâce
à Neil).  Je lui avais fait part que

  "Parmi mes "problèmes les plus @#%&+!" il y a le fait que il n'est
  pas possible d'avoir deux ndications de repères simultanées (et que
  la solution du LSR #575 était vraiment :( "

et donc Neil a gentiment créé une solution qui permet d'avoir des
indications de repères simultanées et  — cerise sur le gâteau —
sa solution permet que ces RehearsalMark aient des réglages différents.

Très utile si on veut par exemple un "to coda" à la fin d'une ligne et
un \mark \default au début de la ligne suivante !
Cela permet aussi d'imprimer deux indications de repère au-dessus et
au-dessous de la même barre de mesure.
Cf. code ci-dessous.

Bref, selon moi, cela est une bonne solution pour remplacer tous les
snippets suivants :
http://lsr.dsi.unimi.it/LSR/Item?id=575
http://lsr.dsi.unimi.it/LSR/Item?id=202
http://lsr.dsi.unimi.it/LSR/Item?id=735
http://lsr.dsi.unimi.it/LSR/Item?id=736

%%%% Snippet

\version "2.15.8"

#(define (multi-mark-engraver ctx)
   (let ((texts '())
         (final-texts '())
         (events '()))

     `((start-translation-timestep
        . ,(lambda (trans)
             (set! final-texts '())))

       (listeners
        (mark-event
         . ,(lambda (trans ev)
              (set! events (cons ev events)))))

       (acknowledgers
        (break-alignment-interface
         . ,(lambda (trans grob source)
              (for-each (lambda (mark)
                          (set! (ly:grob-parent mark X) grob))
                        texts))))

       (process-music
        . ,(lambda (trans)
             (for-each
              (lambda (ev)
                (let* ((mark-grob
                        (ly:engraver-make-grob trans 'RehearsalMark ev))
                       (label (ly:event-property ev 'label))
                       (formatter (ly:context-property ctx 'markFormatter)))

                  (if (and (procedure? formatter)
                           (not (markup? label)))
                      (begin
                       (if (not (number? label))
                           (set! label
                                 (ly:context-property ctx 'rehearsalMark)))

                       (if (and (integer? label)
                                (exact? label))
                           (set! (ly:context-property ctx 'rehearsalMark)
                                 (1+ label)))

                       (if (number? label)
                           (set! label (apply formatter (list label ctx)))
                           (ly:warning "rehearsalMark must have
integer value"))))

                  (if (markup? label)
                      (begin
                       (set! (ly:grob-property mark-grob 'text) label)
                       (let ((dir (ly:event-property ev 'direction)))
                         (and (ly:dir? dir)
                              (set! (ly:grob-property mark-grob 'direction)
                                    dir))))
                      (ly:warning "mark label must be a markup object"))

                  (set! texts (cons mark-grob texts))))
              (reverse events))))

       (stop-translation-timestep
        . ,(lambda (trans)
             (if (pair? texts)
                 (let ((staves (ly:context-property ctx 'stavesFound))
                       (priority-index 0))
                   (for-each (lambda (grob)
                               (let ((my-priority (ly:grob-property
grob 'outside-staff-priority 1500)))
                                 (for-each (lambda (stave)

(ly:pointer-group-interface::add-grob grob 'side-support-elements
                                               stave))
                                           staves)
                                 (set! (ly:grob-property grob
'outside-staff-priority) (+ my-priority priority-index))
                                 (set! priority-index (1+ priority-index))
                                 (set! final-texts (cons grob final-texts))))
                             (reverse texts))
                     (set! texts '())
                     (set! events '())))))

        (finalize
         . ,(lambda (trans)
              (and (pair? final-texts)
                   (for-each (lambda (grob)
                               (set! (ly:grob-property grob 'break-visibility)
                                     end-of-line-visible))
                             final-texts)))))))

\layout {
 \context {
   \Score
   \remove "Mark_engraver"
   \consists #multi-mark-engraver
   \consists "Tweak_engraver"
 }
}

markDown =
#(define-music-function (parser location text) (markup?)
   (make-music 'MarkEvent
               'direction DOWN
               'label text))

myMark =
#(define-music-function (parser location text) (markup?)
  (make-music 'MarkEvent
              'label text))

toCoda = {
 \tweak #'self-alignment-X #RIGHT
 \tweak #'break-visibility #begin-of-line-invisible
 \myMark \markup { to \hspace #1.25 \raise #1.25 \musicglyph #"scripts.coda" }
}

\relative c' {
 c1 | c | c | c \toCoda
 \bar "||" \break
 \mark \default
 c1 | c |
 \mark \default
 \markDown "23"
 c | c
}

%%%% End of snippet

Cordialement,
Xavier

-- 
Xavier Scheuer <address@hidden>