Thanks, that fixed the issue with the accidentals, but it's now harmonic again and not harmonic-mixed… the "\override NoteHead" line seems to just be ignored. (I also don't see how overriding after-line-breaking should alter the noteheads…)
But as long as the harmonicDots are shown it's good enough. At least eigth notes and dotted eigth notes are now distinguishable. Ah, no… not good enough – quarter notes and half notes still look the same, of course. -- Peter Crighton | (mainly) Progressive Rock musician based in Mainz/Wiesbaden, Germany http://www.petercrighton.de 2012/2/3 Thomas Morley <thomasmorle...@googlemail.com>: > Hi Peter, > > 2012/2/2 Peter Crighton <petecrigh...@googlemail.com>: >> You're right, I should have included an example. I'm sorry. > [...] >> It looks quite good so far, only the dots are not shown in the Staff >> and some of the accidentals overlap with the notehead. (In this >> example only the lower G, but at the piece I'm working on it is also >> the D.) > > harmonicDots are not shown by default, you have to enable this with > \set harmonicDots = ##t > > I've not a clue why this happens sometimes, would have expected that's > all good or all bad. > > Anyway using another property ('after-line-breaking) seems to solve > it. If not recall. > > \version "2.14.2" > > \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 #'after-line-breaking = #(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 #'after-line-breaking > #})))) > > music = { > \override StringNumber #'transparent = ##t > \set harmonicDots = ##t > \ottava #1 > % I added several accidentals!! > \mixedHarmonicByFret #12 <e,\6>8 > \mixedHarmonicByFret #12 <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 | > } > \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
