input/star-spangled-banner.ly

   1 %{
   2 Converted from star.mup with the aid of mup-to-ly.py
   3 http://www.Arkkra.com/doc/star.html
   4 http://www.Arkkra.com/doc/star.ps
   5 %}
   6 \header{
   7 title="The Star Spangled Banner";
   8 subtitle="(The United States National Anthem)";
   9 poet="Text by Francis Scott Key";
  10 composer="J. S. Smith";
  11 arranger="Arranged by William J. Krauss";
  12 enteredby="jcn";
  13 copyright="public domain";
  14 }
  15
  16 $staff1_voice_1 = \notes {
  17   a8.()fis16
  18   \repeat 2 { d4 fis4 a4 d'2 fis'8. e'16 d'4 fis4 gis4 a2 a8 a8
  19   fis'4. e'8 d'4 cis'2 b8. cis'16 d'4 d'4 a4 }
  20   \alternative { { fis4 d4 a8. fis16 } { fis4 d4 fis'8. fis'16 } }
  21   fis'4 g'4 a'4 a'2 g'8 fis'8 e'4 fis'4
  22   g'4 g'2 g'4 fis'4. e'8 d'4 cis'2 b8. cis'16 d'4 fis4 gis4 a2 a4
  23   d'4 d'4 d'8()cis'8 b4 b4 b4 e'4 g'8 ()fis'8  e'8()d'8
  24   d'4~cis'4 a8. a16 d'4.~e'8 fis'8 g'8 a'2 d'8 e'8 fis'4. g'8
  25   e'4 d'2 s4
  26 }
  27
  28 $staff1_voice_2 = \notes {
  29   a8.()fis16
  30   \repeat 2 { a,4 d4 e4 d4~fis4 fis8. fis16 fis4 d4 d4 cis2
  31   e8 e8 a4. a8 a4 a2 a8. a16 a4 a4 a4 }
  32   \alternative { { fis4 d4 a8. fis16 } { fis4 d4 r4 } }
  33   a4 a4 d'4 d'2 a8 a8 cis'4 cis'4 cis'4 cis'2 a4 a4. a8 a4 a2
  34   a8. a16 d4 d4 d4 cis2 e4 fis4 e4 d4 d4 d4 dis4 g4 g8()dis8 e4 e2
  35   e8. e16 d4.~a8 a8 a8 a2 g8 g8 a4. a8 g4 fis2 s4
  36 }
  37
  38 $staff2_voice_1 = \notes {
  39   r4
  40   \repeat 2 { fis4 a4 a4 b2 cis'8. cis'16 b4 b4 b4 a2 cis'8 cis'8
  41   d'4. cis'8 d'4 e'2 e'8. e'16 d'4 d'4 a4 }
  42   \alternative { { fis4 d4 r4 } { fis4 d4 r4 } }
  43   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
  44   e'8. e'16 a4 a4 e4 e2 cis'4 a4 a4 a4 g4 g4 b4 b4 b4 b4 a2
  45   cis'8. cis'16 a4.~cis'8 d'8 d'8 d'2 d'8 d'8 d'4. d'8 cis'4
  46   a2 s4
  47 }
  48
  49 $staff2_voice_2 = \notes {
  50   r4
  51   \repeat 2 { d4 d4 cis4 b,2 ais,8. ais,16 b,4 b,4 e4 a,2 a8 a8
  52   d4. e8 fis8 g8 a2 g8. g16 fis4 fis4 a4 }
  53   \alternative { { fis4 d4 r4 } { fis4 d4 r4 } }
  54   d4 d4 d4 d2 d8 d8 a4 a4 a4 a2 a,4 d4. e8 fis8 g8 a2 g8. g16
  55   fis4 d4 e4 a,2 a4 d4 e4 fis4 g4 g4 fis4 e4 e8()fis8  g8()gis8 a2
  56   g8. g16 fis4.~a,8 d8 e8 fis2 b8 b8 a4. a8 a,4 d2 s4
  57 }
  58
  59 $text = \lyrics{
  60   Oh4 __ \repeat 2 { }
  61   \alternative <
  62   { say. can you see,2 by8. the16 dawn's4 ear- ly light2 What8
  63   so8 proud-4. ly8 we4 hailed,2 At8. the16 twi-4 light's last gleam-
  64   ing. Whose8. broad16 }
  65   { stripes4 and bright stars,2 through8. the16 per-4 il- ous fight,2
  66   O'er8 the8 ram-4. parts8 we4 watched,2 were8. so16 gal-4 lant- ly }
  67   >
  68   stream-4 ing. And8. the16 rock-4 ets' red glare,2 the8 bombs8
  69   burst-4 ing in air,2 gave4 proof4. through8 the4 night2 that8.
  70   our16 flag4 was still there,2 Oh4 say, does that star- span-
  71   gled ban- ner yet wave,2 __ O'er8. the16 land2 __ of8 the8 free2
  72   and8 the8 home4. of8 the4 brave.2
  73 }
  74
  75 global = \notes {
  76         \time 3/4;
  77         \key D;
  78         \partial 4;
  79         \skip 4;
  80         \skip 2.*8;
  81         \skip 2.*16;
  82         \skip 2.;
  83         \bar "|.";
  84         }
  85
  86 \include "paper16.ly";
  87
  88 \score{
  89         \type GrandStaff <
  90                 \type Staff=staffA <
  91                         \global
  92                         \notes \transpose c'' {\voiceone \$staff1_voice_1 }
  93                         \notes \transpose c'' {\voicetwo \$staff1_voice_2 }
  94                 >
  95                 \type Lyrics = one \lyrics <
  96                         \$text
  97                 >
  98                 \type Staff=staffB <
  99                         \global
 100                         \clef bass;
 101                         \property Staff.voltaVisibility = "0"
 102                         {\voiceone \$staff2_voice_1 }
 103                         {\voicetwo \$staff2_voice_2 }
 104                 >
 105         >
 106         \paper{
 107                 \paper_sixteen;
 108                 textheight = 230.\mm;
 109                 linewidth= 180.\mm;
 110                 \translator {
 111                         \GrandStaffContext
 112                         \accepts "Lyrics";
 113                 }
 114                 \translator {
 115                         \BarNumberingStaffContext
 116                 }
 117         }
 118 }
 119