Re: Lead sheets: lyrics and chords, no melody?

[Kieren MacMillan]

Hi Christopher,

> I am committed to the principle of single-source authoring in my textual and 
> musical worlds.

+1

For archive completeness, I’ve included (below) the example I am playing with — 
it’s still in progress, but it’s nearly there — which clearly allows 
single-source authoring.

Best,
Kieren.

%%%  SNIPPET BEGINS
\version "2.19.80"

\paper {
  indent = 0
  ragged-right = ##t
  system-system-spacing = #'((basic-distance . 6) (minimum-distance . 6) 
(padding . 2.5) (stretchability . 0))
  score-system-spacing.padding = #12
}

\layout {
  \context {
    \ChordNames
    \override VerticalAxisGroup.staff-affinity = #DOWN
    \override VerticalAxisGroup.nonstaff-relatedstaff-spacing =
        #'((basic-distance . 2.5) (minimum-distance . 2.5) (padding . 1.25) 
(stretchability . 0))
  }
  \context {
    \Lyrics
    \override VerticalAxisGroup.staff-affinity = #UP
    \override VerticalAxisGroup.nonstaff-relatedstaff-spacing =
        #'((basic-distance . 5.5) (minimum-distance . 5.5) (padding . 1.25) 
(stretchability . 0))
  }
  \context {
    \ChordNames
    \name LyricSheetChords
    \alias ChordNames
    \inherit-acceptability LyricSheetChords ChordNames
    \override VerticalAxisGroup.nonstaff-nonstaff-spacing =
        #'((basic-distance . 1) (minimum-distance . 1) (padding . 1) 
(stretchability . 0))
  }
  \context {
    \Lyrics
    \name LyricSheetLyrics
    \alias Lyrics
    \inherit-acceptability LyricSheetLyrics Lyrics
    \override VerticalAxisGroup.staff-affinity = #UP
    \override VerticalAxisGroup.nonstaff-relatedstaff-spacing =
        #'((basic-distance . 3) (minimum-distance . 3) (padding . 2) 
(stretchability . 0))
    \override LyricText.self-alignment-X = #-0.9
    \override LyricSpace.minimum-distance = #0.75
    \override LyricSpace.minimum-length = #0.625
    \omit LyricHyphen
    \override LyricHyphen.minimum-distance = #0
  }
}

theMelody = {
  e'4 d' c' d'
  e'4 4 4 4
  d'4 4 e' d'
  c'2 r4 d'
  e'4 d' c' d'
  e'4 4 4 4
  d'4 4 e' d'
  c'2. r4
}

theChords = \chordmode {
  c2 f
  c1
  d2:7 g
  c1
  c2 f
  c1
  f2:6 g
  c1
}

lyricsbreak =  \tag #'lyricsheet { \bar "" \break }

theWords = \lyricmode {
  Mar -- y had a lit -- tle lamb,  \lyricsbreak
  Its fleece was white as snow.  \lyricsbreak
  And \markup \concat { ev \hspace #-0.125 }  -- ery -- where that Mar -- y 
went  \lyricsbreak
  The lamb was sure to go.
}

\score {
  <<
    \new ChordNames \theChords
    \new Staff \new Voice = "melody" \theMelody
    \new Lyrics \removeWithTag #'lyricsheet \lyricsto "melody" \theWords
  >>
  \layout {
    ragged-right = ##f
    \context {
      \Score
      \remove "Bar_number_engraver"
    }
  }
}
\pageBreak
\score {
  <<
    \new ChordNames \theChords
    \new Devnull = "melody" \theMelody
    \new LyricSheetLyrics \keepWithTag #'lyricsheet \lyricsto "melody" \theWords
  >>
  \layout {
    line-width = 6\in
    indent = 2\in
    short-indent = 2\in
    \context {
      \Score
      \override SpacingSpanner.base-shortest-duration = #(ly:make-moment 1000/1)
      \remove "Bar_number_engraver"
      \remove "Bar_engraver"
    }
  }
}
%%%  SNIPPET ENDS
________________________________

Kieren MacMillan, composer
‣ website: www.kierenmacmillan.info
‣ email: address@hidden