input/star-spangled-banner.ly

   1 %{
   2 Converted from star.mup with the aid of mup2ly.py
   3 http://www.Arkkra.com/doc/star.html
   4 http://www.Arkkra.com/doc/star.ps
   5 %}
   6
   7 \version "1.3.59";
   8
   9 % TODO:
  10 %
  11 %  * centre non-melismata lyrics (where there's only one verse!) under
  12 %    notehead:
  13 %
  14 %      l       c    c    c    l
  15 %        ___
  16 %       |   |   |    |    |    |    |
  17 %      x|()x|  x|   x|   x|   x|( )x|
  18 %      Oh_____say  can  you   see
  19 %
  20 %  NOT!
  21 %
  22 %
  23 %  * slur/lyric clash
  24 %
  25
  26 \header{
  27         title="The Star Spangled Banner";
  28         subtitle="The United States National Anthem";
  29         poet="Text by Francis Scott Key";
  30         composer="J. S. Smith";
  31         arranger="Arranged by William J. Krauss";
  32         enteredby="jcn";
  33         copyright="public domain";
  34 }
  35
  36 global = \notes {
  37   \time 3/4;
  38   \key d \major;
  39   \partial 4;
  40 }
  41
  42 $staff1_voice_1 = \notes {
  43   a8.()fis16
  44   \repeat volta 2 {
  45     d4 fis4 a4 d'2 fis'8. e'16 d'4 fis4 gis4 a2 a8 a8
  46     fis'4. e'8 d'4 cis'2 b8. cis'16 d'4 d'4 a4
  47   }
  48   \alternative {
  49     { fis4 d4 a8. fis16 }
  50     { fis4 d4 fis'8. fis'16 }
  51   }
  52   fis'4 g'4 a'4 a'2 g'8 fis'8 e'4 fis'4
  53   g'4 g'2 g'4 fis'4. e'8 d'4 cis'2 b8. cis'16 d'4 fis4 gis4 a2 a4
  54   d'4 d'4 d'8()cis'8 b4 b4 b4 e'4 g'8 ()fis'8  e'8()d'8
  55   d'4()cis'4 a8. a16 d'4.()e'8 fis'8 g'8 a'2 d'8 e'8 fis'4. g'8
  56   e'4 d'2 s4
  57 }
  58
  59 $staff1_voice_2 = \notes {
  60   a8.()fis16
  61   \repeat volta 2 {
  62     a,4 d4 e4 d4 () fis4 fis8. fis16 fis4 d4 d4 cis2
  63     e8 e8 a4. a8 a4 a2 a8. a16 a4 a4 a4
  64   }
  65   \alternative {
  66     { fis4 d4 a8. fis16 }
  67     { fis4 d4 r4 }
  68   }
  69   a4 a4 d'4 d'2 a8 a8 cis'4 cis'4 cis'4 cis'2 a4 a4. a8 a4 a2
  70   a8. a16 d4 d4 d4 cis2 e4 fis4 e4 d4 d4 d4 dis4 g4 g8()dis8 e4 e2
  71   e8. e16 d4.()a8 a8 a8 a2 g8 g8 a4. a8 g4 fis2 s4
  72 }
  73
  74 $staff2_voice_1 = \notes {
  75   r4
  76   \repeat volta 2 {
  77     fis4 a4 a4 b2 cis'8. cis'16 b4 b4 b4 a2 cis'8 cis'8
  78     d'4. cis'8 d'4 e'2 e'8. e'16 d'4 d'4 a4
  79   }
  80   \alternative {
  81     { fis4 d4 r4 }
  82     { fis4 d4 r4 }
  83   }
  84   d4 e4 fis4 fis'2 e'8 d'8 e'4 e'4 e'4 e'2 cis'4 d'4. cis'8 d'4 e'2
  85   e'8. e'16 a4 a4 e4 e2 cis'4 a4 a4 a4 g4 g4 b4 b4 b4 b4 a2
  86   cis'8. cis'16 a4.()cis'8 d'8 d'8 d'2 d'8 d'8 d'4. d'8 cis'4
  87   a2 s4
  88 }
  89
  90 $staff2_voice_2 = \notes {
  91   r4
  92   \repeat volta 2 {
  93     d4 d4 cis4 b,2 ais,8. ais,16 b,4 b,4 e4 a,2 a8 a8
  94     d4. e8 fis8 g8 a2 g8. g16 fis4 fis4 a4
  95   }
  96   \alternative {
  97     { fis4 d4 r4 }
  98     { fis4 d4 r4 }
  99   }
 100   d4 d4 d4 d2 d8 d8 a4 a4 a4 a2 a,4 d4. e8 fis8 g8 a2 g8. g16
 101   fis4 d4 e4 a,2 a4 d4 e4 fis4 g4 g4 fis4 e4 e8()fis8  g8()gis8 a2
 102   g8. g16 fis4.()a,8 d8 e8 fis2 b8 b8 a4. a8 a,4 d2 s4
 103 }
 104
 105 text = \lyrics {
 106   Oh __ \repeat "fold" 2 { }
 107   \alternative {
 108     {
 109       say, can you | see, by the dawn's ear- ly light
 110       What so proud- ly we hailed,
 111       At the twi- light's last gleam- ing.
 112       % Ah, it seems that this context stops to exist just before
 113       % the :| barline is set, and doesn't see its width?
 114       % Ugly fix:
 115       Whose broad \bar "|.";
 116     }
 117     {
 118       stripes and bright stars, through the per- il- ous fight,
 119       O'er the ram- parts we watched, were so gal- lant- ly
 120       " " " " " "  " "% UGH UGH UGH
 121       stream- ing
 122
 123       And the rock- ets' red glare, the bombs burst- ing in air,
 124       gave proof through the night that our flag was still there,
 125       Oh say, does that star- span- gled ban- ner yet wave, __
 126       O'er the land __ of the free and the home of the brave.
 127     }
 128   }
 129 }
 130
 131 \include "paper16.ly";
 132
 133 \score{
 134         \context GrandStaff \notes <
 135                 \addlyrics
 136                 \context Staff=upper <
 137                         \global
 138                         \clef treble;
 139                         \property Staff.automaticMelismata = ##t
 140                         \context Voice = one \transpose c'' {
 141                                 \stemup
 142                                 \$staff1_voice_1
 143                                 \bar "|.";
 144                         }
 145                         \context Voice = two \transpose c'' {
 146                                 \stemdown
 147                                 \$staff1_voice_2
 148                         }
 149                 >
 150                 \context LyricVoice \text
 151                 \context Staff=lower <
 152                         \global
 153                         \clef bass;
 154                         \property Staff.noVoltaBraces = ##t
 155                         \context Voice = three {
 156                                 \stemup
 157                                 \$staff2_voice_1
 158                         }
 159                         \context Voice = four {
 160                                 \stemdown
 161                                 \$staff2_voice_2
 162                         }
 163                 >
 164         >
 165         \paper{
 166                 \paper_sixteen
 167                 textheight = 230.\mm;
 168                 linewidth= 180.\mm;
 169                 \translator {
 170                         \GrandStaffContext
 171                         \accepts "Lyrics";
 172                 }
 173                 \translator {
 174                         \LyricsContext
 175                         \consists "Span_bar_engraver";
 176                 }
 177                 \translator {
 178                         \LyricsVoiceContext
 179                         \consists "Bar_engraver";
 180                 }
 181         }
 182         \midi {
 183                 \tempo 4 = 60;
 184         }
 185 }
 186