Dear all, On 2016-12-10 00:12, Alexander Kobel wrote:
[...] AFAICS, everything works beautifully as expected, with one strange exception: in a chord with two equal notes, the default algorithm chooses the right one as reference, your method chooses the reference point depending on the stem direction. That's something I can perfectly live with. In particular because I took the liberty to add a second variant that centers on chords; starting from your code, I found out how to do that. Please find the file attached.
One little flaw in my last post: I forgot to remove some debug console output. Attached is a slightly revised version, including the original example from the LSR and a slightly cleaned-up new one comparing the default, center-on-word and center-on-word-on-chords strategies.
I think this one should be suitable for a revision of LSR 888; please test and let me know if any issues still remain.
Thanks, Alexander
\version "2.19.50" %% and higher %% http://lsr.di.unimi.it/LSR/Item?id=888 %% [...] #(define space-set (list->char-set (string->list ".?-;,:„“‚‘«»‹›『』「」“”‘’–— */()[]{}|<>!`~&…†‡"))) #(define (width grob text) (let* ((X-extent (ly:stencil-extent (grob-interpret-markup grob text) X))) (if (interval-empty? X-extent) 0 (cdr X-extent)))) #(define (remove-suspended-note-heads stem note-heads) (let* ((nc (ly:grob-common-refpoint stem (car note-heads) X)) (stem-coord (ly:grob-relative-coordinate stem stem X)) (half-stem-thick (/ (ly:grob-property stem 'thickness) 2)) (stem-dir (ly:grob-property stem 'direction))) (remove (lambda (nh) (if (positive? stem-dir) (> (ly:grob-relative-coordinate nh nc X) stem-coord) (< (ly:grob-relative-coordinate nh nc X) (- stem-coord half-stem-thick)))) note-heads))) #(define (make-center-on-word-callback grob center-on-chords) (let* ((text (ly:grob-property-data grob 'text)) (syllable (markup->string text)) (word-position (if (string-skip syllable space-set) (string-skip syllable space-set) 0)) (word-end (if (string-skip-right syllable space-set) (+ (string-skip-right syllable space-set) 1) (string-length syllable))) (preword (substring syllable 0 word-position)) (word (substring syllable word-position word-end)) (preword-width (width grob preword)) (word-width (width grob (if (string-null? syllable) text word))) (note-column (ly:grob-parent grob X)) (stem (ly:grob-object note-column 'stem)) (stem-dir (ly:grob-property stem 'direction)) (sys (ly:grob-system grob)) (nh-ls (if (ly:grob-array? (ly:grob-object note-column 'note-heads)) (ly:grob-array->list (ly:grob-object note-column 'note-heads)) '())) (full-column-width (interval-length (ly:relative-group-extent nh-ls note-column X))) (note-column-width (interval-length (ly:relative-group-extent (remove-suspended-note-heads stem nh-ls) note-column X)))) (- (* (/ (if center-on-chords (if (positive? stem-dir) (- full-column-width word-width) (- (* 2 note-column-width) full-column-width word-width)) (- note-column-width word-width)) 2) (1+ (ly:grob-property-data grob 'self-alignment-X))) preword-width))) #(define (center-on-word grob) (make-center-on-word-callback grob #f)) #(define (center-on-word-on-chords grob) (make-center-on-word-callback grob #t))
\version "2.19.50" %% and higher \include "center-on-words.ily" \paper { ragged-last = ##f } melody = \relative c' { c4 d e f | c d e( f) g1 \bar"|." } lyr = \lyricmode { \set stanza = "1. " Do, ââRe, Mi, Fa, Do, Re, %\once \set Score.lyricMelismaAlignment = #4.5 "...mimifa," \markup \bold Solâ } lyrA = \lyricmode { \set stanza = "2. " âDo Re, Mi, Fa, Do, Re, mimifa... Sol!â } lyrControl = \lyricmode{ \set stanza = "Control: " \revert LyricText.X-offset Do Re Mi Fa Do Re mimifa Sol } \score { \new Staff << \new Voice = "voice" \melody \new Lyrics = "testI" \with { \override LyricText.X-offset = #center-on-word } \lyricsto "voice" \lyr \new Lyrics = "testII" \with { \override LyricText.X-offset = #center-on-word } \lyricsto "voice" \lyrA %% The control-voice omits the override \new Lyrics = "control" \lyricsto "voice" \lyrControl >> \layout { \context { \Score lyricMelismaAlignment = #-0.6 } } } \markup \vspace #3 melodyII = \relative c'' { \override NoteHead.color = #black \autoBeamOff g8 a b c << { \voiceTwo c } \new Voice { \voiceOne d } >> << { \voiceOne c } \new Voice { \voiceTwo <d e> } >> << { \voiceTwo <c d> } \new Voice { \voiceOne e } >> << { \voiceOne c } \new Voice { \voiceTwo e } >> \oneVoice <c b> <b a> <a b e> <a g> <g f> <f e> <e d> <c c> } lyr = \lyricmode { \repeat unfold 16 "^" } \score { << \new Staff \with { instrumentName = \markup \center-column { center- on-word } } \melodyII \addlyrics \with { \override LyricText.X-offset = #center-on-word } \lyr \new Staff \with { instrumentName = "default" } \melodyII \addlyrics \lyr \new Staff \with { instrumentName = \markup \center-column { center- on-word- on-chords } } \melodyII \addlyrics \with { \override LyricText.X-offset = #center-on-word-on-chords } \lyr >> \layout { \context { \Score % just for easier comparison proportionalNotationDuration = #(ly:make-moment 1 16) \override SpacingSpanner.strict-note-spacing = ##t } \context { \Voice \override NoteHead.color = #grey } } }
center-on-words-example.pdf
Description: Adobe PDF document
_______________________________________________ lilypond-user mailing list lilypond-user@gnu.org https://lists.gnu.org/mailman/listinfo/lilypond-user