mutopia/J.S.Bach/pa.ly

   1 \header {
   2   filename =  "pa.ly";
   3   title =    "Wachet auf, ruft uns die Stimme";
   4   opus =    "BWV";
   5   composer =  "Johann Sebastian Bach 1685-1750 ";
   6   enteredby =  "JCN";
   7   copyright =  "public domain";
   8 }
   9
  10
  11
  12 commands = \notes {
  13   \time 4/4;
  14   \property Staff.timeSignatureStyle = "C"
  15   \key es;
  16   \partial 8;
  17 }
  18
  19 right = \notes \relative c' {
  20   \commands
  21 %if urtekst
  22   \clef "alto";
  23 %  \clef "violin";
  24
  25 %if stable
  26 %  \property Voice."beamAutoEnd_8" = "1/4"
  27   \property Voice."beamAutoEnd_8" = #(make-moment 1 4)
  28   bes8 |
  29   es16 f g8 g f as g bes, as |
  30   \repeat "volta" 2 {
  31   g'16 es f8 as, g d' es r bes |
  32   es16 f g8 g f as g bes, as|
  33   g'16 es f8 as, g d' es r bes' |
  34   bes4 as16 g f es f es d c bes8 c16 d |
  35   es f g f  as g f es g8 f r bes, |
  36   g' a4 bes8 \grace f8()es16 d es8 r c |
  37   a'8 bes4 c8 \grace f,()es16 d es8 r \grace{\slurdown [c'16( d ]}\stemboth)es8 |
  38   d16 c bes8 bes16\prall a bes8 ~bes16 a g f es d c bes|
  39   c d es8 \grace f()es16 d es8~es16 a bes c bes a g f |
  40   bes8 f d\trill c16 bes bes es d c d8 bes|
  41   \grace a()g8. a16 a8.\prallprall g32 a bes4 r8 bes|
  42   es16 f g8 g f as g bes, as|
  43   g'16es f8 as, g d' es r bes|
  44   es16 f g8 g f as g bes, as|
  45   g'16 es f8 as , g d' es r f |
  46   g a4 bes8 \grace f()es16 d es8 r es|
  47   a bes4 c8 \grace g()f16 es f8 r4 |
  48   r r8 bes bes4 as16 g f es|
  49   f es d c bes8 c16 d es f g f as g f es
  50   }
  51   \alternative {
  52   { g8 f r4 r r8 bes,| es16 f g8 g f as g bes, as }
  53   { g'8 f r4 r r8 bes | } }
  54   bes4 as16 g f es f es d c bes8 c16 d |
  55   es f g f as g f es g8 f r bes, |
  56   g' a4 bes8 \grace f() es16 d es8 r c |
  57   a' bes4 c8 \grace f,()es16 d es8 r es' |
  58   d16 c bes8 bes16\prall a bes8~bes16 a g f es d c bes|
  59   c d es8 es16\prall d es8~es16 a bes c bes a g f|
  60   bes8 f d\trill c16 bes bes es d c d8 bes|
  61   g8. a16 a8.\prallprall g32 a bes4 r8 d|
  62   es f4 g8 bes,16\prall as bes8 r bes'|
  63   bes4 as16 g f es f es d c bes8 c16 d|
  64   es f g f as g f es g8 f r4|
  65   r r8 g c16 d es8 es d |
  66   f es g, f es'16 c d8 f, es|
  67   b' c r g g4 f16 es d c |
  68   d c b a g8 a16 b c d es d f es d c|
  69   es8 d r g, es'fis4 g8|
  70   \grace d()c16 bes c8 r a fis' g4 a8|
  71   \grace d,() c16 bes c8 r c' bes16 a g8~g16\trill fis g8~|
  72   g16 f es d c bes a g a bes c8~c16\trill bes c8~|
  73   c16 fis g a g fis e d g8 d bes\trill a16 g |
  74   g4 r r r8 bes|
  75   es16 f g8 g f as g bes, as|
  76   g'16 es f8 as, g d' es r4|
  77   r r8 bes' bes4 as16 g f es|
  78   f es d c bes8 c16 d es f g f as g f es |
  79   g8 f r es c' d4 es8|
  80   as,16\prall g as8 r c d es4 f8|
  81   \grace bes,() as16 g as8 r f g16 f es8~es16\trill d es8~|
  82   es16 des' c bes as g f es f g as8~as16\trill g as8~|
  83   as16 d, es f es d c bes bes'8 es, g16 f es d |
  84   es as g f g8 es \grace d()c8. d16 d8. es16|
  85   es1|
  86   \bar "|.";
  87 }
  88
  89 clefs = \notes{
  90   \clef "alto";
  91   \partial 8;
  92   \skip 8;
  93 %testin'
  94 %  \clef "violin";
  95   \skip 1;
  96 %  \clef "alto";
  97   \repeat "volta" 2 { \skip 1*19; }
  98   \alternative {
  99   { \skip 1*2; }
 100   { \skip 1*1; } }
 101   \skip 1*11;
 102   s4 \clef "violin";
 103   s4 s2
 104   s1
 105   s4 s8 \clef "alto"; s8 s2
 106   \skip 1*12;
 107   s4 r8 \clef "violin"; s8 s2 \clef "alto";
 108 }
 109
 110 left = \notes \relative c {
 111   \commands
 112 %if urtekst
 113   \clef "tenor";
 114 %  \clef "bass";
 115
 116 %if stable
 117 %  \property Staff.noVoltaBraces = 1
 118 %  \property Voice."beamAutoEnd_8" = "1/4"
 119   \property Voice."beamAutoEnd_8" = #(make-moment 1 4)
 120   \property Staff.noVoltaBraces = ##t
 121   r8
 122   R1
 123   \repeat "volta" 2 {
 124   R1*11
 125   r2 es4 g |
 126   bes bes bes bes|
 127   c2 bes |
 128   r r4 bes|
 129   es bes es8 f g4|
 130   f4. es8 d4 c8.\prallprall bes32 c|
 131   bes2 r|
 132   r4 bes \grace bes8() es4 bes|
 133   }
 134   \alternative {
 135   { c g8. as32 bes as8 g f4\trill| es2 r | }
 136   { c'4 g8. as32 bes as8 g f4\trill |} }
 137   es2 r |
 138   R1*6 |
 139   r2 r4 bes'4|
 140   bes as g f\trill |
 141   es2 r|
 142   r4 bes' bes as|
 143   g f\trill es2|
 144   R1|
 145   f4 g as2\trill|
 146   g r|
 147   R1*5|
 148   r4 bes c d|
 149   es2 r|
 150   r r4 es8 f|
 151   g4 f\trill es2|
 152   R1|
 153   r4 bes es bes|
 154   c g as8 g f4\trill|
 155   es1|
 156   R1*4
 157   \bar "|.";
 158 }
 159
 160 pedal = \notes \relative c, {
 161   \commands
 162 %if stable
 163 %  \property Staff.noVoltaBraces = 1
 164   \property Staff.noVoltaBraces = ##t
 165   \clef "bass";
 166   r8 |
 167   es4 es es g
 168   \repeat "volta" 2 {
 169   as bes es, r|
 170   es es es g |
 171   as bes es, r |
 172   g c bes as |
 173   g es bes' d |
 174   es d c es|
 175   f g a f|
 176   bes a g f |
 177   es d c es|
 178   d8 bes f' f, g a bes d,|
 179   es c f4 bes8 c bes as|
 180   g f es d c4 c'|
 181   g bes es, g |
 182   as as' d, es |
 183   c d es d|
 184   c g c8 d es4~|
 185   es8 d g, a bes d, es f|
 186   bes a bes c d bes es4|
 187   bes as! g es |}
 188   \alternative {
 189   { as8 bes c4 f, bes8 as| g4 es' d es |}
 190   { as,8 bes c4 f, bes8 as}}
 191   g4 c bes as |
 192   g es bes' d|
 193   es d c es|
 194   f g a f|
 195   bes a g f|
 196   es  d c es|
 197   d8 bes f' f, g a bes d,|
 198   es c f4 bes8 c bes as!|
 199   g f es d es g as bes|
 200   c d es4 bes as |
 201   g es bes'8 c d bes |
 202   es d c b c g' c bes!|
 203   as4 es f g|
 204   as8 g f e f es d c|
 205   b g g' f es4 c|
 206   g' b c bes|
 207   a c, d es|
 208   fis, d g f|
 209   es' d c bes|
 210   a c bes8 g d' d,|
 211   g es f g as g as bes|
 212   c bes c d es4 c|
 213   as bes c8 bes c d |
 214   es d es f g f g as|
 215   d, bes bes'as g4 es|
 216   bes'8 as g4 as g|
 217   f es f bes, |
 218   c as bes g|
 219   as8 g f es d4 f|
 220   bes8 c bes as g c as bes|
 221   c d es g as f bes bes,|
 222   es1
 223   \bar "|.";
 224 }
 225
 226
 227
 228
 229 % these should be two separate scores...
 230 \score{
 231   \context Score <
 232    \context StaffGroup<
 233    \context PianoStaff <
 234     \context Staff = treble {
 235      \property Score.midiInstrument = "church organ"
 236      <
 237 %if urtekst
 238      \context Voice=i \clefs
 239      \context Voice=ii \right
 240      >
 241     }
 242     \context Staff = bass \left
 243    >
 244    \context Staff = pedal \pedal
 245    >
 246   >
 247
 248 \paper {
 249   %textheight = 280.0 \mm;
 250   % landscape:
 251   textheight = 160.0 \mm;
 252   linewidth = 290.0 \mm;
 253 %{
 254   \translator {
 255     \OrchestralScoreContext
 256     minVerticalAlign = 4.0*\staffheight;
 257     maxVerticalAlign = 4.0*\staffheight;
 258    }
 259 %}
 260   \translator {
 261     \StaffGroupContext
 262     minVerticalAlign = 4.0*\staffheight;
 263     maxVerticalAlign = 4.0*\staffheight;
 264    }
 265    \translator {
 266     \PianoStaffContext
 267         minVerticalAlign = 2.5*\staffheight;
 268         maxVerticalAlign = 2.5*\staffheight;
 269    }
 270   }
 271   \midi {
 272    \tempo 4 = 69;
 273   }
 274 }