mutopia/J.S.Bach/Petites-Preludes/preludes-1.ly

   1 \header{
   2 filename =       "preludes-1.ly";
   3 % urg?
   4 %opus = "BWV 924";
   5 % piece = "1";
   6 % blz 1
   7 % Clavierb"uchlein f"ur W. Fr. Bach
   8 % Clav. W. Fr. Bach: 2-Praeambulum I
   9 % ca 1720
  10 composer =       "Johann Sebastian Bach (1685-1750)";
  11 enteredby =      "jcn";
  12 copyright =      "public domain";
  13 }
  14
  15 \version "1.0.19";
  16
  17 % upper = \context Staff \notes\relative c {
  18 upper = \context Staff=upper \notes\relative c {
  19         \context Voice=i
  20         \property Voice . textstyle = "italic"
  21 % rediculous dim...
  22 %       r16\p_"legato"\< g''-1( c-3 )e-5 r g,-1( c )e
  23         r16\p\< g''-1( c-3 )e-5 r g,-1( c )e
  24         r g,( c )d r b-1( d-2 \!)g-5 |
  25         r16\mf a,( d-2 ) g-5 r a,(\< d )f-4
  26         r a,( d )e-3 r c-1( e-2 \!)a-5 |
  27         r16\f b, e a-5 r b, e-3 g-5
  28         r c,-1 e-3 f-4 r g, d'-3 f-5 |
  29 % all text is fat currently...
  30 %       r g,-"poco a poco dim." d'-4 e r g, c-2 e
  31         r g, d'-4 e r g, c-2 e
  32         r a,-1 c-3 d-4 r e, b'-3 d-5 |
  33         r e, b' c-4 r e, a-2 c
  34         r f,-1 a-3 bes-4 r c, g'-3 bes-5 |
  35         r c, g' a-4 r c, f-2 a
  36         r d, f-2 b-5 r e, g-2 c-5 |
  37         r\p d, g c-5 r d, g b-4
  38         r c, g'-3 b-5 r c, fis-2 a-4 |
  39         r b, d a'-5 r b, d g-4
  40         r a, c g'-5 r a, c f!-4 |
  41         % ugh arpeggio
  42         <
  43                 { \stemup f4 r }
  44                 \context Voice=ii { \stemdown <g,4 d'> r }
  45         >
  46         \stemboth
  47         \translator Staff=lower\stemup
  48         r16 g,,-5( b-4 d
  49         [ f-1 \translator Staff=upper\stemdown g16-1 b d ] |
  50         \stemup )b
  51         \translator Staff=lower\stemdown
  52         [ g-5( b-4 d-2 ] f-1
  53         \translator Staff=upper\stemup
  54         [ g16-1 b-2 d ] )b
  55         \translator Staff=lower\stemup
  56         \clef "violin";
  57         [ g-4 b-2 d-1 ]
  58         \stemup
  59         % urg, below translator change affects previous beam too!?
  60         % howto separate translator command from previous beam end?
  61         \translator Staff=upper f-2 g-3 b-5 f-2 |
  62         \stemboth
  63         e-1\f c'-5( g-3 f-2  e-1 c'-5 g-3 e-2
  64         )d c'-5( f,-3 e-2  d-1 b'-5 f-3 d-2 |
  65         )c b'-5( e,-3 d-2  c-1 a'-5 e-3 c-2
  66         )b-1 a'-5( d,-3 c-2  b-1 g'-5 d-3 b-2 |
  67 %        )a g'-5 c,-4 b  a-"poco a poco dim." fis'-5 c-2 a-1
  68         )a g'-5 c,-4 b  a fis'-5 c-2 a-1
  69         b-2 f' d-4 c  b f' d-4 b-2 |
  70         g e' c-3 b  a e'-5 c-3 a-1
  71         fis-2 d' b-3 a  g-1 d'-5 b-4 g-2 |
  72         e c'-5 a-4 g-3  fis-2 c'-5 a-4 fis-2
  73         d c'-5 b-4 a  b-4 g-2 d'-5 f,-1 |
  74         g-4 e-2 f-1 d'-5  c-4 b a g
  75         f'-5 d-3 es-4 c-2  fis,-1 es'-4 d-3 c-2 |
  76 %        b-1 d-5 b-3 g-1  as-4-"cresc. e rall." f-2 g-3 d-1
  77         b-1 d-5 b-3 g-1  as-4 f-2 g-3 d-1
  78         es-2 fis-3 a-4 c-5
  79         <
  80                 { \stemup r c8 b16 }
  81                 \context Voice=ii { \stemdown  d,8 f-2 }
  82         >
  83         \stemboth |
  84         <c1\mf g e>
  85         \bar "|.";
  86 }
  87
  88 % lower = \context Staff \notes\relative c{
  89 lower = \context Staff=lower \notes\relative c{
  90         \context Voice=i
  91         \property Voice . textstyle = "roman"
  92         c4-5 e-3 g-\mordent^"(\\textsharp)" g,4 |
  93         d'4-\mordent-5 f-3 a-\mordent^"(\\textsharp)" a,4 |
  94         e'-5 e'-\mordent-1 a,-4 b-\upprall |
  95         c4 e,-4 fis gis-\downprall |
  96         a4 c,-4 d e-\upprall |
  97         f4-1 e d-3-\prall c |
  98         g'-\mordent^"(\\textsharp)" g, g'-\mordent g, |
  99         g'-\mordent g, g'-\mordent g, |
 100         g' r s s | s s s s \clef "bass"; |
 101         <
 102                 { \stemup g1 ~ g ~ g ~ g ~ g ~ g ~ g }
 103                 \context Voice=ii { \stemdown g,1 ~ g ~ g ~ g ~ g ~ g ~ g }
 104         >
 105         <c,1 c,>
 106         \bar "|.";
 107 }
 108
 109 global = \notes{
 110         \time 4/4;
 111 }
 112
 113 \score{
 114         % Moderato
 115         \context GrandStaff <
 116                 \context Staff = upper <
 117                         \global
 118                         \upper
 119                 >
 120                 \context Staff = lower <
 121                         \global
 122                         \clef "bass";
 123                         \lower
 124                 >
 125         >
 126         \paper{
 127                 \include "preludes-paper.ly";
 128                 % no slur damping
 129                 slur_slope_damping = 10.0;
 130                 gourlay_maxmeasures = 4.0;
 131                 \translator{
 132                         \GrandStaffContext
 133                         minVerticalAlign = 3.0*\staffheight;
 134                         maxVerticalAlign = 3.0*\staffheight;
 135                 }
 136         }
 137         \midi{ \tempo 4 = 80; }
 138         \header {
 139                 opus = "BWV 924";
 140                 piece = "1";
 141         }
 142 }