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