Re: Lyrics & Chords sheet

[Thomas Morley]

2014-11-17 23:27 GMT+01:00 Peter Crighton <address@hidden>:
> 2014-11-17 0:29 GMT+01:00 <address@hidden>:
>>
>> >>>>> "Peter" == Peter Crighton <address@hidden> writes:
>>
>> Peter> Hello all, I’m in the process of creating sheets that only
>> Peter> contain lyrics and correctly aligned chords. (This belongs to
>> Peter> other sheets with music in them, otherwise LilyPond probably
>> Peter> wouldn’t be the ideal choice for this.  But I want to do these
>> Peter> all together in LilyPond.)  I have two approaches so far, and
>> Peter> none of them are ideal …
>>
>>
>> You can use explicit durations on the lyrics and the chords.
>>
>> Something like:
>>
>> accomp=\chords {
>>   c4 c c c:7 f f c c
>> }
>>
>> words=\lyricmode {
>>   Twinkle2 twinkle little star
>> }
>>
>> \score {
>>   <<
>>     \context ChordNames \accomp
>>     \context Lyrics \words
>>   >>
>>
>>   \layout {
>>     \context {
>>       \ChordNames
>>       chordChanges = ##t
>>     }
>>   }
>> }
>
>
> Hi Peter,
>
> using \lyricmode gives me very badly aligned lyrics with differing amounts
> of space between the words. After all I want them to be printed as
> continuous text, so a markup would be my best choice, I guess.
> But thanks for the suggestion!
>
> --
> Peter Crighton | Musician & Music Engraver based in Mainz, Germany
> http://www.petercrighton.de
>
>
> _______________________________________________
> lilypond-user mailing list
> address@hidden
> https://lists.gnu.org/mailman/listinfo/lilypond-user
>

Not really what you wish, less typing, though:

\version "2.19.13"

addMarkup =
#(define-music-function (parser location nmbr mrkp)((number? 0) markup?)
   #{
     \once \override ChordName.before-line-breaking =
     #(lambda (grob)
        (ly:grob-set-property! grob 'text
          #{
            \markup
            \override #'(direction . -1)
            \dir-column {
                    $(ly:grob-property grob 'text)
                    \translate #(cons nmbr 0)
                    \override #'(font-family . serif) #mrkp
            }
          #}))
   #})

\new ChordNames \chordmode {
  \override ChordName.extra-spacing-width = #'(0 . -0.1)

  \addMarkup 5 "Wir stecken doch al"
  d
  \addMarkup "le in einem K"
  fis:m/cis
  \addMarkup "artenhaus,"
  b:m
  d:/a \break

  \addMarkup 5 "das sich Leben nen"
  g
  \addMarkup "nt und schau’n zum F"
  b:7/fis
  \addMarkup "enster raus."
  e:m
}

\paper {
  indent = 0
  ragged-right = ##t
}

\layout {
  \context {
    \Score
    \remove "Bar_number_engraver"
  }
}

HTH,
  Harm