|
From: | Martial R |
Subject: | Re: Spanners |
Date: | Fri, 9 Jun 2023 23:19:17 +0200 |
bonsoir,et avec "<> \stop"Cordialement%------------------------------------------------------------------------------\version "2.24.1"
#(use-modules (srfi srfi-2))
stop = \stopTextSpan
textSp = #(define-event-function (str)(markup?)
#{
\tweak bound-details.left.text \markup $str
\tweak bound-details.left.text \markup \normal-text $str
\tweak style #'line % mettre en commentaire pour des pointillés
\tweak dash-period #0.8
\tweak bound-details.left.stencil-align-dir-y #0
\tweak bound-details.left-broken.attach-dir -1 % pos y du trait
\tweak bound-details.left-broken.padding 1.5
\tweak bound-details.left-broken.text ##f
\tweak bound-details.right.padding -0 %pos x du trait vertical
\tweak bound-details.right-broken.text ##f %pas de trait au break-ligne
\tweak bound-details.right.text
\markup
\draw-line #'(0 . -1)
\tweak right-bound-info
#(grob-transformer
'right-bound-info
(lambda (grob orig)
(or (and-let* ((stencil (assq-ref orig 'stencil))
((eqv? DOWN (ly:grob-property grob 'direction))))
(let ((upside-down (ly:stencil-scale stencil 1 -1)))
(acons 'stencil upside-down orig)))
orig)))
\startTextSpan
#})
\relative { c' e\textSp"Grr jusqu'au bout" \break e e c1 c c c c1 <>\stop }
\relative { c' e_\textSp "Grr jusqu'au bout" \break e e c1 c c c c1 <> \stop }%------------------------------------------------------------------------------Le ven. 9 juin 2023 à 22:43, Vincent Gay <vgay@vintherine.org> a écrit :Je déterre un vieux post pour un détail qui me chiffonne : Quand on écrit "Grr jusqu'au bout" est-ce que ça peut aller vraiment jusqu'au bout, jusqu'à la dernière barre de mesure (ou juste devant), quand il n'y a plus de musique derrière, même si la dernière mesure est une pause ?
Par exemple pas comme ça !
Bon week-end à toutes et à tous
Le 09/02/2023 à 13:45, Jean Abou Samra a écrit :
Quelque chose comme ça, peut-être ?
\version "2.24.0" #(use-modules (srfi srfi-2)) stop = \stopTextSpan textSp = #(define-event-function (str)(markup?) #{ \tweak bound-details.left.text \markup $str \tweak bound-details.left.text \markup \normal-text $str \tweak style #'line % mettre en commentaire pour des pointillés \tweak dash-period #0.8 \tweak bound-details.left.stencil-align-dir-y #0 \tweak bound-details.left-broken.attach-dir -1 % pos y du trait \tweak bound-details.left-broken.padding 1.5 \tweak bound-details.left-broken.text ##f \tweak bound-details.right.padding -1.5 %pos x du trait vertical \tweak bound-details.right-broken.text ##f %pas de trait au break-ligne \tweak bound-details.right.text \markup \draw-line #'(0 . -1) \tweak right-bound-info #(grob-transformer 'right-bound-info (lambda (grob orig) (or (and-let* ((stencil (assq-ref orig 'stencil)) ((eqv? DOWN (ly:grob-property grob 'direction)))) (let ((upside-down (ly:stencil-scale stencil 1 -1))) (acons 'stencil upside-down orig))) orig))) \startTextSpan #}) \relative { c' e\textSp"Grr jusqu'au bout" \break e e c1 c c c c1\stop } \relative { \textSpannerDown c' e\textSp"Grr jusqu'au bout" \break e e c1 c c c c1\stop }
-- Vincent Gay Envoyé depuis mon saxo-phone :) https://myrealbook.vintherine.org/ - http://photos.vintherine.org/
--Martial Rameaux
[Prev in Thread] | Current Thread | [Next in Thread] |