lilypond-user-fr
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Liaison de phrasé s'achevant par une flèche


From: martial
Subject: Re: Liaison de phrasé s'achevant par une flèche
Date: Wed, 27 Jan 2021 02:40:11 -0700 (MST)

Ha oui j'avais vu, et même mis dans mes "Lilypond help"

donc d'après le script de  Schneidy 
%%%%%%%%%%%%%%%%

arrowSlur =
   -\tweak stencil
   #(lambda (grob)
     (let* ((cp (ly:grob-property grob 'control-points))
            (lp (grob-interpret-markup grob (markup #:teeny "")))
            (rp (grob-interpret-markup grob (markup #:teeny ">"))))
       (set! lp (ly:stencil-aligned-to lp Y CENTER))
       (set! lp (ly:stencil-aligned-to lp X 0.2))
       (set! lp (ly:stencil-translate lp (first cp)))
       (set! rp (ly:stencil-aligned-to rp Y CENTER))
       (set! rp (ly:stencil-aligned-to rp X -0.2))
       (set! rp (ly:stencil-translate rp (last cp)))
       (list-set! cp 0
         (cons (cdr (ly:stencil-extent lp X))
               (cdr (first cp))))
       (list-set! cp (1- (length cp))
         (cons (car (ly:stencil-extent rp X))
               (cdr (last cp))))
       (ly:grob-set-property! grob 'control-points cp)
       (apply ly:stencil-add (list lp rp
         (ly:slur::print grob)))))
   \etc

{ g'4\arrowSlur \(
      \arrowSlur (b'  c''2 ) |
   g'2\arrowSlur ( f'4 e' ) \) }
%%%% 



-----
♫artial♪
--
Sent from: http://lilypond-french-users.1298960.n2.nabble.com/



reply via email to

[Prev in Thread] Current Thread [Next in Thread]