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         \property Voice . textstyle =  "italic"
  23 % rediculous dim...
  24 %       r16\p_"legato"\< [g''-1( c-3 )e-5] r [g,-1( c )e]
  25         r16\p\< [g''-1( c-3 )e-5] r [g,-1( c )e]
  26         r [g,( c )d] r [b-1( d-2 \!)g-5] |
  27         r16\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         r16\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 % all text is fat currently...
  32 %       r [g,-"poco a poco dim." d'-4 e] r [g, c-2 e]
  33         r [g, d'-4 e] r [g, c-2 e]
  34         r [a,-1 c-3 d-4] r [e, b'-3 d-5] |
  35         r [e, b' c-4] r [e, a-2 c]
  36         r [f,-1 a-3 bes-4] r [c, g'-3 bes-5] |
  37         r [c, g' a-4] r [c, f-2 a]
  38         r [d, f-2 b-5] r [e, g-2 c-5] |
  39         r\p [d, g c-5] r [d, g b-4]
  40         r [c, g'-3 b-5] r [c, fis-2 a-4] |
  41         r [b, d a'-5] r [b, d g-4]
  42         r [a, c g'-5] r [a, c f!-4] |
  43         % ugh arpeggio
  44         \type Staff=treble <
  45                 { \voiceone  f4 r }
  46                 { \voicetwo  <g,4 d'> r }
  47         >
  48         \onevoice
  49         % s
  50         % ugh beam across staffs slur starts at lower staff
  51         \translator Staff=bass\stemup
  52         r16 [g,,-5( b-4 d ]
  53         [f-1 \translator Staff=treble\stemdown g16-1 b d] | \stemup )b
  54         \translator Staff=bass\stemdown
  55         [g-5( b-4 d-2] f-1
  56         \translator Staff=treble\stemup
  57         [g16-1 b-2 d] )b
  58         \translator Staff=bass\stemup
  59         \clef "violin";
  60         [g-4 b-2 d-1]
  61         \stemup
  62         % urg, below translator change affects previous beam too!?
  63         % howto separate translator command from previous beam end?
  64         \skip 4*0;
  65         [\translator Staff=treble f-2 g-3 b-5 f-2] |
  66         \stemboth
  67         [e-1\f c'-5( g-3 f-2] [e-1 c'-5 g-3 e-2]
  68         [)d c'-5( f,-3 e-2] [d-1 b'-5 f-3 d-2] |
  69         [)c b'-5( e,-3 d-2] [c-1 a'-5 e-3 c-2]
  70         [)b-1 a'-5( d,-3 c-2] [b-1 g'-5 d-3 b-2] |
  71 %       [)a g'-5 c,-4 b] [a-"poco a poco dim." fis'-5 c-2 a-1]
  72         [)a g'-5 c,-4 b] [a fis'-5 c-2 a-1]
  73         [b-2 f' d-4 c] [b f' d-4 b-2] |
  74         [g e' c-3 b] [a e'-5 c-3 a-1]
  75         [fis-2 d' b-3 a] [g-1 d'-5 b-4 g-2] |
  76         [e c'-5 a-4 g-3] [fis-2 c'-5 a-4 fis-2]
  77         [d c'-5 b-4 a] [b-4 g-2 d'-5 f,-1] |
  78         [g-4 e-2 f-1 d'-5] [c-4 b a g]
  79         [f'-5 d-3 es-4 c-2] [fis,-1 es'-4 d-3 c-2] |
  80 %       [b-1 d-5 b-3 g-1] [as-4-"cresc. e rall." f-2 g-3 d-1]
  81         [b-1 d-5 b-3 g-1] [as-4 f-2 g-3 d-1]
  82         [es-2 fis-3 a-4 c-5]
  83         \type Staff=treble <
  84                 { \voiceone  r [c8 b16] }
  85                 { \voicetwo  [d,8 f-2] }
  86         >
  87         \onevoice  |
  88         <c1\mf g e>
  89         \bar "|.";
  90 }
  91
  92 two = \type Voice=three \notes\relative c{
  93         \property Voice . textstyle =  "roman"
  94         c4-5 e-3 g-\mordent^"(\\textsharp)" g,4 |
  95         d'4-\mordent-5 f-3 a-\mordent^"(\\textsharp)" a,4 |
  96         e'-5 e'-\mordent-1 a,-4 b-\upprall |
  97         c4 e,-4 fis gis-\downprall |
  98         a4 c,-4 d e-\upprall |
  99         f4-1 e d-3-\prall c |
 100         g'-\mordent^"(\\textsharp)" g, g'-\mordent g, |
 101         g'-\mordent g, g'-\mordent g, |
 102         g' r s s | s s s s \clef bass; |
 103         \type Staff=bass <
 104                 { \voicethree  g1 ~ g ~ g ~ g ~ g ~ g ~ g }
 105                 { \voicefour  g,1 ~ g ~ g ~ g ~ g ~ g ~ g }
 106         >
 107         <c,1 c,>
 108         \bar "|.";
 109 }
 110
 111 global  = \notes{
 112         \time 4/4;
 113 }
 114
 115 treble_staff = \type Staff = treble <
 116         \global
 117         \one
 118 >
 119
 120 bass_staff = \type Staff = bass <
 121         \clef "bass";
 122         \global
 123         \two
 124 >
 125
 126 grand_staff = \type GrandStaff <
 127         \treble_staff
 128         \bass_staff
 129 >
 130
 131 \score{
 132         % Moderato
 133         \grand_staff
 134 %       \include "preludes-paper.ly";
 135         \paper{
 136                 % no slur damping
 137                 slur_slope_damping = 10.0;
 138         %       linewidth= 193.\mm;
 139                 linewidth= 180.\mm;
 140                 gourlay_maxmeasures = 4.0;
 141                 \translator{
 142                   \GrandStaffContext
 143                   minVerticalAlign = 3.0*\staffheight;
 144                   maxVerticalAlign = 3.0*\staffheight;
 145                 }
 146         }
 147         \midi{ \tempo 4 = 80; }
 148         \header {
 149                 opus = "BWV 924";
 150                 piece = "1";
 151         }
 152 }