Documentation/snippets/new/anglican-psalm-template.ly

   1
   2 \version "2.13.30"
   3 \header {
   4   lsrtags = "vocal-music, template"
   5   texidoc = "
   6 This template shows one way of setting out an Anglican psalm chant.
   7 It also shows how the verses may be added as stand-alone text under
   8 the music.  The two verses are coded in different styles to
   9 demonstrate more possibilities.
  10
  11 "
  12   doctitle = "Anglican psalm template"
  13 }
  14
  15 SopranoMusic = \relative g' {
  16   g1 | c2 b | a1 | \bar "||"
  17   a1 | d2 c | c b | c1 | \bar "||"
  18 }
  19
  20 AltoMusic = \relative c' {
  21   e1 | g2 g | f1 |
  22   f1 | f2 e | d d | e1 |
  23 }
  24
  25 TenorMusic = \relative a {
  26   c1 | c2 c | c1 |
  27   d1 | g,2 g | g g | g1 |
  28 }
  29
  30 BassMusic =  \relative c {
  31   c1 | e2 e | f1 |
  32   d1 | b2 c | g' g | c,1 |
  33 }
  34
  35 global = {
  36  \time 2/2
  37 }
  38
  39 dot = \markup {
  40   \override #'(font-encoding . fetaMusic)
  41   \raise #0.7 \lookup #"dots.dot"
  42 }
  43
  44 tick = \markup {
  45   \override #'(font-encoding . fetaMusic)
  46   \raise #1 \fontsize #-5 { \lookup #'"scripts.rvarcomma" }
  47 }
  48
  49 % Use markup to center the chant on the page
  50 \markup {
  51   \fill-line {
  52     " "  % left-justified
  53
  54 \score {  % centered
  55   <<
  56     \new ChoirStaff <<
  57       \new Staff <<
  58         \global
  59         \clef "treble"
  60         \new Voice = "Soprano" <<
  61           \voiceOne
  62           \SopranoMusic
  63         >>
  64         \new Voice = "Alto" <<
  65           \voiceTwo
  66           \AltoMusic
  67         >>
  68       >>
  69       \new Staff <<
  70         \clef "bass"
  71         \global
  72         \new Voice = "Tenor" <<
  73           \voiceOne
  74           \TenorMusic
  75         >>
  76         \new Voice = "Bass" <<
  77           \voiceTwo
  78           \BassMusic
  79         >>
  80       >>
  81     >>
  82   >>
  83   \layout {
  84     \context {
  85       \Score
  86       \override SpacingSpanner
  87                 #'base-shortest-duration = #(ly:make-moment 1 2)
  88     }
  89     \context {
  90       \Staff
  91       \remove Time_signature_engraver
  92     }
  93   }
  94 }  % End score
  95
  96     " "  % right-justified
  97   }
  98 }  % End markup
  99
 100 \markup {
 101   \fill-line {
 102     \column {
 103       \left-align {
 104         " " " " " "
 105         \line {
 106           \fontsize #5 "O"
 107           \fontsize #3 "come"
 108           \fontsize #0
 109           "let us" \bold "sing" "| unto" \dot "the | Lord : let"
 110         }
 111         \line {
 112           "us heartily"
 113           \concat { "re" \bold "joice" }
 114           "in the | strength of | our"
 115         }
 116         "sal | vation."
 117         " "
 118         \line {
 119           "    2. Let us come before his presence" \tick "with"
 120         }
 121         \line {
 122           "thanks" \tick "giving * and shew ourselves"
 123           \tick "glad in" \tick
 124         }
 125         "him with psalms."
 126       }
 127     }
 128   }
 129 }