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