Re: instrumentName sur plusieurs lignes dans une fonction

[Pierre Perol-Schneider]

Bonjour Rémy,

Avec l'aide de Harm de la liste anglophone voilà le code qui suit ton cahier des charges ;-) :

\version "2.18.2"

#(define (general-column align-dir baseline mols)
  (let* ((aligned-mols
           (map (lambda (x) (ly:stencil-aligned-to x X align-dir)) mols)))
    (stack-lines -1 0.0 baseline aligned-mols)))

#(define-markup-command (center-text-string layout props arg)
  (string?)
  #:properties ((baseline-skip)
                wordwrap-string-internal-markup-list)
  (general-column CENTER baseline-skip
               (wordwrap-string-internal-markup-list layout props #f arg)))

shortIncipit =
#(define-music-function (parser location instr-name ) (markup?)
  #{
    \set Staff.instrumentName =
      \markup {
        \override #'(line-width . 12)
        \center-text-string #instr-name
      }
  #})

\layout { indent = 30 }

{ \shortIncipit "Cantus primi chori" c' }

Le 9 juillet 2014 15:37, Remy CLAVERIE <address@hidden> a écrit : 

Aurais-tu une explication ?

Oui et non... 

Le problème vient de textCenter mais ce soir je prendrai le temps de décortiquer tout le code.

A+

Pierre