mutopia/J.S.Bach/Solo-Cello-Suites/allemande-urtext.ly

   1 % allemande-urtext.ly
   2 % belongs together with -cello.ly and -viola.ly
   3 % (who is going to make a -violin.ly?)
   4
   5 %{
   6 Well, there are still some scripts in this "urtext".
   7 But merging melodic and scripts doen't work too well yet (see viola_scripts).
   8 %}
   9
  10 n = { \slurnormal }
  11 d = { \slurdotted }
  12 comma = "\\sethuge\\ \\ ,"
  13
  14 allemande_a = \context Staff \notes \relative c {
  15         \context Voice=i
  16         \stemup
  17         a'16 |
  18         a8 bes16()a \stemboth
  19         g()f e()d d()cis d()e a,8 bes16()g |
  20         f( a )d f,  e8 cis' \stemup d8. e16 \stemboth f g a bes! |
  21         %3
  22         \stemup c8 \n d16()es \stemboth d()c bes()a c()bes a()g d'8. f,16 |
  23         e( g )bes d c()bes a()g \n bes()a g()f
  24         < f8. a> <f16 a > |
  25         % urg fix
  26         b \n f( e )d e \d cis'( d )cis \stemup d8.( )e16 \stemboth
  27         \n f( e d)e |
  28         %6
  29         d( c b )c b( a gis)a gis8-\prall fis16()e e' c( a )g |
  30         \stemup e' a, f d  d f d b \stemboth
  31         gis( b e )gis \d b( d c )b |
  32         %8
  33         \n c( a f )e d( f e )d gis8.-\trill()a16 \d b d e,()d |
  34         % urg
  35         c( e a)d \stemup b8.-\trill a16 a8 s4 s8 \stemboth |
  36         %10
  37         d,!16 gis( a b a gis fis )e \stemup e8 f16()e \stemboth
  38         d()c b()a |
  39         \stemup d8 e16()f \stemboth\d e()d c()b
  40         \stemup d'16()b c()a \stemboth e8 gis |
  41         a,8. cis16 e g!( f! )e f( a )d gis, a8.
  42         %13
  43         e16 \stemup e8. f16 \stemboth
  44         \n g!()e f()a \n cis,( d )e bes a8.-\trill()g16 |
  45         f a'(f)d g \n b,()cis a' g(f e)d fis d()es c( |
  46         %15
  47         )bes g'(a, )g fis a d c' bes(fis)g bes d()a bes()g |
  48         es(d)es g c()a bes()g \d d(c)d g \n bes()fis g()es |
  49         %17
  50         \n c(bes)c bes' a(c)es g, \stemup fis8-\trill\d g16()a \stemboth
  51         d,8 es16()c |
  52         bes(d )g bes, d,8 fis' \stemup g8. a16 \stemboth bes d g, f |
  53         %19
  54         \stemup e8.-\trill()f16 \stemboth g()e c()bes
  55         \n a()f' g,()f e g'( a )bes |
  56         % :-(
  57         % bes( a g )f^\comma
  58         bes( a g )f^"\\sethuge{\\ \\ '}"
  59         a()e f()d bes d(f)a d()a bes()g |
  60         %21
  61         a,(\n)g'(\n cis())d e()g, a()e f()d bes()d \d gis, f'(e)d |
  62         % \n d( cis b )a^\comma c(a)fis d' c a( b )d
  63         \n d( cis b )a^"\\sethuge\\ \\ ,"
  64         c(a)fis d' c a( b )d
  65         f!(d )gis, d' |
  66         %23
  67         cis(e g!)bes e()a, bes()g f()cis d()gis, a8 cis! |
  68         % knee
  69         \stemup d,16 \stemboth d''(c!)a bes!(g)e cis' d a f d d,8.
  70 }
  71
  72 allemande_b = \notes \relative c {
  73         \context Voice=ii
  74         \stemdown
  75         s16 |
  76         % <d'8 g' f'> s8 s2. |
  77         <f8 g, d> s8 s2. |
  78         s2 <a,8. d,> s16 s4 |
  79         <fis'8 a, d,> s8 s2. |
  80         s1 |
  81         %5
  82         s2 d8. s16 s4 |
  83         s1 |
  84         f!16 s16*3 b, s16*3 s2 |
  85         s1 |
  86         s4 e dis8 ~ dis32 e( fis gis a b c d! c b c )a |
  87         %10
  88         s2 <a8 c,> s8 s4 |
  89         <b8 gis,> s8 s4 <e,8 a,> s8 s4 |
  90         s2 s4 s8.
  91         s16 |
  92         <cis'8 g,> s8 s2. |
  93         %15
  94         s1*3 |
  95         s2 c,8 s8 s4 |
  96         s2 g8. s16 s4 |
  97         bes8.
  98 %       }
  99 }
 100
 101 allemande = \context Staff \notes<
 102         \$allemande_a
 103         \$allemande_b
 104 >
 105
 106
 107 \version "1.0.19";