mutopia/J.S.Bach/Duette/violino-i.ly

   1 \header{
   2 filename =      "violino-i.ly";
   3 title =          "Vier Duette";
   4 description =   "Four duets for Violino and Violoncello (Viola)";
   5 opus =          "BWV";
   6 composer =      "Johann Sebastian Bach (1685-1750)";
   7 enteredby =     "jcn";
   8 copyright =     "Public Domain";
   9 }
  10
  11 \version "1.3.42";
  12
  13 $violino_i = \notes\relative c'' {
  14   \property Voice.beamAutoEnd = "3/8"
  15   %% should fix autobeamer: not only check shortest type's end in beam,
  16   %%% but also the newly added type's end
  17   \property Voice."beamAutoEnd_8" = "1/16"
  18   %r4 r8 [g16(fis e)d] b'8 a r r [g16(fis e)d] c'8 |
  19   r4 r8 g16(fis e)d b'8 a r r g16(fis e)d c'8 |
  20   b r r d16(b)a g(e')c d(b)a g(c)a c(b)a g(a)fis |
  21   g d(e fis g a )b d(c b c a )b g(a b c d )e g()fis e(d)cis |
  22   a'd,(e fis g a )b a(g fis g e )fis a(g fis e )d
  23   %%cis d e fis <g8 { \grace a, } { \grace d, } >~|
  24   cis d e fis <g8 a, d,>~|
  25 %5
  26   %%<\grace a,16 \grace d, g'16 > e(fis)d cis d
  27   <g16 a, d,> e(fis)d cis d
  28   g,8 <f'4 g, g,>~f16 d(e)c b c fis,!8 <e'4 fis,>~|
  29   <e16 fis,> c(d)b a b e, b'(c)a g a d, a'(b)g fis g c, g'(a)fis e fis |
  30   b,(d)e fis(g)a b(d)c b(a)g fis(g)a b(c)d e(a)g fis e d |
  31   g d(e)fis g a b g(fis)g c, a' b, g'(fis)g a, c fis, g(a)b <c8( d, a>~|
  32   <c d, a> )b r [d16(b a)g] e'8 d r r [c16(b a)g] g'8 |
  33 %10
  34   <fis a, d,> r r g16(fis)e d(b')g a(fis)e d(g)e g(fis)e d(e)cis |
  35   <d4. d,>~<d16 d,> fis,(g e d)e <c'!4. d,>~<c16 d,> e,(fis d cis)d |
  36   <b'4. g g,>~<b16 g g,> e,(dis)e fis g a8 b <c fis,>~ <c16 fis,> b(a)g fis e |
  37   [dis e fis g] <a8 fis>~<a16 fis> fis(g)e d e b e(g)e dis e b e(g)e d e |
  38   [cis d e fis] <g8 a,>~<g16 a,> e(fis)d cis d a d(fis)d cis d a d(fis)d c d |
  39 %15
  40   [b c d e] <f8 g,>~<f16 g,> e(dis)e a e cis' a(gis)a dis a fis'8 [b,()a] |
  41   g16 b(cis dis e fis )g b( a g fis e)dis cis( dis e fis g)a fis(e dis cis b |
  42   )e g(fis)e a fis g b(a)g a fis g b(a)g fis e [dis()e fis()c] <a'8( b, fis b,>~|
  43   <a b,> <)g b,> r [b,16(a g)fis] c'8 b r r [a16(g fis)e] e'8 |
  44   dis8 r r e16 d(cis b g' e)fis d(cis b e cis)e d(cis b cis)ais |
  45 %20
  46   <b4. d, g>~<b16 d,> ais( b d cis)e d8 [b()cis\prall] d [gis()b] |
  47   <d,4. e,>~<d16 e,> gis,(a c! b)d <c8 e,> [a()b\prall] c [fis()a]|
  48   <c,4. d,>~<c16 d,> a(b)g fis g e b'(c)a g a fis c'(d)b a b |
  49   g d'(e)c b c a e'(s)d c d b8 <g'4 g, g,>~<g16 g,>c,(f! e d c |
  50   )b c(f, a g f)e g(f e d c )g c(d e f g )a d(c)b a g |
  51 %25
  52   c16 g a b c d e g(f)e f d e  c'(b)c a f g  c,(b)c <f8 g, g,>~|
  53   <f16 g,> d(e)c b c fis8 a <c d, d,>~<c16 d, d,> c,(d)b a b e,8 <d'4 e,> ~|
  54   <d16 e,> b(c)a gis a e' b(c)a g a fis' c(d)b a b g' d(e)c b c |
  55   a' g(fis e d c)b d(c b a g)fis e'(d c b)a \breathe [g(fis e)d] b'8|
  56   a r r r16 a, b c d(e)fis g a b c d [g,(fis e)d] c'8 |
  57 %30
  58   b r r r4 r8 r4 r8 d16 b(a g e')c|
  59   d b(a g c a)b d(c f c a)b g(fis g a fis)g b(a g a fis|
  60   )g e(d)c f d e g(f)e f d e f(g)a d, f e a(b)c e, g|
  61   fis g(a)b e, g fis b(c)d fis, a g a(b)c fis, a g c(d)e g, b|
  62   a g(a b c)d [c(b a)g] <f'8 g, g,> <e g, g,> r r d16(c b)a <g'8 a, d,> |
  63 %35
  64   <fis a, d,> r r a16( fis e)d <c'8 a, d,> <b16 b, d, g,> g(a)b e,(g)c,
  65   fis(g)a d,(fis|
  66   )b, d(e)f b,(d)g, b(c)d g,(b)d, g(a)b d,(g)b, d(e)f b,(d|
  67   )g,8 r r e'16(d c)b f'8 e r r g16(fis e)d c'8 |
  68   <c4.\prall>~c16 b(a g)e' c()d b(a g)c a()c b(a)g
  69   \context Staff<
  70     %\context Voice { a16 f | g1. }
  71     \context Voice { \property Voice.verticalDirection=1 a16 fis | g1. }
  72     \context Voice=x { \property Voice.verticalDirection=-1 c,16 c | b1. }
  73   >
  74   \bar "|.";
  75 }
  76
  77 \include "global-i.ly"
  78
  79 $violino_i_staff = \context Staff = violino <
  80   %urg
  81   % \notes\property Voice.textStyle = "large" s4^"Moderato"
  82   % \notes {s4. \property Voice.textStyle = "large" s4^"Moderato"}
  83   % urg, timidity violino patches broken?
  84   %\property Staff.instrument = "violin"
  85   \property Staff.instrument = "viola"
  86   \$violino_i
  87   \$global_i
  88 >