input/baerenreiter-sarabande.ly

   1
   2 % #(set! point-and-click line-column-location)
   3
   4 \header {
   5 title = "Solo Cello Suite II"
   6 piece ="Sarabande"
   7 composer = "J.S.Bach"
   8 editor = "August Wenzinger"
   9 source= "B\\\"arenreiter Urtext"
  10
  11 texidoc = "The B\\\"arenreiter edition of the Cello Suites is the most
  12 beautifully typeset piece of music in our collection of music (we both
  13 own one. It is also lovely on French Horn). This piece follows the
  14 same beaming as the printed edition. This is done in order to
  15 benchmarkk the quality of the LilyPond output. As of lilypond 1.5.38,
  16 the spacing is almost identical. With a line-break forced before
  17 measure 25, we get back the linebreaking of Baerenreiter.
  18
  19 This file used to show spacing weaknesses. Now it shows weaknesses in
  20 beam and slur handling."
  21
  22 }
  23
  24
  25 \version "1.3.148"
  26
  27
  28 sarabandeA =  \context Voice \notes \relative c {
  29     \property Staff.NoteCollision \set #'merge-differently-dotted = ##t
  30         < { d8. e16 e4.-\trill d16 e } \\
  31           { d4 a2 } >
  32         f4.  [e8 d c] |
  33         [bes g'] [f e16(f] [g a bes)d,] |
  34         cis4.-\trill [b8 a g] |
  35
  36 % check spacing without accs:
  37 %       c4.-\trill [bes8 a g] |
  38
  39         < { d'8. e16 f4.-\trill d16 e |
  40             f4. [d8 e f] }
  41           \\
  42           { <a,4 f> a2 <a4. d,4.>  } > |
  43         %5
  44
  45         g8 bes16()a c()bes a()g d'8 f, |
  46         <  e4.-\trill
  47            \\ <a,,4 e'> >
  48           [d8 c bes]
  49         %8
  50         < { f'8 g16()a a4. g16()f  |
  51              g8 a16()bes bes4. c16()d }
  52           \\
  53           { a,4 <bes4. d4. > r8 bes4 <g2 f'2>  }
  54         > |
  55
  56         % 11
  57         [e,8 f] [c, g'] [f' e] |
  58         f4 f,2 |
  59         < {  a'4 a4.-\trill bes8
  60              c bes16 a } \\
  61           { [f8 es] es4. r8 d4 } >
  62
  63         fis8.-\trill es16 d8 c |
  64         [bes g'] [a, fis'] [es' d] |
  65         %16
  66         < bes4.-\trill d, g, > [a8 g f!] |
  67         e bes a f' g a |
  68         d, as g es' f g |
  69         [cis, bes'] [a g16 f] [e!8 f16 d] |
  70         cis8 e16 a a,8. g'16 f8()e |
  71         %21
  72         < { d e16()f f4. e16()d |
  73             e8 f16()g g4. a16()bes |
  74             a8 cis16 d d,8 e16 f32 g f8-\trill e16()d } \\
  75           { bes4 g2 |
  76             g4 <bes4. cis,> s8 |
  77             <d8 a f> r r g, a4 } >
  78         |
  79         d4 d,16 a'( b cis d e f )g |
  80     \break
  81         %25
  82         < { a16(b c)b c4. b16()a |
  83             b cis d cis d4. e16()f | }
  84           \\
  85           { f,4 fis4. s8 |
  86             <d4 g,> gis4.   } >
  87         d16(cis)d f,  [a,8 e'] [d' cis] |
  88         d4 d,,2 |
  89 }
  90
  91
  92 sarabande =  \context Staff \notes<
  93         \apply #voicify-music \sarabandeA
  94
  95 >
  96
  97 \version "1.3.148"
  98
  99 sarabandeCelloGlobal =  \notes{
 100         \time 3/4
 101         \key f \major
 102         \clef bass
 103         \repeat "volta" 2 {
 104                 s2.*12
 105         } \repeat "volta" 2 {
 106                 s2.*16
 107         }
 108 }
 109
 110 sarabandeCelloScripts =  \notes{
 111 }
 112
 113 sarabandeCelloStaff =  \context Staff <
 114         \sarabande
 115         \sarabandeCelloGlobal
 116         \sarabandeCelloScripts
 117 >
 118
 119 \score{
 120         \sarabandeCelloStaff
 121         \paper{
 122             indent = 7. \mm
 123             linewidth = 183.5 \mm
 124         \translator { \ScoreContext
 125 %               SpacingSpanner \override #'maximum-duration-for-spacing = #(make-moment 1 16)
 126
 127
 128 }}
 129         \midi{ \tempo 4 = 40 }
 130         \header{
 131         opus= ""
 132         piece ="Sarabande" }
 133 }
 134