|
From: | Jean Abou Samra |
Subject: | Re: Annotated tuplet bracket |
Date: | Sun, 28 May 2023 01:07:55 +0200 |
User-agent: | Evolution 3.48.1 (3.48.1-1.fc38) |
Le samedi 27 mai 2023 à 17:17 -0400, Gregory Evans a écrit :
Hi Everyone,
Yes Andrew, that excerpt is from Mahnkopf: good eye!Thanks Karim, your override is a good step in the right direction for me.
So now I guess what I'm looking for is a way to query the tuplet bracket for its direction while tweaking the tuplet number.
Something like this?
\version "2.25.5"
#(define (duration-or-markup? x)
(or (ly:duration? x)
(markup? x)))
addNote =
#(define-music-function (note tuplet-music) (duration-or-markup? ly:music?)
(unless (music-is-of-type? tuplet-music 'time-scaled-music)
(ly:music-warning tuplet-music "\\addNotes expected a tuplet"))
#{
%% ugh, bug workaround -- see https://gitlab.com/lilypond/lilypond/-/merge_requests/2024
%% for a fix
\tweak TupletNumber.direction
#(lambda (grob)
(ly:grob-property (ly:grob-object grob 'bracket) 'direction))
\tweak TupletNumber.text
#(grob-transformer
'text
(lambda (grob orig)
(let* ((dir (ly:grob-property grob 'direction))
(note-markup (if (markup? note)
note
#{ \markup \parenthesize \fontsize #-4 \note #note #dir #})))
#{ \markup \put-adjacent #Y #dir
#orig
\raise #(* dir 0.7) \with-outline "" #note-markup #})))
#tuplet-music
#})
{
\addNote 8 \tuplet 3/2 { c'8 8 8 }
\once \tupletDown
\addNote 16 \tuplet 3/2 { c'8 8 8 }
\addNote \markup \with-color "red" foobarbaz \tuplet 3/2 { c'8 8 8 }
}
Regards,
Jean
signature.asc
Description: This is a digitally signed message part
[Prev in Thread] | Current Thread | [Next in Thread] |