Hi Marc,
2012/2/14 Marc Hohl <m...@hohlart.de>:
> Hi Harm,
>
> Do you want to bundle up your definitions in a patch
> so they get included future versions of lilypond?
>
> Thanks for your work on this!
>
> Regards,
>
> Marc
I don't know what I'm expected to do here and currently I've less time
as usual to learn it. (Might be better next month).
I'd be deeply grateful if you could do this.
Below the newest version replacing
\override NoteHead #'minimum-Y-extent = #'(-0.1 . 0.1)
with
\override NoteHead #'Y-extent =
#(ly:make-unpure-pure-container
ly:grob::stencil-height
(lambda (grob start end) (ly:grob::stencil-height grob)))
%%%%%%%%%%%%%%%%
\version "2.15.29"
\paper {
ragged-right = ##t
}
mixedHarmonicByFret = #(define-music-function (parser location fret
music) (number? ly:music?)
(_i "Convert @var{music} into mixed harmonics; the resulting notes
resemble harmonics played on a fretted instrument by touching the
strings above @var{fret}.")
(let* ((fret (number->string fret))
(pitch (fret->pitch fret)))
(make-sequential-music
(list
#{
\override TabNoteHead #'stencil =
#(tab-note-head::print-custom-fret-label fret)
\override NoteHead #'Y-extent =
#(ly:make-unpure-pure-container
ly:grob::stencil-height
(lambda (grob start end) (ly:grob::stencil-height grob)))
\override NoteHead #'stencil = #(lambda (grob)
(ly:grob-set-property! grob 'style 'harmonic-mixed)
(ly:note-head::print grob))
#}
(make-harmonic
(calc-harmonic-pitch pitch music))
#{
\revert TabNoteHead #'stencil
\revert NoteHead #'Y-extent
\revert NoteHead #'stencil
#}))))
music = {
\override StringNumber #'transparent = ##t
\set harmonicDots = ##t
\ottava #1
\mixedHarmonicByFret #12 <e,\6>8
\mixedHarmonicByFret #12 <e g\3 b\2 e'\1>8.
\mixedHarmonicByFret #7 <g\3 b\2 e'\1>
\mixedHarmonicByFret #5 <g\3 b\2 e'\1>
\mixedHarmonicByFret #7 <g\3 b\2 e'\1>
\mixedHarmonicByFret #12 <g\3 b\2 e'\1>8 |
\ottava #0
c'4 d' e' f' \mixedHarmonicByFret #12 <g\3>1
}
\score {
<<
\new Staff { \clef "G_8" \key e\major \music }
\new TabStaff { \tabFullNotation \music }
>>
}
%%%%%%%%%%%%%%%%
Cheers,
Harm
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
