Hi Stephen,
thanks for the help! Using your idea I ended up with this:
Cue = #(define-music-function (parser location note shift) (ly:music? number?)
#{
\override Stem.transparent = ##t
\override ParenthesesItem.padding = #0.2
\override ParenthesesItem.font-size = #1
\teeny \parenthesize \tweak X-offset $shift $note
#})
<< { < c' >4 } \\
{ \Cue c''' # 0.5 } >>
(it's a little different from your code, as in your example the length
of the ledger lines aren't resized).
I'd still prefer something which would't need an explicit new voice
context, more something along the lines of a pitchedTrill, but that
probably needs a deeper understanding of lilyponds internals on my
side.
--
Orm
Am Freitag, den 14. August 2015 um 15:37:02 Uhr (-0400) schrieb Stephen MacNeil:
> How about
>
>
>
> \version "2.18.2"
>
>
> Pitch = #(define-music-function (parser location notes) (ly:music?)
>
> #{
>
> \override Stem.transparent = ##t
>
> \override NoteColumn.force-hshift = #-.05
>
> \override NoteHead.stencil = #(lambda (grob)
>
> (grob-interpret-markup grob
>
> #{ \markup
>
> \concat
>
> {
>
> \lower #.5
>
> "("
>
> \musicglyph #"noteheads.s2"
>
> \lower #.5
>
> ")"}
>
> #}))
>
> \teeny
>
> $notes
>
> #})
>
> harmOn = { \override Voice.NoteHead.style = #'harmonic-black }
>
> harmOff = { \override Voice.NoteHead.style = #'default }
>
>
> {
>
> <<
>
> {
>
> %regular notes
>
> a'1 \harmonic ^\markup { "sul D" }
>
> \harmOn
>
> b'4 c' d' e'
>
> }\\
>
> {
>
> %harmonic notes
>
> \Pitch a''1 b''4 c'' d'' e''
>
> }
>
> >>
>
> }
>
>
>
> Stephen
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
