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/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] d4 fis4 a4 d'2 [fis'8. e'16] d'4 fis4 gis4 a2 [a8 a8]
  18   fis'4.  e'8 d'4 cis'2 [b8. cis'16] d'4 d'4 a4 fis4 d4 [a8. fis16]
  19   fis4 d4 [fis'8.  fis'16] fis'4 g'4 a'4 a'2 [g'8 fis'8] e'4 fis'4
  20   g'4 g'2 g'4 fis'4. e'8 d'4 cis'2 [b8. cis'16] d'4 fis4 gis4 a2 a4
  21   d'4 d'4 [d'8()cis'8] b4 b4 b4 e'4 [g'8 ()fis'8] [e'8()d'8]
  22   d'4~cis'4 [a8. a16] d'4.~e'8 [fis'8 g'8] a'2 [d'8 e'8] fis'4. g'8
  23   e'4 d'2 s4
  24 }
  25
  26 $staff1_voice_2 = \notes {
  27   [a8.()fis16] a,4 d4 e4 d4~fis4 [fis8. fis16] fis4 d4 d4 cis2 [e8
  28   e8] a4. a8 a4 a2 [a8. a16] a4 a4 a4 fis4 d4 [a8. fis16] fis4 d4 r4
  29   a4 a4 d'4 d'2 [a8 a8] cis'4 cis'4 cis'4 cis'2 a4 a4. a8 a4 a2 [a8.
  30   a16] d4 d4 d4 cis2 e4 fis4 e4 d4 d4 d4 dis4 g4 [g8()dis8] e4 e2
  31   [e8. e16] d4.~a8 [a8 a8] a2 [g8 g8] a4. a8 g4 fis2 s4
  32 }
  33
  34 $staff2_voice_1 = \notes {
  35   r4 fis4 a4 a4 b2 [cis'8. cis'16] b4 b4 b4 a2 [cis'8 cis'8] d'4.
  36   cis'8 d'4 e'2 [e'8. e'16] d'4 d'4 a4 fis4 d4 r4 fis4 d4 r4 d4 e4
  37   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
  38   [e'8. e'16] a4 a4 e4 e2 cis'4 a4 a4 a4 g4 g4 b4 b4 b4 b4 a2
  39   [cis'8. cis'16] a4.~cis'8 [d'8 d'8] d'2 [d'8 d'8] d'4. d'8 cis'4
  40   a2 s4
  41 }
  42
  43 $staff2_voice_2 = \notes {
  44   r4 d4 d4 cis4 b,2 [ais,8. ais,16] b,4 b,4 e4 a,2 [a8 a8] d4. e8
  45   [fis8 g8] a2 [g8. g16] fis4 fis4 a4 fis4 d4 r4 fis4 d4 r4 d4 d4 d4
  46   d2 [d8 d8] a4 a4 a4 a2 a,4 d4. e8 [fis8 g8] a2 [g8. g16] fis4 d4
  47   e4 a,2 a4 d4 e4 fis4 g4 g4 fis4 e4 [e8()fis8] [g8()gis8] a2 [g8.
  48   g16] fis4.~a,8 [d8 e8] fis2 [b8 b8] a4. a8 a,4 d2 s4
  49 }
  50
  51 $text1 = \lyrics{
  52   Oh4 __ say. can you see,2 by8. the16 dawn's4 ear- ly light2 What8
  53   so8 proud-4. ly8 we4 hailed,2 At8. the16 twi-4 light's last gleam-
  54   ing. Whose8. broad16
  55 }
  56
  57 $text2 = \lyrics{
  58   _4 stripes and bright stars,2 through8 the8 per-4 il- ous fight,2
  59   O'er8 the8 ram-4. parts8 we4 watched,2 were8. so16 gal-4 lant- ly
  60   _ _ _
  61 }
  62
  63 $text3 = \lyrics{
  64   stream-4 ing. And8. the16 rock-4 ets' red glare,2 the8 bombs8
  65   burst-4 ing in air,2 gave4 proof4. through8 the4 night2 that8.
  66   our16 flag4 was still there,2 Oh4 say, does that star- span-
  67   gled ban- ner yet wave,2 __ O'er8. the16 land2 __ of8 the8 free2
  68   and8 the8 home4. of8 the4 brave.2
  69 }
  70
  71 global = \notes {
  72         \time 3/4;
  73         \key D;
  74         \partial 4;
  75         \skip 4;
  76         \bar "|:";
  77         \skip 2.*8;
  78         \bar ":|";
  79         \skip 2.*16;
  80         \skip 2.;
  81         \bar "|.";
  82         }
  83
  84 \include "paper16.ly";
  85
  86 \score{
  87         \type GrandStaff <
  88                 \type Staff=staffA <
  89                         \global
  90                         \notes \transpose c'' {\voiceone \$staff1_voice_1 }
  91                         \notes \transpose c'' {\voicetwo \$staff1_voice_2 }
  92                 >
  93                 \type Lyrics = one \lyrics <
  94 % urg, too much distance between two texts; fixme first
  95 %                       \$text1
  96 %                       { \$text2 \$text3 }
  97                         { \$text1 \$text3 }
  98                 >
  99                 \type Staff=staffB <
 100                         \global
 101                         \clef bass;
 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 }