[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Point de note pointée entre parenthèses
From: |
Bernard Meylan |
Subject: |
Re: Point de note pointée entre parenthèses |
Date: |
Thu, 7 Sep 2017 00:42:10 -0700 (MST) |
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/