Re: Point de note pointée entre parenthèses

[Bernard Meylan]

Alors en fouillant dans les recoins sombres de notre communauté (  ), j'ai
trouvé ceci:

\version "2.19.60" 

#(define (parenthesize-dot parentheses-item) 
  (let* ((dot (ly:grob-object (ly:grob-parent parentheses-item Y) 'dot))) 
    (if (not (null? dot)) 
        (begin 
          (set! (ly:grob-object parentheses-item 'elements) '()) 
          ;; -0.2 found by try and error 
          (ly:grob-set-property! parentheses-item 'padding -0.2) 
          (ly:pointer-group-interface::add-grob parentheses-item 'elements
dot) 
          (ly:stencil-translate-axis 
            (parentheses-item::print parentheses-item) 
            0.2 ;; 0.2 found by try and error 
            X)) 
        (parentheses-item::print parentheses-item)))) 


parenthesizeDots = 
  \temporary 
  \override ParenthesesItem.stencil = #(lambda (grob) (parenthesize-dot
grob)) 

defaultParentheses = 
  \revert ParenthesesItem.stencil 



{ 
    \time 3/4 

    \parenthesizeDots 

    \parenthesize d'2. 
    <\parenthesize d' f'>2. 
    < d' \parenthesize f'>2. 
    \parenthesize r2. 
    \parenthesize <d' f'>2. 
    %% no effect here, because \parenthesize is missing, although the 
    %% ParenthesesItem.stencil-override is present 
    <d' f'>2. 

    %% back to default 
    \defaultParentheses 
    \parenthesize <d' f'>2. 
} 

qui marche bien...



-----
Cordialement

Bernard
--
Sent from: http://lilypond-french-users.1298960.n2.nabble.com/