Re: "Souligner" des syllabes avec un point

[Gildas Prevost]

Bonjour

Merci beaucoup, ça marche impeccable. J'ai rajouté la fonction \concat pour pouvoir l'appliquer à des caractères uniques. J'ai également retouché la fonction \underline avec le concat ; ces deux fonctions retouchées vont m'être très utiles pour la saisie de texte psalmodié.
Voici ce que ça donne :
\version "2.14.2"

#(define-markup-command (u layout props syl1 syl2 syl3) (string? string? string?)
  (interpret-markup layout props
    (markup #:concat (
        syl1 
        #:override '(offset . 6) #:override '(thickness . 3)
        #:underline syl2 
        syl3))))

#(define-markup-command (dot layout props str1 str2 str3)
 (string? string? string?)
 #:properties ((offset 0.75))
 (let ((x-extent (ly:stencil-extent (interpret-markup layout props str2) X)))
 (interpret-markup
   layout
   props
   (markup #:concat (
     str1
     #:override `(baseline-skip . ,offset)
        #:concat
          (#:hspace (/ (interval-length x-extent) 2)
            #:center-column (str2 #:musicglyph "dots.dot"))
     str3 )))))


\markup { \u #"C" #"e" #"ci" \u #"" #"e" #"st" un \dot #"ess" #"a" #"i" }

Le 6 octobre 2011 00:56, Bertrand Bordage <address@hidden> a écrit :

Effectivement, sous 2.14 il y a ce problème. Il a été réglé depuis dans les versions de développement.

Pour résoudre le problème sans passer à 2.15, il faut décaler le "est" de la moitié de sa largeur.  Cela donne ceci :

\version "2.14"

#(define-markup-command (dot layout props str)

 (string?)

 #:properties ((offset 0.75))

 (let ((x-extent (ly:stencil-extent (interpret-markup layout props str) X)))

      (interpret-markup

        layout

        props

        (markup

          #:override `(baseline-skip . ,offset)

            #:concat

              (#:hspace (/ (interval-length x-extent) 2)

               #:center-column (str #:musicglyph "dots.dot"))))))

\markup { Ceci \dot #"est" un essai }

À plus et bonne nuit à tous,

Bertrand

-- 
Latour Basse
31570 LANTA

06 31 84 85 03