input/test/multistanza.ly

   1 % Tests a number of features:
   2 % * Lyric_phrasing_engraver
   3 % * Stanza_number_engraver
   4 % * Automatic melismata on beamed notes
   5
   6 \version "1.3.59";
   7 \include "english.ly"
   8
   9 \header{
  10     title = "Crowned with Honour";
  11     composer = "Oliver Holden (1765-1844)";
  12     poet = "Thomas Kelly (1769-1855)";
  13 }
  14
  15 allup = \notes{
  16         \property Voice.verticalDirection = \up
  17         \property Voice.slurVerticalDirection = \up
  18         \property Voice.tieVerticalDirection = \up
  19         \property Voice.dynamicDirection = \up
  20         \autoBeamOff
  21 }
  22 alldown = \notes{
  23         \property Voice.verticalDirection = \down
  24         \property Voice.slurVerticalDirection = \down
  25         \property Voice.tieVerticalDirection = \down
  26         \property Voice.dynamicDirection = \down
  27         \autoBeamOff
  28 }
  29
  30 Global =  \notes{
  31         \key g \major;
  32         \time 4/4;
  33         \partial 4;
  34 }
  35
  36 Soprano = \notes \relative c' {
  37         \allup
  38         d4 | g g b b a g a b a g b a g( a )g % modified to test melisma align right
  39
  40         [a8 b] | b4 % modified to test melisma align left
  41          a g b [d16 d c8] [b a] b4 % modified to test beam melisma
  42 %       a4 | b a g b [d8 \melisma c] \melismaEnd [b \melisma a] \melismaEnd b4
  43
  44         d d2 d e d4( cs8 ~ )cs d2.
  45
  46         b4 | d b g b [a8  g]  [a b]  a4
  47 %       b4 | d b g b [a8 \melisma g] \melismaEnd [a \melisma b] \melismaEnd a4
  48
  49         g d'2 c b4.( c8 )a4 a g2.
  50 }
  51 Alto = \notes \relative c'{
  52         \alldown
  53         d4 | d d g g fs g fs g fs e g fs d2.
  54         d4 | g d b g' [b8 a] [g fs] g4 fs g2 a g fs4( e8 )g fs2.
  55         d4 | g g d g [fs8 e] [fs g] fs4 g f2 e d4.( d8 )d4 fs4 d2.
  56 }
  57 Tenor = \notes \relative c{
  58         \allup
  59         d4 | b' b d d c  b c  d c  b d c  b2.
  60         a4 | b a g b  [d8 c] [b a] b4 a  b2 c b  a   a2.
  61         g4 | b d b d [c8  b] [c  d]  c4 b g2 g g4.( a8 [fs )a] c4 b2.
  62 }
  63 Bass = \notes \relative c{
  64         \alldown
  65         d4 | g g g g d d d g d e d d g,2.
  66         d'4 | g d b g' [b8 a] [g fs] g4 d g2 fs e a d,2.
  67         g4 | g g g g d d d e b2 c d2. d4 g,2.
  68 }
  69
  70 TheLyrics =  \lyrics <
  71         {
  72             \context LyricVoice = "Soprano-1"
  73             \property LyricVoice .stanza = "1:"
  74             \property LyricVoice .stz = "(1)"
  75                  The4 head    that once was crowned with thorns
  76                  Is   crowned with glo -- ry  now;
  77                  A roy -- al di -- a -- dem a -- dorns
  78                  The might -- y Vic -- tor's  brow.
  79                  A roy -- al di -- a -- dem a -- dorns
  80                  The might -- y Vic -- tor's  brow.
  81         }
  82         {
  83             \context LyricVoice = "Soprano-2"
  84             \property LyricVoice .stanza = "2:"
  85             \property LyricVoice .stz = "(2)"
  86                  The4 high -- est place that heav'n af -- fords
  87                  Is His by sov -- 'reign  right;
  88                  The King of kings, the Lord of lords,
  89                  He reigns in glo -- ry  bright,
  90                  The King of kings, the Lord of lords,
  91                  He reigns in glo -- ry  bright.
  92         }
  93         {
  94             \context LyricVoice = "Soprano-3"
  95             \property LyricVoice .stanza = "3:"
  96             \property LyricVoice .stz = "(3)"
  97                  The joy of all who dwell a -- bove,
  98                  The joy of saints be --  low,
  99                  To4 whom He man -- i -- fests His love,
 100                  And grants His name to  know,
 101                  To4 whom He man -- i -- fests His love,
 102                  And grants His name to4  know.
 103         }
 104 >
 105
 106
 107 \score{
 108   \context ChoirStaff
 109     \notes
 110     <
 111       \property Score.barNumberScriptPadding = #10.0
 112       \context Staff = "treblestaff"{
 113         <
 114           \context Voice = "Soprano" { }
 115           \context Voice = "Alto" { }
 116         >
 117       }
 118       \context Lyrics = mainlyrics { }
 119       \context Staff = "treblestaff"{
 120         <
 121           \Global
 122           \addlyrics { \context Voice = "Soprano" \Soprano }
 123             { \context Lyrics = mainlyrics \TheLyrics }
 124           \context Voice = "Alto"  \Alto
 125         >
 126         \bar "|.";
 127       }
 128       \context Staff = "bassstaff"{
 129         \clef "bass";
 130         <
 131           \context Voice = "Tenor" { \Tenor }
 132           \context Voice = "Bass"  { \Bass }
 133         >
 134         \bar "|.";
 135       }
 136     >
 137
 138    \paper {
 139       \translator{
 140         \VoiceContext
 141         automaticMelismata = ##t;
 142         noAutoBeaming = ##t;
 143         \remove   "Auto_beam_engraver";
 144       }
 145
 146    }
 147 }