[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Liaison de valeur entre parenthèses
From: |
Seventies |
Subject: |
Re: Liaison de valeur entre parenthèses |
Date: |
Mon, 11 Nov 2013 04:52:34 -0800 (PST) |
Bonjour Bernard,
Voici une fonction qui m'avait été transmise en son temps, valable pour les
soufflets.
Sans l'avoir testé, ne suffirait-il pas de remplacer les 'hairpin' par des
'tie' ?
hairpinBetweenText =
#(define-music-function (parser location leftText rightText) (markup?
markup?)
#{
\once \override Hairpin #'stencil =
#(lambda (grob)
(let* ((orig (ly:grob-original grob))
(siblings (if (ly:grob? orig)
(ly:spanner-broken-into orig)
'()))
(hairpin-stencil (ly:stencil-aligned-to
(ly:hairpin::print grob) Y CENTER))
(left-addition (ly:stencil-aligned-to
(grob-interpret-markup grob leftText) Y
CENTER))
(right-addition (ly:stencil-aligned-to
(grob-interpret-markup grob rightText) Y
CENTER)))
(if (or (null? siblings)
(eq? grob (car siblings)))
(set! hairpin-stencil
(ly:stencil-combine-at-edge
left-addition
X RIGHT
hairpin-stencil
0)))
(if (or (null? siblings)
(eq? grob (car (reverse siblings))))
(set! hairpin-stencil
(ly:stencil-combine-at-edge
hairpin-stencil
X RIGHT
right-addition
0.6)))
hairpin-stencil))
#})
% utilisation :
% parenthesizedHairpin = \hairpinBetweenText \markup "(" \markup ")"
% \parenthesizedHairpin
% c16\< d e f g a b c d e f g a\!
% ne vaut que pour le soufflet suivant la note concernée
%indications de volume entre soufflet
parenthesizedHairpin = \hairpinBetweenText \markup "(" \markup ")"
% idem entre crochets
bracketedHairpin = \hairpinBetweenText \markup "[" \markup "]"
Cette fonction possède un petit inconvénient : l'extension horizontale de
l'objet est quelque peu augmentée, d'où collisions possibles avec les
nuances textuelles, mais pour les liaisons, ça devrait au contraire assurer
un positionnement correct de cette liaison.
Cordialement,
Jean-François
--
View this message in context:
http://lilypond-french-users.1298960.n2.nabble.com/Liaison-de-valeur-entre-parentheses-tp7580531p7580534.html
Sent from the LilyPond French Users mailing list archive at Nabble.com.