input/mutopia/J.S.Bach/baerenreiter-sarabande.ly

   1 \version "1.5.72"
   2
   3 #(set-point-and-click! 'line-column)
   4
   5 forcedBreak = \notes { }
   6 %%forcedBreak = \notes { \break }
   7 forcedLastBreak = \notes { \break }
   8 %%forcedLastBreak = \notes { }
   9
  10 %% We want this to perfectly match the Baerenreiter spacing.
  11 %% If we're not using 6 systems, there's definately a problem.
  12 #(define (assert-system-count smob n)
  13   (let ((systems (length (get-broken-into
  14                           (get-original
  15                            (get-system smob))))))
  16     (if (not (equal? n systems))
  17         (error
  18         ;;(warn
  19         (string-append "Got " (number->string systems)
  20                              " systems (expecting " (number->string n))))))
  21
  22
  23 \header {
  24   title = "Solo Cello Suite II"
  25   piece ="Sarabande"
  26   composer = "J.S.Bach"
  27   editor = "August Wenzinger"
  28   source= "B\\\"arenreiter Urtext"
  29
  30   texidoc = "The B\\\"arenreiter edition of the Cello Suites is the
  31 most beautifully typeset piece of music in our collection of music (we
  32 both own one. It is also lovely on French Horn). This piece does not
  33 include articulation, but it does follows the same beaming and
  34 linebreaking as the printed edition. This is done in order to
  35 benchmark the quality of the LilyPond output.
  36
  37 As of lilypond 1.5.42, the spacing and beam quanting is almost
  38 identical.
  39
  40 There are two tweaks in this file: a line-break was forced before
  41 measure 25, we get back the linebreaking of Baerenreiter.  The stem
  42 direction is forced in measure 24. The last beam of that measure is up
  43 in Baerenreiter because of context. We don't detect that yet.
  44
  45 Note that the Barenreiter edition contains a few engraving
  46 mistakes. The second line begins with measure 6 (but prints 5). The |:
  47 half way in measure 13 has been forgotten.
  48  "
  49 }
  50
  51
  52 sarabandeA =  \context Voice \notes \relative c {
  53   \property Staff.NoteCollision \set #'merge-differently-dotted = ##t
  54   < { d8. e16 e4.-\trill d16 e } \\
  55     { d4 a2 } >
  56   f4.  [e8 d c] |
  57   [bes g'] [f e16(f] [g a bes)d,] |
  58   cis4.-\trill [b8 a g] |
  59
  60   %% check spacing without accs:
  61   %%    c4.-\trill [bes8 a g] |
  62
  63   < { d'8. e16 f4.-\trill d16 e |
  64       f4. [d8 e f] }
  65     \\
  66     { <a,4 f> a2 <a4. d,4.>  } > |
  67
  68   %%7
  69   g8 bes16()a c()bes a()g d'8 f, |
  70   <  e4.-\trill
  71   \\ <c,4 g'> >
  72   [d8 c bes]
  73
  74   %%9
  75   < { f'8 g16()a a4. g16()f  |
  76       g8 a16()bes bes4. c16()d }
  77     \\
  78     { a,4 <bes4. d4. > r8 bes4 <g2 f'2>  }
  79   > |
  80   \forcedBreak
  81
  82   %% 11
  83   [e,8 f] [c, g'] [f' e] |
  84   f4 f,2 |
  85   < {  a'4 a4.-\trill bes8
  86        c bes16 a } \\
  87     { [f8 es] es4. r8 d4 } >
  88
  89   fis8.-\trill es16 d8 c |
  90   [bes g']
  91   [a, fis']
  92   [es' d] |
  93   \forcedBreak
  94
  95   %%16
  96   < bes4.-\trill d, g, > [a8 g f!] |
  97   e bes a f' g a |
  98   d, as g es' f g |
  99   [cis, bes'] [a g16 f] [e!8 f16 d] |
 100   cis8 e16 a a,8. g'16 f8()e |
 101   \forcedBreak
 102
 103   %%21
 104   < { d e16()f f4. e16()d |
 105       e8 f16()g g4. a16()bes |
 106       a8 cis16 d d,8 e16 f32 g f8-\trill e16()d } \\
 107     { bes4 g2 |
 108       g4 <bes4. cis,> s8 |
 109       <d8 a f> r r g, a4 } >
 110   |
 111   \stemUp
 112   d4 d,16 a'( b cis d e f )g |
 113   \stemBoth
 114   \forcedLastBreak
 115   %%25
 116   < { a16(b c)b c4. b16()a |
 117       b cis d cis d4. e16()f | }
 118     \\
 119     { f,4 fis4. s8 |
 120       <d4 g,> gis4.   } >
 121   \voiceOne
 122   d16(cis)d f,
 123   [a,8 e']
 124   \oneVoice
 125   [d' cis] |
 126   %%  d4 d,,2 |
 127   d4
 128   \property Thread.NoteHead
 129   \override #'after-line-breaking-callback
 130   = #(lambda (smob) (assert-system-count smob 6))
 131   d,,2 |
 132 }
 133
 134
 135 sarabandeCelloGlobal =  \notes{
 136   \time 3/4
 137   \key f \major
 138   \clef bass
 139   \repeat "volta" 2 {
 140     s2.*12
 141   } \repeat "volta" 2 {
 142     s2.*16
 143   }
 144 }
 145
 146 sarabandeCelloScripts =  \notes{
 147 }
 148
 149   #(warn "FIXME: Setting beamed lengths")
 150 sarabandeCelloStaff =  \context Staff <
 151   %%#(warn "FIXME: Setting beamed lengths")
 152   %%\notes c4*0-#(warn "FIXME: Setting beamed lengths")
 153   \property Staff.Stem \set #'beamed-lengths = #'(3.26)
 154
 155   \sarabandeA
 156   \sarabandeCelloGlobal
 157   \sarabandeCelloScripts
 158 >
 159
 160 % size perversions
 161 smallerPaper = \paper {
 162     \translator { \StaffContext
 163                   fontSize = #-1
 164                   StaffSymbol \override  #'staff-space = #0.8
 165                   }
 166     \translator { \ScoreContext
 167                    SpacingSpanner \override #'spacing-increment = #0.96
 168                 }
 169
 170     indent = 5.6 \mm
 171     linewidth = 146.8 \mm
 172 }
 173
 174 baerPaper = \paper {
 175     indent = 7. \mm
 176     linewidth =183.5 \mm
 177     interscoreline=4.0\mm
 178     \translator {
 179              \ScoreContext
 180 %            System \override #'molecule-callback = #box-grob-molecule
 181     }
 182 }
 183
 184
 185 \score{
 186   \sarabandeCelloStaff
 187   \paper{
 188     \baerPaper
 189   }
 190   \midi{ \tempo 4 = 40 }
 191   \header{
 192     opus= ""
 193     piece ="Sarabande" }
 194 }
 195
 196 %%% Local variables:
 197 %%% LilyPond-indent-level:2
 198 %%% End: