Documentation/snippets/new/chords-headword.ly

   1 \version "2.12.0"
   2 #(set-global-staff-size 15)
   3 \paper{
   4   ragged-right=##f
   5   line-width=15\cm
   6   indent=0\cm
   7 }
   8
   9 \header {
  10   lsrtags = "headwords"
  11   texidoc = ""
  12   doctitle = "headword"
  13 }
  14
  15
  16 \layout {
  17   \context { \Score
  18     \override PaperColumn #'keep-inside-line = ##t
  19     \override NonMusicalPaperColumn #'keep-inside-line = ##t
  20   }
  21 }
  22
  23 theChords = \chordmode {
  24   \time 2/2
  25   f1 | c2 f2 | f1 | c2 f2| %\break
  26   f2 bes2 | f1 | c2:7 f | c1 | \break
  27 }
  28
  29 verseOne = \lyricmode{
  30   \set stanza = "1. "
  31   Fair is the sun - shine,
  32   Fair - er the moon - light
  33   And all the stars __ _  in heav'n a -- bove;
  34 }
  35
  36 verseTwo = \lyricmode{
  37   \set stanza = "2. "
  38   Fair are the mead - ows,
  39   Fair - er the wood - land,
  40   Robed in the flow -- ers of bloom -- ing spring;
  41 }
  42
  43 Soprano = {
  44   \time 2/2
  45   \key f \major
  46   \stemUp
  47   f'2 f'4 f' | g'4 e' f'2 | a'4. a'8 a'4 a' | bes'4 g' a'2 |
  48 c''2 f''4 d'' |  c''2  bes'4  a' | bes'2 a' | g'1 |
  49 }
  50
  51 Alto = {
  52   \key f \major
  53   c'2 c'4 c' | d'4 c' c'2 | f'4. f'8 f'4 fis' | g'4 e' f'2 |
  54   f'2 f'4 f' |  f'2  g'4  f' | e'2 f' | e'1 |
  55 }
  56
  57 Tenor = {
  58   \key f \major
  59   \stemDown
  60   a2 a4 a | bes4 g a2  | c'4. c'8 d'4 d' | d'4 c' c'2 |
  61   a2 d'4 bes | a2 c'4 c' | c'2 c'  | c'1 |
  62 }
  63
  64 Bass = {
  65   \key f \major
  66   f2 f4 f | bes,4 c  f2 | f4. e8 d4 c | bes,4 c f2 |
  67   f2 bes,4 d | f2 e4 f | g2 f | c1 |
  68 }
  69
  70
  71 \score {
  72   <<
  73     \new ChordNames { \theChords }
  74     \context Staff = upper {
  75       \context Voice = sop {
  76         <<
  77           \Soprano
  78           \Alto
  79         >>
  80       }
  81     }
  82     \context Lyrics="LyrOne" \lyricsto "sop" {\verseOne}
  83     \context Lyrics="LyrTwo" \lyricsto "sop" {\verseTwo}
  84     \context Staff = lower {
  85       \new Voice {
  86         \clef bass
  87         #(set-accidental-style 'modern-cautionary)
  88         <<
  89           \Tenor
  90           \Bass
  91         >>
  92       }
  93     }
  94   >>
  95
  96 \layout {
  97   %between-system-space = 1\mm
  98   indent = 0
  99   \context {
 100     \Score
 101     \remove "Bar_number_engraver"
 102   }
 103   \context { \Staff
 104     \override VerticalAxisGroup #'minimum-Y-extent = #'(-1 . 1)
 105   }
 106   }
 107 }
 108 \paper {  }