input/test/stars-and-stripes.ly

   1 %{
   2 Converted from star.mup with the aid of mup-to-ly.py
   3 http://www.Arkkra.com/.../star.ps
   4 %}
   5 \header{
   6 title="The Star Spangled Banner";
   7 subtitle="(The United States National Anthem)";
   8 poet="Text by Francis Scott Key";
   9 composer="J. S. Smith";
  10 arranger="Arranged by William J. Krauss";
  11 enteredby="jcn";
  12 copyright="public domain";
  13 }
  14
  15 $staff1_voice_1 = \notes {
  16   [a8.()fis16] d4 fis4 a4 d'2 [fis'8. e'16] d'4 fis4 gis4 a2 [a8 a8] fis'4.  e'8
  17   d'4 cis'2 [b8. cis'16] d'4 d'4 a4 fis4 d4 [a8. fis16] fis4 d4 [fis'8.
  18   fis'16] fis'4 g'4 a'4 a'2 [g'8 fis'8] e'4 fis'4 g'4 g'2 g'4 fis'4. e'8 d'4
  19   cis'2 [b8. cis'16] d'4 fis4 gis4 a2 a4 d'4 d'4 [d'8()cis'8] b4 b4 b4 e'4 [g'8
  20 ()fis'8] [e'8()d'8] d'4~cis'4 [a8. a16] d'4.~e'8 [fis'8 g'8] a'2 [d'8 e'8]
  21   fis'4. g'8 e'4 d'2 s4 }
  22
  23 $staff1_voice_2 = \notes {
  24   [a8.()fis16] a,4 d4 e4 d4~fis4 [fis8. fis16] fis4 d4 d4 cis2 [e8 e8] a4. a8
  25   a4 a2 [a8. a16] a4 a4 a4 fis4 d4 [a8. fis16] fis4 d4 r4 a4 a4 d'4 d'2
  26   [a8 a8] cis'4 cis'4 cis'4 cis'2 a4 a4. a8 a4 a2 [a8. a16] d4 d4 d4
  27   cis2 e4 fis4 e4 d4 d4 d4 dis4 g4 [g8()dis8] e4 e2 [e8. e16] d4.~a8 [a8 a8]
  28   a2 [g8 g8] a4. a8 g4 fis2 s4 }
  29
  30 $staff2_voice_1 = \notes {
  31   r4 fis4 a4 a4 b2 [cis'8. cis'16] b4 b4 b4 a2 [cis'8 cis'8] d'4. cis'8
  32   d'4 e'2 [e'8. e'16] d'4 d'4 a4 fis4 d4 r4 fis4 d4 r4 d4 e4 fis4 fis'2
  33   [e'8 d'8] e'4 e'4 e'4 e'2 cis'4  d'4. cis'8 d'4 e'2 [e'8. e'16] a4 a4
  34   e4 e2 cis'4 a4 a4 a4 g4 g4 b4 b4 b4 b4 a2 [cis'8. cis'16] a4.~cis'8
  35   [d'8 d'8] d'2 [d'8 d'8] d'4. d'8 cis'4 a2 s4 }
  36
  37 $staff2_voice_2 = \notes {
  38   r4 d4 d4 cis4 b,2 [ais,8. ais,16] b,4 b,4 e4 a,2 [a8 a8] d4. e8 [fis8 g8]
  39   a2 [g8. g16] fis4 fis4 a4 fis4 d4 r4 fis4 d4 r4 d4 d4 d4 d2 [d8 d8] a4
  40   a4 a4 a2 a,4 d4. e8 [fis8 g8] a2 [g8. g16] fis4 d4 e4 a,2 a4 d4 e4 fis4
  41   g4 g4 fis4 e4 [e8()fis8] [g8()gis8] a2 [g8. g16] fis4.~a,8 [d8 e8] fis2 [b8 b8]
  42   a4. a8 a,4 d2 s4 }
  43
  44 $text1 = \lyrics{
  45   Oh say. can you see, by the dawn's ear- ly light What_so proud- ly we hailed,
  46   At the twi- light's last gleam- ing. Whose broad
  47 }
  48
  49 $text2 = \lyrics{
  50   _ stripes and bright stars, through the per- il- ous fight, O'er the ram- parts
  51   we watched, were so gal- lant- ly _ _ _
  52 }
  53
  54 $text3 = \lyrics{
  55   stream- ing. And the rock- ets' red glare, the bombs burst- ing in air, gave
  56   proof through the night that our flag was still there, _ Oh say, does that
  57   star- span- gled ban- ner yet wave, _ O'er the land _ of_the free and_the
  58   home of the brave.
  59 }
  60
  61 global = \notes {
  62         \time 3/4;
  63         \key D;
  64         \partial 4;
  65         \skip 4;
  66         \bar "|:";
  67         \skip 2.*8;
  68         \bar ":|";
  69         \skip 2.*16;
  70         \skip 2.;
  71         \bar "|.";
  72         }
  73
  74 \include "paper16.ly";
  75
  76 \score{
  77         \type GrandStaff <
  78                 \type Staff=staffA <
  79                         \global
  80                         \notes \transpose c'' {\voiceone \$staff1_voice_1 }
  81                         \notes \transpose c'' {\voicetwo \$staff1_voice_2 }
  82                 >
  83                 \type Lyrics = one \lyrics <
  84 % urg, too much distance between two texts; fixme first
  85 %                       \$text1
  86 %                       { \$text2 \$text3 }
  87                         { \$text1 \$text3 }
  88                 >
  89                 \type Staff=staffB <
  90                         \global
  91                         \clef bass;
  92                         {\voiceone \$staff2_voice_1 }
  93                         {\voicetwo \$staff2_voice_2 }
  94                 >
  95         >
  96         \paper{
  97                 \paper_sixteen;
  98                 textheight = 230.\mm;
  99                 linewidth= 180.\mm;
 100                 \translator {
 101                                 \GrandStaffContext
 102                                 \accepts "Lyrics";
 103                 }
 104                 \translator {
 105                                 \BarNumberingStaffContext
 106                 }
 107         }
 108 }