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.14";
  16
  17 % urg, this all changed and was never fixed
  18 % howto get rid of these ridiculous dimensions????
  19 % to view the output, subsitute 0.0 with 0.0 in the .tex file...
  20
  21 % one = \type Voice=one \notes\relative c {
  22 % one = \notes\relative c {
  23 one = \type Staff=treble \notes\relative c {
  24         \property Voice . textstyle =  "italic"
  25         r16\p_"legato"\< [g''-1( c-3 )e-5] r [g,-1( c )e]
  26         r [g,( c )d] r [b-1( d-2 \!)g-5] |
  27         r\mf [a,( d-2 ) g-5] r [a,(\< d )f-4]
  28         r [a,( d )e-3] r [c-1( e-2 \!)a-5] |
  29         r\f [b, e a-5] r [b, e-3 g-5]
  30         r [c,-1 e-3 f-4] r [g, d'-3 f-5] |
  31         r [g,-"poco a poco dim." 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                 { \voiceone  f4 r }
  44                 { \voicetwo  <g,4 d'> r }
  45         >
  46         \onevoice
  47         % s
  48         % ugh beam across staffs slur starts at lower staff
  49 %       r16 [g,-1( b d] |
  50 %       \voiceone
  51 %       )b s4 [g'16-1( b-2 d] )b s s s [f'-2 g-3 b-5 f-2] |
  52 %       \onevoice
  53         \translator Staff=bass\stemup
  54         r16 [g,,-5( b-4 d ]
  55         [f-1 \translator Staff=treble\stemdown g16-1 b d] | \stemup )b
  56         \translator Staff=bass\stemdown
  57         [g-5( b-4 d-2] f-1
  58         \translator Staff=treble\stemup
  59         [g16-1 b-2 d] )b
  60         \translator Staff=bass\stemup
  61         \clef "violin";
  62         [g-4 b-2 d-1]
  63         \stemup
  64         % urg, below translator change affects previous beam too!?
  65         % howto separate translator command from previous beam end?
  66         \skip 4*0;
  67         [\translator Staff=treble f-2 g-3 b-5 f-2] |
  68         \stemboth
  69         [e-1\f c'-5( g-3 f-2] [e-1 c'-5 g-3 e-2]
  70         [)d c'-5( f,-3 e-2] [d-1 b'-5 f-3 d-2] |
  71         [)c b'-5( e,-3 d-2] [c-1 a'-5 e-3 c-2]
  72         [)b-1 a'-5( d,-3 c-2] [b-1 g'-5 d-3 b-2] |
  73         [)a g'-5 c,-4 b] [a-"poco a poco dim." fis'-5 c-2 a-1]
  74         [b-2 f' d-4 c] [b f' d-4 b-2] |
  75         [g e' c-3 b] [a e'-5 c-3 a-1]
  76         [fis-2 d' b-3 a] [g-1 d'-5 b-4 g-2] |
  77         [e c'-5 a-4 g-3] [fis-2 c'-5 a-4 fis-2]
  78         [d c'-5 b-4 a] [b-4 g-2 d'-5 f,-1] |
  79         [g-4 e-2 f-1 d'-5] [c-4 b a g]
  80         [f'-5 d-3 es-4 c-2] [fis,-1 es'-4 d-3 c-2] |
  81         [b-1 d-5 b-3 g-1] [as-4-"cresc. e rall." f-2 g-3 d-1]
  82         [es-2 fis-3 a-4 c-5]
  83         <
  84                 { \voiceone  r [c8 b16] }
  85                 %%% urg urg ?{ \voicetwo  [d,8 f-2] }
  86         >
  87         \onevoice  |
  88         <c1\mf g e>
  89         \bar "|.";
  90 }
  91
  92 % two = \notes\relative c{
  93 % two = \type Voice=three \notes\relative c{
  94 two = \type Staff=bass \notes\relative c{
  95         \property Voice . textstyle =  "roman"
  96         c4-5 e-3 g-\mordent^"(\\textsharp)" g,4 |
  97         d'-\mordent-5 f-3 a-\mordent^"(\\textsharp)" a,4 |
  98         e'-5 e'-\mordent-1 a,-4 b-\upprall |
  99         c4 e,-4 fis gis-\downprall |
 100         a4 c,-4 d e-\upprall |
 101         f4-1 e d-3-\prall c |
 102         g'-\mordent^"(\\textsharp)" g, g'-\mordent g, |
 103         g'-\mordent g, g'-\mordent g, |
 104 %       % ugh f should be at upper staff
 105 %       g'-\mordent r r16 [g,-5( b-4 d] )f-1 s s s |
 106 %       g'-\mordent r r16 [g,-5( b-4 d \translator Staff=treble )f-1 ] s s s |
 107 %       \translator Staff=bass
 108 %       s [g-5( b-4 d-2] )f-1 s s s s \clef "violin"; [g-4 b-2 d-1]
 109 %       s s s s \clef bass; |
 110         g' r s s | s s s s \clef bass; |
 111         <
 112 %               { \voiceone  g,,1 ~ g ~ g ~ g ~ g ~ g ~ g }
 113 %               { \voicetwo  g,1 ~ g ~ g ~ g ~ g ~ g ~ g }
 114                 { \voicethree  g1 ~ g ~ g ~ g ~ g ~ g ~ g }
 115                 { \voicefour  g,1 ~ g ~ g ~ g ~ g ~ g ~ g }
 116         >
 117         <c,1 c,>
 118         \bar "|.";
 119 }
 120
 121 global  = \notes{
 122         \time 4/4;
 123 }
 124
 125 treble_staff = \type Staff = treble <
 126         \global
 127         \one
 128 >
 129
 130 bass_staff = \type Staff = bass <
 131 % bass = Staff <
 132         \clef "bass";
 133         \global
 134         \two
 135 >
 136
 137 grand_staff = \type GrandStaff <
 138         \treble_staff
 139         \bass_staff
 140 >
 141
 142 \score{
 143         % Moderato
 144         \grand_staff
 145 %       \include "preludes-paper.ly";
 146         \paper{
 147                 % no slur damping
 148                 slur_slope_damping = 10.0;
 149         %       linewidth= 193.\mm;
 150                 linewidth= 180.\mm;
 151                 gourlay_maxmeasures = 4.0;
 152                 \translator{
 153                   \GrandStaffContext
 154                   minVerticalAlign = 3.0*\staffheight;
 155                   maxVerticalAlign = 3.0*\staffheight;
 156                 }
 157         }
 158         \midi{ \tempo 4 = 80; }
 159         \header {
 160                 opus = "BWV 924";
 161                 piece = "1";
 162         }
 163 }