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

   1
   2 #(set! point-and-click line-column-location)
   3
   4 forcedBreak = \notes { }
   5 %%forcedBreak = \notes { \break }
   6 forcedLastBreak = \notes { \break }
   7 %%forcedLastBreak = \notes { }
   8
   9 %% We want this to perfectly match the Baerenreiter spacing.
  10 %% If we're not using 6 systems, there's definately a problem.
  11 #(define (assert-system-count smob n)
  12   (let ((systems (length (get-broken-into
  13                           (get-original
  14                            (get-system smob))))))
  15     (if (not (equal? n systems))
  16         ;; Can't use error yet, as we know that we're not using 6...
  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 \version "1.5.68"
  53
  54
  55 sarabandeA =  \context Voice \notes \relative c {
  56   \property Staff.NoteCollision \set #'merge-differently-dotted = ##t
  57   < { d8. e16 e4.-\trill d16 e } \\
  58     { d4 a2 } >
  59   f4.  [e8 d c] |
  60   [bes g'] [f e16(f] [g a bes)d,] |
  61   cis4.-\trill [b8 a g] |
  62
  63   %% check spacing without accs:
  64   %%    c4.-\trill [bes8 a g] |
  65
  66   < { d'8. e16 f4.-\trill d16 e |
  67       f4. [d8 e f] }
  68     \\
  69     { <a,4 f> a2 <a4. d,4.>  } > |
  70
  71   %%7
  72   g8 bes16()a c()bes a()g d'8 f, |
  73   <  e4.-\trill
  74   \\ <c,4 g'> >
  75   [d8 c bes]
  76
  77   %%9
  78   < { f'8 g16()a a4. g16()f  |
  79       g8 a16()bes bes4. c16()d }
  80     \\
  81     { a,4 <bes4. d4. > r8 bes4 <g2 f'2>  }
  82   > |
  83   \forcedBreak
  84
  85   %% 11
  86   [e,8 f] [c, g'] [f' e] |
  87   f4 f,2 |
  88   < {  a'4 a4.-\trill bes8
  89        c bes16 a } \\
  90     { [f8 es] es4. r8 d4 } >
  91
  92   fis8.-\trill es16 d8 c |
  93   [bes g']
  94   [a, fis']
  95   [es' d] |
  96   \forcedBreak
  97
  98   %%16
  99   < bes4.-\trill d, g, > [a8 g f!] |
 100   e bes a f' g a |
 101   d, as g es' f g |
 102   [cis, bes'] [a g16 f] [e!8 f16 d] |
 103   cis8 e16 a a,8. g'16 f8()e |
 104   \forcedBreak
 105
 106   %%21
 107   < { d e16()f f4. e16()d |
 108       e8 f16()g g4. a16()bes |
 109       a8 cis16 d d,8 e16 f32 g f8-\trill e16()d } \\
 110     { bes4 g2 |
 111       g4 <bes4. cis,> s8 |
 112       <d8 a f> r r g, a4 } >
 113   |
 114   \stemUp
 115   d4 d,16 a'( b cis d e f )g |
 116   \stemBoth
 117   \forcedLastBreak
 118   %%25
 119   < { a16(b c)b c4. b16()a |
 120       b cis d cis d4. e16()f | }
 121     \\
 122     { f,4 fis4. s8 |
 123       <d4 g,> gis4.   } >
 124   \voiceOne
 125   d16(cis)d f,
 126   [a,8 e']
 127   \oneVoice
 128   [d' cis] |
 129   %%  d4 d,,2 |
 130   d4
 131   \property Thread.NoteHead
 132   \override #'after-line-breaking-callback
 133   = #(lambda (smob) (assert-system-count smob 6.1))
 134   d,,2 |
 135 }
 136
 137
 138 sarabande =  \context Staff \notes<
 139   \apply #voicify-music \sarabandeA
 140
 141 >
 142
 143 \version "1.5.68"
 144
 145 sarabandeCelloGlobal =  \notes{
 146   \time 3/4
 147   \key f \major
 148   \clef bass
 149   \repeat "volta" 2 {
 150     s2.*12
 151   } \repeat "volta" 2 {
 152     s2.*16
 153   }
 154 }
 155
 156 sarabandeCelloScripts =  \notes{
 157 }
 158
 159 sarabandeCelloStaff =  \context Staff <
 160   \sarabande
 161   \sarabandeCelloGlobal
 162   \sarabandeCelloScripts
 163 >
 164
 165 % size perversions
 166 smallerPaper = \paper {
 167     \translator { \StaffContext
 168                   fontSize = #-1
 169                   StaffSymbol \override  #'staff-space = #0.8
 170                   }
 171     \translator { \ScoreContext
 172                    SpacingSpanner \override #'spacing-increment = #0.96
 173                 }
 174
 175     indent = 5.6 \mm
 176     linewidth = 146.8 \mm
 177 }
 178
 179 baerPaper = \paper {
 180     indent = 7. \mm
 181     linewidth =183.5 \mm
 182     interscoreline=4.0\mm
 183     \translator {
 184              \ScoreContext
 185 %            System \override #'molecule-callback = #box-grob-molecule
 186     }
 187 }
 188
 189
 190 \score{
 191   \sarabandeCelloStaff
 192   \paper{
 193     \baerPaper
 194   }
 195   \midi{ \tempo 4 = 40 }
 196   \header{
 197     opus= ""
 198     piece ="Sarabande" }
 199 }
 200
 201 %%% Local variables:
 202 %%% LilyPond-indent-level:2
 203 %%% End: